links opdelt i kategorier

et eksempel:

<%

set conn = Server.CreateObject(\"ADODB.Connection\")
conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"scart.mdb\")
set conn2 = Server.CreateObject(\"ADODB.Connection\")
conn2.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"scart.mdb\")
Katid=Trim(Replace(Request(\"katid\"),\"\'\",\"\"))
SQL = \"select * from Produckname order by Productname\"
Set RS = Conn.Execute(SQL)
    if not (rs.BOF or rs.EOF) then
        do while not rs.EOF
            SQL2 = \"select * from products where PNCategory=\" & rs(\"NameId\") & \" and ccategory=\" & Katid & \" order by cname\"
            Set RS2 = Conn2.Execute(SQL2)
                if not (rs2.BOF or rs2.EOF) then
                Response.Write \"<div align=\'center\'>\"
                Response.Write \"<center>\"
                Response.Write \"<table border=\'0\' cellspacing=\'2\' width=\'690\' bgcolor=\'#8DABD5\'>\"
                Response.Write \"<tr><td width=\'650\' bgcolor=\'#FFCC00\'><p align=\'left\'>\" & RS(\"Productname\") & \"</td></tr>\"
                    Do While Not RS2.EOF
                          Response.Write \"<tr><td width=\'650\' bgcolor=\'#8DABD5\'><p align=\'left\'>\" & RS2(\"cname\") & \"</td></tr>\"
                    RS2.MoveNext
                    Loop
                Response.Write \"</table>\"
                Response.Write \"</center>\"
                Response.Write \"</div>\"
                Response.Write \"<br>\"
                end if
            RS2.Close
        rs.movenext
        loop
    end if
RS.Close
Conn.Close
Conn2.Close

%>

Jeg må indrømme at det ser godt nok noget  uoverskueligt ud, kan det ikke gøre på en mere enkel måde?

jo - tabellerne kan fjernes...

Jeg har studeret et par andre linkscripts og er nået frem til følgende løsninger som efter min mening er mere enkel.

SQLkat = \"select * from Kategori order by Kategorinavn\"
      set RSkat = objConn.execute(SQLkat)
     

while not RSkat.eof
    set RSlink = objconn.execute(\"select * from Links where kategoriid = \" & RSkat(\"katid\") & \"\")
    response.write RSkat(\"kategorinavn\") & \"<br>\"
    if RSlink.bof then
    response.write \"der er ingen links i denne kategori<br>\"
    end if
    while NOT RSlink.eof
    response.write RSlink(\"url\") & \"<br>\"
    RSlink.movenext
    wend
    RSkat.movenext
    wend
   
    objConn.Close
    Set objConn = Nothing

Du får nu alligevel  30 point for dit forslag.  :-)

Hov det var da 60 point,.... nå pyt