<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim MailTo Dim mailcomp Dim smtp Dim From ' degiskenler buraya If request ("email") = "" Then From = "WEB_REZERVASYON@AUTOMAIL.COM" Else From = Request.Form ("email") End If MailTo = "info@belportbeach.com" ' mail adresiniz buraya *** mailcomp = "CDOSYS" ' Kullandiginiz server hangi compenenti desteliyorsa onu sein... ' CDONTS, CDOSYS, ASPEmail, JMail smtp = "mail.chhotels.net" ' domain yerine domaininizi yazin %> <% 'Genel Html formatli e-mail Dim html html = "" html = html & "" html = html & "" html = html & "" html = html & " *****BELPORT BEACH****** " html = html & "" ' eger css kullaniyorsaniz degistirin ama satiri sakin silmeyin... html = html & "" html = html & "" 'email bg color html = html & "
******WEB REZERVASYON TALEBI******
" html = html & "Ad_Soyad: " & Request.Form("name") html = html & "
" html = html & "Gelinen Ülke: " & Request.Form("ulke") html = html & "
" html = html & "Yetkili - Organizatör: " & Request.Form("il") html = html & "
" html = html & "Transfer İhtiyacı: " & Request.Form("adres") html = html & "
" html = html & "Tel: " & Request.Form("tel") html = html & "
" html = html & "Fax: " & Request.Form("fax") html = html & "
" html = html & "E-posta: " & Request.Form("email") html = html & "
" html = html & "Kişi Sayısı: " & Request.Form("adet") html = html & "
" html = html & "Çocuk Sayısı: " & Request.Form("odatipi") html = html & "
" html = html & "Çocuk Yaşı: " & Request.Form("odatipi3") html = html & "
" html = html & "Geliş Tarihi: " & Request.Form("gun1") html = html & " / " & Request.Form("ay1") html = html & " / " & Request.Form("yil1") html = html & "
" html = html & "Dönüş Tarihi: " & Request.Form("gun2") html = html & " / " & Request.Form("ay2") html = html & " / " & Request.Form("yil2") html = html & "
" html = html & "Dorulama Metodu: " & Request.Form("emaild") html = html & " / " & Request.Form("faxd") html = html & "
" html = html & "Istekler: " & Request.Form("text2") html = html & "
" html = html & "

" html = html & "Kullanc IP: " & Request.ServerVariables("REMOTE_ADDR") html = html & "

" html = html & "*******************************************************" html = html & "
" html = html & "" ' *** Degiskenler sonu *** %> <% ' *** SAKIN ASAGIDAKI KODLARI DEGISTIRMEYIN *** ' Hangi mail componentini kullaniyorsunuz? if mailcomp = "CDOSYS" then set imsg = createobject("cdo.message") set iconf = createobject("cdo.configuration") Set Flds = iConf.Fields With Flds .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtp .Update End With With iMsg Set .Configuration = iConf .To = MailTo .From = From .Subject = Request.Form("Subject") .HTMLBody = HTML .fields.update .Send End With set imsg = nothing set iconf = nothing set HTML = nothing else if mailcomp = "CDONTS" then Dim Avanos Set Avanos = CreateObject("CDONTS.NewMail") Avanos.From= From Avanos.To= MailTo Avanos.Subject= Request.Form("Subject") Avanos.BodyFormat=0 Avanos.MailFormat=0 Avanos.Body=HTML Avanos.Send set HTML = nothing set Avanos=nothing else if mailcomp = "ASPEmail" then Set WSweb = Server.CreateObject("Persits.MailSender") WSweb.Host = smtp WSweb.From = From WSweb.AddAddress MailTo WSweb.Subject = Request.Form("Subject") WSweb.Body = HTML WSweb.IsHTML = True WSweb.Send set WSweb = Nothing set HTML = Nothing else if mailcomp = "JMail" then set msg = Server.CreateObject( "JMail.Message" ) msg.Logging = true msg.ContentType = "text/html" msg.From = From msg.AddRecipient = MailTo msg.Subject = Request.Form("Subject") msg.Body = HTML msg.Send( smtp ) Set msg = Nothing set HTML = Nothing end if end if end if end if %> Teşekkürler

REZERVASYON TALEBİNİZ BİZE ULAŞTI

İLGİLİ DEPARTMANIMIZ SİZE EN KISA SÜREDE

ULAŞACAKTIR...

BİZİ TERCİH ETTİĞİNİZ İÇİN TEŞEKKKÜR EDERİZ..

info@belportbeach.com