http://turkemperial.somee.com/
kurduğum site bu. iletişim formu yerleştirdim ama çalışmıyor.
somee.com hakkında bilgi sahibi olan varsa lütfen yardım etsin
kodlar aşağıda:
form.asp
-------------------------------------
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<title>iletişim formu</title>
</head>
<body bgcolor="#CC9900">
<p><b><font size="6" color="#CC3300">Lütfen Bize Yazın :</font></b></p>
<table border="1" cellpadding="3" cellspacing="3" style="border-collapse: collapse; border-width: 0" bordercolor="#111111" width="44%" id="AutoNumber1" height="80">
<tr><form method="POST" action="gonder.asp">
<td width="21%" style="border-style:none; border-width:medium; " height="17">
<font size="2" face="Verdana" color="#0000FF">Adı Soyadı :</font></td>
<td width="79%" style="border-style:none; border-width:medium; " height="17">
<input type="text" name="Ad_Soyad" size="35"></td>
</tr>
<tr>
<td width="21%" style="border-style: none; border-width: medium" height="17">
<font size="2" face="Verdana" color="#0000FF">Mail :</font></td>
<td width="79%" style="border-style: none; border-width: medium" height="17">
<input type="text" name="Mail" size="35"></td>
</tr>
<tr>
<td width="21%" style="border-style: none; border-width: medium" height="17">
<font size="2" face="Verdana" color="#0000FF">Konu :</font></td>
<td width="79%" style="border-style: none; border-width: medium" height="17">
<select size="1" name="Konu">
<option>---- Konu Seciniz ----</option>
<option value="Bilgi Almak">Bilgi Almak</option>
<option value="Şikayet">Başvuru Bilgileri</option>
<option value="Reklam">Şikayet</option>
</select></td>
</tr>
<tr>
<td width="21%" style="border-style: none; border-width: medium" height="17" valign="top">
<font size="2" face="Verdana" color="#0000FF">Mesajın :</font></td>
<td width="79%" style="border-style: none; border-width: medium" height="17">
<textarea rows="6" name="Mesaj" cols="35"></textarea></td>
</tr>
<tr>
<td width="21%" style="border-style: none; border-width: medium" height="17">
</td>
<td width="79%" style="border-style: none; border-width: medium" height="17">
<input type="submit" value="Gönder" name="B1">
<input type="reset" value="Sıfırla" name="B2"></p>
</form>
</td>
</tr>
</table>
<p> </p>
<p>
<img border="0" src="logo2.jpg" width="579" height="83" align="left"></p>
</body>
</html>
-----------------------------------------------------
gonder.asp
-------------------
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<title>gönder</title>
</head>
<body>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%>
<%
CONST infMailSunucu = "mail.google.com"
CONST infMailKullaniciAdi = "[email protected]"
CONST infMailSifre = "19710830"
CONST infMailYollayan = "[email protected]"
CONST alici_mail = "[email protected]"
CONST mailbasligi = "Bilgi Mesajı"
dim mesaj
mesaj = "<html><head><meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-9""></head><body>"
Dim bilgiler
For Each bilgiler In Request.Form
if bilgiler <> "Submit" then
mesaj = mesaj & "<b>" & bilgiler & " : </b> "
mesaj = mesaj & Request.Form(bilgiler) & "<br>"
end if
Next
mesaj = mesaj & "</body></html>"
SET objMail = Server.CreateObject("JMail.Message" )
With objMail
.ContentType = "text/html"
.CharSet = "ISO-8859-9"
.AddRecipient alici_mail
.From = infMailYollayan
.MailServerUserName = infMailKullaniciAdi
.MailServerPassWord = infMailSifre
.Logging = True
.Silent = True
.Subject = mailbasligi
.Body = mesaj
.Send(infMailSunucu)
End With
SET objMail = Nothing
response.write("Mesajınız Bize Ulaşmıştır. En Kısa zamanda cevap yazılacaktır..")
%>
</body>
</html>
şimdiden teşekkürler
kurduğum site bu. iletişim formu yerleştirdim ama çalışmıyor.
somee.com hakkında bilgi sahibi olan varsa lütfen yardım etsin
kodlar aşağıda:
form.asp
-------------------------------------
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<title>iletişim formu</title>
</head>
<body bgcolor="#CC9900">
<p><b><font size="6" color="#CC3300">Lütfen Bize Yazın :</font></b></p>
<table border="1" cellpadding="3" cellspacing="3" style="border-collapse: collapse; border-width: 0" bordercolor="#111111" width="44%" id="AutoNumber1" height="80">
<tr><form method="POST" action="gonder.asp">
<td width="21%" style="border-style:none; border-width:medium; " height="17">
<font size="2" face="Verdana" color="#0000FF">Adı Soyadı :</font></td>
<td width="79%" style="border-style:none; border-width:medium; " height="17">
<input type="text" name="Ad_Soyad" size="35"></td>
</tr>
<tr>
<td width="21%" style="border-style: none; border-width: medium" height="17">
<font size="2" face="Verdana" color="#0000FF">Mail :</font></td>
<td width="79%" style="border-style: none; border-width: medium" height="17">
<input type="text" name="Mail" size="35"></td>
</tr>
<tr>
<td width="21%" style="border-style: none; border-width: medium" height="17">
<font size="2" face="Verdana" color="#0000FF">Konu :</font></td>
<td width="79%" style="border-style: none; border-width: medium" height="17">
<select size="1" name="Konu">
<option>---- Konu Seciniz ----</option>
<option value="Bilgi Almak">Bilgi Almak</option>
<option value="Şikayet">Başvuru Bilgileri</option>
<option value="Reklam">Şikayet</option>
</select></td>
</tr>
<tr>
<td width="21%" style="border-style: none; border-width: medium" height="17" valign="top">
<font size="2" face="Verdana" color="#0000FF">Mesajın :</font></td>
<td width="79%" style="border-style: none; border-width: medium" height="17">
<textarea rows="6" name="Mesaj" cols="35"></textarea></td>
</tr>
<tr>
<td width="21%" style="border-style: none; border-width: medium" height="17">
</td>
<td width="79%" style="border-style: none; border-width: medium" height="17">
<input type="submit" value="Gönder" name="B1">
<input type="reset" value="Sıfırla" name="B2"></p>
</form>
</td>
</tr>
</table>
<p> </p>
<p>
<img border="0" src="logo2.jpg" width="579" height="83" align="left"></p>
</body>
</html>
-----------------------------------------------------
gonder.asp
-------------------
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<title>gönder</title>
</head>
<body>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%>
<%
CONST infMailSunucu = "mail.google.com"
CONST infMailKullaniciAdi = "[email protected]"
CONST infMailSifre = "19710830"
CONST infMailYollayan = "[email protected]"
CONST alici_mail = "[email protected]"
CONST mailbasligi = "Bilgi Mesajı"
dim mesaj
mesaj = "<html><head><meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-9""></head><body>"
Dim bilgiler
For Each bilgiler In Request.Form
if bilgiler <> "Submit" then
mesaj = mesaj & "<b>" & bilgiler & " : </b> "
mesaj = mesaj & Request.Form(bilgiler) & "<br>"
end if
Next
mesaj = mesaj & "</body></html>"
SET objMail = Server.CreateObject("JMail.Message" )
With objMail
.ContentType = "text/html"
.CharSet = "ISO-8859-9"
.AddRecipient alici_mail
.From = infMailYollayan
.MailServerUserName = infMailKullaniciAdi
.MailServerPassWord = infMailSifre
.Logging = True
.Silent = True
.Subject = mailbasligi
.Body = mesaj
.Send(infMailSunucu)
End With
SET objMail = Nothing
response.write("Mesajınız Bize Ulaşmıştır. En Kısa zamanda cevap yazılacaktır..")
%>
</body>
</html>
şimdiden teşekkürler