<% Server.Execute("../../metatraffic/track.asp") %> Armenia Diaspora Conference Official Site
 Repatriation
<% FName = Request.Form("FName") LName = Request.Form("LName") country = Request.Form("country") data = Request.Form("Year") e_mail = Request.Form("e_mail") occ_f = Request.Form("occ_f") up = Request.Form("Update") If FName="" or LName="" or country="" or data="" Then %>
The fields marked with asterisk (*) are required.
First Name: *
Last Name: *
Country of Origin: *
Repatriation Date: *
Occupation / Field:

Would you like to get update notices from our site?
E-Mail Address:  

<% Else Set OBJdbConnection=Server.CreateObject("ADODB.Connection") OBJdbConnection.Open("DRIVER={MySQL ODBC 3.51 Driver};Server=mysql4.brinkster.com;uid=armenia1;pwd=52xmax;database=armenia1;") FLname = LName & ", " & FName Set rs = Server.CreateObject("ADODB.Recordset") If up="Yes" Then sql = "Insert Into repats_temp (FLname, e_mail, Occ_f, data1, Country, status) Values ('" & FLname & "', '" & e_mail & "', '" & occ_f & "', '" & data & "', '" & country & "', 'to review')" Else sql = "Insert Into repats_temp (FLname, Occ_f, data1, Country, status) Values ('" & FLname & "', '" & occ_f & "', '" & data & "', '" & country & "', 'to review')" End If rs.Open sql, OBJdbConnection Response.Write("
Your details have been added to ArmeniaDiaspora.com Repats` Database. Submissions will be posted as soon as they are processed. Thank you for your collaboration.
") Set rs = Nothing OBJdbConnection.Close set OBJdbConnection = Nothing Set Mail = Server.CreateObject("Persits.MailSender") Mail.Username = "mutq@armeniadiaspora.net" Mail.Password = "52xmax" Mail.Host = "mail.armeniadiaspora.net" Mail.From = "mutq@armeniadiaspora.net" Mail.FromName = "mutq@armeniadiaspora.net" Mail.AddAddress "hayk@armeniadiaspora.net", "Hayk Petrosyan" Mail.IsHTML = True Mail.Subject = "Repats page update" Body = "" Body = Body & "

new job announcement has been inserted

" Body = Body & "

First Name: " & FName & "

" Body = Body & "

Last Name: " & LName & "

" Body = Body & "

Mail: " & e_mail & "

" Body = Body & "

mutq.ArmeniaDiaspora

" Body = Body & "" Mail.Body = Body Mail.Send Set mail = Nothing End If %>
<% Set OBJdbConnection=Server.CreateObject("ADODB.Connection") OBJdbConnection.Open("DRIVER={MySQL ODBC 3.51 Driver};Server=mysql4.brinkster.com;uid=armenia1;pwd=52xmax;database=armenia1;") Set rs = Server.CreateObject("ADODB.Recordset") sql = "Select * From repats Order By FLname" rs.Open sql, OBJdbConnection If Not rs.EOF Then k = mid(rs.fields("FLname"),1,1) Response.Write("") While Not rs.EOF z = mid(rs.fields("FLname"),1,1) If k=z then Response.Write("") Else k = z Response.Write("") Response.Write("") End If rs.movenext Wend End If Set rs = Nothing OBJdbConnection.Close set OBJdbConnection = Nothing %>

" & k & "

NameFromOcc.Immigration Date
" & rs.fields("FLname") & "" & rs.fields("Country") & "" & rs.fields("Occ_f") & "" & rs.fields("data1") & "

" & k & "

NameFromOcc.Immigration Date
" & rs.fields("FLname") & "" & rs.fields("Country") & "" & rs.fields("Occ_f") & "" & rs.fields("data1") & "