% 'count hit count = Application("viewhits") If count = "" Then count = 1 Else count = count + 1 End If Application("viewhits") = count 'connect to database database = "/_private/shopping300.mdb" Set connection = Server.CreateObject("ADODB.Connection") strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath(database) connection.open strConn 'now get product info If Request.Querystring("c") = "jabez" Then Sql="select * from products where category = 'Prayer of Jabez Posters'" Else Sql="select * from products where category = 'Fully Customizeable Posters - Any Bible Verse'" End if Set tmpRS=connection.execute(sql) i = 0 %>
![]() |
||
|
|
CLICK HERE to receive amazing stories and testimonials regarding
the power of prayer and Christian living for FREE! |
©
JabezPosters.com 2003
All Rights Reserved