|
Server : Apache/2.4.62 System : FreeBSD fbsdweb2.web.rcn.net 14.1-RELEASE FreeBSD 14.1-RELEASE releng/14.1-n267679-10e31f0946d8 GENERIC amd64 User : www ( 80) PHP Version : 8.3.8 Disable Function : NONE Directory : /domains/conceptlabs1/ |
Upload File : |
<html>
<head>
<title>My First ASP Page</title>
</head>
<body bgcolor="black" text="white">
<%
'Dimension variables
Dim adoCon 'Holds the Database Connection Object
Dim rsGuestbook 'Holds the recordset for the records in the database
Dim strSQL 'Holds the SQL query to query the database
'Create an ADO connection object
'Set adoCon = Server.CreateObject("ADODB.Connection")
'Set an active connection to the Connection object using a DSN-less connection
'adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("clicopy.mdb")
'Set an active connection to the Connection object using DSN connection
'adoCon.Open "DSN=clicopy"
'Create an ADO recordset object
'Set rsclicopy = Server.CreateObject("ADODB.Recordset")
'Initialise the strSQL variable with an SQL statement to query the database
'strSQL = "SELECT jacktable.vendor FROM jacktable;"
'Open the recordset with the SQL query
'rsclicopy.Open strSQL, adoCon
'Loop through the recordset
'Do While not rsclicopy.EOF
'Write the HTML to display the current record in the recordset
' Response.Write ("<br>")
' Response.Write (rsclicopy("vendor"))
' Response.Write ("<br>")
'Move to the next record in the recordset
' rsclicopy.MoveNext
'Loop
'Reset server objects
'rsclicopy.Close
'Set rsclicopy = Nothing
'Set adoCon = Nothing
%>
</body>
</html>