<!-- #include file="Conn.asp" -->
<%
Account=Request("Account")
Password=Request("Password")
if Account= "" or Password= "" then
Response.write "Close"
Response.end
End If

Set rs=Server.CreateObject("ADODB.Recordset")
Mysql="select * from info where Account="&Account
Rs.Open Mysql,Conn,3,2
if not rs.eof then
Response.write "Close"
Response.end
End If

Set Rs=Server.Createobject("Adodb.Recordset")
Mysql="Select * From info"
Rs.Open Mysql,Conn,3,2
Rs.Addnew
Rs("Account")=Request("Account")
Rs("Password")=Request("Password")
Rs.Update
Rs.Close
Set Rs=Nothing
Response.write "Complete"
Response.end
%>