<% request id request password Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "database_name" SQLQuery = "INSERT INTO table1 (id,password) VALUES (" & id & "," & password & ")" Conn.Execute SQLQuery sql = "select * from table1 where id = " & id & " " Set rs = Conn.Execute(sql) Do While Not rs.EOF fsiten = rs("fsiten") contact = rs("contact") rs.movenext loop Conn.close %>