<% Set rs = Server.CreateObject( "ADODB.Recordset" ) rs.Open "select * from members where 1=0",conn,1,3,8 rs.AddNew rs.Fields("gender") = CStr(request("gender")) rs.Fields("age") = CStr(request("age")) rs.Fields("email") = Cstr(request("email")) rs.Fields("card_type") = Cstr(request("card_type")) rs.Fields("card_number") = Cstr(request("card_number")) rs.Fields("card_validity_date") = Cstr(request("card_validity_date")) rs.Fields("first_name") = Cstr(request("first_name")) rs.Fields("last_name") = Cstr(request("last_name")) rs.Fields("postal_code") = Cstr(request("postal_code")) rs.Fields("country") = Cstr(request("country")) rs.Fields("state") = Cstr(request("state")) rs.Fields("city") = Cstr(request("city")) rs.Update NewMID = rs.Fields("MID") rs.Close Set NewMessage = Server.CreateObject("CDONTS.NewMail") NewMessage.To = Cstr(request("email")) NewMessage.From = "dazero@netcity.ru" NewMessage.BodyFormat = 1 ' plain text NewMessage.Subject = "You are a new member!" NewMessage.Body = "You are a new member! Your MID is " & NewMID & " and e-mail is " & CStr(request("email")) NewMessage.Send Set NewMessage = nothing Response.Redirect("/members/thanks_new_member.asp") %>