<% 'Variablen aus Links empfangen 'strg1 und strg2 - min. und max. Artikelnummer strg1 = Request.QueryString("g1") strg2 = Request.QueryString("g2") ' strg3 = Kategorie strg3 = Request.QueryString("g3") ' strg4 = Modell strg4 = Request.QueryString("g4") ' strg4 = Gruppe strg5 = Request.QueryString("b1") ' Wenn keine Artikelnummern als Kriterium definiert alle Artikelnummern anzeigen If strg1 = "" Then strg1 = "0" strg2 = "zzzzzzzz" End If ' Wenn keine Kategorie per Link definiert alle Kategorien anzeigen If strg3 = "" Then strg3 = "%" End If ' Wenn kein Typ per Link definiert alle Typen anzeigen If strg4 = "" Then strg4 = "%" End If ' Wenn keine Gruppe per Link definiert alle Gruppen anzeigen If strg5 = "" Then strg5 = "%" End If %> <% ' Recordset öffnen, das alle Felder aus allen ' Datensätzen der Tabelle Artikel enthält. sql11 = "SELECT * FROM Artikel WHERE Gruppe like '" & strg5 & "' ORDER BY Laufnummer ;" Set rsGrp = Server.CreateObject("ADODB.Recordset") rsGrp.Open sql11, cnn1, adOpenStatic, adLockReadOnly, adCmdText sql4 = "SELECT * FROM Kat_Nr ;" Set rsKatNr = Server.CreateObject("ADODB.Recordset") rsKatNr.Open sql4, cnn1, adOpenForwardOnly, adLockReadOnly, adCmdText %>

HOME
Übersicht Programm
NEU im Angebot
zurück
<% Do While Not rsGrp.EOF 'Teil 1 Schleife Prüfung ob Artikel Bohrer oder Allgemein IF rsGrp.Fields("Gruppe") <> "1) Papierbohrer" and rsGrp.Fields("Gruppe") <> "1) Lochpfeifen" THEN %> <% 'Teil 2 Schleife Prüfung ob Artikel Bohrer oder Allgemein ELSE %> <% 'Teil 3 Schleife Prüfung ob Artikel Bohrer oder Allgemein END IF ' Zum nächsten Datensatz wechseln. variant1a = rsGrp.Fields("Typ") rsGrp.MoveNext Loop %>
<% response.write(strg5) %>
<% response.write((strg3) & " Übersicht") %>
<% response.write(rsGrp.Fields("Gruppe")) %>
&typ=<%response.write(rsGrp.Fields("Typ"))%>"> &typ=<%response.write(rsGrp.Fields("Typ"))%>"> <%response.write(rsGrp.Fields("Typ"))%>
&typ=<%response.write(rsGrp.Fields("Typ"))%>"> &typ=<%response.write(rsGrp.Fields("Typ"))%>"> <%response.write(rsGrp.Fields("Typ"))%>
Kontakt
E-Mail
Impressum
<%'Beginn Prüfschleife ob angeforderte Artikelnummern existieren rsGrp.MoveFirst If not rsGrp.EOF then %>
<% Do WHILE NOT rsKatNr.EOF IF rsKatNr("Kategorie") = strg3 THEN response.write(rsKatNr("Nummer")) ELSE END IF rsKatNr.movenext LOOP %> <% response.write(strg3) %>  <% response.write(strg5) %> 
<% rsGrp.MoveFirst Do While Not rsGrp.EOF %> <% For I = 1 to 3 %> <% IF NOT rsGrp.EOF THEN rsGrp.MoveNext ELSE END IF NEXT %> <% Loop %>
<% 'Teil 1 Schleife Prüfung ob rsGRP.EOF IF NOT rsGrp.EOF THEN %>

&typ=<%response.write(rsGrp.Fields("Typ"))%>"> <%response.write(rsGrp.Fields("Untergruppe") & " ") %>

<% 'Prüfung ob Bilddatei vorhanden ist Set fsObj = Server.CreateObject("Scripting.FilesystemObject") strDateiname = (Left(Server.Mappath("./"),Len(Server.Mappath("/"))+pathVar)) & "\bilder\" & rsGrp.Fields("Bild1") 'Teil 1 Schleife Prüfung ob Bild vorhanden ist allgemeiner Artikel IF fsObj.FileExists(strDateiname) THEN %>&typ=<%response.write(rsGrp.Fields("Typ"))%>">" height="80"> <% 'Teil 2 Schleife Prüfung ob Bild vorhanden ist allgemeiner Artikel ELSE %>"> <% 'Teil 3 Schleife Prüfung ob Bild vorhanden ist allgemeiner Artikel END IF set fsObj=Nothing %>
&typ=<%response.write(rsGrp.Fields("Typ"))%>"> &typ=<%response.write(rsGrp.Fields("Typ"))%>"><%response.write(rsGrp.Fields("Typ"))%>
<% 'Teil 2 Schleife Prüfung ob rsGRP.EOF ELSE 'Teil 3 Schleife Prüfung ob rsGRP.EOF END IF %>
<% ' Recordset schließen und Objekt löschen. rsGrp.Close set rsGrp = Nothing ' Verbindung schließen und Objekt löschen cnn1.Close set cnn1 = Nothing ' Else-Anweisung der Prüfschleife ob angeforderte Artikelnummern vorhanden sind Else %>
Kein Datensatz im gewünschten Bereich vorhanden!
<% 'Ende Prüfschleife ob angeforderte Artikelnummern vorhanden sind End If %>

Bitte beachten Sie:  

  • Bei Bestellung bitte Artikel-Nr. angeben!

  • Markieren Sie in Ihrer Bestellung, welche Artikel Sie dringend benötigen.

  • Wenn nötig und von Ihnen gewünscht, machen wir
    dann nach Möglichkeit eine Vorab-Lieferung.

 
Senden Sie E-Mail mit Fragen oder Kommentaren zu dieser Website an: info@foellmer.com
Copyright © 2006 Albrecht Datentechnik - Stand: 17. Juni 2010
Webdesign by:
Albrecht Datentechnik