<%@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 = "hotel@chhotels.net" ' 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 & " *****CHHOTELS****** " 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("nombre") html = html & "
" html = html & "Konu: " & Request.Form("empresa") html = html & "
" html = html & "
" html = html & "E-posta: " & Request.Form("email") html = html & "
" html = html & "Istekler: " & Request.Form("mensaje") 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 %> THANK YOU

WE RECIVE YOUR REGUEST

WE WILL INFORM YOU AS SOON AS POSSIBLE

THANK YOU ..

hotels@chhotels.net