<% If Request.querystring("Send") <> "" Then msg_txt = "İstanbul Chorus 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 & "
Children: " & Request.form("Children") msg_txt = msg_txt & "
Female: " & Request.form("Female") msg_txt = msg_txt & "
Mixed: " & Request.form("Mixed") msg_txt = msg_txt & "
Performance: " & Request.form("Performance") 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 & "
Leader: " & Request.form("Leader") msg_txt = msg_txt & "
Chorist: " & Request.form("Chorist") 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 "istanbul@istanbulchorus.com" Mail.Subject = "İstanbul Chorus 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 %> Örnek İletişim Formu // <%=date%> //

  <%If Request.querystring("Send") <> "" Then%> <%End If%>
International Istanbul Chorus Festival & Competition
 

  I S T A N B U L / T U R K I Y E 

APPLICATION FORM
                              

<%=msg%> 
Group Name * Required Field
Stay Preference Period Arrive Date
Leave Date
Country-City
Group Leader
Contact
Phone
Fax
Mobil Tel
E-Mail * Required Field
Web Address
Accomodation Type University Dormitory
3 Stars Hotel
4 Stars Hotel
Category Children-A1
Female-B1
Mixed-B3
Performance-C1
Bus-Plane
Participants Leaders
Chorist
Musicians
Others    
Totally       
Message
<%=msg%>