|
|
|
<%
Dim objConn,objRec
PubSQL="select Counter from Count" ' where id like '1'"
set objConn=Server.CreateObject ("ADODB.Connection")
set objRec=Server.CreateObject ("ADODB.Recordset")
objConn.Open strConnect
objRec.Open pubSQL,objConn
Tcount=CInt(objRec("Counter"))+1
set objRec = Nothing
Dim objCmd1,objRec1
set objCmd1=Server.CreateObject ("ADODB.Command")
objCmd1.ActiveConnection= strConnect
objCmd1.CommandText="Update Count Set Counter='"& CStr(Tcount) &"' where ID like '1'"
objCmd1.Execute
%>
LAB22:Visitor Count using Data Base.
You are Visitor
Number: <%=Tcount%>
|
