<!--#include virtual="/include/adoconn.asp"--> 
<%
UserAIN = request("ID")
UserEmail = request("email")

If Not (UserAIN&"" = "" AND UserEmail&""="") Then

Set rs = Server.CreateObject( "ADODB.Recordset" )
rs.Open "select * from users_ads where ain=" & UserAin & " and email='" & UserEmail & "'",conn,1,3,8	

If rs.RecordCount>0 Then

rs.MoveFirst

RedirURL = ""
RedirURL = RedirURL & "&sex=" & rs.Fields("sex") 
RedirURL = RedirURL & "&first_name=" & rs.Fields("first_name") 
RedirURL = RedirURL & "&email=" & rs.Fields("email") 
RedirURL = RedirURL & "&phone=" & rs.Fields("phone") 
RedirURL = RedirURL & "&address=" & rs.Fields("address") 
RedirURL = RedirURL & "&icq=" & rs.Fields("icq") 
RedirURL = RedirURL & "&birth_day=" & Day(rs.Fields("birth_date")) & "&birth_month=" & Month(rs.Fields("birth_date")) & "&birth_year=" & Year(rs.Fields("birth_date")) 
RedirURL = RedirURL & "&lengthselect=" & rs.Fields("length") 
RedirURL = RedirURL & "&weightselect=" & rs.Fields("weight") 
RedirURL = RedirURL & "&zodiak_sign=" & rs.Fields("zodiak_sign") 
RedirURL = RedirURL & "&smoker=" & rs.Fields("smoker") 
RedirURL = RedirURL & "&other_city=" & rs.Fields("city") 
RedirURL = RedirURL & "&other_country=" & rs.Fields("country")
RedirURL = RedirURL & "&other_occupation=" & rs.Fields("occupation") 
RedirURL = RedirURL & "&about_me=" & rs.Fields("about_me")
RedirURL = RedirURL & "&id=" & rs.Fields("ain")
 

rs.Close

Response.Redirect "/reg/regform.asp?action=edit" & RedirURL

Else

Response.Redirect "/reg/login.asp"

End If

else

Response.Redirect "/reg/login.asp"

End If

%>