<%
	Dim objConn 'as new ADODB.Connection
	Dim oRs 'as new ADODB.Recordset
	set objConn = server.createobject("ADODB.Connection")

	'strDBPath = server.mappath("/") & "\kabien\todd.mdb"
	strDBPath="\\HOSTING\DFS\21\3\3\1\2199314133\user\sites\sawhost.com\database\todd.mdb"
	objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"	
	
	'response.write strDBPath
%>