<%@ LANGUAGE = "VBScript" %> <% '----------------------------------------------------------- ' ASPilot.com - Pilot Cart Products SEO ' ------------------------------ ' Copyright © 2004 Spliethof Inc ' ' This file lists all the products in the site will full links and ' descriptions. If you submit this page to the search engines, then ' your entire catalog will be indexed. StartTime = Timer PilotInitialize If Not PilotPageBegin("default", Empty) Then Response.Redirect g.HomePageURL TemplateBeforePC 'Get the information for ALL ITEMS from the database. strSQL = "SELECT TOP 200 ITEMID, ITEMNAME, DESCRIP FROM TBLINVENTORY WHERE SHOWIT<>0" Set rsIN = cnPILOT.Execute(strSQL) 'Or do a whole group ordered by the cost field 'Set rsIN = GetItemsByGroupRS(1, "COST") If NOT rsIN.EOF Then arrINV = rsIN.GetRows rsIN.Close '********************************************************************************** ' ENTER YOUR WELCOME MESSAGE HERE '********************************************************************************** Response.Write "
" blnAltColor = True For i = 0 To UBound(arrINV, 2) If i Mod 2 = 0 Then strAttrBGColor = Empty Else strAttrBGColor = " bgcolor=""#EEEEEE""" Response.Write "
" Response.Write arrINV(1, i) Response.Write "
" Response.Write arrINV(2, i) Response.Write "
" Response.Write vbCrLf Next Response.Write "
" End If Set rsIN = Nothing TemplateAfterPC EndTime = Timer Response.Write "
Process took
"&(EndTime-StartTime)&"
seconds to complete
" PilotTerminate %>