rothen ecotronics Bern: ASP-Skript "ASP Datenbankanbindung: Kombinationsfeld mit Artikelkategorien aus DB erstellen"

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

'*****************************************************************
'Variablendeklarationen
Const adOpenKeyset = 1
Const adLockOptimistic = 3

Dim objcon
Dim objrs
Dim strsqlselect

'*****************************************************************
'Variableninitialisierung
strsqlselect = "SELECT kategorienr, kategoriename " &_
  "FROM tblkategorien ORDER BY kategoriename"
'Response.Write(strsqlselect & "<br />"&vbCrLf)

set objcon = Server.CreateObject("ADODB.Connection")
set objrs = Server.CreateObject("ADODB.Recordset")

'*****************************************************************
'Lokale Prozeduren und Funktionen

'*****************************************************************
'Anfang Code

'*****************************************************************
'Anfang <html>
%>
<html>
  <head>
    <meta http-equiv="Content-Type" content="text/html; charset=windows-1252" />
    <title>ASP Datenbankanbindung: Kombinationsfeld mit Artikelkategorien aus DB erstellen</title>
    <meta name="description" content="" />
    <meta name="keywords" content="" />
  </head>
<body>
Wählen Sie eine Artikelkategorie:<br />
<form method="POST" action="uebung6_8artkat2.asp">
  <select size="1" name="frmfldkategorienr">
<%
'*****************************************************************
'Code innerhalb der HTML-Seite

'mit ODBC
'objcon.Open "DSN=dsnartikel"

'ohne ODBC
objcon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & _
  "DBQ=" & server.MapPath("/asppages/silvi/db/dbartikel2000.mdb")

objrs.Open strsqlselect, objcon,adOpenKeyset, adLockOptimistic

Do While Not objrs.EOF
  Response.Write("<option value=""" & objrs("Kategorienr") & """>" &_
    objrs("Kategoriename") & "</option>"&vbCrLf)
  objrs.MoveNext
Loop
%>
  </select>
  <input type="submit" value="Abschicken" name="btnsubmit" />
</form>

</body>
</html>

Demo: uebungen/uebung6_8artkat1.asp

Letzter Update: 26.12.2021 17:48

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