Salve
ho bisogno di un piccolo aiuto.
Ho un database dove ho una gestione di ricariche online solo che all arrivare dell anno nuovo al posto di inserirmi 2010 mi riporta al 2000
di seguito posto la pagina dove conta gli anni..spero che qualcuno di voi che è più capace possa aiutarmi a risolvere il problema .

grazie mille


<%
Session.LCID = 1040

Dim conn, strDBPath, StrProvider
set conn=server.createobject("ADODB.Connection")
strDBPath = "/public/gestionale_server_db.mdb"
StrProvider="Provider=Microsoft.Jet.OLEDB.4.0; Persist Security Info=False; Jet OLEDBatabase Password=administrator; Data Source=" & Server.MapPath(strDBPath)
'StrProvider="Provider=Microsoft.Jet.OLEDB.4.0; Persist Security Info=False; Data Source=" & Server.MapPath(strDBPath)
conn.open strProvider

Sub EndConn()
Conn.Close
Set Conn = Nothing
End Sub

Sub EndRS(RS)
RS.Close
Set RS = Nothing
End Sub

Sub EndAll(RS)
RS.Close
Conn.Close
Set RS = Nothing
Set Conn = Nothing
End Sub

Function Data_Testo_Esteso(sData)
If Not isDate(sData) = true Then sData = Now()
sGiorno = Day(sData)
sMese = Month(sData)
sAnno = Year(sData)
sOra = Hour(sData)
sMinuti = Minute(sData)
If Len(sAnno) = 4 then sAnno = Mid(sAnno, 3, 4)
If Len(sGiorno) = 1 Then sGiorno = "0" & sGiorno
If Len(sMese) = 1 Then sMese = "0" & sMese
If Len(sOra) = 1 Then sOra = "0" & sOra
If Len(sMinuti) = 1 Then sMinuti = "0" & sMinuti
Data_Testo_Esteso = Clng(sAnno & sMese & sGiorno & sOra & sMinuti)
End Function

'le date devono venire dal database!!!
Function ParteData(sTesto, sParte)
If Len(sTesto) = 9 then s = 0 else s = 1
Select Case UCase(sParte)
Case "G": ParteData = (Mid(sTesto, 4+s, 2))
Case "M": ParteData = (Mid(sTesto, 2+s, 2))
Case "C": ParteData = (Mid(sTesto, 1+s, 1+s))
If Len(ParteData) = 1 Then ParteData = "0" & ParteData
Case "A": ParteData = (Mid(sTesto, 1+s, 1+s))
If Len(ParteData) = 1 Then ParteData = "200" & ParteData else ParteData = "20" & ParteData
Case "H": ParteData = CInt(Mid(sTesto, 6+s, 2))
Case "N": ParteData = (Mid(sTesto, 8+s, 2))
End Select
End Function

Function selectAnni(annocorrente)
if annocorrente&""="" then annocorrente=Cint(YEAR(now()))

'Da realizzare <OPTION value="04" >2004</OPTION>
selectAnni=""
for i=2004 TO annocorrente+7
icut = Mid(i,3,len(i&""))
selectAnni= selectAnni&"<OPTION value="""&icut&""">"&i&"</OPTION>"&vbcrlf
next
End Function
%>