aufräumen inkonsistenter DB

[heiko]

hi, ich habe eine datenbank mit 2 tabellen und jeweils einem primärschlüssel, der sich "userID" nennt. jeder datensatz wird also in beiden tabellen angelegt, und ist mit der gemeinsamen userID verbungen. aufgrund von fehlprogrammierung, ist es nun so, dass datensätze nur in einer tabelle angelegt wurden. diese datensätze sollen erst gefiltert und dann gelöscht werden. ich habe hierz ein script geschrieben, es kommt aber immer zum timeout?? vielleicht kann mich ja jemand korrekieren.

danke schonmal,
heiko

<%
dim cn
dim rs

set cn=Server.Createobject("ADODB.connection")
set rs=Server.Createobject("ADODB.recordset")

cn.Open="Provider=SQLOLEDB;SERVER=XXX;UID=XX;PWD=XXX;DATABASE=XXX"

rs.Open "SELECT * FROM user", cn

do until rs.eof=true
 dim rs2
 set rs2=Server.Createobject("ADODB.recordset")
 rs2.Open "SELECT * FROM profil WHERE userID=" & rs.Fields("UserID").value , cn
 if rs2.eof=true then
  rs.delete
  cn.execute "DELETE FROM user WHERE userID=" & rs.Fields("userID").value)
 end if
 rs2.Close
 Set rs2 = Nothing
rs.movenext
loop

rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
%>