if statement ??

jeg sidder og har lidt problemer med formateirngen af min side !

Jeg har en masse asp kode med en enkelt do while løkke !
jeg ville gerne selv bestemme hvodan det skal stå men man kan jo ikke bare indsætte html formatering i en løkke uden at denne bliver udført hver gang løkken gennemløbbes !
Hvad kan jeg gøre ??

Her er min 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>"


stSQLjan = "Select overskrift From tekst, manedstabel where tekst.id=manedstabel.jan"

Set jan = Conn.Execute(stSQLjan)


stSQLfeb = "Select overskrift From tekst, manedstabel where tekst.id=manedstabel.feb"

Set feb = Conn.Execute(stSQLfeb)

' her skal de 10 andre måneder select'er stå


' Liste med links

Do

Response.write " <br><FONT face=arial  color=#000000 size=2><a href=test.asp?side=" & rS("jan") &  "> " & jan("overskrift") &

"</a></font>"




Response.write "<FONT face=arial  color=#000000 size=2><a href=test.asp?side=" & rS("feb") &  "> " & feb("overskrift") &

"</a></font>"


 
rs.MoveNext
feb.MoveNext
 
jan.MoveNext
Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing
%>