<% 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 %> PW99 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
<% warenkorb = session("warenkorb") if isArray(warenkorb) then i = session("items") for t = o to i if (warenkorb(t,0))<> "" then %> <% end if next %> <%end if%>
<%=l_list1%> <%=l_list2%> <%=l_list3%> <%=l_list4%> <%=l_list5%> delete
<%=warenkorb(t,0)%> <%=warenkorb(t,3)%> <%=warenkorb(t,4)%> <%=FormatNumber(warenkorb(t,2),2,,-2)%> <% gesamt_artikel = + warenkorb(t,0) * warenkorb(t,2) gesamt = FormatNumber(gesamt + gesamt_artikel,2,,-2) response.write(FormatNumber(gesamt_artikel,2,,-2) & " " & l_list7) %> X
<%=l_list6%> :<%=FormatNumber(gesamt,2,,-2)%><%=l_list7%>  

<%if m_name = true then%> <%end if if m_country = true then%> <%end if if m_city = true then%> <%end if if m_street = true then%> <%end if if m_phone = true then%> <%end if if m_mailadress = true then%> <%end if if m_comment = true then%> <%end if%>
<%=l_title%>

<%=l_text%>

<%=l_name%>
<%=l_country%>
<%=l_city%>
<%=l_street%>
<%=l_phone%>
<%=l_mailadress%>
<%=l_comment%>

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