Codigo ASP dentro de un DLL de VB... como proceder a compilarlo???

[hanzo_hattori_mx]

es dificil pasar este codigo a una DLL compilada por VB 6

es un simple procedimiento de envio de correos.... alguna sugerencia

Código PHP:

  <% 
function EnvioMail(remitente,destinatario,tema,mensaje,modo) 
dim obj 
Set obj=Server.CreateObject("CDO.Message") 
obj.From=remitente 
obj.To=destinatario 
obj.Subject=tema 
select case modo 
case 1 obj.HtmlBody=mensaje 
case 2 obj.TextBody=mensaje 
end select 
obj.Send 
if Err=0 then  
response.write "Correo Enviado"  
else  
response.write "Error en envio"  
end if 
set obj=nothing 
end function 
%>  
   

Gracias

[Alert]

Mmmmm Supongo que seria asi.....

Codigo de la DLL

Código:

Dim Session
Dim Application
Dim Request
Dim Response
Dim Server

Public Sub OnStartPage(MyScriptingContext As Object)
   Set Session = MyScriptingContext.Session
   Set Application = MyScriptingContext.Application
   Set Request = MyScriptingContext.Request
   Set Response = MyScriptingContext.Response
   Set Server = MyScriptingContext.Server
End Sub

Public Sub OnEndPage()
   Set Session = Nothing
   Set Application = Nothing
   Set Request = Nothing
   Set Response = Nothing
   Set Server = Nothing
End Sub

function EnvioMail(remitente,destinatario,tema,mensaje,modo) 
dim obj 
Set obj=Server.CreateObject("CDO.Message") 
obj.From=remitente 
obj.To=destinatario 
obj.Subject=tema 
select case modo 
case 1 obj.HtmlBody=mensaje 
case 2 obj.TextBody=mensaje 
end select 
obj.Send 
if Err=0 then  
response.write "Correo Enviado"  
else  
response.write "Error en envio"  
end if 
set obj=nothing 
end function

Public Sub ExecuteMain()
End Sub

Cuando generas la DLL despues en ASP la llamas asi:

Código:

<%
   Dim objPabloSoftwareSolutions
   Set objPabloSoftwareSolutions = Server.CreateObject("NombreDeTuDLL.NombreDeLaClase")
   objPabloSoftwareSolutions.ExecuteMain
   Set objPabloSoftwareSolutions = Nothing
%>

Espero que te sirva.
Si por el caso le pifie en algo que lo corrijan y de paso veo la pifia