Update af DB

Hej

Jeg har et script der skal minuse alle ID\'er med 1 hvergang der bliver slettet en post der har en lavere ID end alle andre poster

Men jeg får følgende fejl :

Der opstod en Microsoft VBScript-kørselsfejl (0x800A01A8)
Et objekt er obligatorisk: \'\'
/paging/slet.asp, line 19

Linje 19 ser sådan ud
Do Until rs.EOF Or rs.BOF

Mit Script :
<!--#include file=\"adovbs.inc\"-->
<% response.buffer = TRUE %>
<html>
<head>
<TITLE>TheComplex</TITLE>
</head>

<body bgcolor=\"#FFFFFF\">
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"driver={MySql};server=localhost;Database=test;uid=root;pwd=123\"
Conn.Open DSN

strSQL = \"Delete from TheComplex where ID = \" & Request.Querystring(\"ID\") & \"\"
Conn.Execute(strSQL)
\'Response.Redirect (\"default.asp\")

If Request.Querystring(\"ID\") <> 1 then
Do Until rs.EOF Or rs.BOF
ID = Request.Querystring(\"ID\") - 1
strSQL = \"Update TheComplex set \"
strSQL = strSQL & \"id=\" & ID & \"\"
strSQL = strSQL & \" Where ID > \" & ID & \"\"
Conn.Execute(strSQL)
rs.MoveNext
Loop

Else
Do Until rs.EOF
ID = 1
strSQL = \"Update TheComplex set \"
strSQL = strSQL & \"id=\" & ID & \"\"
strSQL = strSQL & \" Where ID > \" & ID & \"\"
Conn.Execute(strSQL)
rs.MoveNext
Loop
\'Response.Redirect (\"default.asp\")
End If
%>
</body>
</html>