send an email from ASP page

[shan]

Hi,
I wish to send the user entered data through email to
the Admin. Iam trying to use CDO object but it gives me
the following message..

Variable is undefined: 'cdoSendUsingMethod'


Following is the piece of code Iam using got from msdn
site. Any help would be greatly appreciatd..thanks, shan

Dim iConf
Dim Flds
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
With Flds
.Item(cdoSendUsingMethod) =
2 'cdoSendUsingPickup
.Item(cdoSMTPServerPickupDirectory)
= "c:\Inetpub\mailroot\Pickup"
.Update
End With
Set Session("Config") = iConf

Dim iMsg
Set iMsg = CreateObject("CDO.Message")

' use cached settings for Session
Set iMsg.Configuration = Session("Config")
iMsg.To = "(e-mail address removed)"
iMsg.From = "(e-mail address removed)"
'
iMsg.Send

 

[Ray at]

Define the cdoSendUsingMethod constant:

cdoSendUsingMethod =
"http://schemas.microsoft.com/cdo/configuration/sendusing"

Ray at home