Loop fejl?
Når jeg prøver at åbne den her side, sker der ingen ting.. den loader bare, og dllhost.exe suger al min CPU...Hvad er fejlen?
<%
response.buffer = True
%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("cgi-bin/itemsandmonsters.mdb")
Conn.Open DSN
%>
<html>
<head>
<title>RSFever</title>
<LINK href="style.css" type=text/css rel=stylesheet>
</head>
<body bgcolor="#000000" text="#FFFFFF" link="#008000" vlink="#008000" alink="#008000">
<table border="0" cellspacing="1" cellpadding="0" width="497">
<tr>
<td width="146"><font color="#FFFFFF">Item Name</font></td>
<td width="72"><font color="#FFFFFF">High alc</font></td>
<td width="97">Type</td>
<td width="97">Members Only</td>
<td width="63">Tradeable</td>
</tr>
<%
strSQLItem = "Select * from tbl_Items Order By name"
Set rsItem = Conn.Execute(strSQLItem)
Do while not rsItem.EOF %>
<tr>
<td><%=rsItem("name")%></td>
<td><%=rsItem("alc_high")%></td>
<td><%=rsItem("type")%></td>
<td><%=rsItem("member_only")%></td>
<td><%=rsItem("tradeable")%></td>
</tr>
<% loop %>
</table>
</body>
</html>
<%
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
