Hent kommentarer fra bestemt i id2!
Jeg har ligget og roddet med et enkelt kommentar system men jeg får hele tiden fejl i det ved linie 7..Nogen der kan sige hvordan jeg ellers skal gøre end det jeg har gjort..
<---kode start--->
<%option explicit%>
<%
dim connection,SQLstringK,KRS
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("database.mdb")
SQLstringK = "SELECT * FROM kommentar where Id2 = " & Request.Querystring("id")
SET KRS = Connection.Execute(SQLstringK)
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>kommentar</title>
</head>
<body>
<% while not KRS.EOF%>
<table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#333333" id="table3">
<tr>
<td height="10" bordercolor="#FFFFFF" class="skrift">
<table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" id="table4">
<tr>
<td width="60%" bordercolor="#FFFFFF" class="skrift" bgcolor="#FFFFFF"><span class="skrift"><strong></strong>af<a href="mailto:<% = KRS("email") %>">
<% = KRS("navn") %>
</a></span></td>
<td width="40%" class="skrift" bgcolor="#FFFFFF"> <div align="right"><font size="1">Tilføjet
kl.
<% = KRS("kl") %>
d.
<% = KRS("dato") %>
</font> </div></td>
</tr>
</table></td>
</tr>
<tr>
<td bordercolor="#FFFFFF" class="skrift" bgcolor="#FFFFFF">
<table width="100%" cellspacing="1" cellpadding="1" border="0" id="table5">
<tr>
<td height="20">
<% = KRS("kommentar") %>
</td>
</tr>
</table></td>
</tr>
</table> <br>
<%
KRS.MoveNext
wend
KRS.close
set KRS =nothing
connection.close
set connection = nothing
%>
</body>
</html>
<---kode slut--->
