%@ Language=VBScript%> <% dim strConn dim strSQL dim numTemp set strConn = Server.CreateObject("ADODB.Connection") strConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _ "Data Source=" & Server.Mappath("dbHits.mdb") & ";" strSQL = "SELECT * FROM tbHits WHERE PageID=1" Set Rs = Server.CreateObject("ADODB.RecordSet") Rs.Open strSQL, strConn, 3, 3 if Rs.EOF = false then numTemp = Rs.Fields("Count") numTemp = numTemp + 1 Rs.Fields("Count") = CLng(numTemp) Rs.Update end if Rs.Close Set Rs = Nothing Response.Write numTemp %>
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Publishing KIDS SECTION ADULT SECTION Printing Gifts & Giveaways
|
|
Contact Asim Ismail: 0300 820 7294, E-Mail: info@visionprinters.com All rights reserved. Copyright © 2004 VISION, Pakistan |
|