%
If Request.querystring("Send") <> "" Then
msg_txt = "Is Basvurusu - Web Sitesinden"
msg_txt = msg_txt & "
Adı Soyadı: " & Request.form("isim")
msg_txt = msg_txt & "
Email: " & Request.form("From")
msg_txt = msg_txt & "
Telefon: " & Request.form("telefon")
msg_txt = msg_txt & "
GSM: " & Request.form("gsm")
msg_txt = msg_txt & "
Adres: " & Request.form("adres")
msg_txt = msg_txt & "
Dogum Tarihi ve Yeri: " & Request.form("dogum")
msg_txt = msg_txt & "
Hükümlülük Durumu: " & Request.form("hukumluluk")
msg_txt = msg_txt & "
Medeni Hali: " & Request.form("medeni")
msg_txt = msg_txt & "
Askerlik Durumu: " & Request.form("askerlik")
msg_txt = msg_txt & "
Eğitim Durumu: " & Request.form("egitim")
msg_txt = msg_txt & "
Lise: " & Request.form("lise")
msg_txt = msg_txt & "
Universite: " & Request.form("universite")
msg_txt = msg_txt & "
Fakülte ve Bölüm: " & Request.form("fakulte")
msg_txt = msg_txt & "
Bilgisayar Bilgisi: " & Request.form("bilgisayar")
msg_txt = msg_txt & "
Yabancı Dil Bilgisi: " & Request.form("yabanci")
msg_txt = msg_txt & "
Katıldığı Kurslar " & Request.form("katildigi")
msg_txt = msg_txt & "
Sertifikaları: " & Request.form("sertifikalar")
msg_txt = msg_txt & "
1-Firma ve Üstlendiği Görevi: " & Request.form("firma1")
msg_txt = msg_txt & "
2-Firma ve Üstlendiği Görevi: " & Request.form("firma2")
msg_txt = msg_txt & "
3-Firma ve Üstlendiği Görevi: " & Request.form("firma3")
msg_txt = msg_txt & "
Çalışmak İstediği Departman: " & Request.form("calismak")
msg_txt = msg_txt & "
Talep Ettiği Ücret: " & Request.form("talep")
msg_txt = msg_txt & "
1-Kendisine Refenras Olan Kişi: " & Request.form("ref1")
msg_txt = msg_txt & "
2-Kendisine Refenras Olan Kişi: " & Request.form("ref2")
msg_txt = msg_txt & "
3-Kendisine Refenras Olan Kişi: " & Request.form("ref3")
msg_txt = msg_txt & "
Bakmakla Yükümlü Olduğu Kişiler: " & Request.form("bakmakla")
msg_txt = msg_txt & "
Eklemek İstediği Diğer Notlar:
" & Request.form("mesaj")
msg_txt = msg_txt & ""
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.kozaepg.com"
Mail.From = Request.form("From")
Mail.AddAddress "info@kozaepg.com"
Mail.Subject = "Is Basvurusu - Web Sitesinden"
Mail.IsHTML = True
Mail.Body = msg_txt
On Error Resume Next
Mail.Send
If Err <> 0 Then
msg = "Lütfen bilgileri tekrar kontrol ediniz.Email adresiniz geçerli olmalıdır.
" & Err.Description
else
msg = "İş Başvurunuz Tarafımıza Başarıyla Ulaşmıştır, En Kısa Zamanda Sizinle İletişime Geçilecektir."
End If
End If
%>