% Response.Buffer = True Session.LCID = 1053 '===================================================================================================================== 'Öppnar databasen '===================================================================================================================== Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (*.mdb)};uid=;pwd=gurkmeja;dbq=" & Server.MapPath("../../../data/links.mdb") Set RSShow = Server.CreateObject("ADODB.Recordset") Visa = "SELECT ID, Category FROM Category GROUP BY Category, ID " RSShow.Open Visa, Connect, adOpenStatic, adLockOptimistic %>
Alice's Länkar!
Här finns länkar ut i vida världen!
Välj vad Du vill se genom att välja något av nedanstående:
Alla Länkar
...eller någon av följande kategorier:
<% Do Until RSShow.EOF
strCatID = RSShow("ID")
Set RSCount = Server.CreateObject("ADODB.Recordset")
CountL = "SELECT COUNT(CatID) AS CountLink FROM Link WHERE CatID LIKE '" & strCatID & "' GROUP BY CatID"
RSCount.Open CountL, Connect, adOpenDynamic, adLockOptimistic %>
"><% =RSShow("Category") %> - (<% If RSCount.EOF Then %><% Response.Write "0" %><% Else %><% =RSCount("CountLink") %><% End If %> Länkar)
<% CountLink = 0
RSCount.Close
RSShow.MoveNext
Loop
RSShow.Close %>