<% @ 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
Die Datei sieht jetzt so aus: (Aber es klappt immer noch nicht. Wenn man der Wald vor lauter Bäumen nicht mehr sieht... Und ich wollte ab Oktober Informatik studieren - Hahaha)
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;"
If Not objRS.EOF Then
...
End if
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>
<%
objRS.Close
mSQL="Select AufID, PosID, LeiID FROM TabAuftraege INNERJOIN TabPositionen on TabAuftraege.AufID=TabPositionen.AUFID WHERE KunID=" & mKNR;"
If Not objRS.EOF Then
...
End if
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
Set objRS = Nothing
%>
</div>
</body>
</html>