Lachyoga.de - Kontakt

<%@ 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="smtp.activeisp.com" Mailer.Recipient = "info@lachyoga.de" Mailer.Subject = Request.Form("Subject") strBody = Request.Form("email")& " hat eine Nachricht über Lachyoga.de geschickt." & vbCRLF strBody = strBody & Request.Form("Name") & " " & Request.Form("email") &" schreibt:" & vbCRLF strBody = strBody & "---------------------------------" & vbCRLF strBody = strBody & vbTab & Request.Form("Nachricht")& vbCRLF & vbCRLF strBody = strBody & "---------------------------------" & vbCRLF Mailer.BodyText = strBody If Mailer.SendMail Then MSG= "Vielen Dank - Ihre eMail wurde erfolgreich versandt." Else MSG4= "Während der Bearbeitung Ihrer Email ist ein Fehler aufgetreten" End If End If %> Lachyoga.de - Kontakt

Kontakt

Schreiben Sie uns eine eMail:
Dazu können Sie die unten angegebenen Felder ausfüllen; die eMail wird dann über Ihr eMail-Programm versandt.
Verfügen Sie über kein eMail-Programm wie z.B. Outlook-Express, dann senden Sie Ihre eMail bitte an : info@lachyoga.de
Ich werde mich schnellstmöglich bei Ihnen melden.

Name:

eMail:

Betreff:

Nachricht:

<%=MSG4%><%=MSG%>