<% r = request.querystring("r") if len(r)<1 then r=-1 s = request.querystring("s") if len(s)<1 then s = 0 s=s*10 dim rubriken(100,4) set db = Server.CreateObject("ADODB.Connection") connect="Driver={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("pw99_shop.mdb") db.Open connect sql = "select rubrik, id, parent, rank from rubriken order by rank" set rs = db.Execute(sql) while not rs.eof if i<100 then rubriken(i,0) = rs("rubrik") rubriken(i,1) = rs("parent") rubriken(i,2) = rs("id") rubriken(i,3) = rs("rank") end if i=i+1 rs.movenext wend arrayLaenge=i-1 Function show_search(parent1, ebene) if parent1 <> vbNullString then for t = 0 to arrayLaenge if rubriken(t,1) = parent1 then platzhalter="" for x= 0 to ebene platzhalter = platzhalter & "   " next if ebene = 0 then zusatz = "" zusatz1 = "" end if response.write( platzhalter & "" & zusatz & rubriken(t,0) & zusatz1 & "
" & chr(13)) parent2 = rubriken(t,2) ebene1 = ebene +1 show_search parent2, ebene1 end if next end if end function sqlZusatz="" Function show_c(parent3) for t = 0 to arrayLaenge if cint(rubriken(t,1)) = cint(parent3) then parent4 = rubriken(t,2) sqlZusatz = sqlZusatz & " or rubrik = " & parent4 show_c parent4 end if next end function show_c r %> Gendercare Gender Clinic Services MiniShop
<%=n_produkte%>
<%show_search 0,0%>
<%=n_basket%>
<%if (session("items"))>-1 then %><%=n_basket1%> (<%=session("items")+1%>) <%else%> <%=n_basket2%> <%end if%>
<%=n_info%>
<%=n_info1%>
Home

free hit counter

<% if (cint(r)>-1) then sql = "select bezeichnung, beschreibung, bild, artikelnr, linke, more, preis, id from produkte where rubrik = " & r & sqlZusatz set rs = db.Execute(sql) while not rs.eof count = count +1 if count>s and count<=(s+10) then id = rs("id") %> <% end if rs.movenext wend if count > 0 then sql = "select count(id) as alleEintraege from produkte where rubrik = " & r & sqlZusatz set rs = db.Execute(sql) alleEintraege = int(rs("alleEintraege")) %> <% next else %> <%end if%><%else%> <%end if%>
<%if len(rs("bild"))>2 then%>" border="0"> <%else%> <%end if%> <%=rs("bezeichnung")%> (<%=rs("artikelnr")%>)

<%=FormatMessage(rs("beschreibung"))%>

<%=FormatNumber(rs("preis"),2,,-2)%> <%=l_list7%>

" action="add.asp?a_id=<%=id%>" target="addFrame" method="post">  <%=s_add_product%>  "> "> ">
">
">saiba mais

Page <%for t = 0 to fix((alleEintraege-1)/10)%> <%if t=(s/10) then%><%end if%><%=t+1%><%if t=(s/10) then%><%end if%> 



<%=s_no_product%>
<%=start_title%>
<%=start_body%>

<% rs.close db.close set rs = nothing set db = nothing Erase rubriken %>