<%@ language="vbscript"%>
<%
counter0("1")
%>
Sorry, this web sit is just in making.
<%
sub counter0(1.html)
set conn=server.createObject("ADODB.Connection")
dbpath=server.mappath("../counter/count.mdb")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbpath
set ts=server.createobject("ADODB.Recordset")
ts.LockType=2
sqlstr="select * from count where page='" & trim(titlenm) & "'"
ts.open sqlstr,conn
if ts.eof then
ts.addnew
ts("page")=trim(titlenm)
ts("num")=1
else
ts("num")=ts("num")+1
end if
ts.update
ts.close
set ts=nothing
set conn=nothing
end sub
%>