Hej softspot. Tak hjælpen so far. :-)
Havde lavet fejl. Databasen hedder naturligvis ikke login_2000.asp men login_2000.mdb
Har omskrevet scriptet lidt. Her er resultatet:
------------------------------------------------------------------------------
<html>
<head>
<title>Delete users</title>
<meta name="Generator" content="Stone's WebWriter 4">
</head>
<body>
<form action="delete.asp" method="post">
<table>
<%
' 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("login_2000.mdb")
Conn.Open DSN
strSQL = "Select * From Users"
Set rs = Conn.Execute(strSQL)
do while not rs.EOF
%>
<tr>
<td><input type="checkbox" name="check" value="<%=rs("UserID")%>"></td>
<td><%=rs("FirstName")%></td>
<td><%=rs("LastName")%></td>
<td><%=rs("Username")%></td>
</tr>
<%
rs.MoveNext
loop
rs.close
Conn.Close
Set Conn = Nothing
%>
<tr>
<td colspan="4"><input type="submit" value="Delete selected"></td>
</tr>
</table>
</form>
</body>
</html>
------------------------------------------------------------------------------
Dette virker fint. Har dog lidt problemer med delete.asp som nu ser sådan ud:
------------------------------------------------------------------------------
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "
http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html>
<head>
<title>[Ingen titel]</title>
<meta name="Generator" content="Stone's WebWriter 4">
</head>
<body>
<%
' 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("login_2000.mdb")
Conn.Open DSN
SQL = "DELETE * FROM Users WHERE ID IN [" & request.form("check") & "]"
set cn = Server.CreateObject("ADODB.Connection")
cn.Open strConn
cn.Execute SQL
rs.close
Conn.Close
Set Conn = Nothing
%>
</body>
</html>
------------------------------------------------------------------------------
Her får jeg en fejl ved linie 18 som er : cn.Open strConn
Jeg er sikker på at du lige ved hvad jeg skal gøre. ;-)
