aspMail

Morn · #1 (**permalink**) February 25th, 2007, 07:02 PM

I am having trouble using aspMail in my asp site.

The main language of the site is JScript and I am trying to re-use some code for aspMail (VBScript) as I have run out of time to look and create a JScript equivalent (due Monday at midnight):

I have a connect.asp file which contains this code:

Code:

<%@ LANGUAGE="JAVASCRIPT" %>
<%
myconn=Server.CreateObject("ADODB.connection");
mydb = "Driver={Microsoft Access Driver (*.mdb)};DBQ=e:\\webareas\\mg511\\SHIC\\shic.mdb";

myconn.Open (mydb);
rs = Server.CreateObject("ADODB.Recordset");
%>

I have this code for the aspMail:

Code:

<%
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.gre.ac.uk"
Mail.FromName = request("nameBox")
Mail.From = request("emailBox")
Mail.AddAddress request ("emailhidden")
Mail.Subject = "Enquiry Confirmation"
Mail.IsHTML = True
Mail.Body = "<html><body><b>Name: </b> "& request ("nameBox") &"<br /><b>Requested Event: </b>"& request ("select") &" <br /><b> Email:</b> "& request ("emailBox") &" <br /><b> Telephone:</b> "& request ("telephoneBox") &"</body></html>"

Mail.Send

%>

The problem is that the server is expecting JScript code, can as such does not run the aspMail page correctly.

Heres a link to the problem: http://cms-stu-iis.gre.ac.uk/mg511/S...asp?memberid=4

Any help would be greatly appreciated

Thanks in advance
Graham

mat41 · #2 (**permalink**) February 26th, 2007, 02:14 AM

Have you thought about using CDOSYS? This is reccomended and the most problem free mail method

A working sample:


<%
Const cdoSendUsingPort = 2
Dim iMsg,iConf,Flds,strHTML,strSmartHost
StrSmartHost = "your mail IP"
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

'set the CDOSYS configuration fields to use port 25 on the SMTP server
With Flds
   .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
   .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmartHost
   .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
   .Update
End With

'apply the settings to the message
With iMsg
   Set .Configuration = iConf
   .To = "someEmailAddress"
   .From = "someOtherEmailAddress"
   .Subject = "someSubject"
   .HTMLBody = "Sent using CDOSYS..."
   .Send
End With

' cleanup of variables
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing

%>

Wind is your friend
Matt

Morn · #3 (**permalink**) February 26th, 2007, 06:24 AM

OK, i am assuming that this is in VBScript! Am I correct in that assumtion?

mat41 · #4 (**permalink**) February 26th, 2007, 06:51 PM

Yes indeed.

If you are using a Windows 2000 / 2003 Server, or even XP Pro chances are that CDOSYS is your best
bet for sending email from ASP. That is because CDOSYS is installed on all of them
by default. Gone are the days of using CDONTS which was the old way of sending email from ASP.
CDOSYS is it's replacement. NOTE: The CDONTS .dll is no longer shipped nor supported by MS

Wind is your friend
Matt

Need to download code?

Navigation