LinkBack URL
About LinkBacks
Profil Göster
Mesajlarını Gör
Özel Mesaj
Blog Mesajlarını Gör
<html>
<head>
<title> MAIL GONDER </title>
</head>
<body>
<form method=post action="mail.asp">
Isim : <input type="text" name="isim"><br>
Mail : <input type="text" name="mail"><br>
Konu : <input type="text" name="konu"><br>
Mesaj : <textarea name="mesaj" rows="" cols=""></textarea><br>
<input type="submit" value="yolla">
</form>
</body>
</html>
CDO İLE MAIL YOLLAMA
En yaygın mail gonderme bileşenidir
mail.asp (CDO ile)
<%
' formdan içerik al
isim = Request.form("isim")
mail = Request.form("mail")
konu = Request.form("konu")
mesaj = Request.form("mesaj")
' mektup kime gidecek abisi
kime = "admin@site-adi.com"
' bir CDO Newmail nesne ornegi yarat
Set mektup = Server.CreateObject("CDONTS.NewMail")
' çok açik, geleneksel atamalar
mektup.From = isim & " <" & mail & ">"
mektup.To = kime
mektup.Subject = konu
mektup.Body = mesaj
' hata olursa mizikçilik yapmadan devam et
on error resume next
' ve sadede geldik.
mektup.Send
' hata olusursa
If err <> 0 Then
hata = err.description
Response.Write "hata oldu: " & hata
Else ' is temizse
tebrik = "Mailiniz yolladı"
Response.Write tebrik
End If
' açtigin nesneyi kapa...
Set mektup = Nothing
' bitti
%>
Alıntı Yaparak Cevapla
