{var%20f='http://v.t.sina.com.cn/share/share.php?appkey=1515056452',u=z||d.location,p=['&url=',e(u),'&title=',e(t||d.title),'&source=',e(r),'&sourceUrl=',e(l),'&content=',c||'gb2312','&pic=',e(p||'')].join('');function%20a(){if(!window.open([f,p].join(''),'mb',['toolbar=0,status=0,resizable=1,width=440,height=430,left=',(s.width-440)/2,',top=',(s.height-430)/2].join('')))u.href=[f,p].join('');};if(/Firefox/.test(navigator.userAgent))setTimeout(a,0);else%20a();})(screen,document,encodeURIComponent,'','','https://www.manongdao.com/data/attach/logo/logo.png', '推荐 可以哭但决不认输i 的问题《CDO Classic ASP form not working》','https://www.manongdao.com/q-917969.html','页面编码gb2312|utf-8默认gb2312'));){kind=link}
I have a form that was working for me but i made some amendments and i can figure out why it is now working. I was hoping someone could help. I have changed the SMTP to 0's. My code:
<%
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>"
%>
You have missed the quotation marks in your subject: "Callback Request".