nicht angemeldet
Hallo Bettina!
Hier ein Lösungsvorschlag für Dein Schript:
-------------------------------------------------------------------
<%@ LANGUAGE= "VBScript" %>
<HTML>
<head>
<TITLE>Ansicht der Datenbank SG-Geräte</TITLE>
<link rel="stylesheet" type="text/css" href="../css/standard.css">
<style type="text/css">
</style>
</head>
<BODY>
<%
Dim Data_Array, Data_Rows, LfdNr
LfdNr = 0
SET DB = Server.CreateObject("ADODB.Connection")
DB.Open("geraetedaten")
SQLQuery="Select Nummer, Geraet , Hersteller , Typ , Tragfähigkeit, Baujahr , Bemerkungen From Geraete"
SQLQuery= SQLQuery + " Where Geraet Like '"+ Request.Form("Geraet") + "%'"
SET rs = DB.Execute(SQLQuery)
If Not rs.EOF Then
Data_Array=rs.getrows
Data_Rows = ubound(Data_Array,2)
End if
if rs.eof THEN %>
<br>
<b>Es sind keine <%=Request.Form("Geraet")%> in der Datenbank vorhanden vorhanden.</b>
<%else%>
<br><b>Folgende Datensätze sind in der Datenbank vorhanden:</b><br>
<br>
<table>
<tr>
<td align=center bgcolor="#FF9900"><b>Nummer</b>
<td align=center bgcolor="#FF9900"><b>Typ</b>
<td align=center bgcolor="#FF9900"><b>Baujahr</b>
<td align=center bgcolor="#FF9900"><b>Hersteller</b>
<td align=center bgcolor="#FF9900"><b>Tragfähigkeit</b>
<td align=center bgcolor="#FF9900"><b>Bemerkungen</b>
<td align=center bgcolor="#FF9900"><b>Löschen </b>
</tr>
<% do while not rs.eof %>
<form name="Formular" method="get" action="loeschen3.asp" onSubmit="return chkFormular()">
<tr>
<td align=center bgcolor="#FFCC66"><b><% = rs("Nummer") %></b> </td>
<td align=center bgcolor="#FFCC66"><b><% = rs("Typ") %> </b></td>
<td align=center bgcolor="#FFCC66"><b><% = rs("Baujahr") %> </b></td>
<td align=center bgcolor="#FFCC66"><b><% = rs("Hersteller") %></b> </td>
<td align=center bgcolor="#FFCC66"><b><% = rs("Tragfähigkeit") %></b> </td>
<td align=center bgcolor="#FFCC66"><b><% = rs("Bemerkungen") %> </b></td>
$$$$$$$$$$ Dieses Feld soll kontrolliert werden: $$$$$$$$
<td align=center bgcolor="#FFCC66"><input type="checkbox" name="Nummer<%= LfdNr %>" value="<% = rs("Nummer") %>"></center>
</tr>
<% LfdNr = LfdNr + 1 %>
<% rs.movenext %>
<% loop %>
</table>
<% rs.close %>
<% DB.Close %>
<p><input type=submit value="Daten löschen">
<p><font face="Arial"><a href="../index.htm">zurück zur Startseite</a><br>
<p><font face="Arial"><a href="loeschen1.htm">zurück zur Auswahl</a></p>
<p><br>
</p>
<script type="text/javascript">
<!--
function chkFormular( )
{
with( document.Formular )
if( (
<%
For a = 0 To Data_Rows
If (a = 0) Then
Response.Write "Nummer" & a & ".checked" & vbCrLf
Else
Response.Write "|| Nummer" & a & ".checked" & vbCrLf
End if
Next
%>
)
)
{
return( true );
}
else
{
alert( "\nBitte waehlen Sie mindestens einen Punkt aus" );
return( false );
}
}
//-->
</script>
</body>
</html>
-------------------------------------------------------------------
Es sind nur geringfügige Erweiterungen, also leicht nachzuvollziehen, denke ich.
Gruß
Saadat