

%
If Request.querystring("Send") <> "" Then
msg_txt = "OPTİSU İNSAN KAYNALARI FORMU"
msg_txt = msg_txt & "
İsim: " & Request.form("isim")
msg_txt = msg_txt & "
TC Kimlik No: " & Request.form("kimlikno")
msg_txt = msg_txt & "
Ev Telefonu: " & Request.form("telev")
msg_txt = msg_txt & "
İş Telefonu: " & Request.form("telis")
msg_txt = msg_txt & "
Cep Telefonu: " & Request.form("telcep")
msg_txt = msg_txt & "
Mail Adresi: " & Request.form("email")
msg_txt = msg_txt & "
İkametgah Adresi: " & Request.form("mesaj1")
msg_txt = msg_txt & "
Semt: " & Request.form("semt")
msg_txt = msg_txt & "
Şehir: " & Request.form("sehir")
msg_txt = msg_txt & "
Cinsiyet: " & Request.form("cinsiyet")
msg_txt = msg_txt & "
Doğum Tarihi: " & Request.form("gun")& Request.form("ay")& Request.form("yil")
msg_txt = msg_txt & "
Uyruğu: " & Request.form("uyruk")
msg_txt = msg_txt & "
Askerlik Durumu: " & Request.form("asker1")& Request.form("asker2")
msg_txt = msg_txt & "
Medeni Hali: " & Request.form("medeni")
msg_txt = msg_txt & "
Eğitim Durumu: " & Request.form("egitim")
msg_txt = msg_txt & "
Son Mezun Olduğu Okul: " & Request.form("sonmezun")
msg_txt = msg_txt & "
Mezuniyet Tarihi: " & Request.form("mezuntar")
msg_txt = msg_txt & "
İngilize: " & Request.form("ingilizce")
msg_txt = msg_txt & "
Diğer Yabancı Dil: " & Request.form("yabdil1") & Request.form("yabdil2")
msg_txt = msg_txt & "
Ms Office: " & Request.form("r1")
msg_txt = msg_txt & "
Photoshop: " & Request.form("r2")
msg_txt = msg_txt & "
AutoCAD: " & Request.form("r3")
msg_txt = msg_txt & "
EpaNET: " & Request.form("r4")
msg_txt = msg_txt & "
Diğer bilgisayar bilgileri: " & Request.form("bildiger")
msg_txt = msg_txt & "
Çalıştığı son firma: " & Request.form("calsonfirm")
msg_txt = msg_txt & "
Firmadaki görevi: " & Request.form("firmgor")
msg_txt = msg_txt & "
Başlangıç ve ayrılış tarihleri: " & Request.form("bassontar")
msg_txt = msg_txt & "
Ayrılış nedeni: " & Request.form("ayneden")
msg_txt = msg_txt & "
Diğer firma bilgileri: " & Request.form("firmdiger")
msg_txt = msg_txt & "
1. Referans isim: " & Request.form("refad")
msg_txt = msg_txt & "
Firma: " & Request.form("reffirm")
msg_txt = msg_txt & "
E-Posta: " & Request.form("refemail")
msg_txt = msg_txt & "
Telefon: " & Request.form("reftel")
msg_txt = msg_txt & "
2. Referans isim: " & Request.form("refad2")
msg_txt = msg_txt & "
Firma: " & Request.form("reffirm2")
msg_txt = msg_txt & "
E-Posta: " & Request.form("refemail2")
msg_txt = msg_txt & "
Telefon: " & Request.form("reftel2")
msg_txt = msg_txt & "
Diğer Referanslar: " & Request.form("refdiger")
msg_txt = msg_txt & "
Eklemek İstedikleri: " & Request.form("ekleson")
msg_txt = msg_txt & "
İp No: " & Request.form("ipno")
msg_txt = msg_txt & ""
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.optisu.com"
Mail.From = Request.form("Mail")
Mail.FromName = Request.form("isim")
Mail.AddAddress "info@optisu.com"
Mail.Subject = "*****İNSAN KAYNAKLARI FORMU*****"
Mail.IsHTML = True
Mail.Body = msg_txt
On Error Resume Next
Mail.Send
If Err <> 0 Then
msg = "Form Gonderilememistir..Lutfen Tekrar Deneyiniz..Formu Eksiksiz Doldurunuz.!.
" & Err.Description
else
msg = "Teşekkürler Başvurunuz Başarıyla İletildi...
" & "Bilgileriniz ihtiyaç dahilinde ulaşmak üzere veri bankamızda saklanacaktır"
End If
End If
%>