%@ Language=VBScript %>
<% 'On Error Resume Next %>
----------- P L U S ----------
<%
if session("chk")="" then
filepath=server.MapPath("plus1.mdb")
set Application("Ctr")=Server.CreateObject("ADODB.Connection")
if Application("Ctr").state=0 then
Application("Ctr").connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&filepath &";Persist Security Info=False"
Application("Ctr").open
end if
'set rsCtr=Server.CreateObject("ADODB.Recordset")
'strCtr="Select max(Counter) as maxCtr from aspcounter"
'rsCtr.Open strCtr,Application("Ctr"),1,2
'if rsCtr.EOF=False and isnull(maxCtr)=False then
'strUpdate="Delete * from aspcounter"
'Application("Ctr").Execute strUpdate
'strInsert="Insert into aspcounter values (" & rsCtr("maxCtr") + 1 & ")"
'Application("Ctr").Execute strInsert
'Session("cnt")=rsCtr("maxCtr") + 1
'Response.Write Session("cnt") & " =Count "
'end if
'rsCtr.Close
'dim val,NoOfZero,Zerostr,strlen,sessionstr
'strlen=len(session("cnt"))
'val=session("cnt")
'for j=1 to strlen
'sessionstr=sessionstr &" "& mid(val,j,1)
'next
'NoOfZero = 9 - strlen
'for i=1 to NoOfzero
'Zerostr=Zerostr & " 0"
'next
session("cnt") = Zerostr & sessionstr
session("chk")="ok"
end if
%>