arkadaşım önce hangi email bileşenlerin var ona bak. ondan sonra birini seç. hiç bir bileşen yoksa cdo ile kendi email hesabını kullanarak gönderebilirsin. misal gmail, hotmail falan. ama onun için emailini ve şifreni kodlara eklemen lazım. misal hiç bi mail bileşeni yoksa cdo ile:

<%
Dim iMsg, iConf, Flds

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
Flds.Item(schema & "smtpserverport") = 465
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = "hesabiniz@gmail.com"
Flds.Item(schema & "sendpassword") = "sifreniz"
Flds.Item(schema & "smtpusessl") = 1
Flds.Update

With iMsg
.To = emailaddr '//mail yollanacak adres
.From = "Ad Soyad <hesabiniz@mydomain.com>"
.Subject = "E-Posta Konusu"
.HTMLBody = request.form("mesaj")
.Sender = "Adiniz"
.Organization = "Siteniz"
.ReplyTo = "hesabiniz@mydomain.com"
Set .Configuration = iConf
SendEmailGmail = .Send
End With

set iMsg = nothing
set iConf = nothing
set Flds = nothing
%>

gibi bi kodla gönderebilirsin.