<% dim RSFORM Dim sql Set RSFORM = Server.CreateObject("ADODB.Recordset") RSFORM.Open "guests", Conn, 2, 2 RSFORM.Find "ID='" & request("ID") & "'" %>