<% Dim mail_konu, mail_kime, mail_kimden, govde, basarili_sayfa, basarisiz_sayfa, mail_server, mail_username, mail_password, mail_component ' #################################### ' Copyright © 2006 Gokhan SAVASOGLU ' admin@ajansgesa.com ' #################################### ' ############## BURADAKILERI DEGISTIREBILIRSINIZ ####################### mail_component = "ASPEMAIL" mail_konu = "Web Form" mail_kime = "info@ajansgesa.com" mail_kimden = "web@ajansgesa.com" basarili_sayfa = "basarili.asp" basarisiz_sayfa = "islemNOT.asp" mail_server = "mail.ajansgesa.com" mail_username = "info@ajansgesa.com" mail_password = "password" ' ############################################################### ' ############## BURADAN SONRASINI ELLEME ########################### govde = "
" For Each cnk In Request.Form() govde = govde & "
" govde = govde & "
"& cnk &"
" govde = govde & "
:
" govde = govde & "
" & Request.Form(cnk) & "
" govde = govde & "
" Next govde = govde & "
" On Error Resume Next If mail_component = "CDONTS" Then Set ObjCnk = Server.CreateObject("CDONTS.NewMail") ObjCnk.From = mail_kimden ObjCnk.To = mail_kime ObjCnk.Subject = mail_konu ObjCnk.BodyFormat = 0 ObjCnk.MailFormat = 0 ObjCnk.Body = govde ObjCnk.Send ElseIf mail_component = "ASPEMAIL" Then Set objCnk = Server.CreateObject("Persits.MailSender") objCnk.Host = mail_server objCnk.Port = 25 objCnk.IsHTML = True objCnk.From = mail_kimden objCnk.AddAddress mail_kime objCnk.Subject = mail_konu objCnk.Body = govde objCnk.Username = mail_username objCnk.Password = mail_password objCnk.Send End If If err Then Response.Redirect basarisiz_sayfa Else Response.Redirect basarili_sayfa End If Set objCnk = Nothing %>
isim soyisim
:
email adresiniz
:
başlık
:
görüşleriniz
: