<%
user=request("user")
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select * from user where username like '"&user&"'"
rs.open sql,conn,3,3
if rs.eof and rs.bof then
response.write ""
response.redirect"index.asp"
response.end
else
rs("count") = rs("count") + 1
rs.update
end if
if rs("userdate")=date() then
rs("countdate")=rs("countdate") + 1
rs.update
else
rs("countdate")=1
rs("userdate")=date()
rs.update
end if
if rs("key1")=0 or rs("key2")=0 or rs("key3")=0 or rs("key4")=0 or rs("key5")=0 or rs("key6")=0 or rs("key7")=0 then
response.redirect"temporary.asp?user="&user&""
response.end
end if
%>
<%
dim rs1
set rs1=server.createobject("adodb.recordset")
sql1="select * from admin where id= 2"
rs1.open sql1,conn,3,2
%>
<%
dim rs2
dim sql2
set rs2=server.createobject("adodb.recordset")
sql2="select * from admin where id= 2"
rs2.open sql1,conn,3,2
%>
<%
set rs_diy = server.createobject("adodb.recordset")
sql_diy="select * from user where username ='"&user&"'"
rs_diy.open sql_diy, conn, 1, 1
%>
<%if rs_diy("userdiy")=1 then%>