请教发送邮件时的问题

[ayutou]

ASP中发邮件的几行代码
Set Mymail=CreateObject("CDONTS.NewMail")
Mymail.From=trim(request.form("email"))
Mymail.To="[e-mail]"
Mymail.Subject=trim(request.form("subject"))
Mymail.Body=request.form("body")&"</p>"&request.form("name")&" </p>"&request.form("coname")&"</p> "&request.form("fax")&"</p>"&request.form("adrress")
Mymail.Importance=2
Mymail.Send
Set Mymail=Nothing
但是我希望在BODY中加入换行符，name、 coname、 fax等都要换行显示，需要如何修改

[eafin]

需要在提交页里加一个函数
Function coder(str)
Dim result,L,i
If IsNull(str) Then : coder="" : Exit Function : End If
L=Len(str) : result=""
For i = 1 to L
select case mid(str,i,1)
case "<" : result=result+"<"
case ">" : result=result+">"
case chr(34) : result=result+""" 'This is the""
case "&" : result=result+"&"
case chr(13) : result=result+"<br/>"
case chr(9) : result=result+"    "
case chr(32) : result=result+" "
case else : result=result+mid(str,i,1)
end select
Next
coder=result
End Function

[eafin]

调用coder(name)

[ayutou]

我试过了，没有用啊