<%
'Dimension variables
Dim conn2 'Holds the Database Connection Object
Dim rsbbss2 'Holds the recordset for the records in the database
Dim strSQL2 'Holds the SQL query for the database
Dim strMDBPath2
set conn2=server.createobject("ADODB.Connection")
strMDBpath2 = "e:\domains\b\blueberrybusiness.co.uk\user\private\bbss.mdb"
'direct connection
conn2.open "PROVIDER=MSDASQL;DRIVER={SQL Server};SERVER=213.171.218.235;UID=dgtbk1;PWD=Redhouse1;DATABASE=DGTBK1"
'Create an ADO recordset object
Set rsbbss2 = Server.CreateObject("ADODB.Recordset")
'Initialise the strSQL variable with an SQL statement to query the database
strSQL2 = "SELECT hqss.* FROM hqss order by year desc, month desc, day desc;"
'Open the recordset with the SQL query
rsbbss2.Open strSQL2, conn2
'Loop through the recordset
Do While not rsbbss2.EOF%>
|
<% = Response.Write (rsbbss2("day")) %>
/
<% = Response.Write (rsbbss2("month")) %>
/
<% = Response.Write (rsbbss2("year")) %>
|
<% = Response.Write (rsbbss2("subject")) %>
">more... |
<%
'Move to the next record in the recordset
rsbbss2.MoveNext
Loop
'Reset server objects
rsbbss2.Close
Set rsbbss2 = Nothing
Set conn2 = Nothing
%>
|
