ASP database connection and shutdown program

Public Function dbopen ()
If IsObject (Conn) Then Exit Function
Set Conn = Server.CreateObject (cfg.nconnectionobject)
If conn.state = 1 Then Exit Function
On Error Resume Next
Conn.Open ConnStr
If Err.Number Then
ErrorInfo = Err.Description
Err.Clear
Set Conn = Nothing
Response.Write "<div style=" "Font-family:arial,verdana; font-size:12px; "" > "& cfg.sysversion &" Execution error ("& Now () &") <a href= "JavaScript Tutorial: History.back ();" " > Return </a> <a href= "" Javascript:location.reload (); "" > Retry </a><br/><br/> Error Source: <br/><span style= "" Color: #FF0000 "" > Database connection Error </span> <br/> Error Description: <br/><span style= "" Color: #FF0000 "" > "& errorinfo &" </span> "
Response.Write "</div>"
Response.End ()
End If
End Function

Public Function dbclose ()
If not IsObject (Conn) Then Exit Function
If conn.state = 0 Then Exit Function
Conn.Close:Set Conn = Nothing
End Function

' function: Creating a Database Recordset object
' Parameters: Link string
Public Function RecordSet (obj)
Set obj = Server.CreateObject (cfg.nrecordsetobject)
End Function