Avatar billede totalpc Seniormester
25. marts 2010 - 14:53 Der er 3 kommentarer og
1 løsning

Flere gennemløb af basen i samme script

Hej
Jeg forsøger at læse en top10 og en top20 sorteret efter tid fra samme base på 1 asp side. Men der går noget galt og jeg kan ikke rigtigt regne ud hvor. Nogle gange virker en refresh og andre gange får jeg :
Provider error '80004005'
Unspecified error
/index.asp, line 58

Jeg har prøvet meget forskelligt, men er lige pt end med nedenstående. Kan du hjælpe?

<html>
<head>
<script>
    function setFocus() {
      var stafetForm = document.getElementById("stafet");
      if (stafetForm) {
        stafetForm["stregkode"].focus();
      }
    }
  </script>
</head>
<body onload="setFocus();">

<table align="center" width="90%" border="1" bordercolor="black" cellspacing="0">
<tr>
  <td><b><font size="10">BEC Stafet 2010 - Tidtagning</font></B>
  <td><a href="nulstil_db.asp">Nulstil liste</a> <br> <a href="#">Eksporter til Excel 1</a> <br> <a href="#">Eksporter til Excel 2</a> </TD>
</tr>
</table>
<br>
<table align="center" width="90%" border="1" bordercolor="black" cellspacing="0">
<tr>
    <td width="50%">
        <form id="stafet" action="db.asp" method="post">
<table align="center">
<tr>
<td><font size="5">Registrering: <input name="stregkode" type="text" size="40" tabindex="1"></td>
</tr>
</table>
<table align="center">
<tr>
<td><INPUT TYPE="submit" VALUE="Submit" NAME="login"></td>
</tr>
</table>
</form>
<table align="center">
<tr>
<td><font size=10 color=blue><b>
<%
msg=request.querystring("msg")
response.write msg
response.write "    -    "
Response.Write FormatDateTime(Time, vbLongTime)
%>
</td>
</tr>
</table>
        </td>
    <td width="50%" rowspan=2>
       
<%
'Her starter venstre side

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\inetpub\wwwroot\stafet.mdb"

strsql1 = "SELECT TOP 20 * FROM scanning order by tid asc"
Set rs1 = Conn.Execute(strSQL1)

strsql2 = "SELECT TOP 10 * FROM scanning"
Set rs2 = Conn.Execute(strSQL2)

if rs1.eof then
  response.write "<p align='center'><b>ingen resultater endnu</b></p>"
else

%>   
<table style="width: 90%" align=center>
<tr>
  <td width="70%"><strong>De 20 seneste #</strong></td>
  <td width="30%"><strong>Tid</strong></td>
</tr>
</table>
<%
Do While Not rs1.EOF
%>
<table style="width: 90%" align=center>
<%
If (Rad mod 2) = 1 Then
    BGFarge = "#eeeeee"
  Else
    BGFarge = "#d7dadf"
  End If

  Rad = Rad + 1
%>
<tr>
<td width="70%" bgcolor=<%=BGFarge%>>
<%
      Response.write rs1("stregkode")
%>
</td>
<td width="30%" bgcolor=<%=BGFarge%>>
        <%
            Response.write rs1("tid")
     
    %>
    </td>   
    </tr>
</table>
<%
rs1.MoveNext
Loop
rs1.Close
end if
   
   
    'Her Slutter venstre side
%>
            </td>
</tr>
<tr>
    <td width="50%">
<%
   
if rs2.eof then
  response.write "<p align='center'><b>ingen resultater endnu</b></p>"
else
%>
<table style="width: 90%" align=center>
<tr>
  <td width="70%"><strong>De 10 første hold</strong></td>
  <td width="30%"><strong>Tid</strong></td>
</tr>
</table>
<%
Do While Not rs2.EOF
%>
<table style="width: 90%" align=center>
<%
If (Rad mod 2) = 1 Then
    BGFarge = "#eeeeee"
  Else
    BGFarge = "#d7dadf"
  End If

  Rad = Rad + 1
%>
<tr>
<td width="70%" bgcolor=<%=BGFarge%>>
<%
      Response.write rs2("stregkode")
%>
</td>
<td width="30%" bgcolor=<%=BGFarge%>>
        <%
            Response.write rs2("tid")
     
    %>
    </td>   
    </tr>
</table>
<%
rs2.MoveNext
Loop
rs2.Close
Conn.close
Set Conn = Nothing
end if
%>
    </td>
</tr>
</table>
<br>
</body>
</html>
Avatar billede fennec Nybegynder
25. marts 2010 - 15:51 #1
Lugter meget af ustabilitet (som man nogen gange oplever med Access). Jeg ville prøve en anden driver. F.eks. en jet:

Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\inetpub\wwwroot\stafet.mdb"
Avatar billede totalpc Seniormester
27. marts 2010 - 08:36 #2
Jeg har droppet access og forsøger mig i SQL 2008 express. Har snart haft for mange problemer med access.. Men hvis du har styr på connectionsstrings så tjek mit nye spørgsmål:
http://www.eksperten.dk/spm/905588

Ellers smid et svar fennec, så får du point for denne.
Avatar billede fennec Nybegynder
29. marts 2010 - 07:55 #3
.o) <-- One Eyed Jack
Avatar billede totalpc Seniormester
29. marts 2010 - 10:18 #4
Forresten vil jeg bare sige at mens jeg lige tester SQL 2008 så smed jeg dit forslag ind i min kode og siden har jeg ikke oplevet fejl :) Men tror nu alligevel jeg konverterer til SQL 2008
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