<%
Dim objConn
set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("countdata.mdb")
objConn.Open
Dim tsql
tsql="SELECT * FROM data WHERE tedxt ='sys' "
Dim gsql
Set gsql = Server.CreateObject("ADODB.Recordset")
gsql.open tsql,objConn
conss=gsql("content")+1
objConn.Execute " UPDATE data SET content =" & conss & " WHERE tedxt ='sys' "
conss=replace(conss,"0","
")
conss=replace(conss,"1","
")
conss=replace(conss,"2","
")
conss=replace(conss,"3","
")
conss=replace(conss,"4","
")
conss=replace(conss,"5","
")
conss=replace(conss,"6","
")
conss=replace(conss,"7","
")
conss=replace(conss,"8","
")
conss=replace(conss,"9","
")
response.write conss
objConn.close
%>