Issue with aspMail?

Hi,

This is the error I get on my website when using aspMail:

Server object error 'ASP 0177 : 8007007e'

Server.CreateObject Failed

/storeCustom.asp, line 78

8007007e

78:set mail=server.CreateObject("Persits.MailSender")

thw website is hosted by a 3rd pary web hosting, apparently the do not why this error is fired, me neither.



line 78:

set mail=server.CreateObject("Persits.MailSender")

if Err.number>0 then ConnDB.execute("insert into logerror (sessionID,descr,number,page) values ('"&session.SessionID&"','"&Err.description&"','"&Err.number&"','"&"storeCustom.asp"&"')")

mail.Host = "........"

if request.Form("email")="" then    'if Email field is empty
      mail.From="info@...."
      'Mail.FromName = "..."
      else
      mail.From= request.Form("email") 'else
      'Mail.AddReplyTo request.Form("email")
      
      'call sendMailBack(request.Form("email")) send mail to sender
      end if
      
mail.FromName=username

'Mail.Username = "info@''''''"
'Mail.Password = "'''''"



mail.AddAddress "...."
'mail.AddAddress "...."
mail.AddCC "...."

mail.Subject = "new catalog request"

strF="There is a new brochure request in the database. Ciao"&newline
strF=strF&"The contact details are: "&newline

'retrieve data again from form. We do not retrieve from DB in case there are connection problem

strN="Title: "&request.Form("title")&newline
strN=strN&"First Name: "&username&newline
strN=strN&"Last Name: "&request.Form("lname")&newline
strN=strN&"Address line1: "&request.Form("add1")&newline
strN=strN&"Address line2: "&request.Form("add2")&newline
strN=strN&"PostalCode: "&request.Form("pcode")&newline
strN=strN&"Town: "&request.Form("town")&newline
strN=strN&"Country: "&request.Form("country")&newline
strN=strN&"Phone: "&request.Form("phone")&newline
strN=strN&"Fax: "&request.Form("fax")&newline
strN=strN&"Mobile: "&request.Form("mobile")&newline
strN=strN&"E-Mail: "&request.Form("email")&newline



'response.Write(strN)
strF=strF&strN

mail.Body = strF        'send the body
mail.IsHTML = True

mail.Send      

if Err.number>0 then Conn.execute("insert into logerror (sessionID,descr,number,page) values ('"&session.SessionID&"','"&Err.description&"','"&Err.number&"','"&"storeCustom.asp"&"')")

set mail=nothing