<% 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 %> Länkar

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 %>