<% @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 txtGrid IN ('Pass', 'Goods') AND txtItemMfr IN ('Marklin') AND " strQ = strQ & "((tblwebitems.bolNLA) " strQ = strQ & "='0') ORDER BY txtItemMfr,lngNumericSort" objRS.Open strQ %> Super Sale

MARKLIN ROLLING STOCK SALE!!

To order items from this page click the "Add To Cart" button for the item you want. To view a larger picture or get more information, click on the thumbnails. If you would like to order more than one of a particular item, either click the "Add To Cart" button as many times as you want, or use the "Shopping Cart" button in the top section. Once in the cart display you can change the quantity for any items you have placed in your cart.

<% 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 Set objRS = Nothing objConn.Close Set objConn = Nothing %>
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 "" %> <%=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"))%><% 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"))%><% 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)">