<%@ Language=VBScript %> <% dim querySQL 'SQL dim odbcCon 'ODBC connection dim queryRS 'RecordSet dim colAlternator dim i dim categoryName categoryName = request("cat") dim categoryID %> <% dim rootAt rootAt = "../" Response.Write InitialisePage(rootAt) 'open database connections set odbcCon = Server.CreateObject("ADODB.Connection") odbcCon.Open dsnLinks Set queryRS = Server.CreateObject("ADODB.RecordSet") %> COMSOL - Embedded Web <% ShowPageTitle() %>

Embedded Web

<% if categoryName = "" then 'do opening page %>

There is a lot of useful information for the embedded engineer out there on the internet but most of it assumes you are US rather than Europe based. Many of our customers are still at the initial design stages when they first contact us so we have put together what we aim to be one of Europe's best embedded information resources. We hope that you will use this as a jumping off point for exploring the wide ranging subject that is "Embedded Engineering".

The sites are split broadly into categories, and the comments that go with the site are purely a matter of our personal opinion - a guide to what we think of the site. If we've missed a site that you have found useful, drop a line to the webmaster, and if we like it, we will add it.

<% 'do links to catalogues colAlternator = 0 queryRS.Open "SELECT CategoryName,Comment,OrderInDirectory FROM tblSiteCategories ORDER BY OrderInDirectory;",odbcCon while not queryRS.EOF if (queryRS("OrderInDirectory").value+0)>0 then if colAlternator = 0 then %><% colAlternator = 1 else %><% coLAlternator = 0 end if end if queryRS.movenext wend queryRS.close %>

"><%=queryRS("CategoryName")%>

<%=queryRS("Comment")%>

"><%=queryRS("CategoryName")%>

<%=queryRS("Comment")%>

<% else %>

| <% 'generate list of categories queryRS.Open "SELECT CategoryName,Comment,OrderInDirectory FROM tblSiteCategories ORDER BY OrderInDirectory;",odbcCon while not queryRS.EOF ' if zero then flag to say do not display if (queryRS("OrderInDirectory").value+0)>0 then %>"><%=queryRS("CategoryName")%> | <% end if queryRS.movenext wend queryRS.close %>

<% 'get entries querySQL = "SELECT tblSiteCategories.*, " & _ "tblLinksMain.Name, tblLinksMain.Address, tblLinksMain.Description, tblLinksMain.Rating " & _ "FROM tblSiteCategories INNER JOIN tblLinksMain ON tblSiteCategories.CategoryID=tblLinksMain.CategoryID " & _ "WHERE CategoryName='" & categoryName & "' " if categoryName = "Suppliers" or categoryName="Chip-Manufacturers" or categoryName="Chip-Distributors" or categoryName="Couriers" then querySQL = querySQL & "ORDER BY tblLinksMain.Name ASC;" else querySQL = querySQL & "ORDER BY tblLinksMain.Rating DESC;" end if queryRS.Open querysql,odbcCon 'check for no links if queryRS.EOF then 'error message %>

No links found

<% else 'category information %>

<%=queryRS("Comment")%>


<% 'list links while not queryRS.EOF if (queryrs("OrderInDirectory").value+0)>0 then %>

" target="_blank"><%=queryRS("Name")%>

<%=queryRS("Description")%>

Rating: <%=queryRS("Rating")%>
<% end if queryRS.movenext wend end if 'close database queryRS.close end if %> <% ShowPageFooter() %>