• If you are still using CentOS 7.9, it's time to convert to Alma 8 with the free centos2alma tool by Plesk or Plesk Migrator. Please let us know your experiences or concerns in this thread:
    CentOS2Alma discussion

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