<%
On Error Resume Next
For Each Doldur In Request.Form
Message = Message & Doldur & ": " & Request.Form(Doldur) & CHR(10)
Next
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.btbilgisayarkursu.com"
Mail.Username = "info@btbilgisayarkursu.com"
Mail.Password = "şifre yaz"
Mail.From = "info@btbilgisayarkursu.com"
Mail.FromName = " Web Form "
Mail.AddAddress "info@btbilgisayarkursu.com", "info@btbilgisayarkursu.com"
Mail.AddReplyTo "info@btbilgisayarkursu.com"
Mail.Subject = "Mobilya Sipariş Formu"
Mail.Body = Message
Mail.Send
If ERR Then
Response.Write err.Description & "
Formunuz gönderilemedi. Daha sonra tekrar deneyiniz."
Else
Response.Write "
Sipariş formunuz başarı ile gönderildi."
End If
Set Mail=Nothing
%>