一个发送邮件的页面代码，有什么问题吗？为什么收不到发出的信？

[aspone123]

<%if request("action")="send" then
Set mail = Server.CreateObject("CDONTS.NewMail")
mail.TO =request("address1")
mail.From =request("address2")
mail.Subject = request("title")
mail.Body = request("content")
mail.Send
response.Write "ok"
response.End()
end if%>
<form action=sendemail.asp?action=send method=post>
<p>收件人邮址：
<input name=address1 type=text value="[e-mail]" size=12>
</p>
<p>寄件人邮址：
<input name=address2 size=12>
(便于回复)</p>
主 　　 题：
<input name=title type=text size=30 maxlength="30">
<p> 内　　　容：
<textarea name="content" cols="30" rows="8"></textarea><p>
<input type=submit value=发送>
</form>