<%
If Request.querystring("Send") <> "" Then
msg_txt = "ONLİNE BAŞVURU"
msg_txt = msg_txt & "
İSİM SOYİSİM: " & Request.form("adsoyad")
msg_txt = msg_txt & "
TC NO: " & Request.form("tcno")
msg_txt = msg_txt & "
EHLİYET TİPİ: " & Request.form("et")
msg_txt = msg_txt & "
İRTİBAT NUMARASI: " & Request.form("irtno")
msg_txt = msg_txt & "
MESAJI: " & Request.form("mesaj")
msg_txt = msg_txt & ""
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "webmail.nidasurucukursu.com.tr"
Mail.From = Request.form("From")
Mail.FromName = Request.form("FromName")
Mail.AddAddress "info@nidasurucukursu.com.tr"
Mail.Subject = "ONLİNE BAŞVURU"
Mail.IsHTML = True
Mail.Body = msg_txt
On Error Resume Next
Mail.Send
If Err <> 0 Then
msg = "Mesajınız Gönderilemedi.
" & Err.Description
else
msg = "Mesajınız Alınmıştır."
End If
End If
%>