Envio de e-mails en ASP

[JoeYFuRiA]

Estoy usando esto, simplemente llamo a una pagina asp con este codigo, pero me da error..a ver si alguien sabe ke puede usar, estoy usando el cdo para windows 2000:

Código:

  
<%
Dim iMsg
Set iMsg = CreateObject("CDO.Message")
Dim iConf 
Set iConf = CreateObject("CDO.Configuration")

Dim Flds
Set Flds = iConf.Fields

With Flds
  ' assume constants are defined within script file
  .Item(cdoSendUsingMethod)       = 2 ' cdoSendUsingPort
  .Item(cdoSMTPServerName)        = "intsvr"
  .Item(cdoSMTPConnectionTimeout) = 10 ' quick timeout
  .Item(cdoSMTPAuthenticate)      = cdoBasic
  .Item(cdoSendUserName)          = ""
  .Item(cdoSendPassword)          = ""
  .Item(cdoURLProxyServer)        = "server:80"
  .Item(cdoURLProxyBypass)        = "<local>"
  .Item(cdoURLGetLatestVersion)   = True
  .Update
End With

With iMsg
  Set .Configuration = iConf
      .To       = """User A"" <[email protected]>"
      .From     = """User B"" <[email protected]>"
      .Subject  = "Hows it going? I've attached my web page"
      .CreateMHTMLBody "http://www.terra.es"
      .Send
End With
%>

Muchas graciassssssss

<center><font face="verdana" color=#003366 size="1">One Ring to rule them all, One Ring to find them,
One Ring to bring them all and in the darkness bind them.[/CODE]</center>