<%

	Set conn = Server.CreateObject("ADODB.Connection")
'para access 2000
EnqueteConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\vhosts\altardacruz.com\httpdocs\site\scripts\dados\enquetes.mdb;" 

'para access 97
'EnqueteConn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=e:\home\aquies\dados\enquetes.mdb;"
conn.Open enqueteconn


	function SDate(dtDateTime)
		if isDate(dtDateTime) then
			sDate = replace(dtDateTime, ".", "/")
		end if
	end function
	
	function TRDate(vDate)

		if isdate(vDate) then
			dtDate = cDate(vDate)
		else
			TRDate = "..."
			exit function
		end if
		
		TRDate = formatdatetime(vDate, 0)

	end function
			 
		 
	'ADO Constants
	'---- CursorTypeEnum Values ----
'	Const adOpenForwardOnly = 0
'	Const adOpenKeyset = 1
'	Const adOpenDynamic = 2
'	Const adOpenStatic = 3

	'---- CursorLocationEnum Values ----
	Const adUseServer = 2
	Const adUseClient = 3

	'---- CommandTypeEnum Values ----
	Const adCmdUnknown = &H0008
	Const adCmdText = &H0001
	Const adCmdTable = &H0002
	Const adCmdStoredProc = &H0004
	Const adCmdFile = &H0100
	Const adCmdTableDirect = &H0200
	
	'---- SchemaEnum Values ----
	Const adSchemaTables = 20
%>