<% @LANGUAGE = VBScript %> <% strQ = strQ & "SELECT txtSystem, " strQ = strQ & "txtItemNumber, " strQ = strQ & "txtItemMfr, " strQ = strQ & "txtCountry, " strQ = strQ & "txtRailway, " strQ = strQ & "bolNLA, " strQ = strQ & "txtEra, " strQ = strQ & "txtItemDesc, " strQ = strQ & "txtYear, " strQ = strQ & "intInterface, " strQ = strQ & "bolNewArrival, " strQ = strQ & "lngNumericSort, " strQ = strQ & "txtDigitalDecoder, " strQ = strQ & "curSuperSale, " strQ = strQ & "curSalePrice, " strQ = strQ & "txtGrid " strQ = strQ & "FROM tblwebitems " strQ = strQ & "WHERE " strQ = strQ & "((tblwebitems.bolNLA) " strQ = strQ & "='0') AND (tblwebitems.txtGrid = 'Transformer') ORDER BY txtItemMfr, " sort = Request.QueryString("sort") if LEN(sort) = 0 then strQ = strQ & "lngNumericSort ASC" Else strQ = strQ & Request.QueryString("sort") & " ASC" End If objRS.Open strQ %> Reynaulds Transformers

TRANSFORMERS


<% DIM iRecordCount iRecordCount = 0 DO WHILE NOT objRS.EOF IF iRecordCount Mod 2 = 0 THEN %> <% ELSE %> <% END IF iRecordCount = iRecordCount + 1 objRS.MoveNext Loop objRS.Close %>
System Manufacturer Item Number Description   Click To View An Item's Page
<% Response.Write(objRS("txtSystem")) if (objRS("txtSystem")) = "ac" THEN Response.Write "HO (AC)" ELSE if (objRS("txtSystem")) = "dc" THEN Response.Write "HO (DC)" ELSE if (objRS("txtSystem")) = "n" THEN Response.Write "N" ELSE if (objRS("txtSystem")) = "z" THEN Response.Write "Z" ELSE if (objRS("txtSystem")) = "1" THEN Response.Write "1" ELSE if (objRS("txtSystem")) = "a" THEN Response.Write "" %> <%=objRS("txtItemMfr")%> <%=objRS("txtItemNumber")%> <%=objRS("txtItemDesc")%> <% if (objRS("txtDigitalDecoder")) = "d" THEN Response.Write "
Includes a digital decoder" ELSE if (objRS("txtDigitalDecoder")) = "s" THEN Response.Write "
Includes a digital decoderIncludes digital sound effects"%> <%if (objRS("txtYear"))=>"2003" THEN Response.Write "
"%> <%if (objRS("txtYear"))=>"2003" THEN Response.Write (objRS("txtYear"))%> <%if (objRS("txtYear"))=>"2003" THEN Response.Write " New Item"%> 		<% if (objRS("curSuperSale")) >"0" THEN Response.Write "" %> <%if (objRS("curSalePrice")) = "0" THEN Response.Write "TBA" ELSE Response.Write FormatCurrency(objRS("curSalePrice"))%>
<%if (objRS("curSuperSale")) >"0" THEN Response.Write " " %> <%if (objRS("curSuperSale")) >"0" THEN Response.Write "" & FormatCurrency(objRS("curSuperSale")) & "" %> ^<%=(objRS("txtItemMfr"))%><% Response.Write server.URLencode(objRS("txtItemDesc"))%>^<% if (objRS("curSuperSale")) >"0" THEN Response.Write (objRS("curSuperSale")) ELSE Response.Write (objRS("curSalePrice"))%>^1&nvadd.x=1">Add To Your Shopping Cart 		<% Dim fileObj Dim exists Set fileObj = Server.CreateObject("Scripting.FileSystemObject") exists = fileObj.FileExists(Server.MapPath(objRS("txtItemMfr") & "/images/thumbs/t_" & objRS("txtItemNumber") & ".jpg")) Set fileObj = Nothing If exists = "True" then %> /temp.asp?item=<%=objRS("txtItemNumber")%>"> <% End if %> /images/thumbs/t_<%=objRS("txtItemNumber")%>.jpg" border="0" onError="HandleImgError(this)">
<% Response.Write(objRS("txtSystem")) if (objRS("txtSystem")) = "ac" THEN Response.Write "HO (AC)" ELSE if (objRS("txtSystem")) = "dc" THEN Response.Write "HO (DC)" ELSE if (objRS("txtSystem")) = "n" THEN Response.Write "N" ELSE if (objRS("txtSystem")) = "z" THEN Response.Write "Z" ELSE if (objRS("txtSystem")) = "1" THEN Response.Write "1" ELSE if (objRS("txtSystem")) = "a" THEN Response.Write "" %> <%=objRS("txtItemMfr")%> <%=objRS("txtItemNumber")%> <%=objRS("txtItemDesc")%> <% if (objRS("txtDigitalDecoder")) = "d" THEN Response.Write "
Includes a digital decoder" ELSE if (objRS("txtDigitalDecoder")) = "s" THEN Response.Write "
Includes a digital decoderIncludes digital sound effects"%> <%if (objRS("txtYear"))=>"2003" THEN Response.Write "
"%> <%if (objRS("txtYear"))=>"2003" THEN Response.Write (objRS("txtYear"))%> <%if (objRS("txtYear"))=>"2003" THEN Response.Write " New Item"%> 		<% if (objRS("curSuperSale")) >"0" THEN Response.Write "" %> <%if (objRS("curSalePrice")) = "0" THEN Response.Write "TBA" ELSE Response.Write FormatCurrency(objRS("curSalePrice"))%>
<%if (objRS("curSuperSale")) >"0" THEN Response.Write " " %> <%if (objRS("curSuperSale")) >"0" THEN Response.Write "" & FormatCurrency(objRS("curSuperSale")) & "" %> ^<%=(objRS("txtItemMfr"))%><% Response.Write server.URLencode(objRS("txtItemDesc"))%>^<% if (objRS("curSuperSale")) >"0" THEN Response.Write (objRS("curSuperSale")) ELSE Response.Write (objRS("curSalePrice"))%>^1&nvadd.x=1">Add To Your Shopping Cart 		<% Set fileObj = Server.CreateObject("Scripting.FileSystemObject") exists = fileObj.FileExists(Server.MapPath(objRS("txtItemMfr") & "/images/thumbs/t_" & objRS("txtItemNumber") & ".jpg")) Set fileObj = Nothing If exists = "True" then %> /temp.asp?item=<%=objRS("txtItemNumber")%>"> <% End if %> /images/thumbs/t_<%=objRS("txtItemNumber")%>.jpg" border="0" onError="HandleImgError(this)">