<% ' --- dimensionera --- dim dbcn dim urst dim sqls dim besk dim bild dim typn dim kato typn = request.querystring ("typ") if typn = "bord" then kato = "Bord" if typn = "skap" then kato = "Skåp" if typn = "sosa" then kato = "Soffor/Sängar" if typn = "stol" then kato = "Stolar" if typn = "skby" then kato = "Skänkar/Byråer" if typn = "kist" then kato = "kistor" if typn = "lamp" then kato = "Lampor" if typn = "ovrg" then kato = "Allmogeföremål" %>

<%=kato%>
Klicka på bilderna för att se större bild


<% ' --- öppna databas --- set dbcn = server.createobject("ADODB.Connection") dbcn.open = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=" + Server.MapPath("../data/mobel.mdb") + ";" + "User Id=admin;" + "Password=;" set urst = server.createobject("ADODB.Recordset") sqls = "SELECT * from objekt where typ = '" & typn & "'" urst.open sqls, dbcn if not urst.EOF then ' --- Skapa referenser --- set besk = urst("besk") set bild = urst("bild") ' --- Visa objekt --- do until urst.EOF %>

<%=replace(besk, chr(13), "
")%>


<% urst.movenext loop ' --- stäng databas --- dbcn.close set dbcn = Nothing else response.write "Just nu finns det inga objekt i denna kategori" end if %>