|
|
|
|
 |
<% If Request.Form("bestellungAbProspekt") = "" Then %>
<% Else
'************************************************ Konfiguration *************************************************
Const MAXARTICLE = 5 'Maximale Anzahl Bestellpositionen
Const SMTPSERVER = ""
Const MAILFROM = "services@voegele.com"
Const MAILTO = "services@voegele.com"
Const MAILSUBJECT = "Bestellung ab Prospekt"
'*****************************************************************************************************************
'Mandatory Fields
Dim strVorname
Dim strNachname
Dim strStrasse
Dim strPlzOrt
Dim strTelefonNr
Dim strGebDatum
Dim strKundenNr
'Optional
Dim strArtikelnummer
Dim strGroesse
Dim strAnzahl
Dim strGesamtpreis
'
Dim blnError
Dim strMailrecipient
Dim strMailbody
blnError = False
strVorname = Request.Form("vorname")
strNachname = Request.Form("nachname")
strStrasse = Request.Form("strasse")
strPlzOrt = Request.Form("plzOrt")
strTelefonNr = Request.Form("telefonNr")
strGebDatum = Request.Form("gebDatum")
strKundenNr = Request.Form("kundenNr")
strArtikelnummer = "artikelnummer"
strGroesse = "groesse"
strAnzahl = "anzahl"
strGesamtpreis = "gesamtpreis"
If strVorname = "" Or strNachname = "" Or strStrasse = "" Or strPlzOrt = "" Or strTelefonNr = "" Or strGebDatum = "" Then
blnError = True
End If
If blnError Then
Response.Write("Es ist ein Fehler aufgetreten, das Formular wurde nicht korrekt ausgefüllt
")
Else
strMailbody = "Bestellung erfolgt auf www.voegele.com - Bestellung ab Prospekt" & vbNewLine & vbNewLine
strMailbody = strMailbody & "Name: " & vbTab & vbTab & strVorname & " " & strNachname & vbNewLine
strMailbody = strMailbody & "Strasse: " & vbTab & vbTab & strStrasse & vbNewLine
strMailbody = strMailbody & "Plz / Ort: " & vbTab & vbTab & strPlzOrt & vbNewLine
strMailbody = strMailbody & "Telefonnummer: " & vbTab & strTelefonNr & vbNewLine
strMailbody = strMailbody & "Geburtsdatum: " & vbTab & strGebDatum & vbNewLine
strMailbody = strMailbody & "Kundennummer: " &vbTab & strKundenNr & vbNewLine & vbNewLine
strMailbody = strMailbody & "Bestellung folgender Artikel: " & vbNewLine & vbNewLine
strMailbody = strMailbody & "Artikelnummer" & vbTab & "Grösse" & vbTab & "Anzahl" & vbTab & "Gesamtpreis" & vbNewLine
For x = 1 To MAXARTICLE
strTempArtikelnummer = strArtikelnummer & "_" & x
strTempGroesse = strGroesse & "_" & x
strTempAnzahl = strAnzahl & "_" & x
strTempGesamtpreis = strGesamtpreis & "_" & x
If Request.Form(strTempArtikelnummer) <> "" Then strMailbody = strMailbody & Request.Form(strTempArtikelNummer) & vbTab & vbTab &vbTab End If
If Request.Form(strTempGroesse) <> "" Then strMailbody = strMailbody & Request.Form(strTempGroesse) & vbTab &vbTab &vbTab End If
If Request.Form(strTempAnzahl) <> "" Then strMailbody = strMailbody & Request.Form(strTempAnzahl) & vbTab &vbTab &vbTab End If
If Request.Form(strTempGesamtpreis) <> "" Then strMailbody = strMailbody & Request.Form(strTempGesamtpreis) &vbTab End If
Next
Set newmail = CreateObject("CDONTS.NewMail")
newmail.From = MAILFROM
newmail.To = MAILTO
newmail.Subject = MAILSUBJECT
newmail.Body = strMailbody
newmail.Send
Response.write "
" & vbNewLine
End If
End If
%>
|
|
|
|
Filosofia 
.gif){kind=small}