die Ergebnisse Deiner Debug-Ausgaben nennen,
Zeile1, Spalte 1, TAG unbekannt
Zeile 5, Spalte 1, TAG unbekannt
Zeile 35, Spalte 12, TAG unbekannt
Zeile 37, spalte 10, TAG unbekannt
Zeile 38, Spalte 10, TAG unbekannt
Zeile 39, Spalte 10, TAG unbekannt
usw.
hier nochmal der ASP-Teil, hab im Forum ein paar Leerzeilen weggelassen
<% @ Language=VBScript %>
<html>
<head><title>Kunde-ASP</title></head>
<body> <div align="center">
<%
DIM mKNR
DIM objCon, strDB, strCon, ObjRs
strDB="Data Source"= & Server.MapPath("/Auftrag.mdb")
strCon="Provider=Microsoft.Jet.OLEDB.4.0;" & strDB
mKNR=request.form("Kunde")
SET objCon=Server.CreateObject("ADODB.Connection")
SET ObjRS=Server.CreateObject("ADODB.Recordset")
objCon.open strCon
mSQL="Select KunID, KunFirma, KunOrt, KunTelefon FROM TabKunden WHERE KunID=mKNR;"
objRS.open mSql, objCon
objRS.MoveFirst
%>
<h2> Name: <% response.write objRS("KunFirma") %> </h2>
<br>
<h4>KNR: <% response.write objRS("KunID") %> <br>
Adresse: <% response.write objRS("KunOrt") %> <br>
Kontakt: <% response.write objRS("KunTelefon") %> </h4>
<br><br><br>
<%
mSQL="Select AufID, PosID, LeiID FROM TabAuftraege INNERJOIN TabPositionen on TabAuftraege.AufID=TabPositionen.AUFID WHERE KunID=mKNR;"
objRS.open msql, objCon
objRS.MoveFirst
%>
<table border="1">
<tr>
<th> Auftragsnummer </th>
<th> Positionsnummer </th>
<th> Beschreibung </th>
</tr>
<% While not objRS.EOF %>
<tr> <td> <% response.write objRS("AufID") %> </td>
<td> <% response.write objRS("PosID") %> </td>
<td> <% response.write objRS("LeiID") %> </td> </tr>
<%
objRS.movenext
wend
objCon.Close
%>
</div>
</body>
</html>