<%@ Language=VBScript %> <% dim querySQL 'SQL dim odbcCon 'ODBC connection dim queryRS 'RecordSet dim html %> <% dim rootAt rootAt = "../../../" Response.Write InitialisePage(rootAt) 'open database connection set odbcCon = Server.CreateObject("ADODB.Connection") odbcCon.Open dsnMicrosearch Set queryRS = Server.CreateObject("ADODB.RecordSet") Set manufRS = Server.CreateObject("ADODB.RecordSet") %> COMSOL - Micro-Search - 8051s By Manufacturer <% ShowPageTitle() %>

Micro-Search - Listing of 8051s by Manufacturer

<% 'list manufacturers 'queryRS.Open "SELECT DISTINCT [tblLink-Chip-Manuf].lm_mfID FROM [tblLink-Chip-Manuf];",odbcCon queryRS.Open "SELECT DISTINCT mfID, mfName, mfLongName " & _ "FROM " & _ "[tblFamilies]" & _ "INNER JOIN (" & _ "[tblChips] " & _ "INNER JOIN (" & _ "[tblLink-Chip-Manuf] " & _ "LEFT JOIN [tblManufacturers] " & _ "ON [tblLink-Chip-Manuf].[lm_mfID]=[tblManufacturers].[mfID] " & _ ") ON [tblLink-Chip-Manuf].[lm_cpID]=[tblChips].[cpID] " & _ ") ON tblFamilies.faID = tblChips.cpSubFamily " & _ "WHERE (mfID<>0 AND mfName<>'0' AND faName='8051' AND (cpChecked=true)) ORDER BY mfName;",odbcCon %>

| <% while not queryRS.EOF %>"><%=queryRS("mfName")%> | <% queryRS.movenext wend %>


<% 'start at top of table again queryRS.MoveFirst while not queryRS.EOF 'select all chips matching this manufacturer manufRS.Open "SELECT DISTINCT [cpChipNumber] " & _ "FROM ([tblFamilies] INNER JOIN (" & _ "[tblChips] INNER JOIN [tblLink-Web-Address] " & _ "ON tblChips.cpID = [tblLink-Web-Address].wb_cpID " & _ ") ON tblFamilies.faID = tblChips.cpSubFamily)" & _ "INNER JOIN [tblLink-Chip-Manuf] " & _ "ON [tblLink-Chip-Manuf].[lm_cpID]=[tblChips].[cpID] " & _ "WHERE [tblLink-Chip-Manuf].[lm_mfID]=" & queryRS("mfID") & " " & _ "AND (tblChips.cpChipNumber)<>'0' " & _ "AND (tblFamilies.faName)='8051' " & _ "AND (tblChips.cpChecked)=true " & _ "ORDER BY [cpChipNumber]",odbcCon 'if there are any results then if not manufrs.eof then 'list manufacturer name %>

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

<% 'list each chip %>

<% if not manufrs.EOF then %>');"><%=manufRS("cpChipNumber")%><% manufRS.movenext end if while not manufRS.EOF %>, ');"><%=manufRS("cpChipNumber")%><% manufRS.movenext wend %>

<% end if manufrs.close queryRS.movenext wend 'close recordset queryRS.close %>
8051 general Info Chip Manufacturers Sites Distributors Sites Development Tools for the 8051 TCP/IP Stack for the 8051
<% showPageFooter()%>