<% 'lamptext = Request.QueryString("lamptext") lampid = Request.QueryString("lampid") if lampid = "" then lampid = 1 end if lamptype = request.querystring("lamptype") %>

<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.open "lamps","","" SQLstmt = "Select * from family2 order by family_name" Set RS = Server.CreateObject("ADODB.Recordset") RS.Open SQLstmt,Conn,3,3 %> Lamp Compatibility Converter

Please select a lamp from the list below to view compatible replacement lamps:

<% RS.close SQLstmt = "Select * from lamp_type2 where family = " & int(lampid) & " order by name" Set RS = Server.CreateObject("ADODB.Recordset") RS.Open SQLstmt,Conn,3,3 %>

<% do while not rs.eof if rs.fields("id") = int(lampid) then Response.Write "" & rs.fields("family_name") & " " else Response.Write "" & rs.fields("family_name") & "" end if rs.movenext loop %>

<% do while not rs.eof if rs.fields("id") = int(lamptype) then Response.Write "" & rs.fields("name") & "" else Response.Write "" & rs.fields("name") & "" end if rs.movenext loop %>

<% if lamptype <> "" then %> Replacement Lamps

<% SQLstmt = "Select * from replacement2 where lampid = " & lamptype & " and preferred = 1" Set RS = Server.CreateObject("ADODB.Recordset") RS.Open SQLstmt,Conn,3,3 if not RS.Eof then groupid = RS.fields("groupid") RS.Close SQLstmt = "Select a.family_name as family_name,a.url_ag as url, b.name as lamp_type, c.preferred as pref from family2 a, lamp_type2 b, replacement2 c where c.groupid = " & groupid & " and c.preferred = 0 and c.lampid = b.id and b.family = a.id order by c.preferred desc, a.family_name, b.name" Set RS = Server.CreateObject("ADODB.Recordset") RS.Open SQLstmt,Conn,3,3 do while not rs.eof if RS.fields("pref") then response.write "" end if if rs.fields("url") <> "" then Response.Write "
• " & rs.fields("family_name") & " " & rs.fields("lamp_type") & "
  " else Response.Write "
• " & rs.fields("family_name") & " " & rs.fields("lamp_type") & "
  " end if if RS.fields("pref") then response.write "" end if rs.movenext loop RS.Close Else RS.Close SQLstmt = "Select groupid from replacement2 where lampid = " & lamptype Set RS = Server.CreateObject("ADODB.Recordset") Set RS2 = Server.CreateObject("ADODB.Recordset") RS.Open SQLstmt,Conn,3,3 do while not rs.eof SQLstmt2 = "Select a.family_name as family_name, a.url_ag as url, b.name as lamp_type from family2 a, lamp_type2 b, replacement2 c where c.groupid = " & RS.fields("groupid") & " and c.preferred = 1 and c.lampid = b.id and b.family = a.id order by a.family_name, b.name" RS2.Open SQLstmt2,Conn,3,3 do while not rs2.eof if rs2.fields("url") <> "" then Response.Write "
• " & rs2.fields("family_name") & " " & rs2.fields("lamp_type") & "
  " else Response.Write "
• " & rs2.fields("family_name") & " " & rs2.fields("lamp_type") & "
  " end if rs2.movenext loop rs2.close rs.movenext loop RS.Close end if end if ' do while not ts.AtEndOfStream ' rec = ts.ReadLine() ' details = split(rec, ",") ' code = details(Lbound(details)) ' name = details(Ubound(details)) ' name=LTrim(name)' ' SQLstmt = "INSERT into lamp_type(family,name) VALUES (" & code & ",'" & name & "')" ' Set RS = conn.execute(SQLstmt) ' loop ' ts.Close Conn.close %>