<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
'the Lot Specific
'RPP - results per page
RPP = 5
P_Man = Request("vid")
pageID = Request("PageID")
if PageID = "" then
PageID = 0
End if
StartRec = PageID * RPP
Dim ProdArray(500,5)
da = 0
P_Man = Request("vid")
sql = "Select * from Products2 where DATEDIFF(day, P_Added, '" & now() & "') < 7 and P_Current = 1 and P_Store = 2"
set objrs = objconn.execute(sql)
if objrs.eof and objrs.bof then
'No Product at this time
NP = 1
else
NP = 0
objrs.movefirst
while not objrs.eof
ProdArray(da,0) = objrs("P_ID")
ProdArray(da,1) = objrs("P_Name")
ProdArray(da,2) = objrs("P_ShortDesc")
ProdArray(da,3) = objrs("P_Thumb")
ProdArray(da,4) = objrs("P_MSRP")
ProdArray(da,5) = objrs("P_Sale")
objrs.movenext
da = da + 1
wend
da = da - 1
SPLabel = PageID + 1
TotalRecords = da + 1
NbrOfPages = TotalRecords/RPP
if NbrOfPages < 1 then
NbrOfPages = 1
Else
if TotalRecords Mod RPP > 0 then
NbrOfPages = ((TotalRecords/RPP)-(TotalRecords Mod RPP) + 1)
End if
End if
End if
PageID = 2
sql = "Select ppHTML from EditPages where PpID = "& PageID
set objrs = objconn.execute(sql)
if objrs.eof and objrs.bof then
PageHTML = ""
else
PageHTML = objrs("PPHTML")
if PageHTML = "None" then
PageHTML = ""
End if
end if
%>
Vespa - Piaggio Traverse City New Arrivals
