Hejsan!

För att få olika färg på "lästa länkar" krävs inloggning som sedan lägger till användarId och textId i en tabell varje gång en nyhet läses.

Varje länk loopar igenom tabellen för att se om id:t finns. Sidan innehåller ca 25 länkar och tabellen kommer förmodligen att krypa upp emot 5000 poster innan jag tömmer den. Nu är frågan om min kod är förkastlig ur prestandasynvinkel?
Tacksam för synpunkter!


<code>

<%
userId = Session("userId")

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\db\db1.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Set RecSet2 = Server.CreateObject("ADODB.Recordset")

SQL = "qNyhetGrupp1 '" & datum & "'"
RecSet.Open SQL

do until RecSet.eof

set rubrik = Recset("rubrik")
set ID = RecSet("textID")

'stämmer av mot lästa länkar-tabellen
SQL = "q_Lasta_Nyheter_ensk '" & userId & "', " _
& "'" & ID & "'"

RecSet2.Open SQL, Conn
do until RecSet2.EOF

finns = RecSet2("textId")

RecSet2.MoveNext
loop
RecSet2.close

%>

<li>

<%
if finns = ID then
response.write(rubrik)

Else
response.write("" & rubrik & "")
End If%>





<%
RecSet.MoveNext
loop
end if
RecSet.Close%>
</a>
</code>

/mvh Max