<% @LANGUAGE = VBScript %> <% strQ = strQ & "SELECT txtSystem, " strQ = strQ & "txtItemNumber, " strQ = strQ & "txtItemMfr, " strQ = strQ & "bolNLA, " strQ = strQ & "txtItemDesc, " strQ = strQ & "memDetails, " strQ = strQ & "txtYear, " strQ = strQ & "lngNumericSort, " strQ = strQ & "curSuperSale, " strQ = strQ & "curSalePrice, " strQ = strQ & "txtGrid " strQ = strQ & "FROM tblwebitems " strQ = strQ & "WHERE ((tblwebitems.txtGrid) " strQ = strQ & "='Catalogs') ORDER BY txtItemMfr,lngNumericSort" objRS.Open strQ %> REI Manufacturer's Catalogs

Marklin Catalog
Marklin 2003/2004 Catalog
 Each of these European model train manufacturers produce a catalog of their items. These catalogs are some of the finest printing you will ever see. Each is a masterpiece in itself and a representation of world class printing. They are fully illustrated (usually in stunning color) with photos of the complete line-up offered by these manufacturers. The ultimate model railroading "Wish Books". Order yours today!
Manufacturer's Catalog Listing
<% 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 %>
Manufacturer Contents Price Order
/temp.asp?item=<%=objRS("txtItemNumber")%>">/images/thumbs/t_<%=objRS("txtItemNumber")%>.jpg" border="0" onerror="HandleImgError(this)"> <%=objRS("txtItemDesc")%> <%=objRS("memDetails")%> <% if (objRS("bolNLA")) <>"0" THEN Response.Write "" ELSE if (objRS("curSuperSale")) >"0" THEN Response.Write "" %> <%if (objRS("bolNLA")) <>"0" THEN Response.Write "Out Of Stock" ELSE if (objRS("curSalePrice")) = "0" THEN Response.Write "TBA" ELSE Response.Write FormatCurrency(objRS("curSalePrice"))%><%if (objRS("bolNLA")) <>"0" THEN Response.Write "" ELSE if (objRS("curSuperSale")) >"0" THEN Response.Write " " %> <%if (objRS("bolNLA")) <>"0" THEN Response.Write "" ELSE 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"><% if (objRS("bolNLA")) <>"0" THEN Response.Write "" ELSE Response.Write "Click To Order" %>
/temp.asp?item=<%=objRS("txtItemNumber")%>">/images/thumbs/t_<%=objRS("txtItemNumber")%>.jpg" border="0" onerror="HandleImgError(this)"> <%=objRS("txtItemDesc")%> <%=objRS("memDetails")%> <% if (objRS("bolNLA")) <>"0" THEN Response.Write "" ELSE if (objRS("curSuperSale")) >"0" THEN Response.Write "" %> <%if (objRS("bolNLA")) <>"0" THEN Response.Write "Out Of Stock" ELSE if (objRS("curSalePrice")) = "0" THEN Response.Write "TBA" ELSE Response.Write FormatCurrency(objRS("curSalePrice"))%><%if (objRS("bolNLA")) <>"0" THEN Response.Write "" ELSE if (objRS("curSuperSale")) >"0" THEN Response.Write " " %> <%if (objRS("bolNLA")) <>"0" THEN Response.Write "" ELSE 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"><% if (objRS("bolNLA")) <>"0" THEN Response.Write "" ELSE Response.Write "Click To Order" %>