<% ' ========================================================================== ' Öppna databasen och hämta alla produkter. ' ========================================================================== Set Connection = Server.CreateObject("ADODB.Connection") Connection.Open Session("shopdata") SQLStmt = "SELECT * from verktyg WHERE verktyg.Prod_id = 1 and verktyg.Kat_id = 4" SET RS = Connection.Execute(SQLStmt) SQLStmt = "SELECT * from verktyg WHERE verktyg.Prod_id = 2 and verktyg.Kat_id = 4" SET RS2 = Connection.Execute(SQLStmt) SQLStmt = "SELECT * from verktyg WHERE verktyg.Prod_id = 3 and verktyg.Kat_id = 4" SET RS3 = Connection.Execute(SQLStmt) SQLStmt = "SELECT * from verktyg WHERE verktyg.Prod_id = 4 and verktyg.Kat_id = 4" SET RS4 = Connection.Execute(SQLStmt) SQLStmt = "SELECT * from verktyg WHERE verktyg.Prod_id = 5 and verktyg.Kat_id = 4" SET RS5 = Connection.Execute(SQLStmt) SQLStmt = "SELECT * from verktyg WHERE verktyg.Prod_id = 6 and verktyg.Kat_id = 4" SET RS6 = Connection.Execute(SQLStmt) SQLStmt = "SELECT * from verktyg WHERE verktyg.Prod_id = 7 and verktyg.Kat_id = 4" SET RS7 = Connection.Execute(SQLStmt) %> Untitled


<% '========================================================================== 'Här lopas alla recordseten igenom '========================================================================== %> <%do until rs.EOF%> <%RS.MoveNext%> <%Loop%> <%RS.Close%> <%do until rs2.EOF%> <%RS2.MoveNext%> <%Loop%> <%RS2.Close%> <%do until rs3.EOF%> <%RS3.MoveNext%> <%Loop%> <%RS3.Close%> <%do until rs4.EOF%> <%RS4.MoveNext%> <%Loop%> <%RS4.Close%> <%do until rs5.EOF%> <%RS5.MoveNext%> <%Loop%> <%RS5.Close%> <%do until rs6.EOF%> <%RS6.MoveNext%> <%Loop%> <%RS6.Close%> <%do until rs7.EOF%> <%RS7.MoveNext%> <%Loop%> <%RS7.Close%>
"><%= RS("verktyg_Namn") %>
"><%= RS2("Söm_Namn") %>
"><%= RS3("Söm_Namn") %>
"><%= RS4("Söm_Namn") %>
"><%= RS5("Söm_Namn") %>
"><%= RS6("Söm_Namn") %>
"><%= RS7("Söm_Namn") %>
<% '========================================================================== 'Stänger databasen '========================================================================== connection.close %>