Du hast den Löschen-Code inmitten des Formulars geschreiben, das kann so nicht funktionieren.
Die Verbindung zur Datenbank soll ja über Select und auch über Delete passieren, deshalb wäre es besser, wenn Du diese über dem Header anlegest oder halt als include.
Ferner kann man Aktionen, die ausgeführt werden sollen, in Funktionen schreiben und diese dann an entspr. Stelle ausführen lassen. In Deinem Falle, wenn das Formular abgeschickt worden ist. Ist hier nur ein Beispiel, ohne den Code wirklich optimiert zu haben und ein Hinweis auf diese Möglichkeit
Bsp.
<%@LANGUAGE="VBSCRIPT" %>
<%
dim strDatabase
strDatabase = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=c:/inetpub/wwwroot/asp_net/diplom.mdb"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strDatabase
' --- Funktion-Löschen
function getDelete()
SQL2 = "DELETE FROM Insert_Fach WHERE chkID IN ("& (Request.Form("check")) &");"
getDelete = conn.execute SQL2
conn.close
response.redirect("look_belegung.asp")
end function
' --- Löschen ausführen
if Request.Form.count >0 then
getDelete()
end if
%>
<html>
<head>
<title>Test von Luzie</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
SQL = "SELECT * FROM Insert_Fach Order By Veranstalltung;"
set rs=Server.CreateObject("ADODB.recordset")
rs.open SQL, conn
' -- conn.execute SQL --- kann man sich sparen, da Du das Recordset aufrufst
%>
<div align="center">
<form action="look_belegung.asp" method="post" name="delete">
<table border="1" width="100%">
<%
dim anfz, anfz2, endz, endz2
do while not rs.eof
anfz = (rs.Fields("Anfangszeit"))
anfz2 = left(anfz, 5)
endz = (rs.Fields("Endzeit"))
endz2 = left(endz, 5)
%>
<tr>
<td width="9%"><input type="checkbox" name="check" value="<%=rs("chkID")%>"></td>
<td width="13%"><%response.write rs.Fields("Veranstalltung")%></td>
<td width="13%"><%response.write rs.Fields("Tag")%></td>
<td width="13%"><%response.write rs.Fields("Monat")%></td>
<td width="13%"><%response.write rs.Fields("Jahr")%></td>
<td width="13%"><%response.write(anfz2)%></td>
<td width="13%"><%response.write(endz2)%></td>
<td width="13%"><%response.write rs.Fields("RaumNr")%></td>
</tr>
<%rs.movenext
loop %>
<tr>
<td colspan="9">
<input type="submit" name="send" value="Löschen">
<input type="reset" name="stay" value="Zurücksetzten">
</td>
</tr>
</table>
</form>
</div>
<p align="center"><a href="startseite_stundenplanverwaltung.htm"><b>Startseite</b></a></p>
<%
rs.close
conn.close
%>
</body>
</html>