<%@ Language=VBScript %> <% Dim objcon Dim rsEdetail Dim cmd set prm=Server.CreateObject("ADODB.Parameter") 'set cmd=Server.CreateObject("ADODB.Command") Set objcon = Server.CreateObject("ADODB.Connection") objcon.Open Application("connStageelink_ConnectionString"), Application("connStageelink_RuntimeUserName"), Application("connStageelink_RuntimePassword") if Request.Cookies("username")<>"" then set rsEdetail=objcon.execute("select UserName from EDetail where UserName='" & Request.Cookies("username") & "'") if rsEdetail.EOF then objcon.execute("insert into EDetail(UserName,CCRx) values('"& Request.Cookies("username") & "',1)") else objcon.execute("Update EDetail set CCRx=isNULL(CCRx,0)+1 where UserName='"&Request.Cookies("username")&"'") end if end if %>