| Gönderen: 15-Kasım-2007 Saat 23:16 | Kayıtlı IP
|
|
|
<%
If Request.querystring("Send") <> "" Then
msg_txt = "<font face=""Tahoma"" size=""2""><b>Yeni İletişim Formu</b>"
msg_txt = msg_txt & "<br><br><b>İsim:</b>" & Request.form("your_name")
msg_txt = msg_txt & "<br><b>Email:</b> " & Request.form("your_email")
msg_txt = msg_txt & "<br><br><b>Mesajınız:</b><br> " & Request.form("message")
msg_txt = msg_txt & "</font>"
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.adres.net"
Mail.Username = "info@adres.net"
Mail.Password = "şifre"
Mail.From = Request.form("your_email")
Mail.FromName = Request.form("your_name")
Mail.FromName = Request.form("message")
Mail.AddAddress "info@adres.net"
Mail.Subject = "İletişim Formu"
Mail.IsHTML = True
Mail.Body = msg_txt
On Error Resume Next
Mail.Send
If Err Then
msg = "Mesajınız Gönderilemedi.<br>" & Err.Description
else
msg = "Mesajınız Alınmıştır."
End If
End If
%>
<%=your_name%>
<html>
<head>
<meta http-equiv="Content-Language" content="tr">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<title>İletişim</title>
<style type="text/css">
td{
font-family: Tahoma;
font-size: 11px;
font-weight: bold;
padding: 2 5 2 0
}
input,textarea{
font-family: Tahoma;
font-size: 11px;
width: 150px;
}
</style>
</head>
<%If Request.querystring("Send") <> "" Then%>
<tr><td colspan="2" align="center"><%=msg%></td></tr>
<tr><td colspan="2" align="center"><%=your_name%></td></tr>
<tr><td colspan="2" align="center"><%=your_email%></td></tr> ;
<tr><td colspan="2" align="center"><%=message%></td></tr>
<%End If%>
</html>
|
ASPTurkiye.com Forum : ASP / ASP.NET
Konu: mail boş gidiyor ad soyad fln geliyo
Aktif Konular
Üye Listesi
Arama
Yardım
Kayıt Ol
Giriş
