<% @ language = VBScript%>
<%
Option expedition
ON Error ResMe next
DIM Conn
DIM Connstring
DIM DBF
DBF = "Database /% 29 # get123.mdb"
Conn = Server.createObject ("AdoDb.Connection")
CONNSTRING = "driver = {Microsoft Access Driver (* .mdb)}; dbq =" & server.mappath (dbf)
'Connstring = "provider = microsoft.jet.Oledb.4.0; data source =" & Server.appath (dbf)
'Connstring = "provider = SQLOLEDB; Database = GET123; UID = SA; PWD ="
'connString = "driver = {SQLServer}; server = 127.0.0.1; database = get123; uid = sa; pwd ="
'connString = "DSN = GET123; UID =; PWD =;" // with Access
'connString = "DSN = GET123; UID =; PWD =; Database = Database = Database = Database =;" // with SQL Server
Conn.open connString
%>
