
<%
	'MS Access Connection String
	    datasourcename="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(pathtodatabase) & ";pwd=" & dbPassword
	    cursortype = 3

'-----------------------------------------------
'DATABASE CONNECTION SETTINGS
'-----------------------------------------------
	Set MM_conn_STRING = Server.CreateObject("ADODB.Connection")
	MM_conn_STRING.Open datasourcename
	Set cmdTemp = Server.CreateObject("ADODB.Command")
	Set rs_main = Server.CreateObject("ADODB.Recordset")
	Set rs_main2 = Server.CreateObject("ADODB.Recordset")
%>