VB Forum / COM / October 2005

I asked this question in the ASP forum, but they only helped to  a point.
aso here i am asking it on the vb forum

my problem is this:

I have written a VB wrapper DLL that calls a C++ DLL. I then call tgis VB
DLL from an asp page, pass it two strings, then get back an encrypted string
out of the two I pass it. The issue is that when I am on the VB IDE and I
run the DLL then call it from ASP it works beautifully. However when I
compile the VB project into a DLL and register it, then run my asp page,
nothing happens. The DLL doesn't get called. It returns no error, no
nothing. It just gives me a blank page (instead of the encrypted string it
should give me)

Can anyone shed some light on this issue please?

Here's my code for the VB DLL:

Private Declare Function DmfDemoEncrypt Lib "email_encrypt.dll" (ByVal email
As String, ByVal s As String) As String

Public Function EncryptData(ByVal emailaddresses As String, ByVal
DataToEncrypt As String) As String

Dim strEmails As String
Dim strEncryptThisString As String
Dim strEncryptedData As String

           strEncryptThisString = DataToEncrypt
           strEmails = emailaddresses
           strEncryptedData = (DmfDemoEncrypt(strEmails,
strEncryptThisString))

           EncryptData = strEncryptedData

End Function

and the ASP code

<%

Dim WshShell,fso,cd,objRSServer,strEmails,strAll, strRetString

Set objRSServer = CreateObject("encrypt.clsEncryptData")

       strEmails = leo@email.com,paul@email.com
       cd = "this is encrypted email test"

 on error resume next

'this is where the encryption happens. DLL is called and strAll now contains
an encrypted string
strAll=objRSServer.EncryptData(strEmails, cd)

   if err<>"" then
   response.write Err.number & " " & err.description
   end if

response.write("<td>")

response.write "<TEXTAREA name='thetext' rows='50' cols='100'>"

response.write strAll
response.write("</TEXTAREA>")
response.write("</td>")

%>

Please help.....with whatever you can. No matter how crazy the idea just
post it. I am desperate