<%@ Language=VBScript %> <%Option Explicit%> <% if session("LastNameOnTop") & "" = "" AND session("UserID") & "" <> "" then%> <%end if dim CategID, SubCategID, MainCategs, MainCategDescr, SubCategs, SubCategDescr, a, i dim oRs, oConn, SQL, DataExist, MainDataExist, ShowLeft, LeftProdID dim tmplang, PageNo, totalRows, Data, totalPages, tens, Discount dim starting, ending set oConn = Server.CreateObject("ADODB.Connection") oConn.open Application("ConStr") set oRs = Server.CreateObject("ADODB.Recordset") MainCategs = Application("ProdCategs"&lang) SubCategs = Application("ProdSubCategs"&lang) CategID = Request.Form("CategID") SubCategID = Request.Form("SubCategID") PageNo = Request("PageNo") : if PageNo & "" = "" then PageNo = 1 tens = Request("tens") : if tens & "" = "" then tens = 1 if CategID & "" = "" OR SubCategID & "" = "" then dim errmsg Response.Redirect("error.asp?errmsg=" & errmsg) end if '---- Get User Discount in Category ------------------------ if session("UserID") & "" <> "" then SQL = "Select Discount from UserDiscount where UserID=" & session("UserID") & " AND ProdCategID=" & CategID oRs.open SQL, oConn, 3,1,1 if oRs.EOF = false then Discount = oRs("Discount") else Discount = 0 end if oRs.close else Discount = 0 end if '---- Get User Discount in Category ------------------------ '--- Getting Product to show off on the left side ------ SQL = "LeftProduct1 " & templang & "," & CategID & "," & SubCategID oRs.open SQL, oConn, 0,1,1 if oRs.EOF = false then ShowLeft = oRs.GetRows() LeftProdID = ShowLeft(0,0) DataExist = 1 else oRs.close SQL = "LeftProduct2 " & templang & "," & CategID & "," & SubCategID oRs.open SQL, oConn, 0,1,1 if oRs.EOF = false then ShowLeft = oRs.GetRows() LeftProdID = ShowLeft(0,0) DataExist = 1 end if end if oRs.close if lang = "GR" then tmplang = "" else tmplang = "EN" SQL = "ShowProds '" & tmplang & "','" & CategID & "','" & SubCategID & "','" & LeftProdID & "', " & Discount & ", " & PageSize & ", " & PageNo oRs.open SQL, oConn, 0, 1, 1 if oRs.state=0 then oRs.open SQL, oConn, 3, 1, 1 if oRs.EOF = false then totalRows = oRs("TotalRecs") if totalRows = 0 then MainDataExist = 0 else totalRows = oRs("TotalRecs") MainDataExist = 1 Data = oRs.GetRows() totalPages = totalRows \ PageSize if totalRows mod PageSize > 0 then totalPages = totalPages + 1 end if oRs.close starting = ((tens-1)*10)+1 : ending = starting + 9 GoToPage = "subcategGift.asp?CategID="&CategID&"_subCategID="&SubCategID menu = "1" %> <%=PageTitle%>
     <%for i=0 to ubound(MainCategs,2)%>    <%if Cint(MainCategs(0,i)) = Cint(CategID) then MainCategDescr = MainCategs(1,i)%> <%=MainCategs(1,i)%> <%else%> <%=MainCategs(1,i)%> <%end if%>    <%next%>
<%for i=0 to ubound(SubCategs,2) if SubCategs(2,i) = Cint(CategID) then%>   <%if SubCategs(0,i) = Cint(SubCategID) then SubCategDescr = SubCategs(1,i)%> <%=SubCategs(1,i)%> <%else%> <%=SubCategs(1,i)%> <%end if%>
<% end if next%>

<%if DataExist = 1 then%>" alt="" width="148" height="148" border="0"><%end if%>
<%if DataExist = 1 then%> <%=ShowLeft(1,0)%>
<%=ShowLeft(2,0)%> <%end if%>
SHOP > <%=MainCategDescr%> > <%=SubCategDescr%>

<%if MainDataExist = 1 then%> <% end if %>
  <%=BTitle3(lg)%> >>
<%=BTitle4(lg)%>   <% if pageno>10 then %>   <%end if for i = starting to ending if i <=totalpages then%> <%if Cint(i) = Cint(PageNo) then%><%=i%><%else%><%=i%><%end if%> <% else exit for end if next if i   <%end if%>
<%if MAinDataExist =1 then for i=0 to ubound(Data,2)%>
" width="78" height="78" alt="" border="0">
 <%=Data(2,i)%>
<%=Data(3,i)%>
<%=Data(7,i)%>  <%=Data(8,i)%>
<%=Sselect(lg)%>
    <%=Data(5,i)%>
   <%=Data(4,i)%>
<% next else%>


<%=nodata(lg)%>
<% end if if MainDataExist = 1 then%>
<%=BTitle4(lg)%>   <% if pageno>10 then %>   <%end if for i = starting to ending if i <=totalpages then%> <%if Cint(i) = Cint(PageNo) then%><%=i%><%else%><%=i%><%end if%> <% else exit for end if next if i   <%end if%>
  <%=BTitle3(lg)%> >>
 
 
  <%=BTitle11(lg)%>
 
    <%=BTitle7(lg)%>       <%=BTitle8(lg)%>       <%=BTitle9(lg)%>       <%=BTitle10(lg)%>
<%end if%>