Flere gennemløb af basen i samme script
HejJeg 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>
