I removed the email address from within the code. I tried insertin my own email address, but it would seem that messages are still sent to my Agent's ntl emil address. As mentioned there must be something else forwarding the emails too. Incidentally adding my own email address results in no message to my email address, and the client says he gets the email. I'll need to confirm that too as he can be a bit vague. This is what is present in here code prior to the head region
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
If Request("action") = "add" then
Dim DataConn
Dim CmdUpdateRecord
Dim MYSQL
Dim rs
Set DataConn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
DataConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=e:/domains/r/clientsite.co.uk/user/private/clientid89.mdb"
rs.Open "callbacks", DataConn, 1, 3
rs.AddNew
%>
<% If NOT Request.Form("name") = "" Then %><% rs("name") = Request.Form("name") %><% End If %><%=Request.Form("name")%>
<% If NOT Request.Form("company") = "" Then %><% rs("company") = Request.Form("company") %><% End If %><%=Request.Form("company")%>
<% If NOT Request.Form("telephone") = "" Then %><% rs("telephone") = Request.Form("telephone") %><% End If %><%=Request.Form("telephone")%>
<% If NOT Request.Form("comments") = "" Then %><% rs("comments") = Request.Form("comments") %><% End If %><%=Request.Form("comments")%>
<%
rs.Update
%>
<%
Dim frmName, frmCompany, frmSubject, frmComments
frmName=request.form("name")
frmCompany=request.form("company")
frmTel=request.form("telephone")
frmComments=request.form("Comments")
%>
<%
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = "website@client site domain.co.uk"
objCDO.To = "addedmytestemailaddress"
objCDO.Subject = "Callback request from " + frmName
objCDO.Body = "From: " + frmName + vbcrlf + "Email: " + frmCompany + vbcrlf + "Tel: " + frmTel + vbcrlf + vbcrlf + "Comments: " + vbcrlf + frmComments
objCDO.BodyFormat = 1
objCDO.MailFormat = 1
objCDO.Send
set objCDO=nothing
%>
<%
Response.Redirect("callbackform.asp?action=thanks")
End If
%>
I altered the original callbackform by changing company to email as he wanted enquirers' email addresses rather than company details, and whilt it all sends message details back ok, I don't seem able to get the email address option changed....