Undtagelse Opstod

Hej

Jeg får en undtagelse Opstod i dette script
Response.Write \"<tr>\"
  r = 0
  p = 0
  Do While NOT (rs.EOF or rs.BOF)
  r = r + 1
  m = r Mod 2
  If m = 1 AND r > 1 Then
    Response.Write \"<tr><td align=left valign=top height=5></td></tr>\" &
vbcrlf
  End If
  Response.Write \"<tr>\" & vbcrlf
    For p = 1 to 11
    If (rs(\"Status\") = 0) Then            FEJLEN KOMMER HER
      Response.Write \"<td align=center valign=top height=15 width=30
id=BordreserveringBord1Ledig>\" & rs(\"ID\") & \"</td>\"
    Else
      Response.Write \"<td align=center valign=top height=15 width=30
id=BordreserveringBord1Reserveret>\" & rs(\"ID\") & \"</td>\"
    End If
    Response.Write \"</td>\" & vbcrlf
    rs.MoveNext
    Next
  Response.Write \"</tr>\" & vbcrlf
  Loop
Response.Write \"</table>\" & vbcrlf
End If

nogen der kan hjælpe ?
--
Med Venlig Hilsen
Webmaster Kenneth Fuglsang
E-Mail : kenneth-fuglsang@pc.dk
ICQ : 115251242