Hazır Script – Hazır Kod

Cdonts ile mail gönderme……

Cdonts ile mail gönderme…..

codeDivStart()

Öncelikle mail.htm yaratiyoruz

<form method="POST" action="mail.asp">

  <p align="center"><b><font size="2"><br>

  E mailinizi yaziniz</font></b><br>

  <br>

  <input type="text" name="mail" size="20"><br>

  <b>Gidecek Mail</b><br>

  <input type="text" name="kime" size="20"></p>

  <p align="center">

  <font size="2"><b><br>

  Görüslerinizi yaziniz</b></font><br>

  <br>

  <textarea rows="4" name="mesaj" cols="22"></textarea></p>

  <p align="center"><input type="submit" value="Submit" name="B1"><input type="reset" value="Reset" name="B2"></p>

</form>

Simdi formu asil önemli olan mail.asp ye yapmak ta

<%@ Language=VBScript %>

<%

a=Request.Form ("mesaj" )

b=Request.Form ("mail" )

c=Request.Form("kime" )

    If a="" Then

     Response.Write "<center><b>" &"Lütfen Mesajinizi yaziniz"

     ElseIf b="" Then

     Response.Write "<center><b>" &"Lütfen e-mailinizi giriniz"

    ElseIf InStr( b, "@" ) = 0 or InStr( b, "." ) = 0 or InStr( b, " " ) > 0 Then

Response.Write "<center><b>" &"Girdiginiz email yanlis "

     Else

     dim objCDo

     Set objCDo = Server.CreateObject("cDONTS.NewMail" )

     objCDO.From = b

     objCDO.To = c

     objCDO.Subject = ""

     objCDO.Body = a

     objCDO.Send

     Set objCDo = Nothing

Response.Write "<center><b>" &"E-mailiniz ve düsünceleriniz iletilmistir."

End If

%>