<% Response.Buffer = true %>
Reservation
<%
If request("islem") = "postala" then
Call postala
end if
%>
<%
sub postala
On Error Resume Next
name = request.Form("name")
email = request.Form("email")
phone_code = request.Form("phone_code")
phone = request.Form("phone")
address = request.Form("address")
country = request.Form("country")
arrival_date = request.Form("arrival_date")
departure_date = request.Form("departure_date")
person = request.Form("person")
comments = request.Form("comments")
transfer = request.Form("transfer")
kime_gidecek = "burcuhotel@yahoo.com"
kime_bcc_gidecek = "info@bodrum-hotels.com"
body = body & "Ad :" & name & vbCrLf
body = body & "E-mail :" & email & vbCrLf
body = body & "Telefon :" & phone_code & phone & vbCrLf
body = body & "Adres :" & address & vbCrLf
body = body & "Ülke :" & country & vbCrLf
body = body & "Geliş tarihi :" & arrival_date & vbCrLf
body = body & "Ayrılış tarihi :" & departure_date & vbCrLf
body = body & "Kişi sayısı :" & person & vbCrLf
body = body & "Mesaj :" & comments & vbCrLf
body = body & "Transfer :" & transfer & vbCrLf
Set post = Server.Createobject("CDONTS.NewMail")
post.From = name & " <" & kime_gidecek & ">"
post.To = kime_gidecek
post.Bcc = kime_bcc_gidecek
post.Subject = "bodrum-hotels reservation request"
post.Body = body
on error resume Next
post.Send
response.redirect "../data/redirect.htm"
Set post = Nothing
end sub
%>
