Fejl i ASP kode
Hej...Jeg har et stykke kode her som henter nogle data ud fra en Access db. Det virkede fint i starten men da jeg satte et lille script ind som tæller hvor mange emner der er i databasen så virkede det ikke...
Nogen der kan hjælpe mig?
Koden ser sådan ud:
<html>
<head>
<link rel="stylesheet" type="text/css" href="../style.css">
<script type="text/javascript" language="JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
</head>
<body>
<table border="0" bgcolor="#F61975" cellSpacing="0" cellPadding="0" width="100%" style="border: 1 solid #000000;">
<tr>
<td><p><b><font size="1"> » BLOG</font></b></td>
</tr>
</table>
<font size="1">
<br>
<!-- #include file = "menu.asp" -->
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db.mdb")
Conn.Open DSN
strSQL = "Select * from News order by ID desc"
Set rs = Conn.Execute(strSQL)
If rs.EOF Then
Response.Write "<p><i>Der er ikke skrevet i bloggen :(</i></p>"
End If
Do While Not rs.EOF
%>
</font>
<p align="justify">
<font size="1">» <b><%=rs("Date")%></b><br>
<img src="node.gif"> <i><%=rs("Music")%></i><br>
<%=rs("Text")%><br>
<%
Set Count = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("db.mdb")
Count.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
Sql = "Select count(*) as found from Comments"
Set Count = Ct.Execute(Sql)
count = Count("found")
%>
<b>» <a href="java script:MM_openBrWindow('showinfo.asp?id=<%=rs("ID")%>','','scrollbars=yes,width=280,height=440');void(0);">Kommentarer: <%=count%></a></b>
<%
Count.Close
Set Count = Nothing
%>
</font>
</p>
<%
rs.MoveNext
Loop
Conn.Close
Set Conn = Nothing
%>
</body>
</html>
