Latest News From Harlequin Corporate Finance

<% '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\\user\private\bbss.mdb" 'direct connection "PROVIDER=MSDASQL;DRIVER={SQL Server};SERVER=;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%> <% 'Move to the next record in the recordset rsbbss2.MoveNext Loop 'Reset server objects rsbbss2.Close Set rsbbss2 = Nothing Set conn2 = Nothing %>
<% = Response.Write (rsbbss2("day")) %> / <% = Response.Write (rsbbss2("month")) %> / <% = Response.Write (rsbbss2("year")) %>
<% = Response.Write (rsbbss2("subject")) %> ">more...



(C) Harlequin Corporate Finance Ltd