Problemer med en lille stump kode

Jeg sidder og har lidt problemer med en stump kode. Jeg har problemer med at få vist den rigtige tekst til nogle links der bliver hentet fra en access database som jeg har lavet. Databasen indeholder tabelerne:
manedstabel med kolonner :id, jan , feb, ..
tekst med kolonner :overskrift, id, nyhedstekst
manedsnavne med kolonner : manedsnavn, id

ID numrene der bliver vist når man fører musen hen over linkene passer fint og linkene virker også så man kommer hen til den rigtige side. Problemet er bare at teksten til hvert link ikke er den rigtige, hvad kan der være galt ??

Her er lidt kode :

<%
' Databaseforbindelse
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/portal/databaser/jamsa.mdb")
Conn.Open DSN


strSQL = "Select * From  manedstabel"

Set rs = Conn.Execute(strSQL)

stSQL = "Select overskrift From tekst"

Set s = Conn.Execute(stSQL)

mnavn = "Select * From  manedsnavne"

Set mn = Conn.Execute(mnavn)


Response.write " <br><b>"& mn("manedsnavn") &"</b>"

mn.MoveNext

Response.write " <b>"& mn("manedsnavn") &"</b>"



stSQL3 = "Select overskrift From tekst, idtabel where

tekst.id=idtabel.manedsid"

Set sr = Conn.Execute(stSQL3) 

Do
Response.write"1"
Response.write sr("overskrift")
Response.write"2"


Do
 
if(Not rs.EOF)then
  ' Liste med links
Response.write " <br><FONT face=arial  color=#000000 size=2><a

href=test.asp?side=" & rS("jan") &  "> " & sr("overskrift") & "</a></font>"
end if




if(Not rs.EOF)then
  ' Liste med links
Response.write " <FONT face=arial  color=#000000 size=2><a

href=test.asp?side=" & rS("feb") &  "> " & sr("overskrift") & "</a></font>"
end if

rs.MoveNext

 


sr.MoveNext 
s.MoveNext
Loop While Not rs.EOF


mn.MoveNext


Loop While Not mn.EOF
Conn.Close
Set Conn = Nothing
%>