<%Language="VBScript"%> <% Dim valAnrede, valName, valFon, valMail, valBegin, valEnd, valForm Dim stringAnmeldeName, stringAnmeldeEMail, stringCheckedProbestunde, stringCheckedHerr, stringCheckedFrau valBegin="" valEnd="" valAnrede="" valName="" valFon="" valMail="" valForm="" stringAnmeldeEMail="nixMail" stringCheckedProbestunde="" if Request.Form("submit")<> "" then if Request.Form("Anrede")<> "" and Request.Form("Name")<> "" and (Request.Form("email") <> "" or Request.Form("fon") <> "") then if Request.Form("Anrede") ="Herr" then stringCheckedHerr="checked" elseif Request.Form("Anrede")="Frau" then stringCheckedFrau="checked" else stringCheckedHerr="" stringCheckedFrau="" end if stringAnmeldeName= "www.klavier-unterricht.de/Anmeldung von: " & Request.Form("Vorname")& " " & Request.Form("Name") if Request.Form("email")<>"" then stringAnmeldeEMail=Request.Form("email") Dim stringText stringText="Anmeldung Klavierunterricht" & vbCrlf & "----------------------------------------------------------" & vbCrlf &_ Request.Form("Anrede") & " " & Request.Form("Name") if Request.Form("Geburtsjahr")<>"" then stringText= stringText + " (geboren:" & Request.Form("Geburtsjahr")& ") " & vbCrlf end if if Request.Form("Probestunde")="ja" then stringCheckedProbestunde="checked" stringText= stringText + " meldet eine Probestunde an." & vbCrlf & vbCrlf end if if Request.Form("Frage")<>"" then stringtext= stringText + vbCrlf & "Frage:" & vbCrlf &_ Request.Form("Frage")& vbCrlf & vbCrlf end if stringText= stringText + vbCrlf & "Kontaktdaten:" & vbCrlf & "----------------------------------------------------------" & vbCrlf &_ Request.Form("Name") & ", " & Request.Form("Vorname") & vbCrlf &_ Request.Form("Strasse") & vbCrlf &_ Request.Form("PLZ")& " " & Request.Form("Ort") & vbCrlf &_ "Fon: " & Request.Form("fon") & vbCrlf &_ "E-Mail: " & Request.Form("email") &vbCrlf 'Dim stringHTMLText="" 'stringHTMLText="Klavierunterricht Anmeldung" 'stringHTMLText=stringHTMLText + "" 'stringHTMLText=stringHTMLText + "" 'stringHTMLText=stringHTMLText + "" 'stringHTMLText=stringHTMLText + "" 'stringHTMLText=stringHTMLText + "

 
 " 'stringHTMLText=stringHTMLText + "" 'stringHTMLText=stringHTMLText + "" 'stringHTMLText=stringHTMLText + "


" 'stringHTMLText=stringHTMLText + stringText 'stringHTMLText=stringHTMLText + "

" sendSMTPMail stringAnmeldeEMail,stringAnmeldeName,"info@klavier-unterricht.de","DG74.m1.mailkunden.de","Anmeldung Klavierunterricht",stringText,1 Response.Redirect "antwort.html" else 'if Request.Form("Anrede")= "" then valAnrede=valBegin & "bitte Anrede auswählen!" & valEnd 'if Request.Form("Name")= "" then valName=valBegin & "bitte Namen angeben!" & valEnd 'if Request.Form("fon")= "" then valFon=valBegin & "bitte Telefonnummer oder E-Mail angeben!" & valEnd 'if Request.Form("email") ="" then valMail=valBegin & "bitte E-Mail oder Telefonnummer angeben!" & valEnd valForm=valBegin & "Bitte füllen Sie die mit (*) markierten Felder aus." & valEnd end if end if Private function sendSMTPMail(strSender,strSenderName,strRecipient,strSMTPServer,strSubject,strMessage,intMailPriority) 'Aufruf Beispiel: 'sendSMTPMail"AbsenderEmail","AbsenderName","EmpfaengerMail","smtp.ihredomain.de:25","Betreff","MailInahlt", Wichtigkeit Set objJMail = CreateObject("JMail.SMTPMail") 'JMail wird aufgerufen objJMail.ServerAddress = strSMTPServer ' SMTP Server wird übergeben objJMail.ISOEncodeHeaders = true ' Wenn kein Mailheader erstellt werden soll, setzen Sie den Wert auf "false", ansonsten auf "true" objJMail.Priority = intMailPriority ' Wichtigkeitsstufen von 1-5 objJMail.SenderName = strSenderName ' Sendername wird übergeben if strSender="nixMail" then objJMail.Sender = "thomas.poehler@nexgo.de" else objJMail.Sender = strSender ' Sender wird übergeben end if objJMail.AddRecipient (strRecipient) ' Empfänger wird übergeben objJMail.Subject = strSubject ' Mail Subject wird übergeben objJMail.ContentType = "text/plain" ' Bei einfacher Textmail: "text/plain", bei HTMLMail "text/html" objJMail.Body = strMessage ' Mail Inhalt wird übergeben objJMail.Execute 'EMail wird verschickt Set obJMail = Nothing 'JMail wird beendet End function %> Klavierunterricht in Berlin Mitte : Klavier- und Musikpädagogin Ute Pöhler

 
Mein Unterricht Das Ambiente Anmeldung Ein Spiel Kontakt

 

<%=valForm%>
Bitte beachten Sie:
Zur Zeit sind leider keine Anmeldungen möglich. Ich bitte Sie um Ihr Verständnis.

Viele Grüße
Ute Pöhler

Anrede:*
> Herr   > Frau  <%=valAnrede%>
Name:*
"> Geburtsjahr: "> <%=valName%>
Vorname:
">
Straße:
">
Postleitzahl/ Ort:
">   ">
Telefon und/oder E-Mail:*
">  <%=valFon%> "> <%=valMail%>
  > Ja, ich möchte eine Einladung zu einer Probestunde.
Stellen Sie hier Ihre Anfrage.
* erforderlich
Mein Unterricht | Das Ambiente | Anmeldung | Ein Spiel | Kontakt
© Ute Pöhler, aktualisiert 13.09.2003