is ther any way to response.write on a page if there is abn active connection to database?

can you clarify this please?

i have put a 4 select options on one page in a frameset, populated therm from the datasbase and closed connection. But as i am a complete newbie at this and with so many select box and Connections i am confused, and i wanted to be able to check that the connection was not always 'open'.

'Create RecordSet'''''''''''''''''''''''''''''''''''''''
Dim objRecordset
Set objRecordset = Server.CreateObject("ADODB.recordset")
objRecordset.ActiveConnection = strConnection ' = Your Connection String
objRecordset.CursorLocation = 3
objRecordset.LockType = 3
objRecordset.CursorType = 0
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''

'Open RecordSet''''''''''''''''''''''''''''''''''''''''' '
objRecordset.Source = strSQL '=Your Qurey
objRecordset.Open
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''

'Check if state is open And Close'''''''''''
'Enum Values
'0 The object is closed.
'1 The object is open.

If objRecordset.State = 1 Then objRecordset.close
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''

thanks folks, that is perfect pjames. Thank you!

remeber to set all your objects to nothing!