[aspdebeginners] =?iso-8859-1?Q?Re:_=5Baspdebeginners=5D_Re:_=5Baspdebeginners=5D_Re?==?iso-8859-1?Q?:_=5Baspdebeginners=5D_Forum_-_Alles_auf_einmal_l=F6sche?==?iso-8859-1?Q?n=3F?=

Tue, 19 Feb 2002 13:48:28 -0800 

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

Antwort per Email an