==== VB6 ASP Conexión SQL Server ====

  * [[https://razorsql.com/articles/sqlserver_asp_column_names_values.html]]
  * [[https://stackoverflow.com/questions/49103537/how-to-create-select-using-asp-classic-where-data-source-from-ms-sql-server-an]]

  * [[https://www.w3schools.com/asp/ado_ref_recordset.asp]]
  * [[https://stackoverflow.com/questions/17397216/how-to-loop-for-each-recordset-in-asp/17398468]]

<code asp>
Dim strDbConnection
Dim objConn
Dim objRS
Dim strSQL
strDbConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\test.mdb;"
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open(strDbConnection)
strSQL = "SELECT fullName, birthDate FROM persons"
Set objRS = objConn.Execute(strSQL)
If objRS.EOF Then
  Response.Write("No items found")
Else
  Do While Not objRS.EOF
    Response.Write(objRS.Fields("birthDate").value & ", ")
    Response.Write(objRS.Fields("fullName").value & "<br />")
    objRS.MoveNext()
  Loop
End If
objRS.Close()
Set objRS = Nothing
objConn.Close()
Set objConn = Nothing
</code>