<% sub optionlist(options,selected,default) dim i if selected & "" = "" then selected = default for i = lbound(options) to ubound(options) if options(i) = selected & "" then Response.Write("") else Response.Write("") end if next end sub sub emailsenden() dim objNewMail, mailtext mailtext = "Anrede: " & Request.Form("anrede") & vbCrLf & _ "Titel: " & Request.Form("titel") & vbCrLf & _ "Name: " & Request.Form("vorname") & " " & Request.Form("name") & vbCrLf & _ "Firma: " & Request.Form("firma") & vbCrLf & _ "Strasse: " & Request.Form("strasse") & vbCrLf & _ "Ort: " & Request.Form("plz") & " " & Request.Form("ort") & vbCrLf & _ "Telefon: " & Request.Form("telefon") & vbCrLf & _ "E-Mail: " & Request.Form("m_email") & vbCrLf & vbCrLf & _ "Bitte buchen Sie im " & Request.Form("monat") & " " & Request.Form("jahr") & " eine Spende in Höhe von " & Request.Form("betrag") & " Euro von folgendem Konto ab:" & vbCrLf & _ "Konto: " & Request.Form("konto") & vbCrLf & _ "BLZ: " & Request.Form("blz") & vbCrLf & _ "Kontoinhaber: " & Request.Form("kontoinhaber") & vbCrLf & _ "Die Abbuchung soll erfolgen: " & Request.Form("intervall") & vbCrLf & vbCrLf & _ "Spendenquittung: " & Request.Form("quittung") & vbCrLf & vbCrLf & _ "IVG Newsletter: " & Request.Form("newsletter") & vbCrLf & vbCrLf ' Erste Mail an IVG & Co. zur Benachrichtigung über die Spende Set objNewMail = CreateObject("CDONTS.NewMail") if Request.Form("m_email") <> "" then objNewMail.From = Request.Form("m_email") else objNewMail.From = "info@ivg.de" end if ' objNewMail.To = "bp@plan-b.de" objNewMail.To = "peter.frauenfeld@notschwetzingen.justiz.bwl.de" objNewMail.Bcc = "erich.schaefer@ivg.de, torsten.heuer@ivg.de" objNewMail.Subject = "Spendenformular Sri-Lanka" objNewMail.Body = "Spendenformular Schulprojekt Sri Lanka" & vbCrLf & vbCrLf & mailtext objNewMail.Send Set objNewMail = Nothing ' Zweite Mail als Benachrichtigung an den Spender Set objNewMail = CreateObject("CDONTS.NewMail") objNewMail.From = "info@ivg.de" objNewMail.To = Request.Form("m_email") ' objNewMail.To = "bp@plan-b.de" objNewMail.Subject = "Ihre Spende für das Schulprojekt Sri Lanka" objNewMail.Body = "Vielen Dank für Ihre Spende!" & vbCrLf & vbCrLf & "Sie helfen damit direkt mit, den Kindern vor Ort eine bessere Zukunft und gute Ausbildung zu ermöglichen. Wir garantieren Ihnen, daß sämtliche Spenden unmittelbar dem Verein zur Förderung der Katharina Shirani Schule in Sri Lanka e.V. zur Verfügung gestellt werden." & vbCrLf & vbCrLf & "Sie haben uns die folgenden Daten übermittelt:" & vbCrLf & mailtext objNewMail.Send Set objNewMail = Nothing end sub ' Check, ob Formular vollständig ausgefüllt wurde: dim form_ok, fehler, abgeschickt form_ok = true fehler="" if Request.Form("abschicken") <> "" then abgeschickt = true else abgeschickt = false end if if Request.Form("vorname") = "" then form_ok = false fehler = fehler & "
  • Bitte geben Sie Ihren Vornamen an.
    • " end if if Request.Form("name") = "" then form_ok = false fehler = fehler & "
  • Bitte geben Sie Ihren Nachnamen an.
    • " end if if Request.Form("strasse") = "" then form_ok = false fehler = fehler & "
  • Bitte geben Sie die Straße an.
    • " end if if Request.Form("plz") = "" then form_ok = false fehler = fehler & "
  • Bitte geben Sie die Postleitzahl an.
    • " end if if Request.Form("ort") = "" then form_ok = false fehler = fehler & "
  • Bitte geben Sie den Ort an.
    • " end if if Request.Form("m_email") = "" then form_ok = false fehler = fehler & "
  • Bitte geben Sie ihre Mailadresse an.
    • " end if if Request.Form("betrag") = "" then form_ok = false fehler = fehler & "
  • Bitte tragen Sie einen Spendenbetrag ein.
    • " end if if Request.Form("konto") = "" then form_ok = false fehler = fehler & "
  • Bitte geben Sie ihre Kontonummer an.
    • " end if if Request.Form("blz") = "" then form_ok = false fehler = fehler & "
  • Bitte geben Sie ihre Bankleitzahl an.
    • " end if %> IVG Immobilien AG

    Schulprojekt in Bentota

    Startseite  |  Kontakt  |  Impressum

       Hilfe und Helfer > Direkt spenden


    <% if abgeschickt AND form_ok then call emailsenden() %>

    Vielen Dank für Ihre Spende!


    Sie helfen damit direkt mit, den Kindern vor Ort eine bessere Zukunft und gute Ausbildung zu ermöglichen. Wir garantieren Ihnen, daß sämtliche Spenden unmittelbar dem Verein zur Förderung der Katharina Shirani-Schule in Sri Lanka e.V. zur Verfügung gestellt werden.

    Zur Rückbestätigung erhalten Sie vor der Ausführung des Bankeinzuges von uns eine E-Mail.

     

     

     

     

     

     

    <% else %>

    Senden Sie diesen Ausdruck per Post oder Fax an:

    IVG Immobilien AG
    Schulprojekt Sri Lanka
    Zanderstraße 5-7
    53177 Bonn

    Fax: 0228/844-325

    Spende durch Bankeinzug

    Hiermit erteilen Sie dem Verein zur Förderung der Katharina Shirani-Schule in Sri Lanka e.V. eine einmalige oder dauerhafte Einzugsermächtigung. Bitte wählen Sie dazu Ihr gewünschtes Zahlungsintervall aus.

    Falls Ihr Konto nicht ausreichend gedeckt sein sollte, ist Ihr Geldinstitut nicht verpflichtet, den Betrag einzulösen.

    Bitte füllen Sie das unten stehende Formular vollständig aus und klicken anschließend den Button 'Abschicken' im unteren Teil der Seite. Die mit (*) gekennzeichneten Felder sind Pflichtfelder und müssen korrekt ausgefüllt werden.

    Vielen Dank!

    <% if not(form_ok) and abgeschickt then Response.Write("

    Bitte korrigieren Sie die folgenden Fehler:

    ") Response.Write("
      "&fehler&"
    ") end if %>
    Anrede:
    Titel:
    ">
    Vorname:(*)
    ">
    Nachname:(*)
    ">
    Firma:
    ">
    Straße/Haus-Nr.:(*)
    ">
    PLZ:(*)
    ">
    Ort:(*)
    ">
    Telefon (tagsüber):
    ">
    E-Mail-Adresse:(*)
    ">
    Ich zahle im (*)
     
    eine Spende in Höhe von:(*)
    ">EUR
    Bitte buchen Sie in folgendem Rhythmus ab:
    Kontonummer:(*)
    ">
    BLZ:(*)
    ">
    Kontoinhaber:
    (falls abweichend von obigen Daten)
    ">
    Quittung:

    Ihre eingetragenen Daten werden elektronisch an den Verein zur Förderung der Katharina Shirani-Schule in Sri Lanka e.V. übermittelt.

    Ihre eingetragenen Daten werden auf ihrem Drucker ausgedruckt, ohne über das Internet gesendet zu werden. Senden Sie uns den Ausdruck per Post oder per Telefax.

    Zur Rückbestätigung erhalten Sie vor der Ausführung des Bankeinzuges von uns eine E-Mail.

    Wir versichern, dass Ihre Angaben nur für Zwecke des Vereins zur Förderung der Katharina Shirani-Schule in Sri Lanka e.V. verarbeitet werden.

     <% end if %>
    IVG Immobilien AG, Zanderstraße 5-7, D-53177 Bonn     Seite drucken