Yazdırılabilir Sayfa

Öncelikle mail.htm yaratıyoruz <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üşlerinizi yazınız</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> Şimdi formu asıl önemli olan mail.asp ye yapmak <%@ 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 %>