Hazır Script – Hazır Kod

Formmail……

Siteniz üzerinden mesaj almak için form mail kullanin……

codeDivStart()

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 %>