<%
For Each x In Request.Form
message=message & x & ": " & Request.Form(x) & CHR(10)
Next
set smtp = Server.CreateObject("Bamboo.SMTP")
smtp.Server = "mail.cogenler.com"
smtp.Rcpt = "cogenler@cogenler.com"
smtp.From = "websitesinden@cogenler.com"
smtp.FromName = "Webden Form Yazan Kisi"
smtp.Subject = "Webden Gelen Form"
smtp.Message = message
on error resume next
smtp.Send
if err then
response.Write "
HATA
"
response.Write "
Mailiniz gonderilemedi lutfen daha sonra tekrar deneyiniz.
"
response.Write "
"&err.Description&"
"
else
response.Write ("Mesajiniz basariyla iletilmistir, tesekkür ederiz...")
end if
set smtp = Nothing
%>
::
Ana Sayfa
