<%@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 = "onerkale@onerkale.com" toName = "oner kale" fromName = request("fromName") fromName = request("fromFirma") fromTel = request("fromTel") fromEmail = request("fromEmail") fromAdr = request("fromAdr") emlBody = emlBody & VbCrLf fromComm = request("fromComm") mailerPath = "mail.onerkale.com" mailerPort = "25" emlSubject = "ÖNER KALE" 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 & "* Firma : " & fromFirma emlBody = emlBody & VbCrLf & "* Telefon : " & fromTel emlBody = emlBody & VbCrLf & "* Email : " & fromEmail emlBody = emlBody & VbCrLf & "* Adres : " & fromAdr emlBody = emlBody & VbCrLf & "* İstekler : " & fromComm %> ÖNER KALE
 
İletişim Bilgilerimiz

 		 
Merkez  
Adres : Atatürk Cad. No:27  MERSİN / TÜRKİYE
Tel       : + 90 0324 231 73 28 - 232 27 92
Fax      : + 90 0324 232 13 08
Email   : necdetozcan@onerkale.com
  onerkale@onerkale.com
 Şube  
 Adres  :  Halaskargazi Cad. N0:328  Kat : 4 Daire :7
ŞİŞLİ / İSTANBUL / TÜRKİYE
Tel        :  + 90 0212 240 24 00 - 231 22 76
Fax       :   +90 0212 240 22 92


İletişim Formu                

Adınız   Soyadınız
Firma
Telefon
Email
 Adres
İstekleriniz

                                           

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

A
 
<% '====================================== ' 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 %>