Ich noch mal
hab jetzt bisl gesucht und gebastelt. Nur leider funktioniert das ganze nicht so

Hier mal mein Quelltext:
Wie gesagt ich hab noch nie mit ASP gearbeitet
-----------------
<html>
<head>
</head>
<body>
<% @ Language="VBScript"
LCID = 1031 %><%
Option Explicit
Response.Buffer = true
Session.LCID = 1031
Dim rs, strConn, Conn, strPfadDB, SQL
set rs = Server.CreateObject("ADODB.Recordset")
strPfadDB = Server.MapPath("ServerKonf.mdb")
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strPfadDB
SQL = "Select * from Komplett"
rs.Open SQL, strConn, 0, 1
%>
<table border=1>
<tr>
<th bgcolor="#b9b9b9">Rechner</th>
<th bgcolor="#b9b9b9">Betriebssystem</th>
<th bgcolor="#b9b9b9">Netzwerk</th>
<th bgcolor="#b9b9b9">IP-Adresse</th>
<th bgcolor="#b9b9b9">Rechner-Typ</th>
<th bgcolor="#b9b9b9">Haupt</th>
<th bgcolor="#b9b9b9">Festplatten-Kapazität</th>
<th bgcolor="#b9b9b9">Rack-Nr</th>
<th bgcolor="#b9b9b9">Nutzung</th>
<th bgcolor="#b9b9b9">Leistungsaufnahme</th>
<th bgcolor="#b9b9b9">kVA Anzahl</th>
<th bgcolor="#b9b9b9">Wirkleistung (Wärmeabgabe) kW</th>
<th bgcolor="#b9b9b9">kW Anzahl</th>
</tr>
<%
Do while not rs.EOF
Response.Write("<tr>")
Response.Write("<td>" & rs.Fields("Rechner").Value & "</td>")
Response.Write("<td>" & rs.Fields("Betriebssystem").Value & "</td>")
Response.Write("<td>" & rs.Fields("Netzwerk").Value & "</td>")
Response.Write("<td>" & rs.Fields("IP-Adresse").Value & "</td>")
Response.Write("<td>" & rs.Fields("Rechner-Typ").Value & "</td>")
Response.Write("<td>" & rs.Fields("Haupt").Value & "</td>")
Response.Write("<td>" & rs.Fields("Festplatten-Kapazität").Value & "</td>")
Response.Write("<td>" & rs.Fields("Rack-Nr").Value & "</td>")
Response.Write("<td>" & rs.Fields("Nutzung").Value & "</td>")
Response.Write("<td>" & rs.Fields("Leistungsaufnahme").Value & "</td>")
Response.Write("<td>" & rs.Fields("kVA Anzahl").Value & "</td>")
Response.Write("<td>" & rs.Fields("Wirkleistung (Wärmeabgabe) kW").Value & "</td>")
Response.Write("<td>" & rs.Fields("kW Anzahl").Value & "</td>")
Response.Write("</tr>")
rs.MoveNext
Loop
rs.Close
set rs = nothing
%>
</table>
</body>
</html>
----------------------