Hejsan!
Jag har lite problem, får felmeddelandet:

Active Server Pages error 'ASP 0113'

Script timed out

/admin/radera_konto.asp

The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeOut or by changing the value in the ASP administration tools.

Jag klickar tex på en länk som leder till adressen:

radera_konto.asp?radera=dikter&id=79

Jag använder koden:

<% If Request.Querystring("radera") = "dikter" Then

IF NOT session("connected")=1 THEN
Response.Redirect "default.asp"

else

%>

<link rel="stylesheet" href="stil.css" type="text/css">



<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DSN=db025_db1"


Set RS=Connect.Execute("Select * From dikter Where ID = "& Request.QueryString("ID"))

Do Until RS.EOF
Connect.Execute("Delete From kommentar_dikter Where tillid = "& Request.QueryString("ID"))
RS.MoveNext
Loop

Connect.Execute("DELETE FROM dikter WHERE ID = "& Request.QueryString("ID"))

Connect.Close
Set Connect = Nothing

response.redirect "default.asp?admin=dikter"

End If
End If
%>

Det ända som händer är att:

Do Until RS.EOF
Connect.Execute("Delete From kommentar_dikter Where tillid = "& Request.QueryString("ID"))
RS.MoveNext
Loop


Raderas och det är korrekt, men efter det skall ju själva användaren också raderas dvs:

Connect.Execute("DELETE FROM dikter WHERE ID = "& Request.QueryString("ID"))

Men det gör den inte, den raderar endast kommentarerna, kan någon hjälpa mig?

eeehh.. vad gör du?

varför hela denna harangen?

Set RS=Connect.Execute("Select * From dikter Where ID = "& Request.QueryString("ID"))

Do Until RS.EOF
Connect.Execute("Delete From kommentar_dikter Where tillid = "& Request.QueryString("ID"))
RS.MoveNext
Loop

Connect.Execute("DELETE FROM dikter WHERE ID = "& Request.QueryString("ID"))

räcker med:

Connect.Execute("Delete From kommentar_dikter Where tillid = " & Request.QueryString("ID"))
Connect.Execute("DELETE FROM dikter WHERE ID = " & Request.QueryString("ID"))