|
 |
|
||||||||
|
||||||||||
|
|
|
|||||||||||||||||||||||||||||||||||||||
|
<%
Dim oConn, sPath ,Mailer
Set oConn = Server.CreateObject("ADODB.Connection")
sPath = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("tforum/admin/db/aftc.mdb")
oConn.Open sPath %>
You
are Visitor No.
<%
'Hit Counter
set rec=server.CreateObject("adodb.recordset")
sql="select * from htcounter"
rec.Open sql,oConn
cntr=rec.Fields(0)
Response.Write "" & cntr & ""
sql="update htcounter set hits=" & cntr + 1
oConn.execute sql
rec.Close ()
oConn.close()
set rec=nothing
set conn=nothing
%>
Copyright
@ AFTC for Public Health. All rights reserved. Best site view on
1024 x 768 resolution. Designed by Designwebworld |