use asp ocx mail

[dropi]

hello...
i'm beginner asp programmer.
when i made mailing list.i don't solve how can made maillig list???
our server used emwac. so can't use cdo component. (emwac and default smtp port is collision.)
so i wanna activex-x or active dll ocx component...
i made one. it can used in-line vb. but can not asp.
it's my vb ocx source.... (use out look object..)
------------------------
Dim myOlApp As Object
'Dim olNameSpace As Object
Dim myItem As Object
'Dim olmailitem As Object

Private c_To As String
Private c_Subject As String
Private c_Content As String

Public Property Let mTo(ByVal SendTo As String)

c_To = SendTo

End Property

Public Property Get mTo() As String
mTo = c_To
End Property

Public Property Let mSubject(ByVal SendSubject As String)

c_Subject = SendSubject

End Property

Public Property Get mSubject() As String
mSubject = c_Subject
End Property

Public Property Let mContent(ByVal SendContent As String)

c_Content = SendContent

End Property

Public Property Get mContent() As String

mContent = c_Content

End Property

Public Sub Send()

Set myOlApp = CreateObject("Outlook.Application")
Set olNameSpace = myOlApp.GetNameSpace("MAPI")
Set myItem = myOlApp.CreateItem(olmailitem)

myItem.to = c_To
myItem.subject = c_Subject
myItem.body = c_Content

myItem.Send

c_To = ""
c_Subject = ""
c_Content = ""

End Sub
-----------
where's found error????
it can use inline vb... but it can't use asp module...
it my asp module...
-------------
<%

Response.Expires = 0

response.buffer = true

if Session("m_id") = "" or Session("m_pw") = "" then ' <-- check id

response.redirect "../default.asp"
end if

Set mail = Server.CreateObject("MSender.MSend") ' <-- it's my ocx project name & class name ( found in registry )

user = Request("user_name")
email = Request("user_email")

title = user
body = "thanks for your regist "+chr(13)+chr(10)
body = body & "our shopping mall "+chr(13)+chr(10)
body = body & "support more informations. "+chr(13)+chr(10)
where = "webmaster"

mail.mto = email
mail.msubject = title
mail.mcontent = body
mail.Send ' <-- error found

response.Clear
response.redirect "../default_in.asp"

%>
----
it say error message... (translate korea alpha to english...)
----------
Microsoft Outlook error '80004005'

do not continue perform task. do not use server. if you can't continue ask the management. service provider can't support task so didn't continue.

autoreply.asp, line 25
-----------
too long question statement. please help me...
i send about a week this problem...
so long...

.. rose





Hello... this dropi. (it's my english name)
i'm korean beginner asp programmer...
i wanna get more information. and exchange information.
:)
thanks for your read...

.. rose