Hi Leute !
Danke für Eure Antworten. Ich hab' jetzt den ganzen Mittag rumprobiert und komm leider trotzdem nicht weiter.
Vielleicht könnt Ihr mir anhand des Scripts sagen, an welcher Stelle was geändert / eingefügt werden muß. Vielen Dank schon mal im voraus !
<html>
<head>
<meta http-equiv="content-type" content="text/html;charset=iso-8859-1">
<meta http-equiv="expires" content="0">
<meta http-equiv="content-type" content="text/html;charset=iso-8859-1">
<title>Medien-Verwaltung</title>
</head>
<body>
<h1>MEDIEN-VERWALTUNG</h1>
<h2>Alle Medien</h2>
<%
strOrdnen = Request.Querystring("Order")
strConnection = "Driver={Microsoft Access Driver (*.mdb)};DBQ="
strConnection = strConnection & Server.MapPath("medien.mdb")
strConnection = strConnection & ";DriverID=25;FIL=MS Access;MaxBufferSize=512;PageTimeout=15;"
Set conn = Server.Createobject("ADODB.Connection")
conn.Open strConnection
strSQL = "SELECT * FROM domino ORDER BY [domino.Datum] "
If strOrdnen = "ID" Then
strSQL = "SELECT * FROM domino ORDER BY [domino.ID] "
strSortierung = "Order=ID"
End If
If strOrdnen = "Datum" Then
strSQL = "SELECT * FROM domino ORDER BY [domino.Datum] "
strSortierung = "Order=Datum"
End If
If strOrdnen = "Aktion" Then
strSQL = "SELECT * FROM domino ORDER BY [domino.Aktion] "
strSortierung = "Order=Aktion"
End If
If strOrdnen = "Antragssteller" Then
strSQL = "SELECT * FROM domino ORDER BY [domino.Antragssteller] "
strSortierung = "Order=Antragssteller"
End If
If strOrdnen = "Telefon" Then
strSQL = "SELECT * FROM domino ORDER BY [domino.Telefon] "
strSortierung = "Order=Telefon"
End If
If strOrdnen = "Server" Then
strSQL = "SELECT * FROM domino ORDER BY [domino.Server] "
strSortierung = "Order=Server"
End If
If strOrdnen = "Medium" Then
strSQL = "SELECT * FROM domino ORDER BY [domino.Medium] "
strSortierung = "Order=Medium"
End If
If strOrdnen = "Erledigt" Then
strSQL = "SELECT * FROM domino ORDER BY [domino.Erledigt] "
strSortierung = "Order=Erledigt"
End If
Set rs = conn.Execute(strSQL)
%>
<!-- Anzahl der vorhandenen Datensätze -->
<br><p>Haben Sie bitte etwas Geduld.</p>
<%
strAnzahl = 0
Do While Not (rs.EOF)
strAnzahl = strAnzahl + 1
rs.MoveNext
Loop
%>
<p>Zur Zeit sind <font color="#2222ff"><b><%= strAnzahl %> Medien</b></font> in der Datenbank eingetragen.</p>
<!-- Anzeigen der Datensätze -->
<%
rs.MoveFirst
%>
<table border="1" bordercolor="#000000" borderspacing="0">
<tr valign="baseline">
<td bgcolor="#cccccc" width="90"><a href="domino_search_all.asp?Order=ID"><img src="bilder/down.gif" border="0"></a><b>ID</b></td>
<td bgcolor="#cccccc" width="90"><a href="domino_search_all.asp?Order=Datum"><img src="bilder/down.gif" border="0"></a><b>Datum</b></td>
<td bgcolor="#cccccc" width="90"><a href="domino_search_all.asp?Order=Aktion"><img src="bilder/down.gif" border="0"></a><b>Aktion</b></td>
<td bgcolor="#cccccc" width="90"><a href="domino_search_all.asp?Order=Antragssteller"><img src="bilder/down.gif" border="0"></a><b>Antragssteller</b></td>
<td bgcolor="#cccccc" width="90"><a href="domino_search_all.asp?Order=Telefon"><img src="bilder/down.gif" border="0"></a><b>Telefon</b></td>
<td bgcolor="#cccccc" width="90"><a href="domino_search_all.asp?Order=Server"><img src="bilder/down.gif" border="0"></a><b>Server</b></td>
<td bgcolor="#cccccc" width="90"><a href="domino_search_all.asp?Order=Medium"><img src="bilder/down.gif" border="0"></a><b>Medium</b></td>
<td bgcolor="#cccccc" width="90" height="30"><a href="domino_search_all.asp?Order=Erledigt"><img src="bilder/down.gif" border="0"></a><b>Erledigt<br>
</b></td>
<%
nr = 0
DIM wert
Do While Not (rs.EOF)
strVar = rs("Datum")
%>
<tr valign="baseline">
<FORM name="idform" METHOD=POST>
<%
nr = nr + 1
%>
<td bgcolor="#cccccc"><input name="<%= "text" & nr %>" type=text maxlength=3 value=<%= rs("ID") %> disabled></td>
<td bgcolor="#ffffff"><%= rs("Datum") %></td>
<td bgcolor="#ffffff"><%= rs("Aktion") %></td>
<td bgcolor="#ffffff" nowrap><%= rs("Antragssteller") %></td>
<td bgcolor="#ffffff" nowrap><%= rs("Telefon") %></td>
<td bgcolor="#ffffff" nowrap><%= rs("Server") %></td>
<td bgcolor="#ffffff" nowrap><%= rs("Medium") %></td>
<td bgcolor="#ffffff" nowrap>
<INPUT TYPE=CHECKBOX NAME="<%= "name" & nr %>" value=<%= rs("ID") %> onClick="FktSet(this);"></td>
<p>Name : <%= nr %></p>
<%
rs.MoveNext
Loop
%>
</table>
</form>
<FORM name="kannrausform" METHOD=POST>
<td bgcolor="#cccccc"><input name="<%= "kannraus" %>" type=text maxlength=3 disabled></td>
</FORM>
<%
rs.Close
conn.Close
%>
<br><input type="submit" name="add" value="Add Record">
</body>
</html>
<script language="JavaScript" type="text/javascript">
function FktSet(objekt)
{
if (objekt.checked == 1) {
kannrausform.kannraus.value = "Aktiviert" + objekt.value;
}
else {
kannrausform.kannraus.value = "Deaktiviert" + objekt.value;
}
}
</script>