jmk
02-25-2006, 11:43 AM
Hi I am trying to make an online form but I can't seem to make it send to my email address. I have used this code before and it has worked. I have changed my ISP since then to iinet and the website is hosted by BUR.ST.
Can you see what I am doing wrong?
<%
name=request.form("name")
name=request.form("email")
messagebody="<HTML><BODY>" & "<B>NAME:</B> " & name & "<BR>" & "<B>EMAIL ADDRESS:</B> " & email & "<BR>"
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Online Request"
objMessage.Sender = "jackie@multimedia.net.au"
objMessage.To = "jackie@multimedia.net.au"
objMessage.HTMLBody = messagebody
objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.m.iinet.net.au"
objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Update
objMessage.Send
response.redirect("www.multimedia.net.au")
%>
Can you see what I am doing wrong?
<%
name=request.form("name")
name=request.form("email")
messagebody="<HTML><BODY>" & "<B>NAME:</B> " & name & "<BR>" & "<B>EMAIL ADDRESS:</B> " & email & "<BR>"
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Online Request"
objMessage.Sender = "jackie@multimedia.net.au"
objMessage.To = "jackie@multimedia.net.au"
objMessage.HTMLBody = messagebody
objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.m.iinet.net.au"
objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Update
objMessage.Send
response.redirect("www.multimedia.net.au")
%>