Dim Mailer
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Dim text
Mailer.FromName = Request("name")
Mailer.FromAddress = Request("address")
Mailer.RemoteHost = "name vom smtp-server"
Mailer.AddRecipient "dein name", "deine mail@adresse"
Mailer.Subject = Request("subject")
Mailer.BodyText= Request("message")
if Mailer.SendMail then
text = "OK"
else
text = Mailer.Response
end if
greetz, spy
|