Laaangsommm visning af script i localhost!

Ligger din SQL DB også lokalt?

ja..

okay så lyder det jo mærkeligt... Har nemlig været ude for at hvis man kører op mod en db som ligger eksternt så går det langsomt.

For du overhovedet noget ud på siden eller for du en timeout?

Jeg får 2/3 af det skrevet ud, og så kommer er timeout!

Jeg bruger MySQL-Front til at lave db'en i, men det har vel ikke rigtig noget at sige!

Nej det tror jeg ikke - check dit script godt igennem - tror der er nogle løkker som den ikke kan blive færdig med.

F.eks. vis man har glemt et recordset.movenext når man løber recordsets igennem.

:-)

Her er scriptet som tager vildt lang tid!!

<%
Dim strConnect, Conn

'Åbner connection
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConString 
sql = "SELECT * FROM Kategori"
Set objRec = Server.CreateObject("ADODB.Recordset")
objRec.open sql, Conn

int_count = 0

%>
<table width="520" border="0" cellspacing="0" cellpadding="0">
  <% While NOT objRec.EOF
 
Set Conn2 = Server.CreateObject("ADODB.Connection")
Conn2.Open ConString 
sql2 = "SELECT * FROM U_Katagori WHERE u_kategoriId = " & objRec("kategoriId")
Set objRec2 = Server.CreateObject("ADODB.Recordset")
objRec2.open sql2, Conn2

    If int_count = 0 Then
        Response.Write "<tr>"
    End If
  %>
    <td>   
                                          <table width="260" border="0" cellspacing="0" cellpadding="0">
                                            <tr>
                                              <td rowspan="2" width="5" valign="top"></td>
                                              <td rowspan="2" width="59" valign="top">
                                                <%=("<table width=""55"" height=""55"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td background='billeder/upload/forside/"& objRec("kategoriPic") & "' width=""51"" height=""51""><table width=""55"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td rowspan=""4"" width=""2"" class=""hvid""></td><td colspan=""2"" height=""2"" class=""hvid""></td><td rowspan=""2"" width=""2"" class=""hvid""></td></tr><tr><td height=""36"" width=""36""></td><td width=""17""></td></tr><tr> <td height=""17""></td><td colspan=""2"" rowspan=""2"" background='billeder/site/forside_transperant.gif' height=""19"" width=""19""></td></tr><tr><td height=""2"" class=""hvid""></td></tr></table></td></tr></table>")%>
                                              </td>
                                              <td rowspan="2" width="9" valign="top"></td>
                                              <td valign="top" class="overskrift_forside"><%=("<a onfocus=""this.blur()"" href=""kategori_all.asp?id=" & objRec("kategoriId") & """>" & objRec("kategoriNavn") & "</a>")%>&nbsp;<span class="hovedtekst_graa">[12]</span></td>
                                            </tr>
                                            <tr>
                                              <td width="191" valign="top" class="hovedtekst">
                                                <%
  Lobs = 8 ' her kan du skrive det antal gange den skal loope

  For X = 1 To Int(Lobs)
    If NOT objRec2.EOF Then
      Response.Write "<a onfocus=""this.blur()"" href=""se_denne_side.asp?kategori=" & objRec2("Id") & """>" & objRec2("u_kategoriNavn") & "</a>"

      objRec2.movenext
 
      'Tilføj denne linje, så der ikke tilføjes "..." eller "," hvis dette var den sidste post
      If objRec2.EOF Then Exit For

      If X < Int(Lobs) Then
        Response.Write ", "
      Else
        Response.Write "..."
      End If
    End If
  Next
%>

Du benytter en WHILE løkke som ikke er afsluttet.

Husk WEND til sidst

Rasmus :-)

For ikke at snakke om, at du inden i loopet danner nye instanser af
Conn2 = Server.CreateObject("ADODB.Connection")
og
Set objRec2 = Server.CreateObject("ADODB.Recordset")

Og dem får du ikke nedlagt igen !??!

I må begge undskylde, men jeg havde ikke fået hele scriptet med, her er det sidste af scriptet, og så løses begge jeres problemstillinger:

Her skal det første af scriptet stå:

Dette er det nye, nedenfor:
  <%
    If int_count = 1 Then
        Response.Write "</tr>"
        int_count = 0
    Else
        int_count = 1
    End If
   
objRec.MoveNext()
   
Wend
%>
    </table>
<%
objRec.close
Conn.Close
'Set Conn = Nothing
objRec2.close
Conn2.Close
'Set Conn2 = Nothing
%>

Kan det være noget i mine opstillinger på computeren?

Nej, det løser det ikke helt.
Du nedlægger dine objekter udenfor løkken.
Men du danner dem inde i løkken.
Prøv at flytte de sidste linier ind i løkken - og lad være at udkommentere Set conn2=nothing og husk lige at sette objrec=notthing også - igen inde i løkken.

ok

Nu har jeg flyttet rundt på det, så det nederste af scriptet ser sådan her ud - men den er stadig MEGET tung af loade!


Else
        Response.Write "..."
      End If
    End If
  Next
  objRec2.close
Conn2.Close
Set Conn2 = Nothing

%>
                                              </td>
                                            </tr>
                                            <tr>
                                              <td height="15"></td>
                                            </tr>
                                          </table>
    </td>
  <%
    If int_count = 1 Then
        Response.Write "</tr>"
        int_count = 0
    Else
        int_count = 1
    End If
   
objRec.MoveNext()
   
Wend
%>
    </table>
<%
objRec.close
Conn.Close
Set Conn = Nothing
%>

Jeg har tidligere haft meget hjælp af disse artikler når jeg optimeret.

http://activedeveloper.dk/aspdigital/2001090701.asp
http://activedeveloper.dk/aspdigital/special/asptips.asp

Især den først har jeg brugt meget - så kan du nemlig se hvad det er der tager lang tid på din side - og så fokusere på det område at optimere.

Rasmus :-)

Og den her glemte jeg !!

http://activedeveloper.dk/julekalender/julegaver/performance.asp

Rasmus :-)

Jeg har lige fået denne tid:

Eksekveringstid: 0 minutes 54 seconds 698 milliseconds

ja det jo ik så godt - prøv at sætte nogel flere tidstjek ind f.eks. i løkken !

Så kan du se hvorlang tid et enkelt gennemløb tager

Rasmus :-)

Jeg har fundet ud af hvor det er den tager så lang tid:

Jeg har en Overskrift der hedder Kategori som ligger i en tabel. Så har jeg en masse underkategorier, som ligger i en anden tabel, hvor underkategoriens id passer sammen med overskriftens kategori:

Håber du forstår ;-)

Underkategorierne bliver skrevet hurtigt ud, men problemet ligger ved Kategorien (overskrift) det tager sindsygt lang tid!

Første overskrift: Eksekveringstid: 0 minutes 8 seconds 592 milliseconds
Anden overskrift: Eksekveringstid: 0 minutes 11 seconds 907 milliseconds
3. overskrift: Eksekveringstid: 0 minutes 14 seconds 721 milliseconds

12. overskrift: Eksekveringstid: 0 minutes 38 seconds 875 milliseconds

men jeg ved ikke helt hvad jeg skal gøre ved det, gør I ?

Det er lidt underligt syntes jeg, for når jeg tester de for skellige overskrifter og underoverskrifter hver for sig, så går det meget hurtigt at skrive det ud, men når jeg så tager hele scriptet på en gang, så går det utroligt langsomt...

Hvad kan det være ??

Jeg lukke da jeg ikke er kommet nærmere en løsning!