<% firma_an = TRIM( Request( "firma_an" ) ) vorname_an = TRIM( Request( "vorname_an" ) ) nachname_an = TRIM( Request( "nachname_an" ) ) strasse_an = TRIM (Request ("strasse_an") ) plz_an = TRIM (Request ("plz_an") ) ort_an = TRIM (Request ("ort_an") ) land_an = TRIM (Request ("land_an") ) telefon_an = TRIM (Request ("telefon_an") ) termin = TRIM (Request ("termin") ) 'Datenbank-Verbindung öffnen Set Con=Server.CreateObject("ADODB.Connection") Con.Open "weberorchideenDSN" 'Abfrage der Artikelgruppen Set RS=Server.CreateObject("ADODB.Recordset") RS.ActiveConnection=Con RS.Open "SELECT DISTINCT land FROM land WHERE land<>''" %> Blumenshop
Lieferungsinformationen


Empfängeradresse:

Firma:
*Vorname:
*Nachname:
*Strasse und Nr:
*PLZ:
*Ort:
*Land:
*Telefon:

<% IF hour(time())>=8 AND day(date())= Clng(left(termin,2)) THEN %> <% ELSE %> <% END IF%>
Liefertermin:
<% IF hour(time())>=16 THEN IF termin="" THEN termin=Date()+1 END IF ELSE IF termin="" THEN termin=Date() END IF END IF %>
(DD.MM.YYYY)

Lieferzeit: (Lokalzeit)
08:00 - 12:00
14:00 - 18:00
Lieferzeit: (Lokalzeit)
08:00 - 12:00
14:00 - 18:00
Bitte beachten Sie, dass an Sonntagen und
Feiertagen keine Zustellungen gemacht werden können.