Søg
Avatar billede webbygger Nybegynder
10. februar 2004 - 20:21 Der er 6 kommentarer og
1 løsning

Muligvis en Timeout fejl i script!

På denne side http://www.brandmandsklubben.stegenet.dk/ny_side_40.htm har jeg en gæstebog, hvor den har en fejl når du skifter side i gæstebogen! Når jeg skriver at det muligvis er en timeoutfejl, er fordi når jeg uploader den - virker den, men efter et stykke tid virker den IKKE igen?
Avatar billede webbygger Nybegynder
10. februar 2004 - 20:28 #1
Her har I koden

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("bog.mdb")
Conn.Open DSN

strSQL = "Select * from jwgbog"

set rscount = conn.execute("select count(id) as antal from jwgbog")
antal = rscount("antal")
set rscount = nothing
%>
<html>
<head>
<title>JWgbog 1.0 ASP</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
@import url("/brandmandsklubben/Gaestebog/styles.css");
-->
</style>
</head>
<body text="#000000" link="#006699" vlink="#006699" alink="#006699">
<tr>
<td width="61%" height="11"><font face="tahoma" size="2">&nbsp; </font></td>
  <td width="39%" height="11"><font face="tahoma" size="2">&nbsp; </font></td>
                </tr>
<tr>
   
  <td>&nbsp; </td>
  </tr>
  <tr>
   
  <td>&nbsp; </td>
  </tr>
  <tr>
   
  <td>
    <table border="0" width="90%" bgcolor="#000000" cellspacing="1" cellpadding="0" align="center">
      <tr>
        <td width="100%" bgcolor="#FFFFFF" valign="top">&nbsp; </td>
      </tr>
    </table>
    <table border='0' cellspacing='0' cellpadding='0' width='90%' align="center" height="19">
      <tr>
        <td width='1' valign='top' bgcolor='#000000'><img src="images/intet.gif" width='1'></td>
        <td width='698' valign='top' bgcolor='#f7f7f7'>
          <table width="100%" border="0" cellspacing="4" cellpadding="0">
            <tr>
              <td width="60%"><font face="Verdana, Arial, Helvetica, sans-serif"><b><font size="2">[
                </font><font face="Verdana, Arial, Helvetica, sans-serif"><b><font face="Verdana, Arial, Helvetica, sans-serif"><b><font size="2"><a href="add.asp">Skriv
                i G&aelig;stebogen</a></font></b></font></b></font><font size="2">
                | <a href="guestbook.asp">Vis G&aelig;stebogen</a></font></b></font>
                <font face="Verdana, Arial, Helvetica, sans-serif"><b><font face="Verdana, Arial, Helvetica, sans-serif"><b><font face="Verdana, Arial, Helvetica, sans-serif"><b><font face="Verdana, Arial, Helvetica, sans-serif"><b><font size="2">
                | <a href="admin/login.asp" target="_self">Admin </a></font></b></font></b></font><font size="2">]
                </font></b></font></b></font></td>
              <td width="50%">
                <div align="right"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><b><%=antal%></b> Indl&aelig;g i g&aelig;stebogen</font> <font face="Verdana, Arial, Helvetica, sans-serif" size="1"></font></b></div>
              </td>
            </tr>
          </table>
         
        </td>
        <td width='1' valign='top' bgcolor='#000000'><img src="intet.gif" width='1'></td>
      </tr>
    </table>
  </td>
  </tr>
<table border="0" width="90%" bgcolor="#000000" cellspacing="1" cellpadding="0" align="center">
  <tr>
    <td bgcolor="#FFFFFF" valign="top" colspan="2">
      <div align="center">
        <p>
        <p>
        <p><br>
        <p>
          <%


PageSize = 5

    Conn_String = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("bog.mdb")
If Request("PageTo") <> "" Then
    strPageTo = Request("PageTo")
    If strPageTo <> "" Then
        nPageTo = int(strPageTo)
        If nPageTo <  1 Then
            nPageTo = 1
        End If
    Else
        nPageTo = 1
    End If
    Set RS = Session("ListingRS")
    RS.AbsolutePage = nPageTo

else
    Set Conn=Server.CreateObject("ADODB.Connection")
    Conn.ConnectionTimeout=15
    Conn.CommandTimeout=30

    Conn.Open Conn_String
    Set Cmd=Server.CreateObject("ADODB.Command")
    Set RS=Server.CreateObject("ADODB.Recordset")
    Cmd.CommandType = 1
    Set Cmd.ActiveConnection = Conn
    Cmd.CommandText="SELECT * From jwgbog order by ID desc;"
           
    RS.Open Cmd, , 1, 1
    RS.PageSize = PageSize
    Set Session("ListingRS") = RS
    nPageTo = 1
    If not (RS.BOF and RS.EOF) Then
        Set RS = Session("ListingRS")
        RS.AbsolutePage = nPageTo
    End If
   
end if
    If RS.EOF Then
    Response.Write(" <br><br><font size=4 color='red'<b>No Script were found <br></b></font><br>")
Else

    nRowCount = RS.PageSize


    While not RS.EOF and nRowCount > 0
        Count = 0   
        for i = 1 to Count           
        next
        dagar=DateDiff("d", Dato, RS("Dato"))+2
if dagar >= 0 then
        %>
        <table border="0" width="100" bgcolor="#000000" cellspacing="1" cellpadding="0" align="center">
          <tr>
            <td bgcolor="#FFFFFF" valign="top" class="menuoverskrift" colspan="2">
              <table width="100%" border="0" cellspacing="1" cellpadding="1">
                <tr>
                  <td width="34%"> <img src="<% = rs("pic") %>.gif" width="15" height="15"></td>
                  <td width="66%">
                    <div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
                      <%
If rs("icq") = "ingen" then %>
                      <b>Ingen ICQ</b>
                      <% Else %>
                      <b>ICQ Status</b> <img src="http://wwp.icq.com/scripts/online.dll?icq=<%=RS("icq")%>&img=9" alt="<%=RS("IP")%>">
                      <% end if %>
                      </font> </div>
                  </td>
                </tr>
              </table>
            </td>
          </tr>
          <tr>
            <td bgcolor="#FFFFFF" valign="top" class="menuoverskrift" colspan="2">
              <table width="400" border="0" cellspacing="0" cellpadding="0" bgcolor="#e5e5e5" height="17">
                <tr>
                  <td bgcolor="#f7f7f7">
                    <table width="400" border="0" cellspacing="0" cellpadding="3" class="1px_ganz" height="69">
                      <tr>
                        <td colspan="2"> <font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>Tilf&oslash;jet
                          </b></font><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>Den
                          <% = rs("dato") %>
                          </b></font></td>
                      </tr>
                      <tr> </tr>
                      <tr> </tr>
                      <tr>
                        <td width="193"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>Navn</b><br>
                          </font><font face="tahoma" size="2">
                          <% = rs("navn") %>
                          </font></td>
                        <td width="195"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>By
                          / Land</b><br>
                          </font><font face="tahoma" size="2">
                          <% = rs("Land") %>
                          </font></td>
                      </tr>
                      <tr>
                        <td colspan="2"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Indl&aelig;g</font><br>
                          </b><font face="tahoma" size="2">
                          <% = rs("kommetare") %>
                          </font></td>
                      </tr>
                      <tr>
                        <td width="193"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>Email</b><br>
                          </font><font face="tahoma" size="2">
                          <% = rs("email") %>
                          </font></td>
                        <td width="195"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>Hjemmeside</b></font><br>
                          <font face="tahoma" size="2"> <a href="<% = rs("url") %>" target="_blank">
                          <font size="1">Tryk her for se min hjemmeside </font></a>
                          </font></td>
                      </tr>
                    </table>
                  </td>
                </tr>
              </table>
            </td>
          </tr>
        </table>
        <hr width="400" noshade size="1" align="center">
        <%
    end if
        nRowCount = nRowCount - 1
        RS.MoveNext
    Wend
   
    'Display Paging Buttons
                Response.Write("<center><table border=0 cellpadding=4 cellspacing=4><tr>")
                    ' Display <<
                        Response.Write(vbcr & "<form action=" & Request.ServerVariables("SCRIPT_NAME") & " method=post id=form1>")
                        Response.Write(vbcr & "<td align=center><font face=arial size=3><b>")
                        If int(nPageTo) = 1 Then
                            Response.Write(vbcr & "<input type=submit value=' << Første  ' style='{font-weight:bold}' DISABLED id=submit2 name=submit2><input type=hidden name=PageTo value=1>")
                        Else
                            Response.Write(vbcr & "<input type=submit value=' << Første  ' style='{font-weight:bold}' id=submit1 name=submit1><input type=hidden name=PageTo value=1>")
                        End IF
                        Response.Write(vbcr & "</td>")
                        Response.Write(vbcr & "</form>")
                    ' Display <
                        Response.Write(vbcr & "<form action=" & Request.ServerVariables("SCRIPT_NAME") & " method=post id=form2>")
                        Response.Write(vbcr & "<td align=center><font face=arial size=3><b>")
                        If int(nPageTo) = 1 Then
                            Response.Write(vbcr & "<input type=submit value=' < Tilbage  ' id=submit1 name=submit1 style='{font-weight:bold}' DISABLED><input type=hidden name=PageTo value=1>")
                        Else
                            Response.Write(vbcr & "<input type=submit value=' < Tilbage  ' id=submit1 name=submit1 style='{font-weight:bold}'>")
                            Response.Write(vbcr & "<input type=hidden name=PageTo value=" & nPageTo-1 & ">")
                        End If
                       
                        Response.Write(vbcr & "</td>")
                        Response.Write(vbcr & "</form>")
                    ' Display >
                        Response.Write(vbcr & "<form action=" & Request.ServerVariables("SCRIPT_NAME") & " method=post id=form3>")
                        Response.Write(vbcr & "<td align=center><font face=arial size=3><b>")
                        If int(nPageTo) = int(RS.PageCount) Then
                            Response.Write(vbcr & "<input type=submit value='  Næste >  ' id=submit1 name=submit1 style='{font-weight:bold}' DISABLED><input type=hidden name=PageTo value=" & nPageTo & ">")
                        Else
                            Response.Write(vbcr & "<input type=submit value='  Næste >' id=submit1 name=submit1 style='{font-weight:bold}'>")
                            Response.Write(vbcr & "<input type=hidden name=PageTo value=" & nPageTo+1 & ">")
                        End IF
                        Response.Write(vbcr & "</td>")
                        Response.Write(vbcr & "</form>")
                    ' Display >>
                        Response.Write(vbcr & "<form action=" & Request.ServerVariables("SCRIPT_NAME") & " method=post id=form4>")
                        Response.Write(vbcr & "<td align=center><font face=arial size=3><b>")
                        If int(nPageTo) = int(RS.PageCount) Then
                            Response.Write(vbcr & "<input type=submit value=' Sidste >> ' id=submit1 name=submit1 style='{font-weight:bold}' DISABLED><input type=hidden name=PageTo value=" & nPageTo & ">")
                        Else
                            Response.Write(vbcr & "<input type=submit value=' Sidste >> ' id=submit1 name=submit1 style='{font-weight:bold}'><input type=hidden name=PageTo value=" & RS.PageCount & ">")
                        End IF
                        Response.Write(vbcr & "</td>")
                        Response.Write(vbcr & "</form>")
                    Response.Write("</tr>")
                    Response.Write("<tr>")
                        Response.Write("<td colspan=4 align=center><font face='Verdana' size=2 ><b>Side </font><font face='Verdana' size=2 color='red'><b>" &  nPageTo & "</font><font face='Verdana' size=2><b>/</font><font face='Verdana' size=2 color='red'><b>" & RS.PageCount & "</font></b>")
                        Response.Write("</td>")
                    Response.Write("</tr>")
                    Response.Write("</table>")
end if
%>
        <br>
        <font size="1"> </font> </div>
     
    </td>
  </tr>
</table>
<p>&nbsp;</p>
<p>&nbsp;</p>
</body>
</html>
Avatar billede beorndesign Nybegynder
10. februar 2004 - 20:28 #2
Prøv at tilføje denne linie øverst i dit script:

Server.ScriptTimeout = 180

Det skulle give serveren lidt mere tid...
Avatar billede beorndesign Nybegynder
10. februar 2004 - 20:31 #3
Jeg kan se du har nogle:

    Conn.ConnectionTimeout=15
    Conn.CommandTimeout=30

Prøv at slette linierne, eller sæt tiden lidt op, hvis det første ikke virker.
Avatar billede webbygger Nybegynder
10. februar 2004 - 20:37 #4
beorndesign> Jeg har sat Server.ScriptTimeout = 180
ind imellem <% og databaseforbindelse ...............så er der kun, at vente på at tiden er gået ;o)
Avatar billede webbygger Nybegynder
10. februar 2004 - 21:04 #5
Den viser denne her fejl :

Microsoft VBScript runtime error '800a01a8'

Object required: 'Session(...)'

/brandmandsklubben/Gaestebog/guestbook.asp, line 97
Avatar billede webbygger Nybegynder
10. februar 2004 - 21:10 #6
Og line 97 = Set RS = Session("ListingRS")
Avatar billede webbygger Nybegynder
14. marts 2004 - 17:50 #7
Lukker spørgsmålet, da jeg IKKE har fået løst mit problem
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 9 25/06/202622:20 29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
22/0821:38 webui_forge_cu121_torch231 med AMD Grafikkort. Af jonpet i Andet software
22/0820:06 email adresse Af Malm i Forslag til ændringer
22/0819:54 problem med google crome Af Malm i Andet software
22/0809:36 Alternativ holder til to skærme... Af Don G i Skærme
20/0815:01 Samsung smart TV Af postpeter@outlook.dk i Fri debat
White papers
Flere white papers »