ASP Database Connection Code

' This article provides a more perfect ASP database connection code Oh, he not only connected to the Access database also includes the database Disconnect code function.
Dim Conn,rs,sql,dbpath
Set Conn=server.createobject ("Adodb.connection")
Dbpath= "web_data.asp" Database path
Call Conndate ()

Sub Conndate ()
If Err then Err.Clear
On Error Resume Next
Conn.Open "Provider = Microsoft.jet.oledb.4.0;data Source =" & Server.MapPath (DBPath)
If Err Then
Err.Clear
Set conn=nothing
Response.Write "<center><font color=red>www.111cn.net prompt you sorry, database connection error. </font></center> "
Response.End
End If
End Sub

Sub Closeconn ()
On Error Resume Next
If IsObject (conn) Then
Conn.close
Set conn = Nothing
End If
If Err then Err.Clear
End Sub
%>