:: SAKSHAY International :: >> What's New <<

<%@ Language=VBScript %> <% session.Timeout = 120 '------------------------------------date--------------------------' set rsL = Server.CreateObject("adodb.recordset") ' TO DISPLAY THE IMAGE rsL.CursorType = 3 rsL.CursorLocation = 3 rsL.PageSize = 12 sqlL = " Select * from update1" 'Response.Write(sqlL) rsL.Open sqlL,con strdate=rsL("update1") 'Response.write(strdate) 'REsponse.write("Date") rsL.close '-------------------------------------date --------------' Dim table,currentPage,flag,cat,trbreak flag = false currentPage="" currentPage= Trim(Request.QueryString("currentPage")) If(currentPage = "" or currentPage = null) then currentPage = "1" 'table = trim(Request.Item("cat")) session("table")= "store1" else ' table = session("table") end if counter = 1 Dim str startCount = (cInt(currentPage) -1)* 12 session("currentPage") = currentPage 'Response.Write(startCount) set rsL = Server.CreateObject("adodb.recordset") ' TO DISPLAY THE IMAGE rsL.CursorType = 3 rsL.CursorLocation = 3 rsL.PageSize = 12 str = Session("cat") ' where + " " + str(k) + " LIKE" + " " + "'%"+vtr(k)+"%'" sqlL = " Select * from store order by id desc" 'Response.Write(sqlL) rsL.Open sqlL,con recCount = rsL.RecordCount if recCount < 1 then flag = true else rsL.AbsolutePage = cint (currentPage) end if %> :: SAKSHAY International :: >> What's New <<



	Last Updated on <%=strdate%>

<% trbreak=0 while not rsL.EOF and cint(counter) < 13 title = trim(rsL("title")) picture = "admin/photo/img/" + rsL("thumb") bigger = trim(rsL("bigger")) target = "update.asp?id=" & trim(id) %> <% trbreak= trbreak+1 if trbreak = 4 then trbreak=0 Response.write("") end if %> <% counter = counter +1 rsL.MoveNext() wend prePg = 1 if( cInt(currentPage) > 1 ) then prePg = cInt(currentPage) -1 end if prePg = "show.asp?currentPage=" &prePg nextPg = rsL.PageCount pageCountJ = rsL.PageCount if( cInt(currentPage) < rsL.PageCount ) then nextPg = cInt(currentPage) + 1 end if nextPg = "show.asp?currentPage=" &nextPg 'Response.write(pageCountJ) %>

<%if (not isNull(bigger)) and trim(bigger) <> "" then bigger = replace(bigger,"\","$",1,-1,1) bigger = server.HTMLEncode(bigger) tmpImg = "showPic.asp?pic1="&bigger %>

<%end if%>

<%if flag <> true then %> <% end if con.Close() if flag <> false then %> <% end IF %>

<%if cint(currentPage) > 1 then%>Previous<%end if%>	<%if cint(currentPage) < cint(pageCountJ) then%>Next<%end if%>
There are no Records

Get Notified of our New Products through email