@julia_bshg

Hallo to all,

I gave this errors

//ADODB.Connection error '800a0e78'

//The operation requested by the application is not allowed if the object is closed.

May be, can somebody say what is a problem.
Thanks

0

Spika

Show your code.

@julia_bshg

Here is
I get always by 50 or more executions (!!!!) the result 'Keine Überschrift in der Datenbank'
It means that the objRS by 50 or more executions is empty.
If I examine the objConn.State I'll get that the Connection is closed.

Why does the programm close the connection by 50 or more execution(!!!!) ????

//
function Translate_RS(Tabelle,Uberschrift)
on error resume next
if open() then
set objRS = Server.CreateObject('ADODB.RecordSet')
objRS.open TranslateSQL(Tabelle,PageDefinition(Sprache),Ubers chrift), objConn, adOpenStatic

if objRS.BOF and objRS.EOF then

if objConn.State=adStateOpen then
else
response.write objRS.fields(PageDefinition(Sprache))
end if

Translate_RS='Keine Überschrift in der Datenbank'
else
Translate_RS=objRS.fields(PageDefinition(Sprache))
if Translate_RS='N/A' then
RS_Close(objRS)
set objRS = Server.CreateObject('ADODB.RecordSet')
objRS.open TranslateSQL(Tabelle,'en',Uberschrift), objConn, adOpenStatic
Translate_RS=objRS.fields('en')
end if
end if
end if

if Err.Number <> 0 then
for each errorfield in objConnection.Errors

echo '<b>Fehler</b>: ' & errorfield.Description & ' (' & hex(errorfield.Number) & ')
'
echo '<b>Quelle</b>: ' & errorfield.Source & '
'
echo '<b>Quelle</b>: ' & errorfield.NativeError & '
'
echo '<b>String</b>: <code>' & TranslateSQL(Tabelle,PageDefinition(Sprache),Ubers chrift) & '</code><p>'
next
end if

RS_Close(objRS)
end function
//

0