| |
<%
dim cn, rs
dim connstr, sqlstr
set cn = server.createobject("ADODB.Connection")
connstr = "Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & server.MapPath("count.mdb")
cn.open connstr
set rs = server.createobject("ADODB.RecordSet")
sqlstr = "select * from tblCount"
rs.open sqlstr, cn, 3, 3
if not rs.eof then
Response.Write "Wellcome For You " & (rs("counts") + 1) & " times"
rs("counts") = rs("counts") + 1
rs.Update
end if
set cn = Nothing
set rs = Nothing
%>
|
|
200700680
