| |
|
| |
|
<%
set rsCat=strdb.execute("select * from cat where catcode='" & request.QueryString("cat") &"'")
strcat=rsCat.fields(1)
dim v
if request.QueryString("start")="" then
v=1
else
v=request.QueryString("start")
end if
%>
<%
dim rsItem
dim strCatCode
dim strCat
strCatCode=request.QueryString("cat")
'strCat=session("SnSubCat")
Set rsItem= Server.CreateObject("ADODB.Recordset")
rsItem.CursorType = adOpenStatic
rsItem.open "select * from item where CatCode ='" & strCatCode & "' order by Icode",strdb
if not rsItem.eof then
rsItem.PageSize =6
rsItem.absolutePage = cINT(v)
end if
%>
<%=rsCat.fields(1)%>
|
<%if not rsitem.eof then
Response.write ("Page: ")
dim i
i=1
' response.Write(rsItem.pagecount)
' response.Write("adas");
while (i <= rsItem.pagecount)
response.Write(" ")
if i=cint(v) then
Response.write("" & i & "")
else
Response.write(" " & i & " ")
end if
response.Write(" |")
i = i + 1
wend
end if %>
|
| |
| |
<%response.Write(" ")
'Cat='" & strCat & "'order by Icode",strdb
if rsItem.eof then
response.write("")
response.write("| ")
response.write(" | ")
response.write(" ")
response.write("")
response.Write("| Currently there is no items in this category")
'response.Write(" Home ")
response.write(" | ")
response.write(" ")
else
for row = 1 to 2
response.Write("")
for Col = 1 to 3
if not rsItem.eof then
response.Write("")
response.Write("")
response.Write(" ")
response.Write("")
response.Write("")
response.write("| | ")
response.Write(" ")
response.Write(" | ")
response.Write(" ")
response.Write(" ")
response.Write("
Code : " & rsItem.fields(1) & "
")
response.Write("
" & rsItem.fields(2) & "
")
response.Write(" add to cart")
response.Write(" | ")
rsItem.movenext
end if
Next
response.Write(" ")
response.Write("")
response.Write("| ")
response.Write(" ")
response.Write(" | ")
response.Write(" ")
'response.Write("")
next
end if
response.Write(" ")
%>
|
| |
| <%if request("cat")="3" then
response.write("Also Available In Slabs")
else if request("cat")="2" then
response.write("Also Available In Tiles")
end if
end if%> |
| |
| |
| |
| |
| |
| |
<% if cint(v)=1 then %>
<%else%>
| <<
<%Response.write("Back")%> |
<%end if%>
|
<% if cint(v)>=rsItem.pagecount then %>
<%else%>
<%Response.write("Next>> ")%> |
<%end if%>
|
|
|
![](products/" & strcat & "/Small/" & rsItem.fields(1) & ".jpg)