• The BIND DNS server has already been deprecated and removed from Plesk for Windows.
    If a Plesk for Windows server is still using BIND, the upgrade to Plesk Obsidian 18.0.70 will be unavailable until the administrator switches the DNS server to Microsoft DNS. We strongly recommend transitioning to Microsoft DNS within the next 6 weeks, before the Plesk 18.0.70 release.
  • The Horde component is removed from Plesk Installer. We recommend switching to another webmail software supported in Plesk.

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
 

Similar threads

Back
Top