rothen ecotronics Bern: ASP-Skript "ASP Datenbankanbindung: Alle Felder von Datensï¿½tzen auslesen"

<%@ Language=VBScript %>
<%
Option Explicit
Response.Expires = 0
'On Error Resume Next

'Datenbankanbindung ohne ODBC
'geht nur, wenn auf Webserver ein Access-Treiber installiert ist!

Dim blnerstezeile, objcon, objrspersonen, objfield
Dim strcon, strsqlselpersonen

blnerstezeile = true

'*****************************************************************
'Anfang <html>
%>

<html>
  <head>
    <title>ASP Datenbankanbindung: Alle Felder von Datensätzen auslesen</title>

  </head>
<body>
<%
'*****************************************************************
'Code innerhalb der HTML-Seite

Set objcon = Server.CreateObject("ADODB.Connection")
strcon = "DRIVER={Microsoft Access Driver (*.mdb)}; " & _
  "DBQ=" & server.MapPath("/asppages/silvi/db/dbpersonen2000.mdb")
Response.Write strcon
objcon.Open strcon

'Select
strsqlselpersonen = "SELECT * FROM tblpersonen "
Set objrspersonen = Server.CreateObject("ADODB.Recordset")
objrspersonen.Open strsqlselpersonen, objcon, 3, 1

Response.Write("<table border=""1"">" & vbCrLf)

Do While Not objrspersonen.EOF
  If blnerstezeile Then
    Response.Write("  <tr>" & vbCrLf)
    For Each objfield in objrspersonen.Fields
      Response.Write("    <td>" & vbCrLf)
      Response.Write("      <b>" & UCase(objfield.Name)& "</b>" & vbcrlf)
      Response.Write("    </td>" & vbCrLf)
    Next
    Response.Write("  </tr>" & vbCrLf)
    blnerstezeile = false
  End If
  Response.Write("  <tr>" & vbCrLf)
  For Each objfield in objrspersonen.Fields
    Response.Write("    <td>" & vbCrLf)
    Response.Write("      " & objfield.Value & vbcrlf)
    Response.Write("    </td>" & vbCrLf)
  Next
  objrspersonen.MoveNext
  Response.Write("  </tr>" & vbCrLf)
Loop
Response.Write("</table>" & vbCrLf)
Response.Write("<p />"&vbCrLf)

objrspersonen.Close
Set objrspersonen = Nothing
%>

</body>
</html>

Demo: beispiele/060dbohneodbcallfields.asp

Letzter Update: 26.12.2021 16:48

Zurück zur Liste mit ASP-Beispielen auf www.ecotronics.ch