<!--#include file="adovbs.inc"-->
<%	
	
	
	'Dim Conn, dbpath
	'dbpath= "db\dbSeaViewSite.mdb"
	'Set Conn = Server.CreateObject("ADODB.Connection")
	'Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & dbpath
	
	'---new changed code 
	
	Dim Conn
	
	Set Conn = Server.CreateObject("ADODB.Connection")
	
	Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & _ 
	
	Server.MapPath("db/dbUSM.mdb"))
%>