Opslag i DB

Jeg er ved at blive gråhåret!

Jeg har to filer: odds-db-opslag.asp og odds-db-opslag2.asp.

Den første viser en oversigt, hvorfra man kan vælge en forekomst og få yderligere info. Men et eller andet går galt! Nogle gange kan jeg godt få odds-db-opslag.asp til at virke, men hvis jeg trykker Refresh, ter den sig tosset. Det samme er tilfældet med odds-db-opslag2.asp. Kan det have noget at gøre med, at forbindelsen til DB ikke lukkes ordentligt?

Hér er filerne...

*** odds-db-opslag.asp ***
<html>
<head>
<title></title>
<link rel=\"stylesheet\" type=\"text/css\" href=\"layout/1.css\">
</head>
<body>
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"/oddsrus/odds-db.mdb\")
Conn.Open DSN

strSQL = \"Select * from kuponer\"
Set rs = Conn.Execute(strSQL)

  Response.Write \"<table border=\'1px\' width=\'800px\'>\" & \"<tr>\"
  Response.Write \"<th>\" & \"Flere info\" & \"</th>\"
  Response.Write \"<th>\" & \"Dato\" & \"</th>\"
  Response.Write \"<th>\" & \"Uge\" & \"</th>\"
  Response.Write \"<th>\" & \"År\" & \"</th>\"
  Response.Write \"<th>\" & \"Runde\" & \"</th>\"
  Response.Write \"<th>\" & \"Medlem\" & \"</th>\"
  Response.Write \"<th>\" & \"Gevinst\" & \"</th>\"
  Response.Write \"<th>\" & \"Kuponstatus\" & \"</th>\" 
  Response.Write \"<th>\" & \"Pengestatus\" & \"</th>\" & \"</tr>\"

Do

  strLink = \"<a href=\'odds-db-opslag2.asp?id=\" & rs(\"kupon_id\") & \"\'>\" & \"<img src=\'/oddsrus/images/pil.gif\' border=\'0px\'>\" & \"</a>\"

  Response.Write \"<tr>\"
  Response.Write \"<td align=\'center\' width=\'100px\'>\" & strLink & \"</td>\"
  Response.Write \"<td width=\'100px\'>\" & rs(\"dato\") & \"</td>\"
  Response.Write \"<td width=\'100px\'>\" & rs(\"uge\") & \"</td>\"
  Response.Write \"<td width=\'100px\'>\" & rs(\"aar\") & \"</td>\"
  Response.Write \"<td width=\'100px\'>\" & rs(\"runde\") & \"</td>\"
  Response.Write \"<td width=\'100px\'>\" & rs(\"medlem\") & \"</td>\"
  Response.Write \"<td width=\'100px\'>\" & rs(\"gevinst\") & \"</td>\"
  Response.Write \"<td width=\'100px\'>\" & rs(\"kuponstatus\") & \"</td>\"
  Response.Write \"<td width=\'100px\'>\" & rs(\"pengestatus\") & \"</td>\"
  rs.MoveNext

Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing
    Response.Write \"</tr>\" & \"</table>\"
%>
<!--#include virtual=\"/oddsrus/address.htm\"-->
</body>
</html>


*** odds-db-opslag2.asp ***
<html>
<head>
<title>Hente data fra database</title>
<link rel=\"stylesheet\" type=\"text/css\" href=\"layout/1.css\">
</head>
<body>
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"/oddsrus/odds-db.mdb\")
Conn.Open DSN

strSQL = \"Select * From kuponer Where kupon_id = \" & Request.Querystring(\"id\")
Set rs = Conn.Execute(strSQL)

\' Skriv kuponens data
Response.Write \"<h3>\" & \"Den sikre\" & \"</h3>\"
Response.Write \"Kamp-nr: \" & rs(\"k1n\") & \"<br>\"
Response.Write \"Beskrivelse: \" & rs(\"k1b\") & \"<br>\"
Response.Write \"Tegn: \" & rs(\"k1t\") & \"<br>\"
Response.Write \"Odds: \" & rs(\"k1o\") & \"<br>\"
Response.Write \"Udfald: \" & rs(\"k1u\") & \"<br><br>\"

Conn.Close
Set Conn = Nothing
%>
<p><a href=\"odds-db-opslag.asp\">Retur til udgangspunkt</a></p>
<br>
<!--#include virtual=\"/oddsrus/address.htm\"-->
</body>
</html>