<% ' Option Explicit '================================================================== ' name: Shop.asp ' programmer: Michael Schumacher '============================================================= dim RS, RSC dim strSQL, strSQLC dim connectionString, physicalPath dim Artid, Neuheit, count, ArtRnd dim Verkaufspreis %> <% 'Set connection details connectionString = BuildConnectionString(DATABASE_ART, DATABASE_PATH) ' Hier wird die ArtikelID eingetragen, wenn ein bestimmter Artikel auf der Hauptseite angezeigt werden soll ' Wenn keine ArtikelID eingetragen ist oder nicht gefunden wird, so wieder nach dem Zufallsprinzip gesucht ' Wenn keine Artid angegeben wird, so kann noch mittels den Neuheiten die Artikel selektiert werden. ' Dazu einfach beim untenstehenden Statement "Neuheit" die 0 durch eine 1 ersetzen Artid = "" Neuheit = 0 If Artid <> "" Then ' Bestimmter Artikel heraussuchen, die zum Verkauf bestimmt sind strSQL = "SELECT * FROM v_Artikel WHERE (Artikel_Verkauf <> 0) AND ArtikelID = " & Artid & " ORDER BY ArtikelID" strSQLC = "SELECT Count(ArtikelID) As CountArt FROM v_Artikel WHERE (Artikel_Verkauf <> 0) AND ArtikelID = " & Artid & " ORDER BY ArtikelID" set RSC = Server.CreateObject("ADODB.Recordset") RSC.Open strSQLC, connectionString, adOpenDynamic, adLockOptimistic count = RSC("CountArt") if RSC("CountArt") = 0 Then Artid = "" end if Else If Neuheit = 1 then ' Alle Neuheiten-Artikel heraussuchen, die zum Verkauf bestimmt sind strSQL = "SELECT * FROM v_Artikel WHERE (Artikel_Verkauf <> 0) AND Artikel_Neuheit <> 0 ORDER BY ArtikelID;" strSQLC = "SELECT Count(ArtikelID) As CountArt FROM v_Artikel WHERE (Artikel_Verkauf <> 0) AND Artikel_Neuheit <> 0;" Else strSQL = "SELECT * FROM v_Artikel WHERE (Artikel_Verkauf <> 0) ORDER BY ArtikelID;" strSQLC = "SELECT Count(ArtikelID) As CountArt FROM v_Artikel WHERE (Artikel_Verkauf <> 0);" End if set RSC = Server.CreateObject("ADODB.Recordset") RSC.Open strSQLC, connectionString, adOpenDynamic, adLockOptimistic count = RSC("CountArt") End If set RS = Server.CreateObject("ADODB.Recordset") RS.Open strSQL, connectionString, adOpenDynamic, adLockOptimistic If Not RS.EOF Then Randomize ArtRnd = Int((RSC("CountArt") * Rnd)) Do until ArtRnd <= count Randomize ArtRnd = Int((RSC("CountArt") * Rnd)) Loop RS.Move ArtRnd Verkaufspreis = RS("Artikel_VP") %>

Shop		&Produktgruppe=0&way=s" target="_self"><%=ConvertText(RS("ProduktName"))%> "> <%=ConvertText(RS("ProduktBeschreibung"))%> <% =FormatCurrency(Verkaufspreis)%> <% End if RS.Close RSC.Close %>
Produktgruppe Alle <% strSQL = "SELECT * FROM T_Produktgruppe WHERE ProduktgruppeSprachID = 1 ORDER BY ProduktgruppeName;" 'set RS = Server.CreateObject("ADODB.Recordset") RS.Open strSQL, connectionString, adOpenDynamic, adLockOptimistic Prodgruppe = ConvertText(RS("ProduktgruppeName")) Do While Not RS.EOF %> ><%=ConvertText(RS("ProduktgruppeName"))%> <% RS.MoveNext Loop 'Conn.Close %> Stichwort Occasion Neuheiten