怎么错了！！表单提交邮箱的代码 高手进急～～

来源：百度知道 编辑：UC知道 时间：2024/06/15 08:49:09
<%@ Language="VBscript" %>
<%Option Explicit %>

<html>
<head>
<title>Message Sent</title>
</head>

<body bgcolor="#FFFFFF">
<%
Dim name,email,tel,message,NewMailObj

name=request.form("txtName")
email=request.form("txtEmail")
tel=request.form("textfield3")
message=request.form("textarea")

'create the mail object and send the details
Set NewMailObj=Server.CreateObject("CDONTS.NewMail")
NewMailObj.From="ctaion@iconnetwork.com"
NewMailObj.To="ctaion@hotmail.com"
NewMailObj.Subject = "New message sent.."
NewMailObj.Body = "name;&email;&tel;&message;"

NewMailObj.BodyFormat = 0
NewMailObj.MailFormat = 0
NewMailObj.Send
Set NewMailObj = nothing
%>
<font face="Verdana, Ar

<%@ Language="VBscript" %>
<%Option Explicit %>

<html>
<head>
<title>Message Sent</title>
</head>

<body bgcolor="#FFFFFF">
<%
Dim name,email,tel,message,NewMailObj

name=request.form("txtName")
email=request.form("txtEmail")
tel=request.form("textfield3")
message=request.form("textarea")

'create the mail object and send the details
Set NewMailObj=Server.CreateObject("CDONTS.NewMail")
NewMailObj.From=name
NewMailObj.To="ctaion@hotmail.com"
NewMailObj.Subject = "New message sent.."
NewMailObj.Body = message&"<br/>来自"&email&"<br/>电话"&tel

NewMailObj.BodyFormat = 0
NewMailObj.MailFormat = 0
NewMailObj.Send
Set NewMailObj = nothing
%>
<font