%
If Request.querystring("Send") <> "" Then
msg_txt = "AVRASYA Katılım Formu"
msg_txt = msg_txt & "
Groupname: " & Request.form("Groupname")
msg_txt = msg_txt & "
Arrive: " & Request.form("Arrive")
msg_txt = msg_txt & "
Leave: " & Request.form("Leave")
msg_txt = msg_txt & "
Countrycity: " & Request.form("Countrycity")
msg_txt = msg_txt & "
Groupleader: " & Request.form("Groupleader")
msg_txt = msg_txt & "
Contact: " & Request.form("Contact")
msg_txt = msg_txt & "
Telefon: " & Request.form("Phone")
msg_txt = msg_txt & "
Faks: " & Request.form("Fax")
msg_txt = msg_txt & "
Mobil: " & Request.form("Mobil")
msg_txt = msg_txt & "
Email: " & Request.form("Email")
msg_txt = msg_txt & "
Web: " & Request.form("Web")
msg_txt = msg_txt & "
Dormitory: " & Request.form("Dorm")
msg_txt = msg_txt & "
Hotel3: " & Request.form("Hotel3")
msg_txt = msg_txt & "
Hotel4: " & Request.form("Hotel4")
msg_txt = msg_txt & "
Busplane: " & Request.form("Busplane")
msg_txt = msg_txt & "
Dancer: " & Request.form("Dancer")
msg_txt = msg_txt & "
Musician: " & Request.form("Musician")
msg_txt = msg_txt & "
Other: " & Request.form("Other")
msg_txt = msg_txt & "
Totaly: " & Request.form("Totaly")
msg_txt = msg_txt & "
Mesajınız:
" & Request.form("mesaj")
msg_txt = msg_txt & ""
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mailscriptserver"
Mail.From = Request.form("Email")
Mail.FromName = Request.form("Groupname")
Mail.AddAddress "harman@harmanfolk.com"
Mail.Subject = "Avrasya Katılım Formu Mesajı"
Mail.Password = "dostluk"
Mail.IsHTML = True
Mail.Body = msg_txt
On Error Resume Next
Mail.Send
If Err <> 0 Then
msg = "Your message has not been sent... Please try it again... Please fill in Application Form completely...!
" & Err.Description
else
msg = "We have received your message succesfully thanks a lot..."
End If
End If
%>