CDO Classic ASP表单不起作用

时间:2014-01-17 08:34:23

标签: html asp-classic

我有一张适合我的表格,但我做了一些修改,我可以弄清楚它为何正在运作。我希望有人可以提供帮助。我已将SMTP更改为0。我的代码:

<%  
submitter = request.form("submitter")
dotty = request.form("would you like a confirmation email")
appno = request.form("application number")
cust = request.form("customer name")
broker = request.form("broker name")
company = request.form("company")
introtel = request.form("broker contact number")
sdate = request.form("date of call")
stime = request.form("time of call")
sreason = request.form("reason")


Set cdoConfig = CreateObject("CDO.Configuration")  

With cdoConfig.Fields  
    .Item(cdoSendUsingMethod) = cdoSendUsingPort  
    .Item(cdoSMTPServer) = "00.000.00.000"  
    .Update  
End With 

Set cdoMessage = CreateObject("CDO.Message")  

With cdoMessage 
    Set .Configuration = cdoConfig 
    .From = submitter
    .To = "Me@me.co.uk"
    .Subject = Callback request
    .TextBody = "Advisors Name: " & submitter & vbcrlf & vbcrlf & "Application Number: " & appno & vbcrlf & vbcrlf & "Customer Name: " & cust & vbcrlf & vbcrlf & "Broker Name: " & broker & vbcrlf & vbcrlf & "Company: " & company & vbcrlf & vbcrlf & "Broker Contact Number: " & introtel & vbcrlf & vbcrlf & "Date of Call: " & sdate & vbcrlf & vbcrlf & "Time of Call: " & stime & vbcrlf & vbcrlf & "Reason for Escalation: " & sreason 
    .Send 
End With 

Set cdoMessage = Nothing  
Set cdoConfig = Nothing  

Response.write "<HTML><head><title></title></head><body><body bgcolor=""#161712"" TEXT=""white"" ALINK=""white"" VLINK=""white""><center><br><br><Br><Br><Br><br><br><br><Br><br><Br><br>Your request has been submitted....<br><br><br><a href = ""javascript:window.close();""> Click here to close window </a> </center></body></HTML>"

%>

1 个答案:

答案 0 :(得分:3)

您错过了主题中的引号:“回拨请求”。