<%
Dim conn_data,Connvk,ca_mdb
ca_mdb="http://127.0.0.1/11/Conn/Data_vikecn/#ca.mdb"
'conn_data = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&ca_mdb
conn_data = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&ca_mdb
'conn_data = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.Mappath(data_path&ca_mdb)
Set Connvk=Server.CreateObject("ADODB.Connection")
Connvk.Open conn_data
%>