<%@ Language=VBScript %>
<% on Error Resume Next
dim conndb,recdb,strcommand
set conndb= server.CreateObject("ADODB.connection")
conndb.Open "dadkian"
strcommand="select counter from admin"
set recdb= conndb.Execute(strcommand)
counter=recdb("counter")
counter=counter+1
strcommand="update admin set counter='"&counter&"'"
set recdb= conndb.Execute(strcommand)
%>
:: Dad Kian ::
<%=counter%>
<%conndb.Close
set conndb = Nothing%>