<% ms=request("ms") %>
<form action="?ms=gonder" method="post">
Kimden: <input name="kimden" type="text"><br>
Kime: <input name="kime" type="text"><br>
Konu: <input name="konu" type="text"><br>
Mesaj: <textarea name="mesaj"></textarea><br>
<input type="submit" value="Gönder">
</form>
<% If ms = "gonder" Then
kimden=request.form("kimden")
kime=request.form("kime")
konu=request.form("konu")
mesaj=request.form("mesaj")
Dim izasoft
Set izasoft= CreateObject("CDONTS.NewMail")
izasoft.From= kimden
izasoft.To= kime
izasoft.Subject= konu
izasoft.BodyFormat=0
izasoft.MailFormat=0
izasoft.Body=mesaj
izasoft.Send
set izasoft=nothing
End If %>