Displaying SQL Server records in Classic ASP

Displaying SQL Server rows follows the same ADO Recordset pattern as Access: open a connection, execute a SELECT statement, loop until EOF, encode the values for HTML and release database objects.

Complete display example

<%@ Language="VBScript" %>
<% Option Explicit %>
<!-- #include virtual="/adovbs.inc" -->
<!-- #include virtual="/conn.asp" -->
<%
Dim conn, rs
Set conn = Server.CreateObject("ADODB.Connection")
conn.Mode = adModeRead
conn.ConnectionString = aConnectionString
conn.Open

Set rs = conn.Execute("SELECT issue_dt FROM dt ORDER BY issue_dt")
Do While Not rs.EOF
  Response.Write Server.HTMLEncode(CStr(rs("issue_dt"))) & "<br>"
  rs.MoveNext
Loop

rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>

Connection.Execute() is convenient for a fixed read-only query. If the query contains visitor-controlled values, create an ADODB.Command and add parameters instead.

Subhendu Mohapatra

Author & Instructor at plus2net

I write and maintain practical tutorials on Python, PHP, SQL, JavaScript, HTML, jQuery, and web development at plus2net. The tutorials focus on clear explanations, working examples, and code that readers can test and adapt while learning.

About the author   Watch on YouTube

Connect: