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