• Please be aware: Kaspersky Anti-Virus has been deprecated
    With the upgrade to Plesk Obsidian 18.0.64, "Kaspersky Anti-Virus for Servers" will be automatically removed from the servers it is installed on. We recommend that you migrate to Sophos Anti-Virus for Servers.
  • The Horde webmail has been deprecated. Its complete removal is scheduled for April 2025. For details and recommended actions, see the Feature and Deprecation Plan.
  • We’re working on enhancing the Monitoring feature in Plesk, and we could really use your expertise! If you’re open to sharing your experiences with server and website monitoring or providing feedback, we’d love to have a one-hour online meeting with you.

asp form using MEASP.dll won't work. I Need Help!

S

sagelike

Guest
I'm trying to get an ASP form to parse and send email use Mailenable's COM object: MEASP.dll.

The form seems to be parse however it generates and error because it can't create an object:

ProcessForm.asp companyname=&unit=&street=&city=&province=&postalcode=&phone=&firstname=&lastname=&email=&password=&=submit&PageType=Demo|28|ASP_0178_:_80070005|Server.CreateObject_Access_Error 80 - xx.xx.xx.xx HTTP/1.1 Mozilla/5.0+(Windows;+U;+Windows+NT+5.1;+en-US;+rv:1.8.1.3)+Gecko/20070309+Firefox/2.0.0.3

I've added the IUSR_domain to the USERS group with read/execute permissions which is already part of MEASP.dll permissions. Also tried adding the IUSR_domain directly to MEASP.dll. No luck.

All I get is the above error. Here's the ASP code:

<form action="Processing/ProcessForm.asp">

WHICH CALLS THIS:

<%
Const gAddressBadChars = "<>*?&#[]'=""%"

Function ValidSMTPAddress(AliasName)
If Len(AliasName) <= 0 Or Len(AliasName) > 250 Then
ValidSMTPAddress = False
Exit Function
Else
' Loop and check chars
If InStr(1,AliasName,"@") <= 0 Then
ValidSMTPAddress = False
Exit Function
Else
Dim AliasIndex
For AliasIndex = 1 to Len(AliasName)
If Instr(1,gAddressBadChars,mid(aliasname,AliasIndex,1)) > 0 Then
ValidSMTPAddress = False
Exit Function
End If
Next
End If
End If
ValidSMTPAddress = True
End Function


Function SendEmail(FromAddress,FromName,ToAddress,CCAddress,BCCAddress,Subject,Message,AttachmentLocation,AttachmentName)
set oMail = server.CreateObject("MEMail.Message")
oMail.ContentType = "text/html"
oMail.MailFrom = FromAddress
oMail.MailFromDisplayName = FromName
oMail.MailTo = ToAddress
if CCAddress <> "0" then
oMail.MailCC = CCAddress
end if
if BCCAddress <> "0" then
oMail.MailBCC = BCCAddress
end if
if AttachmentName <> "0" then
oMail.AttachmentFilename = AttachmentLocation
oMail.AttachmentName = AttachmentName
end if
oMail.Subject = Subject
oMail.MessageBody = Message
oMail.SendMessage
set oMail = nothing
End Function

%>


I'm really stumped and this problem seems similar to another issue migrating a mssql database to this server.

Any help or ideas would be appreciated.

Cheers
G
 
Back
Top