Home
About
Contact
Categories
Classic ASP (28 - Sub-Categories)
CSS (1 - Sub-Category)
JavaScript (4 - Sub-Categories)
Databases (22 - Sub-Categories)
ASP.NET (23 - Sub-Categories)
Delphi (5 - Sub-Categories)
Windows Server Core (3 - Sub-Categories)
VMWare (1 - Sub-Category)
Code Editing Tools (2 - Sub-Categories)
Linux (2 - Sub-Categories)
Dell Servers (15 - Sub-Categories)
Bug Reports
(Bugs Fixed
New CFFCS Coding Source is still in Beta
Please report any errors to the [Contact] page. Thank you.
Classic ASP (28)
CSS (1)
JavaScript (4)
Databases (22)
ASP.NET (23)
Delphi (5)
Windows Server Core (3)
VMWare (1)
Code Editing Tools (2)
Linux (2)
Dell Servers (15)
Resources
[View The Source Code For This Project]
Format SQL Script
Classic ASP
Forms
Classic ASP Database Driven Select Menu (Dropdown Menu)
Live Editing Disabled for Server-Side Example
HTML
<!--#include file="Header.asp"--> <!doctype html> <html lang="en"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>ASP Classic SQL Server Database Driven Dropdown Menu</title> </head> <body> <strong>ASP Classic SQL Server Database Driven Dropdown Menu</strong><br /> This demonstration loads all values into a Select Menu from a database table.<br /> <select> <option value="0">Choose</option> <%if not rsDD.eof then while not rsDD.eof id = rsDD("ddid") ddName = rsDD("ddName")%> <option value="<%=id%>"><%=ddName%></option> <%rsDD.movenext wend end if rsDD.close set rsDD = nothing objConn.close set objConn = Nothing%> </select> </body> </html>
SQL
XDropDown
-- Create a new database called [Virtual-Class-01] in SQL Server. -- Right-click and choose [New Query] -- Copy and paste the code below and hit [Execute] USE [Virtual-Class-01] GO /****** Object: Table [dbo].[DropDown] Script Date: 7/31/2022 5:57:27 PM ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE TABLE [dbo].[DropDown]( [ddID] [int] IDENTITY(1,1) NOT NULL, [ddName] [nvarchar](50) NOT NULL, CONSTRAINT [PK_DropDown] PRIMARY KEY CLUSTERED ( [ddID] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON, OPTIMIZE_FOR_SEQUENTIAL_KEY = OFF) ON [PRIMARY] ) ON [PRIMARY] GO SET IDENTITY_INSERT [dbo].[DropDown] ON GO INSERT [dbo].[DropDown] ([ddID], [ddName]) VALUES (1, N'asp classic') GO INSERT [dbo].[DropDown] ([ddID], [ddName]) VALUES (2, N'visual basic') GO INSERT [dbo].[DropDown] ([ddID], [ddName]) VALUES (3, N'jquery') GO INSERT [dbo].[DropDown] ([ddID], [ddName]) VALUES (4, N'javascript') GO INSERT [dbo].[DropDown] ([ddID], [ddName]) VALUES (5, N'asp.net') GO INSERT [dbo].[DropDown] ([ddID], [ddName]) VALUES (6, N'vb.net') GO INSERT [dbo].[DropDown] ([ddID], [ddName]) VALUES (7, N'C#') GO INSERT [dbo].[DropDown] ([ddID], [ddName]) VALUES (8, N'web.config') GO INSERT [dbo].[DropDown] ([ddID], [ddName]) VALUES (9, N'database.config') GO INSERT [dbo].[DropDown] ([ddID], [ddName]) VALUES (10, N'runtime') GO SET IDENTITY_INSERT [dbo].[DropDown] OFF GO
Classic ASP
ACN.asp
Header.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% getServer = "sqlcorecs-01" getInstance = "sql2019" getID = "testuser" getPW = "testuser" Set objConn = CreateObject("ADODB.Connection") objConn.Open("Provider=SQLOLEDB; Data Source="&getServer&"\"&getInstance&"; Initial Catalog=Virtual-Class-01;User ID="&getID&";Password="&getPW&";") %>
<!--#include file="ACN.asp"--> <% ' Create the Command to start your SQL and then your RecordSet (rsDD) Set sqlDD = Server.CreateObject("ADODB.Command") sqlDD.ActiveConnection=objConn sqlDD.Prepared = true sqlDD.commandtext="SELECT ddid, ddname from DropDown" set rsDD = sqlDD.execute %>
Preview
Tags
ASP Classic database-driven dropdown menu
dropdown menu with SQL Server
Create a connection to our database
populate our select menu
close the RecordSet
