<%
	dim conn
	dim dbpath
   	set conn=server.createobject("adodb.connection")
	
	Server.ScriptTimeout=1200
	DBPath = Server.MapPath("db/#168softdb41.asa")
	'conn.Open "driver={Microsoft Access Driver (*.mdb)};uid=;pwd=sz168sz168sz168pj41;dbq=" & DBPath
	conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath&";Jet OLEDB:Database Password=sz168sz168sz168pj41;" 

	conn.CursorLocation = adUseClient
	
	 mm=month(now)
	  if mm<10 then
	 	mm="0" & mm
	 end if
	 dd=day(now)
	 if dd<10 then
	 	dd="0" & dd
	 end if
	 thistoday = year(now)&"-"& mm &"-"& dd

%>