<%
set rs = server.createobject("ADODB.recordset")
set rs1 = server.createobject("ADODB.recordset")
ssql= "delete from login_status where login_date <>#" & date & "#"
cn.execute ssql
session_id=session.sessionid
ssql="select * from login_status where s_id=" & session_id
rs.open ssql,cn,2,3
if rs.eof=true then
ssql2="select vno from vist_no"
rs1.open ssql2,cn,2,3
vi_no=rs1("vno")
rs1.close
ssql1="insert into login_status(status,s_id,login_date,vno,poll)values('LO',"& session_id & ",#" & date & "#," & vi_no & ",'NO')"
cn.execute ssql1
ssql3="update vist_no set vno=vno+1"
cn.execute ssql3
else
session_id=rs("s_id")
ssql2="select vno from login_status where s_id="& session_id
rs1.open ssql2,cn,2,3
vi_no=rs1("vno")
rs1.close
end if
rs.close
%>
Untitled Document
