% @Language = VBScript %> <% Response.Status = "301 Moved Permanently" Response.AddHeader "Location", "http://" & Request.ServerVariables("server_name") & "/busch.aspx" %> <% strQ = strQ & "SELECT txtSystem, " strQ = strQ & "txtItemNumber, " strQ = strQ & "txtItemMfr, " strQ = strQ & "txtCountry, " strQ = strQ & "bolNLA, " strQ = strQ & "txtRailway, " strQ = strQ & "txtEra, " strQ = strQ & "txtItemDesc, " strQ = strQ & "txtYear, " strQ = strQ & "intInterface, " strQ = strQ & "lngNumericSort, " strQ = strQ & "txtDigitalDecoder, " strQ = strQ & "curSuperSale, " strQ = strQ & "curSalePrice, " strQ = strQ & "txtGrid " strQ = strQ & "FROM tblwebitems " strQ = strQ & "WHERE ((tblwebitems.txtgrid) " strQ = strQ & "IN ('Vehicles','Police','Fire'))AND " strQ = strQ & "((tblwebitems.txtItemMfr) " strQ = strQ & "='Busch')AND " strQ = strQ & "((tblwebitems.bolNLA) " strQ = strQ & "='0') ORDER BY RAND() LIMIT 1" objRS.Open strQ %>
|
||||||||
|