hier hab ich den letzten Code, aber da sind

strSql3 und strSql4

doppelt gemoppelt

es reicht da die delete Anweisung.
Evtl ist das sogar der Fehler

Gru� Wolfgang

----- Original Message -----
From: "Arkor Randor" <[EMAIL PROTECTED]>
To: "ASP Diskussionsliste fuer Anfaenger" <[EMAIL PROTECTED]>
Sent: Tuesday, February 19, 2002 11:07 PM
Subject: [aspdebeginners] Re: [aspdebeginners] Re: [aspdebeginners] Re:
[aspdebeginners] Forum - Alles auf einmal l�schen?


> Hi Wolfgang,
>
> hab den Code wegen Fehlermeldungen wieder ge�ndert, nun kriege ich ein
> Timeout.
>
>    strSql1 = "SELECT * FROM Forum WHERE F_Cat=" & kategorie
>    set rs1 = my_conn.Execute (strSql1)
>    While not rs1.EOF
>     Forum_ID = rs1("Forum_ID")

>     strSql2 = "SELECT * FROM Topics WHERE Forum_id=" & Forum_ID
>     set rs2 = my_conn.Execute (strSql2)
>     While not rs2.EOF
>      Topic_ID = rs2("Topic_ID")

>      strSql3 = "SELECT * FROM Reply WHERE Topic_ID=" & Topic_ID
>      set rs3 = my_conn.Execute (strSql3)

>       While not rs3.EOF
>        strSql4 = "DELETE FROM Reply WHERE Topic_ID=" & Topic_ID
>        set rs4 = my_conn.Execute (strSql4)

>        'rs3.delete '                   l�scht alle in Reply
>        'rs3.MoveNext
>       Wend
>      rs3.Close

>      strSql5 = "DELETE FROM Topics WHERE Forum_id=" & Forum_ID
>      set rs5 = my_conn.Execute (strSql5)
>      'rs2.delete '                   l�scht alle in Topic
>      'rs2.MoveNext
>     Wend
>     rs2.Close

>     strSql6 = "DELETE FROM Forum WHERE F_Cat=" & kategorie
>     set rs6 = my_conn.Execute (strSql6)

>     'rs1.delete '                   l�scht alle in Forum
>     'rs1.MoveNext
>    Wend
>    rs1.Close

>    strSql7 = "DELETE FROM Forum WHERE F_Cat=" & kategorie
>    set rs7 = my_conn.Execute (strSql7)
>    'rs1.delete '                   l�schen der Category
>    rs1.Close
>    set rs7 = Nothing
>    set rs6 = Nothing
>    set rs5 = Nothing
>    set rs4 = Nothing
>    set rs3 = Nothing
>    set rs2 = Nothing
>    set rs1 = Nothing
>    my_conn.close
>    set my_conn = nothing
>
> Gru�,
>
> Arkor, http://ed59.s5.domainkunden.de/vk/?20
>
>
> | Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
> | [aspdebeginners] als [EMAIL PROTECTED] subscribed
> | http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
> | Sie knnen sich unter folgender URL an- und abmelden:
> | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
>


| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp

Antwort per Email an