Set dbObj = Server.CreateObject("ADODB.CONNECTION") Set dbRst = Server.CreateObject("ADODB.RECORDSET") dbObj.Open strdbADSLQ sField = "COUNT(ID)" 'Retrieve the number of records strSQL = "SELECT COUNT(id) FROM ADSL_QUEUE_STATES WHERE account_id = " & strSearchAccId dbRst.Open strSQL, dbObj, 3, 3 strCurrentRecordCount = dbRst.Fields(sField) dbRst.Close Set dbRst = Nothing Set dbObj = Nothing

Set dbObj = Server.CreateObject("ADODB.CONNECTION") Set dbRst = Server.CreateObject("ADODB.RECORDSET") dbObj.Open strdbADSLQ strSQL = "SELECT q.id ,q.account_id,q.last_change,i.firstname,i.lastname,r.adsl_phone, b.b2b_flag, b.rejection_cause FROM ADSL_QUEUE_STATES q, ADSL_INVOICE_DATA i, ADSL_REQUEST_DATA r, ADSL_BELGACOM_DATA b WHERE q.account_id = i.account_id AND q.account_id = r.account_id AND q.account_id = b.account_id AND q.account_id = " & strSearchAccId & " ORDER BY LAST_CHANGE ASC" dbRst.Open strSQL, dbObj, 3, 3 If dbRst.EOF and dbRst.BOF Then ' no data found, do whatever HTML output you wish %> <tr> <td bgcolor="#F5F5F5" colspan="5">Could not find any requests for the current state (<%=strStateName%>) or search.</td> </tr> <% Else 'Begin loop Do dbRst.MoveNext 'here process line read ' REM you read a column via Trim(dbRst("HOUSE_NUMBER")) Loop While dbRst.EOF = False End If dbRst.Close dbObj.Close Set dbRst = Nothing Set dbObj = Nothing

strdbADSLQ = "File Name=d:\adslq.udl"

[oledb] ; Everything after this line is an OLE DB initstring Provider=MSDAORA.1;Password=withdrawn;User ID=armand;Data Source=someserver;Persist Security Info=True