Bilgi almak için iletişim formum

<%@Language="VBScript"%> <% '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Advanced Mailer Component Test ' © 2002 PensaWorks, inc. ' For more information, please visit http://www.pensaworks.com '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' response.buffer = true server.scripttimeout = 60 lastUpdate = "8/30/2003" thisPage = mid(request.servervariables("SCRIPT_NAME"), instrrev(request.servervariables("SCRIPT_NAME"), "/") + 1) toEmail = "info@koncabakliyat.com" toName = "KONCA BAKLİYAT" fromName = request("fromName") fromTel = request("fromTel") fromEmail = request("fromEmail") fromAdr = request("fromAdr") emlBody = emlBody & VbCrLf fromComm = request("fromComm") mailerPath = "mail.koncabakliyat.com" mailerPort = "25" emlSubject = "KONCA BAKLİYAT Web Sayfalarından Size Mesaj var " emlBody = emlBody & "Aşağıda İletişim Sayfanızdan Size Gönderilen Mesaj Detayları Bulunmaktadır. " emlBody = emlBody & VbCrLf emlBody = emlBody & VbCrLf & "* Adı : " & fromName emlBody = emlBody & VbCrLf & "* Telefon : " & fromTel emlBody = emlBody & VbCrLf & "* Email : " & fromEmail emlBody = emlBody & VbCrLf & "* Adres : " & fromAdr emlBody = emlBody & VbCrLf emlBody = emlBody & VbCrLf & "* İstekler : " & fromComm %> Bilgi almak için iletişim formum

<% if Request("action")="gogonen" then call CDOSYS_Mailer() response.redirect "tesekkur.htm" end if %>

Contact Form

Your Name
Phone
Email
Address
Comments

<% '====================================== ' Sends an email with CDOSYS and passes back fail/success function CDOSYS_Mailer() dim Mailer set Mailer = server.createobject("CDO.Message") if err.number <> 0 then errText = displayError("CDOSYS", searchURL, err.Number, err.Source, err.Description) CDOSYS_Mailer = false : set Mailer = nothing : err.clear() : err = 0 exit function end if Mailer.From = fromName & " <" & fromEmail & ">" Mailer.To = toName & " <" & toEmail & ">" Mailer.TextBody = emlBody Mailer.Subject = emlSubject with Mailer.Configuration .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = mailerPath .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = mailerPort .Fields.Update end with Mailer.Send if err.number <> 0 then errText = displayError("CDOSYS", searchURL, err.Number, err.Source, err.Description) CDOSYS_Mailer = false : set Mailer = nothing : err.clear() : err = 0 exit function end if set Mailer = Nothing CDOSYS_Mailer = true end function function displayError(comName, searchURL, errNumber, errSource, errDescription) if instr(errDescription, "Server.CreateObject Failed~Invalid ProgID") <> 0 then searchText = errNumber & "+" & server.urlencode("Server.CreateObject Failed Invalid ProgID") else searchText = errNumber & "+" & server.urlencode(errDescription) end if displayError = "" & comName & " Error:
Error Number: " & errNumber & "
Error Source: " & errSource & "
Error Description: " & errDescription & "
More Info
" end function %>