rothen ecotronics Bern: ASP-Skript "SWP-Einführung ASP 2: Auslesen von Datensätzen"

<%@ Language=VBScript %>
<%
Response.Expires = 0

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

Dim objcon, objrspersonen, strsqlselpersonen

'*****************************************************************
'Anfang <html>
%>
<html>
  <head>
    <meta http-equiv="Content-Type" content="text/html; charset=windows-1252" />
    <title>SWP-Einführung ASP 2:  Auslesen von Datensätzen</title>
  </head>
<body>
<%
'*****************************************************************
'Code innerhalb der HTML-Seite

Set objcon = Server.CreateObject("ADODB.Connection")

'ODBC on the fly
objcon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & _
  "DBQ=" & Server.MapPath("/asppages/silvi/db/dbpersonen2000.mdb")

'OLEDB-Connection
'Achung, ev. ist nur Microsoft.Jet.OLEDB.3.51 installiert
'objcon.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
'  Server.Mappath("/asppages/silvi/db/dbpersonen2000.mdb") & ";"

'ODBC mit dsn
'objcon.Open "dsnpersonen"

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

Do While Not objrspersonen.EOF
  Response.Write(objrspersonen("nachname") & ", " & vbCrLf)
  Response.Write(objrspersonen("vorname") & ", " & vbCrLf)
  Response.Write(objrspersonen("jahrgang") & "<br />" & vbCrLf)

  objrspersonen.MoveNext
Loop
Response.Write("<p />"&vbCrLf)

objrspersonen.Close
Set objrspersonen = Nothing

objcon.Close
Set objcon = Nothing
%>

</body>
</html>

Demo: uebungen/uebung06dbanzeige.asp

Letzter Update: 26.12.2021 17:48

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