İletişim Formu Yardım ASP

[samet221]

Merhaba ben genç bir site tasarımcısıyım.ilk site işimi aldım ve iletişim formu yapmak istiyorum. internet üzerinden aldığım ve denediğim formların hiç birisini çalıştıramadım.yardımınıza ihtiyacım var lütfen yardımcı olur musunuz?:crying:

 

[hokumus]

Selamlar,

Öncelikle hayırlı olsun, bu işte sana başarılar dilerim.
Aşağıda bulunan kod uzun zaman önce yazdığım bir sitede halen çalışmakta.
Sen kendine göre düzenle ve çalıştır.



<% [MENTION=153806]CoD[/MENTION]epage=65001 %>


<%
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 = "host"
Mail.Username = "mail adresi"
Mail.Password = "şifre"
Mail.From = "mail adresi"
Mail.FromName = "mail bilgi"
Mail.AddAddress "mail adresi"
Mail.Subject = "konu"
Mail.CharSet = "UTF-8"
Mail.Body = Message
Mail.Send

If ERR Then
Response.Write err.Description & "<br>Daha sonra tekrar deneyiniz."
Else

Response.Write "<script language='JavaScript' codepage='65001'>alert('Mesajiniz Iletilmistir..');</script>"
Response.Write "<meta http-*****='Refresh' content='1; URL=iletisim.html'>"
End If
Set Mail=Nothing
%>



Kolay gelsin.

 

[samet221]

Selamlar,

Öncelikle hayırlı olsun, bu işte sana başarılar dilerim.
Aşağıda bulunan kod uzun zaman önce yazdığım bir sitede halen çalışmakta.
Sen kendine göre düzenle ve çalıştır.



<% @CoDepage=65001 %>


<%
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 = "host"
Mail.Username = "mail adresi"
Mail.Password = "şifre"
Mail.From = "mail adresi"
Mail.FromName = "mail bilgi"
Mail.AddAddress "mail adresi"
Mail.Subject = "konu"
Mail.CharSet = "UTF-8"
Mail.Body = Message
Mail.Send

If ERR Then
Response.Write err.Description & "<br>Daha sonra tekrar deneyiniz."
Else

Response.Write "<script language='JavaScript' codepage='65001'>alert('Mesajiniz Iletilmistir..');</script>"
Response.Write "<meta http-*****='Refresh' content='1; URL=iletisim.html'>"
End If
Set Mail=Nothing
%>



Kolay gelsin.

gerçekten teşekkür ederim