Object required: 'oMail'

/includes/emailcomponent.asp, line 50

It occurs when I ask the script to send me my password. I am using version 1.11. My hosting company said they have ASPMail installed. On the log-in.asp page, i entered ASPMail in the CONST EMAILCOMPONENT blank. Any more suggestions?Thanks
Chris

code:

---

<%
DIM oMail
	Select Case EmailComponent
            Case "ASPEMAIL": Set oMail = CreateObject("Persits.MailSender")
            Case "CDONTS": Set oMail = CreateObject("CDONTS.NewMail")
            Case "GEOCEL": Set oMail = CreateObject("Geocel.Mailer")
            Case "IISMAIL": Set oMail = CreateObject("iismail.iismail.1")
            Case "JMAIL": Set oMail = CreateObject("Jmail.smtpmail")
            Case "SMTP": Set oMail = CreateObject("SmtpMail.SmtpMail.1")
            Case "ASPMAIL","ASPQMAIL": Set oMail = CreateObject("SMTPsvg.Mailer")
            Case "EASYMAIL" : Set oMail = CreateObject("EasyMail.SMTP.5")
	End Select
	Select Case EmailComponent
            Case "ASPEMAIL": oMail.Host = strServer
            Case "ASPMAIL" : oMail.RemoteHost = strServer
            Case "ASPQMAIL": oMail.RemoteHost = strServer : oMail.QMessage = true
            Case "IISMAIL": oMail.Server = strServer
            Case "JMAIL": oMail.ServerAddress = strServer
            Case "SMTP","EASYMAIL": oMail.MailServer = strServer
            Case "GEOCEL": oMail.AddServer strServer, 25
	End Select
	Select Case EmailComponent
            Case "ASPEMAIL":	oMail.AddAddress strTo, strTo
            Case "ASPMAIL","ASPQMAIL","GEOCEL": oMail.AddRecipient strTo, strTo
            Case "IISMAIL","JMAIL": oMail.AddRecipient strTo
            Case "SMTP": oMail.Recipients = oMail.Recipients & strTo
            Case "CDONTS": oMail.To = strTo & ";" : oMail.BodyFormat = 1 : oMail.MailFormat = 0
            Case "EASYMAIL" : oMail.AddRecipient strTo, strTo, 1
	End Select
	Select Case EmailComponent
            Case "ASPEMAIL": oMail.FromName = strFrom : oMail.From = strFrom
            Case "ASPMAIL","ASPQMAIL","GEOCEL": oMail.FromName = strFrom : oMail.FromAddress = strFrom
            Case "CDONTS": oMail.From = strFrom
            Case "IISMAIL": oMail.From = strFrom
            Case "EASYMAIL" : oMail.FromAddr = strFrom
            Case Else: oMail.Sender = strFrom
	End Select
	Select Case EmailComponent
            Case Else : oMail.Subject = strSubject
	End Select
	Select Case EmailComponent
            Case "ASPMAIL","ASPQMAIL","EASYMAIL": oMail.BodyText = strBody
            Case "SMTP": oMail.Message = strBody
            Case Else: oMail.Body = strBody
	End Select
	Select Case EmailComponent
            Case "ASPMAIL","ASPQMAIL": oMail.SendMail
            Case "JMAIL": oMail.Execute
            Case "SMTP": oMail.SendMail2
            Case Else: oMail.Send : Set oMail = Nothing
	End Select
End Sub%>

---

If that fails, try using ASPQMail or ASPEmail, Ive found quite a few hosts use the name when mentioning email components

------------------
Spooky
"I am Spooky of Borg. Prepare to be assimilated, babycakes!"
Subscribe to OutFront News
Database / DRW Q & A
The Spooky Login!