%@ LANGUAGE="VBScript" %>
<%
If Request.ServerVariables("Content_Length")>0 Then
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName= Request("Name")
Mailer.FromAddress = Request("email")
Mailer.RemoteHost="webmail.marcusvick.de"
Mailer.Recipient = "mail@marcusvick.de"
Mailer.Subject = "Kontakt zu Marcus Vick"
strBody = "email: " & Request.Form("email")& vbCRLF
strBody = strBody & "Name: " & Request.Form("Name") & vbCRLF
strBody = strBody & "Betreff: " & Request.Form("Betreff") & vbCRLF
strBody = strBody & "Nachricht: " & Request.Form("Nachricht") & vbCRLF
Mailer.BodyText = strBody
If Mailer.SendMail Then
Response.Redirect ("email-danke.html")
Else
MSG4= "
Während der Bearbeitung ist ein Fehler aufgetreten.
Bitte wende Dich an mail@marcusvick.de
"
End If
End If
Set Mailer = Nothing
%>
|