Programalama > ASP

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" 'Site email adresiniz
Mail.FromName = "HazırKod" 'Sitenizin adi
Mail.AddRecipient "reklam@hazirkod.com" 'Formun gelecegi mail adres
Mail.Subject = "Reklam Formu" 'Mesajinizin sabit basligi
Mail.HTMLBody = body
Mail.Send "mail.hazirkod.com" 'Mail server adresi
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 %>