<% dim incrm dim currentPage dim rowCount dim ii currentPage=TRIM(Request("currentPage")) if currentPage="" then currentPage=1 sPageHead = "ASP Unleashed Online Store Home Page" sPageCaption = formatdatetime(now,vblongdate) session("redirectto") = "default.asp" session("salecomplete") = false %> Marble Slabs & Tiles in inida , Green Marble in india, White Marble, makrana marble,Dolomitem,Sandstone exporters,Sandstone suppliers,indian Granite exporter in india
 

ISO-9001

Search

       Home         Contact Us

Slates | Granite | Marble | Cobbles | Pebbles | Mosaics | Limestones | Sandstones | Quartzite |

<% set dbMain = server.createobject("ADODB.Connection") SPath=Server.MapPath("ASPStore.mdb") dbMain.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SPath dbMain.open Set rsProducts = Server.CreateObject("ADODB.Recordset") 'sSQL = "SELECT * FROM products WHERE beginspecial <= #" & date() & _ ' "#" & " AND endspecial >= #" & date() & "#" '--------Working by Inder/Pradeep---------------------- rsProducts.CursorType=adOpenStatic rsProducts.PageSize=4 sSQL = "SELECT * FROM products WHERE beginspecial <= #" & date() & _ "#" & " AND endspecial >= #" & date() & "# AND ProdCat='" & Request.QueryString("CatCode") & "'" '----------------------------------- rsProducts.open sSQL, dbMain, adopenstatic, adlockpessimistic, adcmdtext if rsProducts.eof=true then Response.write"

" & vbcrlf Response.write" " & vbcrlf Response.write"

" & vbcrlf Response.write" " & vbcrlf Response.write"

" & vbcrlf Response.write"

" & vbcrlf Response.write"Product could not be found,Try Again" & vbcrlf Response.write"Back" & vbcrlf Response.write"

" & vbcrlf Response.write"

" & vbcrlf response.end end if '----------------Working Inder/Pradeep-------------- rsProducts.AbsolutePage=cINT(currentPage) rowCount=0 '----------------------------------- %> <% if not rsProducts.eof then %>

Today's Featured Products


<% 'rsproducts.movefirst while rsproducts.eof=false and rowCount <%wend%>

More Pages No.>> <% for ii=1 to rsProducts.PageCount%>¤tPage=<%=ii%>">|<%=ii%>|<%next%>

<% end if %>

Home    |    Terms&Conditions   |   How to Order  |   FAQ    |  Feedback   |  Contact  

 

2004-05 Stone Marble. All rights reserved, ...a stoneindiamarble.com creation