<% @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 ((tblwebitems.curSuperSale) " strQ = strQ & ">'0.00')AND " strQ = strQ & "((tblwebitems.bolNLA) " strQ = strQ & "='0') AND tblwebitems.txtSystem = 'DC' ORDER BY " sort = Request.QueryString("sort") if LEN(sort) = 0 then strQ = strQ & "tblwebitems.txtItemMfr, lngNumericSort ASC" Else strQ = strQ & "tblwebitems.txtItemMfr, " & Request.QueryString("sort") & " ASC" End If objRS.Open strQ %> Super Sale

     
Our shelves are over filled with Locomotives so take advantage of our Locomotive Sale.  Sale ends October 1st, 2008.
 

<% 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 %>
HO/DC LOCOMOTIVES
System Manufacturer Item Number Country Railway Era Description   Click To View An Item's Page
<% 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 "" ELSE IF (objRs("txtSystem")) = "HO" Then Response.Write "HO" %> <%=objRS("txtItemMfr")%> <%=objRS("txtItemNumber")%> <%=objRS("txtCountry")%> <%=objRS("txtRailway")%>
<%=objRS("txtEra")%>
 <%=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"))%>%20<% 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 		/temp.asp?item=<%=objRS("txtItemNumber")%>">/images/thumbs/t_<%=objRS("txtItemNumber")%>.jpg" border="0" onError="HandleImgError(this)">
<% 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("txtCountry")%> <%=objRS("txtRailway")%>
<%=objRS("txtEra")%>
 <%=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"))%>%20<% 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 		/temp.asp?item=<%=objRS("txtItemNumber")%>">/images/thumbs/t_<%=objRS("txtItemNumber")%>.jpg" border="0" onError="HandleImgError(this)">