nicht angemeldet
Hi Rouven,
auf jeden Fall Danke, ich versuche es umzusetzen.
Bis Bald!!!
TIP: Ist zwar für ASP aber den Code hatte ich grad griffbereit. So ähnlich müsste es gehen...
<html>
<head> <title> Kunde - Antwort </title> </head>
<body>
<div align="center">
<%
DIM mKNR
DIM objcon, strdb, strcon, objrs
mKNR=request.form("Kunde")
SET objcon=Server.CreateObject("ADODB.Connection")
strdb="Data Source=" & Server.MapPath ("Test1.mdb")
strcon="Provider=Microsoft.Jet.OLEDB.4.0;" & strdb
objcon.open strcon
Set objrs=Server.CreateObject("ADODB.Recordset")
mSQL="Select * FROM Kunde WHERE Kundennummer="&mKNR&";"
objrs.open mSQL, objcon
objrs.MoveFirst
%>
<h2> <% response.write objrs("Name") %> </h2>
<br>
<h4> <% response.write objrs("Kundennummer") %> <br> <br>
<% response.write objrs("Straße") %> <br>
<% response.write objrs("Postleitzahl") %> <br>
<% response.write objrs("Ort") %> <br> <br>
<% response.write objrs("Telefon") %> </h4>
<br><br><br>
<%
objrs.close
mSQL="Select Auftragsnummer, Positionsnummer, Leistung FROM Auftrag INNERJOIN Position on Auftrag.Auftragsnummer=Position.Auftragsnummer WHERE Kundennummer="&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("Auftragsnummer") %> </td>
<td> <% response.write objrs("Positionsnummer") %> </td>
<td> <% response.write objrS("Leistung") %> </td> </tr>
<%
objrs.movenext
wend
objcon.Close
Set objrs=Nothing
%>
</div>
</body>
</html>