Aşagıdaki kodu FormMail.asp olarak kaydedin ve JMAIL desteği veren serverinizda kullanmaya başlayın..
Eğer serveriniz JMAIL component desteği vermiyorsa Componentler kategorisinde gerekli Componenti bulabilirsiniz..
<% islem = Request.Querystring("GET") %>
<% IF islem = "" THEN %>
<table border="0" cellpadding="4" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber27" >
<tr>
<td width="90"> </td>
<td><font face="Arial" size="3"><b><font color="CC0000">Form Mail</font></b></font></td>
</tr>
<tr>
<td width="90"> </td>
<td><font face="Arial" size="2"><b>Tüm alanların doldurulması mecburidir..</b></font></td>
</tr>
<form method=post name=FormMail action="FormMail.asp?GET=Send">
<tr>
<td><b><font color="CC0000" face="Arial" size="2">Ad Soyad:</font></b></td>
<td>
<input style="WIDTH: 180px" type="text" name="adsoyad" value="" maxlength="100">
</td>
</tr>
<tr>
<td><b><font color="CC0000" face="Arial" size="2">Site Adı:</font></b></td>
<td>
<input style="WIDTH: 180px" type="text" name="site" value="" maxlength="100">
</td>
</tr>
<tr>
<td><b><font color="CC0000" face="Arial" size="2">Site Adresi:</font></b></td>
<td>
<input style="WIDTH: 240px" type="text" name="adres" value="" maxlength="100">
</td>
</tr>
<tr>
<td><b><font color="CC0000" face="Arial" size="2">E-Mail:</font></b></td>
<td>
<input style="WIDTH: 240px" type="text" name="email" value="" maxlength="100">
</td>
</tr>
<tr>
<td valign="top"><b><font face="Arial" size="2" color="CC0000"><img src="image/s.gif" width="1" height="7"><br>
Mesajınız:</font></b></td>
<td>
<textarea style="WIDTH: 340px" name="mesaj" wrap="VIRTUAL" rows="10"></textarea>
</td>
</tr>
<tr>
<td valign="top"> </td>
<td>
<input type="submit" name="Submit" value="Formu Gönder">
</td>
</tr>
</form>
</table>
<% End If %>
<% IF islem = "Send" THEN
adsoyad = Trim(Request.Form("adsoyad"))
site = Trim(Request.Form("site"))
adres = Trim(Request.Form("adres"))
email = Trim(Request.Form("email"))
mesaj = Trim(Request.Form("mesaj"))
IF adsoyad = "" OR site = "" OR adres = "" OR email = "" OR mesaj = "" THEN
hata = "Formda boş alan bırakmayınız.<br><br>Forma başlıkları <font color=FF0000>kırmızı</font> renkle yazılmış olan alanların doldurulması mecburdur.<br>Lütfen geri dönüp bu alanları eksiksiz ve doğru bir biçimde doldurunuz."
HATAVAR
Response.End
END IF
If Len(email) < 5 Then
bIsValid = "False"
Else
If Instr(1, email, " ") <> 0 Then
bIsValid = "False"
Else
If InStr(1, email, "@", 1) < 2 Then
bIsValid = "False"
Else
If InStrRev(email, ".") < InStr(1, email, "@", 1) + 2 Then
bIsValid = "False"
End If
End If
End If
End If
IF bIsValid = "False" THEN
hata = "Email adresiniz geçersiz<br><br>Lütfen geçerli ve kullanıma açık bir email adresi girin."
HATAVAR
Response.End
end if
body="Ad Soyad : "& adsoyad &"<br>Site Adı : "& site &"<br>Site Adresi : "& adres &"<br>E-Mail : "& email &"<br>Mesaj : "& mesaj &""
Set Mail = Server.CreateOBject("JMail.Message")
Mail.Charset = "ISO-8859-9"
Mail.Logging = True
Mail.Silent = True
Mail.From = "destek@hazirkod.com"
Mail.FromName = "HazırKod"
Mail.AddRecipient "reklam@hazirkod.com"
Mail.Subject = "Reklam Formu"
Mail.HTMLBody = body
Mail.Send "mail.hazirkod.com"
Set Mail = Nothing
Response.Redirect "tesekkurler.asp"
Set RS = Nothing
END IF %>
<% SUB HATAVAR %>
<table cellspacing=0 cellpadding=6 width="100%" border=0>
<tr>
<td align="center"><font face="Arial" size="2"><%=hata%></font></td>
</tr>
<tr>
<td height="30"></td>
</tr>
<tr>
<td align="center"><font face="Arial" size="2"><b>[ <a href="javascript:history.back()"> Geri
Dön </a> ]</b></font></td>
</tr>
</table>
<% END SUB %>