fejl?
Hvad er fejlen her?<html>
<title>Guestbook</title>
<head>
</head>
<body bgcolor="#000000" text="#FFFFFF" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF">
<p align="center"><strong><font color="#FF0000" size="4">Clan Koma's tagwall</font></strong><br>
<a href="indsaet.asp">Add a tag</a></p>
<p>
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("guestbook.mdb")
Conn.Open DSN
strSQL = "DELETE * FROM guestbook WHERE id = " & request.querystring("id")"
Set rs = Conn.Execute(strSQL)
%>
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("guestbook.mdb")
Conn.Open DSN
' SQL forespørgsel
strSQL = "Select * from guestbook Order by id DESC"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
' Gennemløb Recordset (rs) med en løkke
Do
' Udskriv værdien af kolonnen Fornavn
Response.Write "<b>" & rs("Fornavn") & "</b>" & (" skrev:") & "<br>" & "<br>"
Response.Write "<b>" & rs("tekst") & " " & ("<a href="admin.asp?id= & rs("id")">Slet</a> & "</b>" & "<br>" & "<br>" & "<br>"
Response.write "<hr>"
' Gå til næste Record i rs
rs.MoveNext
' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
</body>
</html>
