<% 'Dimension variables Dim Con 'Holds the Database Connection Object Dim rsContent 'Holds the recordset for the records in the database Dim strSQL 'Holds the SQL query for the database Dim i %> <% 'Create an ADO connection object set con = server.createobject("ADODB.Connection") con.connectionstring = ConnectionDetails con.Open If con.errors.count = 0 Then Response.Write "Connected to SQL Database
" else ' close connection and try again con.close con.Open If con.errors.count <> 0 Then Response.Write "Failed to connect to SQL server
" response.end end if End If 'Create an ADO recordset object Set rsContent = Server.CreateObject("ADODB.Recordset") 'Initialise the strSQL variable with an SQL statement to query the database strSQL = "SELECT Content.content FROM Content where sector = 'PortInfo' and ContentSection = 'One'" 'Open the recordset with the SQL query rsContent.Open strSQL, Con if not rsContent.EOF then response.write(rsContent(0)) end if %>