<%@ 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>
<!--#include virtual="asppages/silvi/_include/inchtmlnachspann.asp" -->
</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