<%@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 = "necdetozcan@onerkale.com" toName = "ÖNER KALE" fromName = request("fromName") fromPoz = request("fromPoz") fromAdr = request("fromAdr") fromTel = request("fromTel") fromEmail = request("fromEmail") fromDyer = request("fromDyer") fromDtar = request("fromDtar") fromUyruk = request("fromUyruk") fromCins = request("fromCins") fromMedeni = request("fromMedeni") fromAsker = request("fromAsker") fromEgitim = request("fromEgitim") fromRef = request("fromRef") mailerPath = "mail.onerkale.com" mailerPort = "25" emlSubject = "ONER KALE İletişim 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 & "* Poz : " & fromPoz emlBody = emlBody & VbCrLf & "* Adres : " & fromAdr emlBody = emlBody & VbCrLf & "* Telefon : " & fromTel emlBody = emlBody & VbCrLf & "* Email : " & fromEmail emlBody = emlBody & VbCrLf & "* DogumYer : " & fromDyer emlBody = emlBody & VbCrLf & "* DogumTarih : " & fromDtar emlBody = emlBody & VbCrLf & "* Uyruk : " & fromUyruk emlBody = emlBody & VbCrLf & "* Cins : " & fromCins emlBody = emlBody & VbCrLf & "* Medeni : " & fromMedeni emlBody = emlBody & VbCrLf & "* Asker : " & fromAsker emlBody = emlBody & VbCrLf & "* Egitim : " & fromEgitim emlBody = emlBody & VbCrLf & "* Ref : " & fromRef emlBody = emlBody & VbCrLf %> ÖNER KALE

Firmamızda eğitimli, disiplinli,  ekip ruhuyla çalışabilecek profesyonel insanları kadromuzda görmek istiyoruz.

Sizde  bizimle çalışmak istiyorsanız başvuru  formunu  doldurup bize mail gönderebilirsiniz. Mailleriniz en kısa sürede değerlendirilecektir.




         

 

 
       Başvuru Formu

Adınız Soyadınız
Başvurulacak pozisyon
Adres

Telefon
Email
Doğum yeri                    
Doğum Tarihi
Uyruğu 
Cinsiyeti
Medeni Durumu
Askerlik Durumu

Eğitim Durumu

Referanslar

 
<% if Request("action")="gogonen" then call CDOSYS_Mailer() response.redirect "tesekkur1.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 %>