Sorry about the delay, haven't been quite on the ball the last few days. Start VB, select Activex DLL as the new project

The project was called wc and the classfile this code was in was called getrs so it was instantiated and then called on the ASP by response.write wc.getrs, it returns as a string an html table containing the recordset data.

Code:
Public Function getrs() As String
On Error GoTo errorhandler

Dim rs As New Recordset
Dim conn As New Connection
Dim mystring As String

'initialise stuff
mystring = ""

'make connection to db
Set conn = CreateObject("adodb.connection")
ConnectionString = "ODBC;UID=username;PWD=password;SVR=SERVERNAME;CLS=CLASS;XPT=2;DBA=W;DRIVER=Oracle ODBC Driver for RDB"
conn.Open ConnectionString

'grab records
rs.Open "SELECT * From CAA_APPLICATIONS order by caa_applications.system_code", conn, adOpenStatic

'the business bit
Do While Not rs.EOF
    'mystring = mystring & "<TR>" & "<TD>" & rs![system_code] & "</TD>" & "</TR>"
    mystring = mystring & "<TR>" & "<TD>" & rs![system_code] & "</TD>" & "<td>" & rs![cisb_supported] & "</TD>" & "<td>" & rs![application_manager] & "</TD>" & "<td>" & rs![am_phone] & "</td>" & "<td>" & rs![account_manager] & "</td>" & "<td>" & rs![acm_phone] & "</td>" & "</TR>"
    rs.MoveNext      
Loop

'give string back to caller
getrs = mystring

'tidy up
Set rs = Nothing
conn.Close
Set conn = Nothing

End Function