OK, zunächst vielen Dank,
folgend ein bisschen Code den ich bereits habe. Eine einfache DB Abfrage in der als letzte Zeile in der Antwort eine CheckBox
ausgegeben wird.
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Model</title>
</head>
<body text="#FFFFFF" bgcolor="#000000">
</p>
<form action="Seite3.asp" method="get">
<table border="0">
<tr>
<td><b><font face="Arial">Model:</font></b></td>
<td>
<font face="Arial">
<input type="text" name="Model" size="20" /></font></td>
</tr>
<tr>
<td><b><font face="Arial">Seriennummer:</font></b></td>
<td>
<font face="Arial">
<input type="text" name="Serial" size="20" /></font></td>
</tr>
<td><b><font face="Arial">Bergmann-Nr.:</font></td>
<td>
<font face="Arial">
<input type="text" name="Berg" size="20" /></font></td>
</tr>
<td><b><font face="Arial">Kunde:</font></td>
<td>
<font face="Arial">
<input type="text" name="Kunde" size="20" /></font></td>
</tr>
<td><b><font face="Arial">PLZ:</font></td>
<td>
<font face="Arial">
<input type="text" name="PLZ" size="20" /></font></td>
</tr>
<td><b><font face="Arial">Ort:</font></td>
<td>
<font face="Arial">
<input type="text" name="Ort" size="20" /></font></td>
</table>
<font face="Arial">
<br>
<input type="submit" value="Absenden" /><input TYPE="Reset">
</tr>
</font>
</form>
<%
dim strModel, strSerial, strKunde, strBerg, strPLZ, strOrt
strModel=Request.QueryString("Model")
strSerial=Request.QueryString("Serial")
strKunde=Request.QueryString("Kunde")
strBerg=Request.QueryString("Berg")
strPLZ=Request.QueryString("PLZ")
strOrt=Request.QueryString("Ort")
DB1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("fpdb\Reparaturen.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM Tabelle1 WHERE (Model LIKE '" & strModel & "' OR Serial_Nr LIKE '" & strSerial & "' OR Nr LIKE '" & strBerg & "' OR Customer LIKE '" & strKunde & "' OR Postal_Code LIKE '" & strPLZ & "' OR City LIKE '" & strOrt & "')", DB1, 3, 2
Response.Write("<table border=1 cellpadding=2 celllspacing=2>")
Response.Write("<tr>")
Response.Write("<th>Nummer</th>")
Response.Write("<th>Model</th>")
Response.Write("<th>Seriennummer</th>")
Response.Write("<th>Kunde</th>")
Response.Write("<th>PLZ</th>")
Response.Write("<th>Ort</th>")
Response.Write("<th>Auswählen</th>")
Response.Write("</tr>")
%>
<form action="Seite3_2.asp" method="POST">
<%
Do while not rs.EOF
Response.Write("<tr>")
Response.Write("<td>"& rs.Fields("Nr").Value & "</td>")
Response.Write("<td>"& rs.Fields("Model").Value & "</td>")
Response.Write("<td>"& rs.Fields("Serial_Nr").Value & "</td>")
Response.Write("<td>"& rs.Fields("Customer").Value & "</td>")
Response.Write("<td>"& rs.Fields("Postal_Code").Value & "</td>")
Response.Write("<td>"& rs.Fields("City").Value & "</td>")
%>
<td>
<input type="checkbox" name="Sel">
</td>
<%
rs.MoveNext
loop
Response.Write("</table>")
%>
<input type="submit" value="Absenden"></form>
<%
rs.close
%>
Die in der Tabelle angeklickten Datensätze sollen nun auf einer weiteren Seite mit zusätzlichen in der DB befindlichen Einträgen angezeigt werden. Das wollte ich wie folgt lösen:
<%
dim strModel, strSerial, strKunde, strBerg, sel,
strModel = Request.Form("Model2")
Sel = Request.Form("Sel")
Response.Write("Model: " & StrModel & "<br />")
DB1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("fpdb\NAD_Reparaturen.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM Tabelle1 WHERE (Model LIKE '" & strModel & "' OR Serial_Nr LIKE '" & strSerial & "' OR Nr LIKE '" & strBerg & "' OR Customer LIKE '" & strKunde & "')", DB1, 3, 2
IF Sel="on" THEN
Response.Write("<table border=1 cellpadding=2 celllspacing=2>")
Response.Write("<tr>")
Response.Write("<th>Nummer</th>")
Response.Write("<th>Model</th>")
Response.Write("<th>Seriennummer</th>")
Response.Write("<th>Kunde</th>")
Response.Write("<th>Checked</th>")
Response.Write("</tr>")
Do while not rs.EOF
Response.Write("<tr>")
Response.Write("<td>"& rs.Fields("Nr").Value & "</td>")
Response.Write("<td>"& rs.Fields("Model").Value & "</td>")
Response.Write("<td>"& rs.Fields("Serial_Nr").Value & "</td>")
Response.Write("<td>"& rs.Fields("Customer").Value & "</td>")
if instr(SelA,"on") then Response.Write("checked")
Response.Write("<td>"& (SelA) & "</td></tr>")
rs.MoveNext
loop
Response.Write("</table>")
ELSE
%>
Keide DS gefunden
<%
END IF
rs.close
%>
Das funktioniert aber so nicht. werde mal versuchen deinen Tip zu implementieren.
Für weitere Hilfe wäre ich sehr dankbar.
Gruß, Sven