move next

JEG KAN IKKE få den til at vise tirsdagen rigtig den viser bare det samme hele vejen ned,.

<%
strSQL = "Select * From hold where dag='mandag' order by tider"
Set rs = DataConn.Execute(strSQL)
%>
<%
strSQL = "Select * From hold where dag='tirsdag' order by tider"
Set rs1 = DataConn.Execute(strSQL)
%>
<B>Bassintider</B><BR>
<%

Response.write "<table  cellpadding='3' cellspacing='1'  width='100%'>"
Response.write "<tr><td bgcolor='#EFEFEF'>Mandag</td><td bgcolor='#EFEFEF'>Tirsdag</td><td bgcolor='#EFEFEF'>Torsdag</td><td bgcolor='#EFEFEF'>Fredag</td><td bgcolor='#EFEFEF'>Lørdag</td><td bgcolor='#EFEFEF'>Søndag</td></tr> <tr>"
if rs.bof or rs.eof then
  response.write "<b><font color='#ff0000'>Der er ingen hold oprettet pt.!</b><br><br>"
else
  Do While Not rs.EOF

Response.write "</td><td bgcolor='#EFEFEF'>"
Response.write rs("tider")
Response.write "&nbsp;-&nbsp;"
Response.write rs("sluttid")
Response.write "<BR>"
Response.write rs("holdnavn")
Response.write " Hold nr "
Response.write rs("holdnr")

    Response.write "</td><td bgcolor='#EFEFEF'>"
Response.write rs1("tider")
Response.write "&nbsp;-&nbsp;"
Response.write rs1("sluttid")
Response.write "<BR>"
Response.write rs1("holdnavn")
Response.write " Hold nr "
Response.write rs1("holdnr")

Response.write "</td><td bgcolor='#EFEFEF'>"
Response.write rs("tider")
Response.write "</td><td bgcolor='#EFEFEF'>"
Response.write rs("tider")
Response.write "</td><td bgcolor='#EFEFEF'>"
Response.write rs("tider")
Response.write "</td><td bgcolor='#EFEFEF'>"
Response.write rs("tider")
Response.write "</td><td bgcolor='#EFEFEF'>"
Response.write rs("tider")

  Response.write "</td></tr>"

rs.MoveNext
Loop
end if
Response.Write "</table>"

%>