|
|||||||||||||||||||||||||||||||||||||||||||||||||||
|
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim MailTo Dim mailcomp Dim smtp Dim From ' this will check the Email from the form submitted and assign the From address. ' If Email field is left blank then it assign the fake address. YOu Must Enter an eMail address Above MailTo = "info@tuzcuoglutasimacilik.com.tr" ' this is where you want e-mails to go to *** mailcomp = "ASPEmail" ' You must specify a component to use ' CDONTS, CDOSYS, ASPEmail, JMail **** smtp = "mail.tuzcuoglutasimacilik.com.tr" ' If using CDONTS, this is not necessary (supported on Win2K, NT4 but not on WinXP Pro) ' If you are having problems with CDOSYS on a XP Pro, Search and Download CDONTS from the net ' and register the dll using regsvr **** ' for all others you must specify an SMTP server %> <% Dim html html = "" html = html & "" html = html & " " html = html & "" html = html & "TUZCUOGLU TASIMACILIKBu e-mail websitenizden gönderilmistir " html = html & "Isim: " & Request.Form("txtName") html = html & " " html = html & "E-Mail: " & Request.Form("txtEmail") html = html & " " html = html & "Telefon No: " & Request.Form("tel") html = html & " " html = html & "Esya turu: " & Request.Form("esya") html = html & " " html = html & "Mesaj: " & Request.Form("txfComments") html = html & "" html = html & "Users IP: " & Request.ServerVariables("REMOTE_ADDR") html = html & "" html = html & "" html = html & "*******************************************************" html = html & "" html = html & "" ' ************************ $$$$ variables UP TO here $$$************************** %> <% ' ************************ DO NOT MAKE ANY CHANGES BELOW ******************* ' Which mail component to use? 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 = Request.Form ("txtEmail") WSweb.AddAddress MailTo WSweb.Subject = Request.Form("lstReason") 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 %> Google Optimizasyon & Adwords & Design by Tiger Tasarım |
|||||||||||||||||||||||||||||||||||||||||||||||||||
| Copyright 2006 Selimoğlu Nakliyat Anasayfa - Paketleme - Depolama - Araçlarımız - İletişim | |||||||||||||||||||||||||||||||||||||||||||||||||||