Hallo Zusammen
Ich habe folgendes Problem:
Wen ich auf meiner Asp-Sete ein update Querry abschicke bekomme ich immer folgenden Fehler:
Ich kann es mir nicht erklären, denn es funktioniert einwandfrei auf einer anderen Seite
(dies ist eine 1:1 Kopie! )
Hier mal das Codschnipsel:
Ich kann garantieren das rs21 und rs22 foll funktions fähig sind da ich sie auch schon ausgegeben habe.
Herzlichen Dank
Belliger
Ich habe folgendes Problem:
Wen ich auf meiner Asp-Sete ein update Querry abschicke bekomme ich immer folgenden Fehler:
Code:
Microsoft OLE DB Provider for SQL Server error '80040e31'
Timeout expired
(dies ist eine 1:1 Kopie! )
Hier mal das Codschnipsel:
Ich kann garantieren das rs21 und rs22 foll funktions fähig sind da ich sie auch schon ausgegeben habe.
Code:
dim Wert
if not rs21.eof then
if rs21("Verkaufsbeleg") <> Konr1 then
'Response.Write(helfer1 & "<br>")
'Response.Write(helfer2 & "<br>")
set rs22 = objDBConnection.Execute(GetSQL22(rs21("Verkaufsbeleg"), helfer1, helfer2))
Wert = 0
BelegSaver = ""
while not rs22.eof
if not rs22("Belegnr") = BelegSaver then
Wert = Wert + cint(rs22("Mengeerfasstgesamt"))
BelegSaver = rs22("Belegnr")
end if
rs22.movenext
wend
Konr1 = rs21("Verkaufsbeleg")
end if
Response.Write("UPDATE tbl_WVC_Vertragsdaten SET IstWartung = '" & Cstr(Wert) & "' WHERE (Verkaufsbeleg = '" & rs21("Verkaufsbeleg") & "')<br>")
objDBConnection.Execute("UPDATE tbl_WVC_Vertragsdaten SET IstWartung = '" & Cstr(Wert) & "' WHERE (Verkaufsbeleg = '" & rs21("Verkaufsbeleg") & "')")
end if
Herzlichen Dank
Belliger