Connection between ASP and database

Access Link

<%
Option explicit
Dim startime, endtime, Conn, connstr, DB
Startime = timer ()
'Change the Database Name
DB = "Data/dvbbs5.mdb"
Set conn = server. Createobject ("ADODB. Connection ")
Connstr = "provider = Microsoft. Jet. oledb.4.0; Data Source =" & server. mappath (db)
'If your server adopts an older version of the access driver, use the following connection method:
'Connstr = "driver = {Microsoft Access Driver (*. mdb)}; DBQ =" & server. mappath (db)
Conn. Open connstr
Function closedatabase
Conn. Close
Set conn = nothing
End Function
%>

Mssq Link

<%
Option explicit
Dim startime, endtime, Conn, connstr, DB
Startime = timer ()
Connstr = "driver = {SQL Server}; server = HUDENQ-N11T33NB; uid = sa; Pwd = xsfeihu; database = dvbbs"
Set conn = server. Createobject ("ADODB. Connection ")
Conn. Open connstr
Function closedatabase
Conn. Close
Set conn = nothing
End Function
%>