<% 'Artikelnummer aus Links empfangen strg_art = Request.QueryString("art") strg_typ = Request.QueryString("typ") %> <% ' Recordset öffnen, das alle Felder aus allen ' Datensätzen der Tabelle Artikel enthält. sql1 = "SELECT * FROM Artikel WHERE Artikelnummer like '" & strg_art & "' AND Sprache like 'deutsch' ;" Set rsMtgld = Server.CreateObject("ADODB.Recordset") rsMtgld.Open sql1, cnn1, adOpenForwardOnly, adLockReadOnly, adCmdText sql2 = "SELECT * FROM Zubehoer WHERE Artikelnummer like '%' AND Sprache like 'deutsch' AND (Zubehoerzu like '" & strg_art & "' OR Zubehoerzu1 like '" & strg_art & "' OR Zubehoerzu2 like '" & strg_art & "' OR Zubehoerzu3 like '" & strg_art & "' OR Zubehoerzu4 like '" & strg_art & "' OR Zubehoerzu5 like '" & strg_art & "') ORDER by Artikelnummer;" Set rsZubehoer = Server.CreateObject("ADODB.Recordset") rsZubehoer.Open sql2, cnn1, adOpenStatic, adLockReadOnly sql3 = "SELECT * FROM Artikel WHERE Artikelnummer like '%' AND Sprache like 'deutsch' AND Typ like '" & strg_typ & "' ORDER by Artikelnummer;" Set rsNav = Server.CreateObject("ADODB.Recordset") rsNav.Open sql3, cnn1, adOpenForwardOnly, adLockReadOnly, adCmdText sql4 = "SELECT * FROM Kat_Nr ;" Set rsKatNr = Server.CreateObject("ADODB.Recordset") rsKatNr.Open sql4, cnn1, adOpenForwardOnly, adLockReadOnly, adCmdText sql5 = "SELECT * FROM Artikel WHERE Typ like '" & strg_typ & "' AND Artikelnummer NOT like '" & strg_art & "';" Set rsVar = Server.CreateObject("ADODB.Recordset") rsVar.Open sql5, cnn1, adOpenForwardOnly, adLockReadOnly, adCmdText %>

<%'Beginn Prüfschleife ob angeforderte Artikelnummern existieren If not rsMtgld.EOF then %>
<% Do WHILE NOT rsKatNr.EOF IF rsKatNr("Kategorie") = rsMtgld("Kategorie") THEN response.write(rsKatNr("Nummer")) ELSE END IF rsKatNr.movenext LOOP %> <% response.write(rsMtgld.Fields("Kategorie")) %>  <% response.write(rsMtgld.Fields("Gruppe")) %> 
<%' Beginn der Schleife1, die alle Datensätze durchläuft. Do While Not rsMtgld.EOF %> <% rsMtgld.MoveFirst 'Prüfung ob Dokumentendatei vorhanden ist Set fsObj2 = Server.CreateObject("Scripting.FilesystemObject") strPDF = (Left(Server.Mappath("./"),Len(Server.Mappath("/"))+pathVar)) & "\pdf\" & rsMtgld.Fields("Doku1") IF fsObj2.FileExists(strPDF) THEN %> <% ELSE END IF set fsObj2=Nothing %>

Bereich: <% response.write(rsMtgld.Fields("Kategorie"))%>

<% response.write(rsMtgld.Fields("Untergruppe")) %> <% response.write(rsMtgld.Fields("Typ"))%> <% response.write(rsMtgld.Fields("Sondereingabe"))%>

Prospekt als PDF-File downloaden: ">

<% 'Prüfung ob Bilddatei vorhanden ist Set fsObj = Server.CreateObject("Scripting.FilesystemObject") strDateiname = (Left(Server.Mappath("./"),Len(Server.Mappath("/"))+pathVar)) & "\bilder\" & rsMtgld.Fields("Bild1") IF fsObj.FileExists(strDateiname) THEN %> " width="180">

Bitte Bild anklicken für
größere Darstellung!

 <% ELSE %>"> <% END IF set fsObj=Nothing %>
<% beschr = rsMtgld.Fields("Beschreibung") IF beschr <> "" THEN %>
Beschreibung:

<%response.write(beschr)%>

<% ELSE END IF %> <% grund = rsMtgld.Fields("Grundausstattung") IF grund <> "" THEN %>
Grundausstattung:

<%response.write(grund)%>

<% ELSE END IF %> <% techdat = rsMtgld.Fields("TechData") IF techdat <> "" THEN %>
Technische Daten:

<%response.write(techdat)%>

<% ELSE END IF %>
<% 'Prüfung ob Bilddateien 2-4 vorhanden ist Set fsObj = Server.CreateObject("Scripting.FilesystemObject") strDateiname2 = (Left(Server.Mappath("./"),Len(Server.Mappath("/"))+pathVar)) & "\bilder\" & rsMtgld.Fields("Bild2") strDateiname3 = (Left(Server.Mappath("./"),Len(Server.Mappath("/"))+pathVar)) & "\bilder\" & rsMtgld.Fields("Bild3") strDateiname4 = (Left(Server.Mappath("./"),Len(Server.Mappath("/"))+pathVar)) & "\bilder\" & rsMtgld.Fields("Bild4") IF fsObj.FileExists(strDateiname2) OR fsObj.FileExists(strDateiname3) OR fsObj.FileExists(strDateiname4) THEN %>
<% IF fsObj.FileExists(strDateiname2) THEN %> "> <%ELSE END IF IF fsObj.FileExists(strDateiname3) THEN %> "> <%ELSE END IF IF fsObj.FileExists(strDateiname4) THEN %> "> <%ELSE END IF %>
<% ELSE END IF set fsObj=Nothing %>

Modellvariante

Artikel-Nr.
<%=rsMtgld.Fields("Modellvariante")%>  <%=rsMtgld.Fields("Artikelnummer")%> 
<% artnumm = rsMtgld.Fields("Artikelnummer") If NOT rsZubehoer.EOF THEN %> <% response.write(varZub) %> <% ' Beginn der Schleife, die alle Datensätze der Tabelle Zubehoer durchläuft. Do While Not rsZubehoer.EOF %> <% ' Zum nächsten Datensatz wechseln. rsZubehoer.MoveNext ' Ende der Schleife, die ein Mal pro Datensatz durchlaufen wurde. Loop %>
Zubehör:

Artikel-Nr.

<% rsMtgld.MoveFirst 'Prüfung ob Dokumentendatei vorhanden ist Set fsObj3 = Server.CreateObject("Scripting.FilesystemObject") strZubi = (Left(Server.Mappath("./"),Len(Server.Mappath("/"))+pathVar)) & "\bilder\" & rsZubehoer.Fields("Bild1") IF fsObj3.FileExists(strZubi) THEN %> " align="right" hspace="5" vspace="5"> <% set fsObj3=Nothing ELSE END IF IF rsZubehoer.Fields("Name") = "" THEN response.write(rsZubehoer.Fields("Beschreibung")) ELSE response.write(RTrim((rsZubehoer.Fields("Name") & " " & rsZubehoer.Fields("Beschreibung")))) END IF %>
<% so = rsZubehoer.Fields("Sonstiges") IF so = "" THEN ELSE %> <% response.write(rsZubehoer.Fields("Sonstiges"))%> <% END If %>
<%=rsZubehoer.Fields("Artikelnummer")%> 
<% ELSE END IF %> <% ' Prüfung ob das Feld Sonstiges Daten enthält und Erstellung einer Tabelle zur Darstellung wenn nicht leer sonst = rsMtgld.Fields("Sonstiges") IF sonst = "" THEN ELSE %>

Sonstiges

<% response.write(sonst) %> 
<% END IF IF NOT rsVar.EOF THEN %> <% Do While Not rsVar.EOF %> <% rsVar.MoveNext LOOP %>

Weitere Modellvariante:

Artikel-Nr.
&typ=<%response.write(rsVar.Fields("Typ"))%>"> <%=rsVar.Fields("Modellvariante")%>  &typ=<%response.write(rsVar.Fields("Typ"))%>"> <%=rsVar.Fields("Artikelnummer")%> 
<% ELSE END IF ' Zum nächsten Datensatz wechseln. rsMtgld.MoveNext ' Ende der Schleife1, die alle Datensätze durchläuft Loop rsMtgld.MoveFirst 'Prüfung ob Dokumentendatei vorhanden ist Set fsObj2 = Server.CreateObject("Scripting.FilesystemObject") strPDF = (Left(Server.Mappath("./"),Len(Server.Mappath("/"))+pathVar)) & "\pdf\" & rsMtgld.Fields("Doku1") IF fsObj2.FileExists(strPDF) THEN %>

Weitere Informationen:

Prospekt als PDF-File downloaden: ">
<% ELSE END IF set fsObj2=Nothing ' Recordset schließen und Objekt löschen. rsZubehoer.Close set rsZubehoer = Nothing ' Recordset schließen und Objekt löschen. rsMtgld.Close set rsMtgld = Nothing ' Recordset schließen und Objekt löschen. rsNav.Close set rsNav = Nothing ' Recordset schließen und Objekt löschen. rsKatNr.Close set rsKatNr = 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