İletişim Formu Yardım ASP

samet221

Üyecik
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

Asistan
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

Üyecik
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 :)
 

Son mesajlar

Üst