Udtræk fra datbase fordeles over flere tabeller på samme side

Hej!

På den igen, sbm!

Jeg har en database med et felt, der hedder Competence. I Competence er der seks områder (eks. kaldet 1, 2, 3, 4, 5 og 6).

Når jeg laver mit udtræk fra databasen får jeg listet samtlige poster, men det bliver uoverskueligt,trods en sortering efter Posternumber.

Derfor vil jeg gerne have udtrækket fra databasen fordelt over seks tabeller - men stadig på samme side. Eks. alle data fra Competence-området 1 skal i en tabel for sig, alle data fra Competence-området 2 skal ind en tabel for sig osv.

Nedenfor ses min nuværende kode, som formentligt skal justeres på flere punkter.

Jeg har brug for lidt hjælp her...

--- start på kode ---

<%
Option Explicit

Dim objConn
Dim objRs
Dim intPosternumber
Dim strSQL, strCompetence, strTitle, strSubtitle, strLanguage, strPDF_URL, strFilesize, strBGColor, strPosters, strNew
Dim blnBGColor

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("database/Posters.mdb")

strSQL = "SELECT Posternumber, Competence, Title, Subtitle, Language, PDF_URL, Filesize, New FROM Data ORDER BY Posternumber ASC;"
Set objRs = objConn.Execute(strSQL)
If Not (objRs.BOF AND objRs.EOF) Then
    Do While Not objRs.EOF
        intPosternumber = objRs("Posternumber")
        strCompetence = objRs("Competence")
        strTitle = objRs("Title")
        strSubtitle = objRs("Subtitle")
        strLanguage = objRs("Language")
        strPDF_URL = objRs("PDF_URL")
        strFilesize = objRs("Filesize")
               
        If blnBGColor = True Then
            strBGColor = "#FFFFFF"
            blnBGColor = False
        Else
            strBGColor = "#eeeeee"
            blnBGColor = True
        End If           
       
        If objRs("New") = true Then
strNew = " <img src=""images/new.gif"" alt=""New"" /> "
Else
strNew = ""
End If
   
strPosters = strPosters & "<tr bgcolor="""& strBGColor &"""><td>"& intPosternumber &"</td><td>"& strCompetence &"</td><td><a href="""&Server.MapPath("./"&strPDF_URL)&""">"& strTitle &"</a>"& strNew &"</td><td>"& strSubtitle &"</td><td>"& strLanguage &"</td><td align=""right"">"& strFilesize &"</td></tr>"

        objRs.MoveNext
    Loop
Else
    strPosters = "<tr><td colspan=""2"">Der er ingen Poster!</td></tr>"
End If

objConn.Close
Set objConn = Nothing

Response.Write("<table width=""100%"" border=""0"" cellpadding=""2"" cellspacing=""1""><tr bgcolor=""#CCCCCC""><td><b>Poster No.</b></td><td><b>Competence area</b></td><td><b>Title</b></td><td><b>Subtitle</b></td><td><b>Language</b></td><td><b>File size</b></td></tr>")
Response.Write strPosters
Response.Write("</table>")
%>
   
--- slut på kode ---