Heyho wiedermal…
Ich bin mir nid ganz sicher, aber ich glaube ich habe den Fehler gefunden.
Also…machen wir mal einwenig Code-Ghetto hier 
Ein Ausschnitt aus Deinem Code.
(’… steht für Code, der noch dazwischen steht.)
"" then
'...
set Database = Server.CreateObject ("ADODB.Connection")
set Recordset = Server.CreateObject ("ADODB.Recordset")
Database.open ODBCName
Recordset.open SQLAbfrage , Database, adOpenStatic
'...
else
'...
end if
'...
Wenn Du nun nur diesen Teilabschnitt anschaust, wirst Du feststellen, dass Die Datenbank NUR geöffnet wird, wenn Suchstring „“ ist. Dies bedeutet, dass die Datenbank NICHT geöffnet wird, falls KEIN Suchstring übergeben wurde…
Nach der If…then Schlaufe schliesst Du nun aber die Datenbank. Folgendes kann eintreten:
FALL 1:
Suchstring „“, die Datenbank wird geöffnet und nach der Schlaufe geschlosen.
FALL 2:
Suchstring = „“, die Datenbank wird nicht geöffnet und nach der Schlaufe aber geschlossen.
Hmmmm… *leichtesgrinsen* Versuch mal eine geschlossene Colaflasche zu schliessen - und auch Du wirst fluchen bzw. einen Error ausgeben *g*
Ich will Dich nid auslachen - solche Fehler passieren mir andauernd und ich habe jetzt ne ganze Weile gebraucht bis ich das rausgefunden habe
Ich konnte natürlich das File nicht komplett testen, aber ich denke folgender Code sollte funktionieren:
> Test einer Datenbankanbindung mit
> Access
>
>
>
>
>
> Test einer Datenbankanbindung mit Access
>
> "" then
> ' \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
> ' SQL-String generieren
> ' \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
> SuchFeld = Request.Form ("Suchbegriff")
> SuchText = Ersetze\_Alle (Request.Form("Suchstring"), "'",
> chr(34))
> if Request.Form ("Enthalten") = "ON" then
> SQLAbfrage = "SELECT \* FROM "&Tabelle&" WHERE " + SuchFeld
> + " LIKE '%" + SuchText + "%' ORDER BY " + SuchFeld + ", " +
> Sortierung
> else
> SQLAbfrage ="SELECT \* FROM "&Tabelle&" WHERE left(" +
> SuchFeld + " ,LEN('" + SuchText + "')) = '" + SuchText + "'
> ORDER BY " + SuchFeld + ", " + Sortierung
> end if
> if Request.Form ("Suchstring") = "\*" then
> SQLAbFrage = "SELECT \* FROM "&Tabelle&" ORDER BY " +
> Sortierung
> end if
> ' \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
> ' Verbindung mit der Datenbank herstellen
> ' \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
> set Database = Server.CreateObject ("ADODB.Connection")
> set Recordset = Server.CreateObject ("ADODB.Recordset")
> Database.open ODBCName
> Recordset.open SQLAbfrage , Database, adOpenStatic
> ' \*\*\*\*\* PRUEFEN OB DATEN VORHANDEN \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
> if Recordset.RecordCount Keine Eintraege
> gefunden.")
> else
> Zeige\_Datenbank = 1
> AnzahlDatensaetze = Recordset.RecordCount
>
> ' \*\*\*\*\* DATENSATZ ERMITTELN \*\*\*\*\*\*\*\*\*\*\*\*
> if trim(Request.Form("db\_nr")) = "" then
> db\_nr = 0
> else
> db\_nr = trim(Request.Form ("db\_nr"))
> end if
>
> ' \*\*\*\*\* AKTION ERMITTELN \*\*\*\*\*\*\*\*\*\*\*\*\*
> if trim(request.QueryString("Nav")) = "" then
> DS\_Nav = "ANFANG"
> else
> DS\_Nav = ucase(trim(request.QueryString("Nav")))
> end if
>
> ' \*\*\*\*\* NÄCHSTEN DATENSATZ ERMITTELN if DS\_Nav = "ZURUECK"
> then
> db\_nr = db\_nr - 1
> elseif DS\_Nav = "WEITER" then
> db\_nr = db\_nr + 1
> elseif DS\_Nav = "ENDE" then
> db\_nr = Recordset.RecordCount -1
> else
> db\_nr = 0
> end if
>
> ' \*\*\*\*\* UEBERPRUEFUNG OB db\_nr IM GUELTIGEN BEREICH \*\*
> if db\_nr Recordset.RecordCount -1 then db\_nr =
> Recordset.RecordCount -1
>
> ' \*\*\*\*\* ZUM RICHTIGEN DATENSATZ SPRINGEN \*\*\*\*\*\*\*\*
> Recordset.Move db\_nr, 0
> end if
> else
> ' \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
> ' Keine Parameter angegeben
> ' \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
> Response.Write ("Bitte Suchkriterien
> angeben.")
> Zeige\_Datenbank = 0
> end if
> %\>
>
>
>
> Einträge gefunden:
>
>
>
>
>
>
>
> Kunden-Code:
>
>
>
> Firma:
>
>
>
> Kontaktperson:
>
>
>
>
>
>
>
>
>
>
> "\>
>
>
>
>
>
> ...
Ich hoffe, dass ich Dir weiterhelfen konnte…
Viele Grüsse
Christian
