Bu mesajı lütfen cevaplamayınız... "
' We cannot use Upload.Form or Upload.Files until Upload.Save is called.
If Upload.Form("Send") <> "" Then
emailim="binomara@gmail.com"
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "localhost"
Mail.From = emailim
Mail.FromName = " Binom İs Basvuru Formu"
Mail.AddAddress emailim
Mail.Subject = "Binom is Basvuru Formu"
Mail.IsHTML = True
Mail.Body = msg_txt
On Error Resume Next
' Handle attached file via Upload.Files collection.
' Check if a file was ineed uploaded
If Not Upload.Files("cv") Is Nothing Then
Mail.AddAttachment Upload.Files("cv").Path
End If
' We are done. Send message
Mail.Send
Response.Write ""
End If
%>
Binom
