<% response.Write "adsasdsad" Select Case request.QueryString("durum") Case "send" body="Guest Name
Guest Surname
E-mail Adress
Postal Adress
Zip/City/Country
Telephone Nr.
Fax Nr.
Room Type
Number of Room
Arrival Date
Departure Date
Flight Number
Airline
Arriving From
Estimated Timp of Arrival
Special Request
Been to Turkey Before
Where did you find us
" for a=1 to 18 frm=frm & request.Form("textfield" & a ) & "
" next grimor="
"& body & "" & frm & "
" 'Set objJmail = Server.Createobject("JMail.Message") 'objJmail.ContentType = "text/html" 'objJmail.Charset = "ISO-8859-9" 'objJmail.From = & Request.form("textfield1") 'objJmail.Subject = "Rezervasyon Formu" 'objJmail.AddRecipient "enis@grimor.com" '"info@prestigehotelistanbul.com" 'objJmail.Body = grimor 'objJmail.Send("info@prestigehotelistanbul.com") 'Set objJmail = Nothing Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.ServerAddress = "localhost" JMail.Charset = "windows-1254" JMail.Sender = "info@prestigehotelistanbul.com" JMail.Subject = "Rezervasyon Formu" JMail.AddRecipientBCC "enis@grimor.com" JMail.HTMLBody = sHTML JMail.Priority = 3 JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR") JMail.Logging = True JMail.Execute Set JMail = Nothing if err.number<>0 Then response.Write("Hata Oluştu:"& err.description) else response.Write "


İletiniz Gönderildi.

" end if End Select %>
Guest Name :  
Guest Surname :  
E-mail Adress :  
Postal Adress :  
Zip/City/Country :  
Telephone Nr. :  
Fax Nr. :  
Room Type :  
Number of Room :  
Arrival Date :  
Departure Date :  
Flight Number :  
Airline :  
Arriving From :  
Estimated Timp of Arrival :  
Special Request :

 
Been to Turkey Before :   Yes No
Where did you find us :