Kod:
<form action="formmail.ASP?send=1" method="post">
<p style="text-indent: 0px;">
<label>adınız ve soyadınız:</label>
<input id="name" name="name" type="text" size="30" />
<label>e-posta adresiniz:</label>
<input id="adres" name="adres" type="text" size="30" />
<label>mesajınız:</label>
<textarea id="msg" name="msg" rows="5" cols="5"></textarea>
<br />
<input class="button" type="submit" value="Gönder" />
</p>
</form>
formmail.ASP
Kod:
<%
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("name")
msg_txt = msg_txt & "<br><b>Email:</b> " & Request.form("adres")
msg_txt = msg_txt & "<br><br><b>Mesajınız:</b><br>" & Request.form("msg")
msg_txt = msg_txt & "</font>"
Set mail = server.CreateObject("Persits.MailSender")
mail.Host = "mail.holidayclubturkey.com"
mail.From = Request.form("From")
mail.FromName = Request.form("FromName")
mail.AddAddress "pueem@superonline.com"
mail.Subject = "aygunmail"
mail.IsHTML = True
mail.Body = msg_txt
On Error Resume Next
mail.Send
If Err <> 0 Then
msg = "<b>Mesajınız iletilemedi!</b>"
else
msg = "<b>Mesajınız iletildi.</b>"
End If
End If
%>
formmail.ASP'de formun sonucunu bildiren bölüm:
Kod:
<%If Request.querystring("Send") <> "" Then%>
<%=msg%>
<%End If%>