<%
'On Error Resume Next
	dim TodayVistor,count
		set MyConn=Server.CreateObject("ADODB.Connection")
		set Myrs = Server.CreateObject("ADODB.recordset")
		MyConn.open "Driver={SQL Server};Server=172.16.147.212;Database=gdepb_data;Uid=vote;Pwd=vote;"
		
		strSQL="select TodayVistor, TodayTime from counter"
		set Myrs=MyConn.execute(strSQL)
		TodayVistor = Myrs("TodayVistor")
		theDate = day(now())
		strDate = day(Myrs("TodayTime"))
			if (theDate = strDate) then
			  TodayVistor = TodayVistor + 1
			  MyConn.execute "update counter Set TodayVistor="& TodayVistor
			end if
		Myrs.close
		MyConn.close
		Set Myrs = Nothing
		Set MyConn= Nothing
		'Response.Write TodayVistor
 %>