<% Error = "" Action = Request("Action") Anrede = Request("Anrede") Vorname = Request("Vorname") Nachname = Request("Nachname") Strasse = Request("Strasse") PLZ = Request("PLZ") Ort = Request("Ort") Telefon = Request("Telefon") Beitrag = Request("Beitrag") Zahlungsweise = Request("Zahlungsweise") If (Action = "send") Then If (Vorname = "") Then Error = Error & "
  • Bitte geben Sie Ihren Vornamen an
    " If (Nachname = "") Then Error = Error & "
  • Bitte geben Sie Ihren Nachnamen an
    " If (Strasse = "") Then Error = Error & "
  • Bitte geben Sie an, in welcher Straße Sie wohnen
    " If (Telefon = "") Then Error = Error & "
  • Bitte geben Sie Ihre Telefonnummer an
    " If (Beitrag = "") Then Error = Error & "
  • Sie müssen angeben, wie hoch der Fördernde Beitrag sein soll
    " If (Zahlungsweise = "") Then Error = Error & "
  • Sie müssen angeben, für welchem Zeitraum der Beitrag gelten soll
    " Monate=0 If (Zahlungsweise = "Monat") Then Monate = 1 If (Zahlungsweise = "Quartal") Then Monate = 3 If (Zahlungsweise = "Jahr") Then Monate = 12 Beitrag = Replace(Beitrag, ".", ",") If (Not IsNumeric(Beitrag)) Then Error = Error & "
  • Der Beitrag muß ein Betrag, also eine Zahl sein " & Beitrag & "
    " ElseIf (Monate > 0) Then If (Beitrag/Monate < 2.5) Then Error = Error & "
  • Der Mindestbeitrag liegt bei 2,50 EURO pro Monat
    " End If End If End If If (Action = "send" AND Error = "") Then If Request.ServerVariables("REQUEST_METHOD") = "POST" Then Set Formular = Request.Form Else Set Formular = Request.QueryString End If Msg = "" Msg = Msg & vbCrLf Msg = Msg & "-[Serverdaten]--" & vbCrLf Msg = Msg & "Datum: " & Now & vbCrLf Msg = Msg & "Absender-IP: " & Request.ServerVariables("REMOTE_ADDR") & vbCrLf Msg = Msg & "Scriptaufruf von: " & Request.ServerVariables("HTTP_REFERER") & vbCrLf Msg = Msg & vbCrLf Msg = Msg & "-[Formularinhalt]--" & vbCrLf For Each Item In Formular Msg = Msg & Item & ": " & Formular(Item) & vbCrLf Next Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.RemoteHost = "mail.ngate.de;mail2.ngate.de" Mailer.FromAddress = "homepage@ff-poppenbuettel.de" Mailer.AddRecipient "FF-Poppenbuettel", "mitglied@ff-poppenbuettel.de" Mailer.Subject = "AUFNAHMEANTRAG: Foerderndes Mitglied" Mailer.BodyText = Msg Mailer.WordWrap = False If Not Mailer.SendMail Then Error = "
    Sehr geehrte(r) " & Anrede & " " & Nachname & ",

    beim versenden des Aufnahmeantrags ist ein Fehler aufgetreten, so daß eine Bearbeitung Ihres ehrenwerten Vorhabens derzeit leider nicht möglich ist.

    Fehlermeldung: " & Mailer.Response & "

    Bitte probieren Sie es später erneut oder wenden Sie sich an webmaster@ff-poppenbuettel.de.

    Vielen Dank für ihr Verständnis,
       Ihre FF-Poppenbüttel

    " End If End If If (Error <> "" OR Action <> "send") Then Page_Antrag Else Page_VielenDank End If Sub Page_Antrag %>

    Freiweillige Feuerwehr Poppenbüttel -
    Förderverein e.V.

    Aufnahmeantrag


    <% =Error %>
    An den Vorstand des
    Freiwillige Feuerwehr Poppenbüttel - Förderverein e.V.
    z.H.v. Herrn Jack Ullmann
    Rehmbrook 69b
    22399 Hamburg


    Ich beantrage die Aufnahme in den Freiwillige Feuerwehr Poppenbüttel - Förderverein e.V. als Förderndes Mitglied entsprechend §4 (2) der Satzung.

    Anrede:
    Vorname:
    Nachname:
    Straße:
    PLZ Ort:
    Telefon:

    Ich erkläre mich zur Zahlung eines Förderbeitrages von
    EURO pro
    jeweils im voraus bereit.


    <% End Sub Sub Page_VielenDank %>

    Freiweillige Feuerwehr Poppenbüttel -
    Förderverein e.V.

    Aufnahmeantrag


    Sehr geehrte(r) <% =Anrede %> <% =Nachname %>,

    vielen Dank für Ihren Wunsch, förderndes Mitglied des Freiwillige Feuerwehr Poppenbüttel - Förderverein e.V. zu werden.

    Der Aufnahmeantrag wird an den Vereins-Vorstand weitergeleitet.
      Ihre FF-Poppenbüttel
    <% End Sub %>