|
"
dim temp
response.write "Home >>"
response.write "New Product"
response.write " : View inquiry basket : " H = 0 set rsinquiry=server.createobject("adodb.recordset") rsinquiry.open "select * from inquiry_details where session_id='"&session.sessionid&"'",db,3 if not rsinquiry.eof then H=rsinquiry.recordcount rsinquiry.close response.write H & " Unsent Inquiry" productdisplay db.close set db=nothing Bottom_Patch %> <% Sub productdisplay response.write "" pagewisedisplay response.write " |
"
response.write "Result Page : "
if start>1 then
response.write ""&"Previous " &""
end if
if currpage<10 then
if pages<=10 then
s1=pages
else
s1=10
end if
for i=1 to s1
if i=currpage then
response.write i&" "
else
response.write ""&i&" "
end if
next
elseif currpage=pages then
for i=pages-4 to pages
if i=currpage then
response.write i&" "
else
response.write ""&i&" "
end if
next
end if
if currpage |