Avatar billede d797fni Nybegynder
22. marts 2001 - 17:06 Der er 11 kommentarer og
1 løsning

Optimering af side

Denne side hentes for langsomt.

Jeg ved ikke hvad der gør det. Har set lidt på nogle artikler med speedtips, men kan ikke overskue det.

http://www.trippendales.dk/test/vis_bodekasse.asp?vis=alle
Avatar billede d797fni Nybegynder
22. marts 2001 - 17:06 #1
<%@ enablesessionstate=false %>
<%response.buffer=true%>


<html>

<head>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">
<meta name=\"GENERATOR\" content=\"Microsoft FrontPage 4.0\">
<meta name=\"ProgId\" content=\"FrontPage.Editor.Document\">
<title>Ny side 1</title>
<style type=\"text/css\">
<!--
    A:link {text-decoration: none; color: #0000A0;}
    A:visited {text-decoration: none; color: #0000A0;}
    A:active {text-decoration: none; color: #000000;}
    A:hover {text-decoration: none; color: #000000;}
-->   
</style>

</head>

<body background=\"grafik/tn_512_gif.jpg\">


<p align=\"center\"><font size=\"7\" color=\"#000080\">Trippendales Bødekasse</font></p><br><br>
<%

\' VISER ALLE I BØDEKASSEN
if Request.QueryString(\"vis\")=\"alle\" then
   
           
%>
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\">
  <tr>
    <th width=\"15%\"><u>Spillere:</u></th>
    <th width=\"6%\" align=\"right\">
      <p align=\"right\"><u>100 %</u></p>
    </th>
    <th width=\"7%\" align=\"right\">
      <p align=\"right\"><u>Drop</u></p>
    </th>
    <th width=\"7%\" align=\"right\">
      <p align=\"right\"><u>For sent</u></p>
    </th>
    <th width=\"8%\" align=\"right\"><u>Rødt kort</u></th>
    <th width=\"8%\" align=\"right\"><u>Gult kort</u></th>
    <th width=\"7%\" align=\"right\">
      <p align=\"center\"><u>Diverse</u></p>
    </th>
    <th width=\"7%\" align=\"right\"><u>Mål imod</u></th>
    <th width=\"7%\" align=\"center\">
      <p align=\"right\"><u>I alt</u></p>
    </th>
    <th width=\"7%\" align=\"center\">
      <p align=\"right\"><u>Betalt</u></p>
    </th>
    <th width=\"8%\" align=\"center\">
      <p align=\"right\"><u>Skylder</u></p>
    </th>
  </tr>
 
  <tr>
    <th width=\"15%\">&nbsp;</th>
    <th width=\"6%\" align=\"right\"></th>
    <th width=\"7%\" align=\"right\"></th>
    <th width=\"7%\" align=\"right\"></th>
    <th width=\"8%\" align=\"right\"></th>
    <th width=\"8%\" align=\"right\"></th>
    <th width=\"7%\" align=\"right\"></th>
    <th width=\"7%\" align=\"right\"></th>
    <th width=\"7%\" align=\"center\"></th>
    <th width=\"7%\" align=\"center\"></th>
    <th width=\"8%\" align=\"center\"></th>
  </tr>

  <%
set DB = Server.CreateObject(\"ADODB.Connection\")
      DB.open \"Driver={Microsoft Access Driver (*.mdb)};\"&_
      \"DBQ=\"&server.mappath(\"trippendales.mdb\")&\";\"&_
      \"DefaultDir=\"&server.mappath(\"./\")&\";FIL=MS Access;\"

        SQL5 = \"Select count(*) as Antal from fct\"
            Set RS5 = DB.Execute(SQL5)
            b=RS5(\"Antal\")


samlet=0
  for x=1 to b
        maal=0
        deltager=0
        int100=0
        drop=0
        sent=0
        div=0
        ialt=0
        rodt=0
        gult=0
        maal_imod=0
        for y=1 to 22
            SQL=\"Select * From runde\"&y&\"_1 Where id=\"&x
            set RS = DB.execute(SQL)
            if not RS.eof then
                maal=RS(\"maal\")+maal
                deltager=deltager+1
                int100=RS(\"100\")+int100
                drop=RS(\"Drop\")+drop
                sent=RS(\"sent\")*RS(\"sent\")*3+sent
                rodt=RS(\"rodt\")*50+rodt
                gult=RS(\"gult\")*20+gult
                div=RS(\"div\")+div
                ialt=RS(\"ialt\")+ialt
                maal_imod=RS(\"maal_imod\")+maal_imod
            end if
            RS.Close
            Set RS = Nothing

           
            SQL11=\"Select * From runde\"&y&\"_2 Where id=\"&x
            set RS11 = DB.execute(SQL11)
            if not RS11.eof then
                maal=RS11(\"maal\")+maal
                int100=RS11(\"100\")+int100
                drop=RS11(\"Drop\")+drop
                sent=RS11(\"sent\")*RS11(\"sent\")*3+sent
                rodt=RS11(\"rodt\")*50+rodt
                gult=RS11(\"gult\")*20+gult
                div=RS11(\"div\")+div
                ialt=RS11(\"ialt\")+ialt
                maal_imod=RS11(\"maal_imod\")+maal_imod
            end if
            RS11.Close
            Set RS11 = Nothing

           


            SQL1 = \"SELECT * FROM fct where id=\"&x
            Set RS1 = DB.Execute(SQL1)
           
            SQL10 = \"SELECT * FROM skylder where id=\"&x
            Set RS10 = DB.Execute(SQL10)
            if RS10.eof then
                betalt=0
            else
                betalt=RS10(\"betalt\")
            end if
            RS10.Close
            Set RS10 = Nothing

        next
       
        SQL12=\"Select * From runde_traen where id=\"&x
        set RS12= DB.execute(SQL12)
        do while not RS12.eof
            maal=RS12(\"maal\")+maal
            int100=RS12(\"100\")+int100
            drop=RS12(\"Drop\")+drop
            sent=RS12(\"sent\")*RS12(\"sent\")*3+sent
            rodt=RS12(\"rodt\")*50+rodt
            gult=RS12(\"gult\")*20+gult
            div=RS12(\"div\")+div
            ialt=RS12(\"ialt\")+ialt
            maal_imod=RS12(\"maal_imod\")+maal_imod
        RS12.movenext
        loop
        RS12.Close
        Set RS12 = Nothing

        samlet=ialt+samlet
  %>
  <tr>
    <td width=\"15%\"><a href=\"vis_bodekasse.asp?vis=spiller&id=<%=x%>\"><font size=\"2\"><%=RS1(\"navn\")%></font></a></td>
    <td width=\"6%\" align=\"right\">
      <p align=\"right\"><font size=\"2\"><%=int100*10%>  kr.</font></td>
    <td width=\"7%\" align=\"right\">
      <p align=\"right\"><font size=\"2\"><%=drop*10%>  kr.</font></td>
    <td width=\"7%\" align=\"right\">
      <p align=\"right\"><font size=\"2\"><%=sent%>  kr.</font></td>
    <td width=\"8%\" align=\"right\">
      <p align=\"right\"><font size=\"2\"><%=rodt%>  kr.</font></td>
    <td width=\"8%\" align=\"right\"><p align=\"right\"><font size=\"2\"><%=gult%>  kr.</font>
      </td>
    <td width=\"7%\" align=\"right\">
      <p align=\"right\"><font size=\"2\"><%=div%>  kr.</font>
  </td>
    <td width=\"7%\" align=\"right\">
      <p align=\"right\"><font size=\"2\"><%=maal_imod*3%>  kr.</font>
  </td>
    <td width=\"7%\" align=\"right\"><font size=\"2\"><b><%=ialt%></b></font>
  </td>
    <td width=\"7%\" align=\"right\">
  <font size=\"2\">
  <%=betalt%>
  </font>
  </td>
    <td width=\"8%\" align=\"right\"><font size=\"2\"><%=ialt-betalt%>
      </font>
  </td>
  </tr>
  <%next%>
  <tr>
    <td width=\"15%\">&nbsp;</td>
    <td width=\"6%\">
    </td>
    <td width=\"7%\">
    </td>
    <td width=\"7%\">
    </td>
    <td width=\"8%\">
    </td>
    <td width=\"8%\">
      </td>
    <td width=\"7%\">
  </td>
    <td width=\"7%\">
  </td>
    <td width=\"7%\" align=\"center\">
  </td>
    <td width=\"7%\" align=\"center\">
  </td>
    <td width=\"8%\" align=\"center\">
  </td>
  </tr>
  <tr>
    <td width=\"15%\"></td>
    <td width=\"6%\">
    </td>
    <td width=\"7%\">
    </td>
    <td width=\"7%\">
    </td>
    <td width=\"8%\">
    </td>
    <td width=\"8%\">
      </td>
    <td width=\"7%\">
  </td>
    <td width=\"7%\">
  </td>
    <td width=\"7%\" align=\"center\" style=\"border-bottom-style: double; border-bottom-color: #000000\">
      <p align=\"right\"><%=samlet%>
  </td>
    <td width=\"7%\" align=\"center\">
  </td>
    <td width=\"8%\" align=\"center\">
  </td>
  </tr>
  </table>
  <br><br>
<%
end if

\' VIS ALLE SLUT


\' VISER DEN ENKELTE SPILLER

if Request.QueryString(\"vis\")=\"spiller\" then

id=Request.QueryString(\"id\")

SQL2 = \"SELECT * FROM fct where id=\"&id
            Set RS2 = DB.Execute(SQL2)


%>


<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\">
  <tr>
    <th width=\"25%\">
      <p align=\"left\">Navn: <font color=\"red\"><%=RS2(\"navn\")%></font></p>
    </th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
  </tr>
 
  <tr>
    <th width=\"25%\">
      &nbsp;&nbsp;
    </th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
  </tr>
 
  <tr>
    <th width=\"25%\">
      <p align=\"left\">
    </th>
    <th width=\"8%\"></th>
    <th width=\"8%\" style=\"border-bottom: 1 solid #000000\"></th>
    <th width=\"16%\" colspan=\"2\" style=\"border-bottom: 1 solid #000000\"><font size=\"4\">1.&nbsp;
      holdet</font></th>
    <th width=\"8%\" style=\"border-bottom: 1 solid #000000\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
  </tr>
 
  <tr>
    <th width=\"25%\">
      <p align=\"left\">Kamp:</p>
    </th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
  </tr>
 
  <tr>
    <th width=\"25%\"></td>
    <th width=\"8%\"><font size=\"2\">Mål</font></th>
    <th width=\"8%\"><font size=\"2\">100 %</font></th>
    <th width=\"8%\"><font size=\"2\">Drop</font></th>
    <th width=\"8%\"><font size=\"2\">For sent</font></th>
    <th width=\"8%\"><font size=\"2\">Rødt kort</font></th>
    <th width=\"8%\"><font size=\"2\">Gult kort</font></th>
    <th width=\"8%\"><font size=\"2\">Diverse</font></th>
    <th width=\"8%\"><font size=\"2\">Mål imod</font></th>
    <th width=\"8%\"><font size=\"2\">I alt</font></th>
  </tr>
 
 
  <tr>
    <th width=\"25%\"><font size=\"2\">&nbsp;</font>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
  </tr>
  <%
  intIalt=0
  for r=1 to 2
 
              SQL=\"Select * From runde\"&r&\"_1 Where id=\"&id
            set RS = DB.execute(SQL)
            if not RS.eof then
               
            SQL1 =\"Select * From kampe1 where id=\"&r
            set RS1 = DB.execute(SQL1)
  %>
  <tr>
    <td width=\"25%\"><font size=\"2\"><%=RS1(\"hjemme\")%> - <%=RS1(\"ude\")%>    (<%=RS1(\"hj_res\")%>-<%=RS1(\"ude_res\")%>)</font></td>
    <td width=\"8%\" align=\"center\"><font size=\"2\"><%=RS(\"maal\")%></font></td>
    <td width=\"8%\" align=\"center\"><font size=\"2\"><%=RS(\"100\")%></font></td>
    <td width=\"8%\" align=\"center\"><font size=\"2\"><%=RS(\"Drop\")%></font></td>
    <td width=\"8%\" align=\"center\"><font size=\"2\"><%
    if RS(\"sent\") = 1 then
        response.write(\"1-5 minutter\")
    elseif RS(\"sent\")=2 then
        response.write(\"6-10 minutter\")
    elseif RS(\"sent\")=3 then
        response.write(\"11-15 minutter\")
    elseif RS(\"sent\")=4 then
        response.write(\"15-30 minutter\")
    elseif RS(\"sent\")=5 then
        response.write(\"30- minutter\")
    else
    response.write(\"-\")
    end if
    %>
      </font>
    </td>
    <td width=\"8%\" align=\"center\">
    <font size=\"2\">
    <%
    if RS(\"rodt\") = 1 then
        response.write(\"Normalt\")
    elseif RS(\"rodt\") = 2 then
        response.write(\"Groft\")
    else
    response.write(\"-\")
    end if
    %>
    </font>
    </td>
    <td width=\"8%\" align=\"center\">
    <font size=\"2\">
    <%
    if RS(\"gult\") = 1 then
        response.write(\"Normalt\")
    elseif RS(\"gult\") = 2 then
        response.write(\"Groft\")
    else
    response.write(\"-\")
    end if
    %>
    </font>
</td>
    <td width=\"8%\" align=\"center\"><font size=\"2\"><%=RS(\"div\")%> kr.</font></td>
    <td width=\"8%\" align=\"center\"><font size=\"2\"><%=RS(\"maal_imod\")%></font></td>
    <td width=\"8%\" align=\"center\"><font size=\"2\"><%=RS(\"ialt\")%>
      </font>
    <%
    intIalt=RS(\"ialt\")+intIalt
    %></td>
  </tr>
 
   
  <%
  end if
  next
 
  %>
  <tr>
    <td width=\"25%\">&nbsp;</td>
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
  </tr>
  <tr>
    <td width=\"25%\">&nbsp;</td>
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
  </tr>
 
  <tr>
    <td width=\"25%\">&nbsp;</td>
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
  </tr>
  <tr>
    <th width=\"25%\">
      <p align=\"left\">
    </th>
    <th width=\"8%\"></th>
    <th width=\"8%\" style=\"border-bottom: 1 solid #000000\"></th>
    <th width=\"16%\" colspan=\"2\" style=\"border-bottom: 1 solid #000000\"><font size=\"4\">2.&nbsp;
      holdet</font></th>
    <th width=\"8%\" style=\"border-bottom: 1 solid #000000\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
  </tr>
 
  <tr>
    <th width=\"25%\">
      <p align=\"left\">Kamp:</p>
    </th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
  </tr>
 
  <tr>
    <th width=\"25%\"></td>
    <th width=\"8%\"><font size=\"2\">Mål</font></th>
    <th width=\"8%\"><font size=\"2\">100 %</font></th>
    <th width=\"8%\"><font size=\"2\">Drop</font></th>
    <th width=\"8%\"><font size=\"2\">For sent</font></th>
    <th width=\"8%\"><font size=\"2\">Rødt kort</font></th>
    <th width=\"8%\"><font size=\"2\">Gult kort</font></th>
    <th width=\"8%\"><font size=\"2\">Diverse</font></th>
    <th width=\"8%\"><font size=\"2\">Mål imod</font></th>
    <th width=\"8%\"><font size=\"2\">I alt</font></th>
  </tr>
 
 
  <tr>
    <th width=\"25%\"><font size=\"2\">&nbsp;</font>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
  </tr>
  <%

  for r=1 to 2
 
              SQL2=\"Select * From runde\"&r&\"_2 Where id=\"&id
            set RS2 = DB.execute(SQL2)
            if not RS2.eof then
               
            SQL3 =\"Select * From kampe2 where id=\"&r
            set RS3 = DB.execute(SQL3)
  %>
  <tr>
    <td width=\"25%\"><font size=\"2\"><%=RS3(\"hjemme\")%> - <%=RS3(\"ude\")%>    (<%=RS3(\"hj_res\")%>-<%=RS3(\"ude_res\")%>)</font></td>
    <td width=\"8%\" align=\"center\"><font size=\"2\"><%=RS2(\"maal\")%></font></td>
    <td width=\"8%\" align=\"center\"><font size=\"2\"><%=RS2(\"100\")%></font></td>
    <td width=\"8%\" align=\"center\"><font size=\"2\"><%=RS2(\"Drop\")%></font></td>
    <td width=\"8%\" align=\"center\"><font size=\"2\"><%
    if RS2(\"sent\") = 1 then
        response.write(\"1-5 minutter\")
    elseif RS2(\"sent\")=2 then
        response.write(\"6-10 minutter\")
    elseif RS2(\"sent\")=3 then
        response.write(\"11-15 minutter\")
    elseif RS2(\"sent\")=4 then
        response.write(\"15-30 minutter\")
    elseif RS2(\"sent\")=5 then
        response.write(\"30- minutter\")
    else
    response.write(\"-\")
    end if
    %>
      </font>
    </td>
    <td width=\"8%\" align=\"center\">
    <font size=\"2\">
    <%
    if RS2(\"rodt\") = 1 then
        response.write(\"Normalt\")
    elseif RS2(\"rodt\") = 2 then
        response.write(\"Groft\")
    else
    response.write(\"-\")
    end if
    %>
    </font>
    </td>
    <td width=\"8%\" align=\"center\">
    <font size=\"2\">
    <%
    if RS2(\"gult\") = 1 then
        response.write(\"Normalt\")
    elseif RS2(\"gult\") = 2 then
        response.write(\"Groft\")
    else
    response.write(\"-\")
    end if
    %>
    </font>
</td>
    <td width=\"8%\" align=\"center\"><font size=\"2\"><%=RS2(\"div\")%> kr.</font></td>
    <td width=\"8%\" align=\"center\"><font size=\"2\"><%=RS2(\"maal_imod\")%></font></td>
    <td width=\"8%\" align=\"center\"><font size=\"2\"><%=RS2(\"ialt\")%>
      </font>
    <%
    intIalt=RS2(\"ialt\")+intIalt
    %></td>
  </tr>
  <%
  end if
  next
 
  %>
  <tr>
    <td width=\"25%\">&nbsp;</td>
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
  </tr>
  <tr>
    <td width=\"25%\">&nbsp;</td>
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
  </tr>
  <tr>
    <td width=\"25%\">&nbsp;</td>
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
  </tr>
 
  <tr>
    <th width=\"25%\">
      <p align=\"left\">
    </th>
    <th width=\"8%\"></th>
    <th width=\"8%\" style=\"border-bottom: 1 solid #000000\"></th>
    <th width=\"16%\" colspan=\"2\" style=\"border-bottom: 1 solid #000000\"><font size=\"4\">Pokalkampe</font></th>
    <th width=\"8%\" style=\"border-bottom: 1 solid #000000\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
  </tr>
  <tr>
    <th width=\"25%\">
      <p align=\"left\">Kamp:</p>
    </th>
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
  </tr>
  <tr>
    <th width=\"25%\"></td>
    <th width=\"8%\"><font size=\"2\">Mål</font></th>
    <th width=\"8%\"><font size=\"2\">100 %</font></th>
    <th width=\"8%\"><font size=\"2\">Drop</font></th>
    <th width=\"8%\"><font size=\"2\">For sent</font></th>
    <th width=\"8%\"><font size=\"2\">Rødt kort</font></th>
    <th width=\"8%\"><font size=\"2\">Gult kort</font></th>
    <th width=\"8%\"><font size=\"2\">Diverse</font></th>
    <th width=\"8%\"><font size=\"2\">Mål imod</font></th>
    <th width=\"8%\"><font size=\"2\">I alt</font></th>
  </tr>
  <tr>
    <td width=\"25%\">&nbsp;</td>
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
  </tr>
  <%
  SQL4=\"Select * From runde_pokal where id=\"&id
          set RS4 = DB.execute(SQL4)
        do while not RS4.eof
               
        SQL5 =\"Select * From pokal where id=\"&RS4(\"kamp_id\")
        set RS5 = DB.execute(SQL5)

 
  %>
  <tr>
    <td width=\"25%\"><font size=\"2\">Trippendales - <%=RS5(\"modstander\")%>    (<%=RS5(\"trip_res\")%>-<%=RS5(\"mod_res\")%>)</font></td>
    <td width=\"8%\" align=\"center\"><font size=\"2\"><%=RS4(\"maal\")%></font></td>
    <td width=\"8%\" align=\"center\"><font size=\"2\"><%=RS4(\"100\")%></font></td>
    <td width=\"8%\" align=\"center\"><font size=\"2\"><%=RS4(\"Drop\")%></font></td>
    <td width=\"8%\" align=\"center\"><font size=\"2\"><%
    if RS4(\"sent\") = 1 then
        response.write(\"1-5 minutter\")
    elseif RS4(\"sent\")=2 then
        response.write(\"6-10 minutter\")
    elseif RS4(\"sent\")=3 then
        response.write(\"11-15 minutter\")
    elseif RS4(\"sent\")=4 then
        response.write(\"15-30 minutter\")
    elseif RS4(\"sent\")=5 then
        response.write(\"30- minutter\")
    else
    response.write(\"-\")
    end if
    %>
      </font>
    </td>
    <td width=\"8%\" align=\"center\">
    <font size=\"2\">
    <%
    if RS4(\"rodt\") = 1 then
        response.write(\"Normalt\")
    elseif RS4(\"rodt\") = 2 then
        response.write(\"Groft\")
    else
    response.write(\"-\")
    end if
    %>
    </font>
    </td>
    <td width=\"8%\" align=\"center\">
    <font size=\"2\">
    <%
    if RS4(\"gult\") = 1 then
        response.write(\"Normalt\")
    elseif RS4(\"gult\") = 2 then
        response.write(\"Groft\")
    else
    response.write(\"-\")
    end if
    %>
    </font>
</td>
    <td width=\"8%\" align=\"center\"><font size=\"2\"><%=RS4(\"div\")%> kr.</font></td>
    <td width=\"8%\" align=\"center\"><font size=\"2\"><%=RS4(\"maal_imod\")%></font></td>
    <td width=\"8%\" align=\"center\"><font size=\"2\"><%=RS4(\"ialt\")%>
      </font>
    <%
    intIalt=RS4(\"ialt\")+intIalt
    %></td>
  </tr> 
  <tr>
    <td width=\"25%\">&nbsp;</td>
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
  </tr>
<%
RS4.movenext
loop
%>
 
<tr>
    <td width=\"25%\">&nbsp;</td>
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
  </tr>
  <tr>
    <td width=\"25%\">&nbsp;</td>
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
  </tr>
  <tr>
    <td width=\"25%\">&nbsp;</td>
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
  </tr>
 
  <tr>
    <th width=\"25%\">
      <p align=\"left\">
    </th>
    <th width=\"8%\"></th>
    <th width=\"8%\" style=\"border-bottom: 1 solid #000000\"></th>
    <th width=\"16%\" colspan=\"2\" style=\"border-bottom: 1 solid #000000\"><font size=\"4\">Træningskampe</font></th>
    <th width=\"8%\" style=\"border-bottom: 1 solid #000000\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
    <th width=\"8%\"></th>
  </tr>
  <tr>
    <th width=\"25%\">
      <p align=\"left\">Kamp:</p>
    </th>
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
  </tr>
  <tr>
    <th width=\"25%\"></td>
    <th width=\"8%\"><font size=\"2\">Mål</font></th>
    <th width=\"8%\"><font size=\"2\">100 %</font></th>
    <th width=\"8%\"><font size=\"2\">Drop</font></th>
    <th width=\"8%\"><font size=\"2\">For sent</font></th>
    <th width=\"8%\"><font size=\"2\">Rødt kort</font></th>
    <th width=\"8%\"><font size=\"2\">Gult kort</font></th>
    <th width=\"8%\"><font size=\"2\">Diverse</font></th>
    <th width=\"8%\"><font size=\"2\">Mål imod</font></th>
    <th width=\"8%\"><font size=\"2\">I alt</font></th>
  </tr>
  <tr>
    <td width=\"25%\">&nbsp;</td>
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
  </tr>
  <%
  SQL6=\"Select * From runde_traen where id=\"&id
          set RS6 = DB.execute(SQL6)
        do while not RS6.eof
               
        SQL7 =\"Select * From traen where id=\"&RS6(\"kamp_id\")
        set RS7 = DB.execute(SQL7)

 
  %>
  <tr>
    <td width=\"25%\"><font size=\"2\">Trippendales - <%=RS7(\"modstander\")%>    (<%=RS7(\"trip_res\")%>-<%=RS7(\"mod_res\")%>)</font></td>
    <td width=\"8%\" align=\"center\"><font size=\"2\"><%=RS6(\"maal\")%></font></td>
    <td width=\"8%\" align=\"center\"><font size=\"2\"><%=RS6(\"100\")%></font></td>
    <td width=\"8%\" align=\"center\"><font size=\"2\"><%=RS6(\"Drop\")%></font></td>
    <td width=\"8%\" align=\"center\"><font size=\"2\"><%
    if RS6(\"sent\") = 1 then
        response.write(\"1-5 minutter\")
    elseif RS6(\"sent\")=2 then
        response.write(\"6-10 minutter\")
    elseif RS6(\"sent\")=3 then
        response.write(\"11-15 minutter\")
    elseif RS6(\"sent\")=4 then
        response.write(\"15-30 minutter\")
    elseif RS6(\"sent\")=5 then
        response.write(\"30- minutter\")
    else
    response.write(\"-\")
    end if
    %>
      </font>
    </td>
    <td width=\"8%\" align=\"center\">
    <font size=\"2\">
    <%
    if RS6(\"rodt\") = 1 then
        response.write(\"Normalt\")
    elseif RS6(\"rodt\") = 2 then
        response.write(\"Groft\")
    else
    response.write(\"-\")
    end if
    %>
    </font>
    </td>
    <td width=\"8%\" align=\"center\">
    <font size=\"2\">
    <%
    if RS6(\"gult\") = 1 then
        response.write(\"Normalt\")
    elseif RS6(\"gult\") = 2 then
        response.write(\"Groft\")
    else
    response.write(\"-\")
    end if
    %>
    </font>
</td>
    <td width=\"8%\" align=\"center\"><font size=\"2\"><%=RS6(\"div\")%> kr.</font></td>
    <td width=\"8%\" align=\"center\"><font size=\"2\"><%=RS6(\"maal_imod\")%></font></td>
    <td width=\"8%\" align=\"center\"><font size=\"2\"><%=RS6(\"ialt\")%>
      </font>
    <%
    intIalt=RS6(\"ialt\")+intIalt
    %></td>
  </tr> 
  <tr>
    <td width=\"25%\">&nbsp;</td>
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
  </tr>
<%
RS6.movenext
loop
%>
 


  <tr>
    <td width=\"25%\"></td>
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\">
    <td width=\"8%\" align=\"center\"><font size=\"4\">samlet:</font>
    <td width=\"8%\" align=\"center\"><font size=\"4\"><%=intIalt%>
      </font>
  </tr>
</table>
<p><a href=\"vis_bodekasse.asp?vis=alle\">Tilbage</a></p>


<%
end if
%>




<%
\' VIS ENKELT SPILLER SLUT
DB.close
set DB = nothing
%>

<a href=\"bodekasse_admin.asp\">Administration</a>
</body>

</html>


















Avatar billede nute Nybegynder
22. marts 2001 - 17:16 #2
UHA !!!!

hvorfor splitter du ikke din fil opp i flere filer ??? det er jo umulig å overskue din kode når den er på nesten 1000 linjer...

du legger alt for mye funksjonalitet i samme fil (mener nå jeg iallefall)

/nute
Avatar billede d797fni Nybegynder
22. marts 2001 - 17:19 #3
jeg an stort set kun dele den i 2.

en fil som viser alle spillere, og en som viser den enkelte spiller.

Men tror det vil hjælpe særlig meget.

Delen hvor kun en spiller vise går hurtig nok, det er den del som viser alle som halter meget.
Avatar billede nute Nybegynder
22. marts 2001 - 17:25 #4
grunnen er nok at du legger altfor mye informasjon på din første side... hvorfor ikke legge all informasjon om spillere inn under den ene siden som du viser informasjon om spillerne ? du har et hav av tabeller på din side...bare dine tabeller veier over 20K...

/nute
Avatar billede burningice Nybegynder
22. marts 2001 - 17:27 #5
jeg har da en fil med knap 2000 linjer, den kører da udemærket... Jeg tror i hvert fald ikke at det skulle have den helt store betydning, bortset fra overskueligheden, som du selv nævner.
Avatar billede d797fni Nybegynder
22. marts 2001 - 17:35 #6
problemet har je fundet til at være dette stykke:

Her kører jeg alle runder igennem for at tjekke om der er spillet.

Jo lavere jeg sætter y=1 to , jo hurtigere hentes siden.

        for y=1 to 22
            SQL=\"Select * From runde\"&y&\"_1 Where id=\"&x
            set RS = DB.execute(SQL)
            if not RS.eof then
                maal=RS(\"maal\")+maal
                deltager=deltager+1
                int100=RS(\"100\")+int100
                drop=RS(\"Drop\")+drop
                sent=RS(\"sent\")*RS(\"sent\")*3+sent
                rodt=RS(\"rodt\")*50+rodt
                gult=RS(\"gult\")*20+gult
                div=RS(\"div\")+div
                ialt=RS(\"ialt\")+ialt
                maal_imod=RS(\"maal_imod\")+maal_imod
            end if
            RS.Close
            Set RS = Nothing

           
            SQL11=\"Select * From runde\"&y&\"_2 Where id=\"&x
            set RS11 = DB.execute(SQL11)
            if not RS11.eof then
                maal=RS11(\"maal\")+maal
                int100=RS11(\"100\")+int100
                drop=RS11(\"Drop\")+drop
                sent=RS11(\"sent\")*RS11(\"sent\")*3+sent
                rodt=RS11(\"rodt\")*50+rodt
                gult=RS11(\"gult\")*20+gult
                div=RS11(\"div\")+div
                ialt=RS11(\"ialt\")+ialt
                maal_imod=RS11(\"maal_imod\")+maal_imod
            end if
            RS11.Close
            Set RS11 = Nothing

Avatar billede nute Nybegynder
22. marts 2001 - 17:36 #7
det har ingenting å si hvor mange linjer kode du har, for det blir avviklet på serveren...MEN...den koden du sender tilbake til klienten, er relevant. du sender over 20K med kode (som kun inneholder <table></table><td></td><tr></tr> og så videre...). Total vekt på din side med alle tabeller er ca 45K, men etter jeg strippet vekk noen få gjentagende tabeller, var vekten allerede nede på 25K...dette bør du tenke litt på...

/nute
Avatar billede nute Nybegynder
22. marts 2001 - 17:37 #8
de forløkkene du henviser til er ikke problemet...de blir avviklet på serveren og hastigheten på dine SQL avhenger av serverkraft...
Avatar billede d797fni Nybegynder
22. marts 2001 - 17:40 #9
fact er at når jeg sætter y=1 to 2

bliver siden betydelig hurtigere i forhold til 11 eller 22
Avatar billede nute Nybegynder
22. marts 2001 - 18:20 #10
det er jo klart.....for antall tabeller du skriver ut reduseres med henoldsvis 10 eller 21....

/nute
Avatar billede d797fni Nybegynder
22. marts 2001 - 18:31 #11
Den skriver ikke tabeller ud, det afgør hvor mange databaser tabeller som skal tjekkes.
Avatar billede nute Nybegynder
22. marts 2001 - 18:37 #12
hva kaller du så dette:

<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\">
  <tr>
    <th width=\"15%\"><u>Spillere:</u></th>
  ...
  </tr>
</table>

er ikke det en tabell ??? du har massevis av disse tabelcellene...ca 500 av dem....dette er tungt å lese for browseren !
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester