1. Please take a little time for this simple survey! Thank you for participating!
    Dismiss Notice
  2. Dear Pleskians, please read this carefully! New attachments and other rules Thank you!
    Dismiss Notice
  3. Dear Pleskians, I really hope that you will share your opinion in this Special topic for chatter about Plesk in the Clouds. Thank you!
    Dismiss Notice

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

Discussion in 'Plesk for Windows - 8.x and Older' started by sagelike, Apr 18, 2007.

  1. sagelike

    sagelike Guest

    0
     
    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
     
Loading...