formulardaten versenden

[Spyclop]

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