Supportnet Computer
Planet of Tech

Supportnet / Forum / Skripte(PHP,ASP,Perl...)

ASP Abfrage extrem langsam geworden





Frage

Hi Leute, ich habe hier ein Script das bisher immer prima lief. Plötzlich dauern die Anfragen ziemlich lang(bis zu 60 sec), obwohl die Accessdatenbank gerademal 2MB hat. Vielleicht hat jemand ne Idee. hier der ASP-Code Danke im vorraus..... <html> <head> </head> <body style="padding-left: 35; padding-right: 35"> <p><img border="0" src="../bilder/ueberschrift_telefonbuch.gif" width="400" height="100"></p> <% 'Datenbank öffnen strConnection = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" strConnection = strConnection & Server.MapPath("mdb/db2_2000.mdb") strConnection = strConnection & ";DriverId=25;FIL=MS Access;MaxBufferSize=4096;PageTimeout=10;" Set db = Server.CreateObject("ADODB.Connection") db.Open strConnection SQL = "SELECT Amt.Amt, Telefonliste.Name, Telefonliste.Vorname, Telefonliste.Standort, Telefonliste.Telefon, Telefonliste.Zimmer, Amt.Amtsnummer FROM Amt INNER JOIN Telefonliste ON Amt.AmtID = Telefonliste.AmtID WHERE Telefonliste.Name like '"&Request.QueryString("suche")&"%'or Telefonliste.Vorname like '"&Request.QueryString("suche")&"%'or Telefonliste.Telefon like '"&Request.QueryString("suche")&"%'or Amt.Amt like '"&Request.QueryString("suche")&"%'or Telefonliste.Zimmer like '"&Request.QueryString("suche")&"%'or Telefonliste.standort like '"&Request.QueryString("suche")&"%'or Amt.Amtsnummer like '"&Request.QueryString("suche")&"%' ORDER by "&Request.QueryString("b") set rs = db.Execute(sql) %> <p align="left"><font face="Arial"><a href="telefonbuch.html"><b>neue Suche<br> </b></a> </font></p> <div align="left"> <table border="1" cellspacing="1" width="90%"> <tr> <td width="163" height="25" align="left" bgcolor="#C0C0C0" valign="top"><font face="Arial" size="3"><b>Nachname</b></font></td> <td width="123" height="25" align="left" bgcolor="#C0C0C0" valign="top"><font face="Arial" size="3"><b>Vorname</b></font></td> <td width="212" height="25" align="left" bgcolor="#C0C0C0" valign="top"><font face="Arial" size="3"><b>Fachamt</b></font></td> <td width="91" height="25" align="left" bgcolor="#C0C0C0" valign="top"><font face="Arial" size="3"><b>Dienstort</b></font></td> <td width="99" height="25" align="left" bgcolor="#C0C0C0" valign="top"><font face="Arial" size="3"><b>Zimmer</b></font></td> <td width="89" height="25" align="left" bgcolor="#C0C0C0" valign="top"><font face="Arial" size="3"><b>Tel.</b></font></td> </tr> <% If Not rs.eof Then do while Not rs.eof %> <tr> <td width="163" height="25" align="left" valign="top"><font face="Arial"><%response.Write rs.Fields("Name")%></font></td> <td width="123" height="25" align="left" valign="top"><font face="Arial"><%response.Write rs.Fields("Vorname")%></font></td> <td width="212" height="25" align="left" valign="top"><font face="Arial"><p align="left"><%response.Write rs.Fields("Amt")%></font></td> <center> <td width="91" height="25" align="left" valign="top"><font face="Arial"><%response.Write rs.Fields("Standort")%></font></td> <td width="99" height="25" align="left" valign="top"><font face="Arial"><%response.Write rs.Fields("Zimmer")%></font></td> <td width="89" height="25" align="left" valign="top"><font face="Arial"><%response.Write rs.Fields("Telefon")%></font></td> <% rs.MoveNext loop else Response.Write "<p>Es wurde leider keine Übereinstimmung für den Suchbegriff - <font color=#FF0000>"&Request.QueryString("suche")&"</font> - gefunden!</p> " End If rs.Close db.Close %> </table> </center> </div> <p> </p> </body>

Antwort 1 von Cloud_X

Wenn es bisher gut gelaufen ist, dann liegt es nicht am code. Zudem bei Deinem auch so alles i.O. ist!
Evtl. kannst Du es beim schliessen der Verbindungen usw. noch folgendes einfügen:
<%
    rs.Close 
Set rs = Nothing
    db.Close
Set db = Nothing
%>


An der Access DB wird es auch nicht liegen...nicht bei der größe. Du kannst Sie aber mal vorsichsthalber komprimieren/reparieren.

Wird die Sache im Intranet bereitgestellt? Wenn ja dann resette doch mal den IIS, nur so eine Idee...

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: