Hvorfor virker det her ikke!!
<div align="center"><%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT dato, indsats, kommentarer FROM fallesspil ORDER BY spilnr DESC"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" + Server.MapPath("XXX")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 5
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount %>
<table border="0" width="420" cellpadding="5" cellspacing="0">
<tr>
<td height="20" colspan="2" bgcolor="#333333"><font size="1" color="#FFFFFF"><strong>Fælles Spil</strong></font></td>
</tr>
<tr>
<td height="5" colspan="2"></td>
</tr>
<tr>
<td colspan="2"><strong>Side <% =intPage %> af <% =intPageCount %></strong></td>
</tr>
<tr>
<td height="5" colspan="2"></td>
</tr>
<tr>
<td>
<% Response.Write "Gå til side "
For intNum = 1 To intPageCount
Response.Write "<a href=?valgt=fallesspil&page=" & intNum & ">" & intNum & "</a> "
Next
Response.Write "<br>"
If Clng(intPage) > 1 Then
Response.Write "<a href=?valgt=fallesspil&page=" & intPage - 1 & "><<</a>"
Else
Response.Write "<<"
End If
Response.Write " "
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=valgt=fallesspil&page=" & intPage + 1 & ">>></a> "
Else
Response.Write ">>"
End If %>
</td>
</tr>
</table>
<br>
<% Do While Not rs.EOF And intRecCount > 0 %>
<table border="1" bordercolor="#000000" width="420" cellpadding="5" cellspacing="0">
<tr bgcolor="#999999">
<td colspan="2" bordercolor="#999999"><font color="#000000"><strong>Dato: <% =rs("dato") %></strong></font>
</td>
</tr>
</table>
<br>
<table border="1" bordercolor="#000000" width="420" cellpadding="5" cellspacing="0">
<tr>
<td colspan="2" bordercolor="#E9E9E9" bgcolor="#E9E9E9">
Der er spillet følgende:<br><br>
<table border="0" width="330">
<tr>
<td width="150"><strong>Kamp</strong></td>
<td width="50" align="center"><strong>Spillet</strong></td>
<td width="50" align="center"><strong>Odds</strong></td>
<td colspan="3" width="30" align="center"><strong>Score</strong></td>
<td width="50" align="center"><strong>Res</strong></td>
</tr>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" + Server.MapPath("XXX"))
strSQL = "SELECT * FROM kampe WHERE dato = #"& dato &"#"
set rs2 = conn.execute(strSQL)
totalodds = 1
while not rs2.EOF %>
<tr>
<td width="150"><% =rs2("hhold") %> - <% =rs2("uhold") %></td>
<td width="50" align="center"><% =rs2("spillet") %></td>
<td width="50" align="center"><% =formatnumber(rs2("odds"),2) %></td>
<td width="10" align="center"><% =rs2("scoreh") %></td>
<td width="10" align="center">-</td>
<td width="10" align="center"><% =rs2("scoreu") %></td>
<td width="50" align="center"><% =rs2("res") %></td>
</tr>
<%
totalodds = totalodds * CDbl(rs2("odds"))
rs2.MoveNext
Wend
gevinst = CDbl(totalodds) * CDbl(rs("indsats"))
%>
<tr>
<td colspan="2" width="200"></td>
<td width="50" align="center"><strong><% =FormatNumber(totalodds,2) %></strong></td>
<td colspan="4" width="80"</td>
</tr>
</table>
<br>
Indsatsen er: <% =formatcurrency(rs("indsats"),2) %><br>
Mulig gevinst: <% =formatCurrency(gevinst,2) %>
</td>
</tr>
<tr bordercolor="#FFFFFF">
<td colspan="2" bordercolor="#E9E9E9" bgcolor="#E9E9E9"><% =Replace(rs("kommentarer"), VbCrLf, "<br>") %>
</td>
</tr>
</table>
<br>
<br>
<% intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing %>
</div>
Det rs2 jeg får ud er tomt af en eller andet grund.... hvis jeg udskriver rs("dato") er den fuldstændig ens med rs2("dato")
