data e ora

[gant85]

ciao sapreste dirmi come mai da quando ho inserito questo script le date di tutti i database me le stampa mese/giono/anno
ad esempio 1/16/2009
???

<%
'************************************************
'***** Written By Don Lasseigne *****************
'***** dlasseigne@yahoo.com *********************
'************************************************

  TableWidth = 500
  BgColor = "#ffffff"
  CellColor = "#ffffff"

  dbName = "mdb-database/calendar.mdb"
  Conn= "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Server.MapPath(dbName)

  ViewDayImage = "images/goto.gif"

  '# UserName: admin
  '# Password: admin
  '# You can manually change this in the database



  Session.LCID = 1033 
%>




<%
'************************************************
'*****           FUNCTIONS              *********
'************************************************
Sub DisplayCalendar(mMonth, yYear)
  
  dDay = DateSerial(yYear,mMonth,1)
  mMonth = Month(dDay)
  yYear = Year(dDay)
  FirstDayOfMonth =  Weekday(dDay)

  '## Display the Top of Calendar ##
  CALL DisplayCalendarTop(dDay)

  '## Start Displaying the Actual Calendar ##
  Response.Write "<Table Align=center width=" & TableWidth & " CellPadding=3 CellSpacing=1 Border=1 BgColor=" & BgColor & ">" & vbCrlf
  Response.Write "<TR Valign=Top Align=Center BgColor=" & bgcolor & ">" & vbCrlf
  Response.Write  "<TD>Dom</TD>" & vbCrlf
  Response.Write  "<TD>Lun</TD>" & vbCrlf
  Response.Write  "<TD>Mar</TD>" & vbCrlf
  Response.Write  "<TD>Mer</TD>" & vbCrlf
  Response.Write  "<TD>Gio</TD>" & vbCrlf
  Response.Write  "<TD>Ven</TD>" & vbCrlf
  Response.Write  "<TD>Sab</TD>" & vbCrlf

  Response.Write "</TR>" & vbCrlf

  '## Set dDay to the First day of the month ##
  dDay = DateSerial(yYear,mMonth,1)

  FOR j=1 to 6

 	Response.Write "<TR>" & vbCrlf

	    FOR i=vbSunday to vbSaturday
  	      CellStr="" 
	      Color=cellcolor

	      If WeekDay(dDay) = i and Month(dDay) = mMonth then 

		  '## Set Color to Yellow if Current Day
	          if (Day(dDay) = Day(now)) and (Month(dDay) = Month(now)) and (Year(dDay) = Year(now)) then Color="#85b31f"

        	  CellStr = Day(dDay)  & "
"

		  	  '## Get the Memo Field out of Database for current Date
			  Memo = GetCellData(dDay)
		          IF Memo <> "" then 	
   			     '## Format Cell String if there is a Memo ##	
			      CellStr =Day(dDay)  & "
"  &  "<a href=#" & dDay & ">[img] & ViewDayImage & [/img]</a>"
	
			     '## Save Calendar Details to Print After the Calendar is Displayed ##
		 	      Details = Details & "<Table Align=center width=" & TableWidth & "  cellspacing=2 cellpadding=3 border=0>"  & vbCrlf
			      Details = Details & "<TR>" & vbCrlf
			      Details = Details & " <TD width=" & TableWidth-10 & " bgcolor='" & Bgcolor & "'>" & vbCrlf
			      if WeekDayName(weekday(dDay)) = "Mondey" then
			      	giorno="Lunedi"
			      end if
			      if WeekDayName(weekday(dDay)) = "Tuesday" then
			      	giorno="Martedi"
			      end if
			      if WeekDayName(weekday(dDay)) = "Wednesday" then
			      	giorno="Mercoledi"
			      end if
			      if WeekDayName(weekday(dDay)) = "Thursday" then
			      	giorno="Giovedi"
			      end if
			      if WeekDayName(weekday(dDay)) = "Friday" then
			      	giorno="Venerdi"
			      end if
			      if WeekDayName(weekday(dDay)) = "Saturday" then
			      	giorno="Sabato"
			      end if
			      if WeekDayName(weekday(dDay)) = "Sunday" then
			      	giorno="Domenica"
			      end if
	        	      Details = Details & "  <a name='" & dDay & "'>" & giorno & " " & Day(dDay) & "" & vbCrlf
			      Details = Details & " </TD>" & vbCrlf
		              Details = Details & " <TD Align=right bgcolor='" & BgColor & "'>" & vbCrlf
	       	              Details = Details & "<a href=#top>Su</a>" 
			      Details = Details & " </TD>" & vbCrlf
		              Details = Details & "</TR>" & vbCrlf
			      Details = Details & "</Table>" & vbCrlf
		   	      Details = Details & "<Table Align=center width=" & TableWidth & "  cellspacing=2 cellpadding=3 border=0>"  & vbCrlf
			      Details = Details & "<TR>" & vbCrlf
			      Details = Details & " <TD bgcolor='" & color & "'>" & vbCrlf
	        	      Details = Details & "  <PRE><span style='font-family:arial, Verdana, sans-serif'>" & Memo &  "</span></PRE>" &  vbCrlf
			      Details = Details & " </TD>" & vbCrlf
		              Details = Details & "</TR>" & vbCrlf
			      Details = Details & "</Table>" & vbCrlf
			     '## End Calendar Details ##
        		  End If
	
        	 '## Get the Next Day 
	          dDay = DateAdd("d",1,dDay)

	      End If

	      Response.Write "<TD vAlign=top align=left BgColor='" & Color & "'>"  & CellStr & "</TD>" & vbCrlf
	    NEXT   '## FOR i=vbSunday to vbSaturday ##

   	Response.Write "</TR>" & vbCrlf

  NEXT  '## For j=1 to 6 ##

  Response.Write "</Table>" & vbCrlf

  '## Display the Months at the bottom of the calendar ##
  CALL DisplayMonths()

  '## Display the Calendar Details ##
  Response.write  "
" & Details & "

"

  For i=1 to 50
     Response.write "
"
  Next

End Sub
'************************************************
'************************************************
Sub DisplayCalendarTop(dDay)
	if MonthName(month(dDay)) = "January" then
		title = "Gennaio " & year(dDay)
	end if
	if MonthName(month(dDay)) = "February" then
		title = "Febbraio " & year(dDay)
	end if
	if MonthName(month(dDay)) = "March" then
		title = "Marzo " & year(dDay)
	end if
	if MonthName(month(dDay)) = "April" then
		title = "Aprile " & year(dDay)
	end if
	if MonthName(month(dDay)) = "May" then
		title = "Maggio " & year(dDay)
	end if
	if MonthName(month(dDay)) = "June" then
		title = "Giugno " & year(dDay)
	end if
	if MonthName(month(dDay)) = "July" then
		title = "Luglio " & year(dDay)
	end if
	if MonthName(month(dDay)) = "August" then
		title = "Agosto " & year(dDay)
	end if
	if MonthName(month(dDay)) = "September" then
		title = "Settembre " & year(dDay)
	end if
	if MonthName(month(dDay)) = "October" then
		title = "Ottobre " & year(dDay)
	end if
	if MonthName(month(dDay)) = "November" then
		title = "Novembre " & year(dDay)
	end if
	if MonthName(month(dDay)) = "December" then
		title = "Dicembre " & year(dDay)
	end if
  pPREVIOUS = dateadd("m",-1, dDay)
  nNEXT = dateadd("m",1,dDay)

  Response.Write "<a name=top><TABLE Align=center CELLPADDING=0 CELLSPACING=0 WIDTH=" & TableWidth & " BORDER=1>" & vbCrlf
  Response.Write "<TR VALIGN=MIDDLE ALIGN=CENTER>" & vbCrlf
  Response.Write "<TD BgColor='" & BgColor & "' ALIGN=center>" & vbCrlf
  Response.Write "[img]images/indietro.jpg[/img]" & vbCrlf
  Response.Write "</TD>" & vbCrlf
  Response.Write "<TD BgColor='" & BgColor & "' ALIGN=center>" & vbCrlf
  Response.Write "<span style='font-size:10pt'>" & Title & "</span>" & vbCrlf
  Response.Write "</TD>" & vbCrlf
  Response.Write "<TD BgColor='" & BgColor & "' ALIGN=center>" & vbCrlf
  Response.Write "[img]images/avanti.jpg[/img]" & vbCrlf
  Response.Write "</TD>" & vbCrlf
  Response.Write "</TR>" & vbCrlf
  Response.Write "</TABLE>" & vbCrlf
End Sub
'************************************************
'************************************************
Sub DisplayMonths()
  Response.Write "<TABLE Align=center CELLPADDING=0 CELLSPACING=0 WIDTH=" & TableWidth & " BORDER=1 BORDERCOLORLIGHT=#FFFFFF>" & vbCrlf
  Response.Write "<TR VALIGN=MIDDLE ALIGN=CENTER>" & vbCrlf
  Response.Write "<TD ALIGN=center>" & vbCrlf
  Response.Write "Gennaio-" & vbCrlf
  Response.Write "Febbraio-" & vbCrlf
  Response.Write "Marzo-" & vbCrlf
  Response.Write "Aprile-" & vbCrlf
  Response.Write "Maggio-" & vbCrlf
  Response.Write "Giugno" & vbCrlf
  Response.Write "
"
  Response.Write "Luglio-" & vbCrlf
  Response.Write "Agosto-" & vbCrlf
  Response.Write "Settembre-" & vbCrlf
  Response.Write "Ottobre-" & vbCrlf
  Response.Write "Novembre-" & vbCrlf
  Response.Write "Dicembre" & vbCrlf
  Response.Write "</TD>" & vbCrlf
  Response.Write "</TR></TABLE>" & vbCrlf & vbCrlf
End Sub
'************************************************
'************************************************
Function GetCellData(dDay)
 Set rs = Server.CreateObject("ADODB.Recordset")
 sSQL = "Select * from CalendarInfo where Date=#" & dDay & "#"
 rs.open sSQL, Conn,3,3
 GetCellData = ""
 if rs.recordcount > 0 then GetCellData=rs("memo")
 rs.close
 Set rs = nothing
End Function
'************************************************
%>