PK

                  <%Function formatNumberX(value, digits) 
						if digits > len(value) then 
							formatNumberX = String(digits-len(value),"0") & value 
						else 
							formatNumberX = value 
						end if 
					End Function 
					
					Function formatDateX(value) 
						formatDateX = Year(value) &  "-" & formatNumberX(Month(value),2) &  "-" & formatNumberX(Day(value),2)
					End Function %>

PK 99