Untitled Document
<%
set con=server.CreateObject("ADODB.Connection")
path=Server.MapPath("DB/SSS.mdb")
str="provider=microsoft.jet.oledb.4.0; data source=" & path
con.open str
set rs=server.CreateObject("ADODB.Recordset")
sql="select * from TableMember order by Member DESC"
rs.open sql,con
i=0
if session("A")<>True or session("A")="" then
i=i+1
dim strcount
strcount=rs(0)+i
session("B")=strcount
%>
<%set rst=server.CreateObject("ADODB.Recordset")
sql="INSERT INTO TableMember VALUES ('"& strcount &"')"%>
<%rst.open sql,con%>
<%session("A")=true%>
<%end if%>