set cn = Server.CreateObject("ADODB.Connection") on offce XP Access?

[MAWarGod]

'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'' GLOBAL DECLARATIONS AND DATABASE CONNECTIONS
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

''' initiate global vars and constants
dim action
dim b_error, a_errors, error_list, a_msg, msg_list
dim cn, cmd, rs, rsselect, sql, do_search, a_records

''' instantiate error handling and messaging
set error_list = CreateObject("Scripting.Dictionary&quot
set msg_list = CreateObject("Scripting.Dictionary&quot

''' initiate db objects and connections

''''' app database
set cn = Server.CreateObject("ADODB.Connection&quot
cn.Open "provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("data\7207.mdb&quot & ""

''''' user database (may be the same as app)
set user_cn = Server.CreateObject("ADODB.Connection&quot
user_cn.Open "provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("data\7207.mdb&quot & ""

''''' command object
set cmd = Server.CreateObject("ADODB.Command&quot
cmd.ActiveConnection = cn

''''' recordset object
set rs = Server.CreateObject("ADODB.Recordset&quot

Ok on My 2000 Access I opened the database this way Now I upgraded to XP and My database will not open

can anyone Help?

thank You

MAWarGod
Kicking My database yelling work!!!

 

[danielhozac]

May I just ask what this has to do with MySQL? It looks to me like you aren't even using MySQL... //Daniel