Dynamically Working...
and 'static'...
<%
' Volete agevolmente sostituire una data corta
' in italiano con una in inglese e viceversa?
' E´ facile e comodo in un ciclo for next:
%>
<form name="prova" action="<%=pagina%>">
<input type="text" name="Data_data">
<Input type="submit">
</form>
<%
if Request("Data_data")<>"" then
Data_data=Request("Data_data")
MesiITA="gen|feb|mar|apr|mag|giu|lug|ago|set|ott|nov|dic"
MesiEN="jan|feb|mar|avr|maj|jun|jul|aug|sep|oct|nov|dec"
' creiamo i due array, splittando grazie al carattere |
ArrayMesiITA=Split(MesiITA,"|")
ArrayMesiEN=Split(MesiEN,"|")
For n=0 to 11
if InStr(UCase(Data_data),UCase(ArrayMesiEN(n)))<>0 then
Data_nuova=Replace(Data_data,ArrayMesiEN(n),ArrayMesiITA(n))
exit for
end if
next
Response.Write "Nuova data in Italiano:" &Data_nuova
end if
%>
' Volete agevolmente sostituire una data corta
' in italiano con una in inglese e viceversa?
' E´ facile e comodo in un ciclo for next:
%>
<form name="prova" action="<%=pagina%>">
<input type="text" name="Data_data">
<Input type="submit">
</form>
<%
if Request("Data_data")<>"" then
Data_data=Request("Data_data")
MesiITA="gen|feb|mar|apr|mag|giu|lug|ago|set|ott|nov|dic"
MesiEN="jan|feb|mar|avr|maj|jun|jul|aug|sep|oct|nov|dec"
' creiamo i due array, splittando grazie al carattere |
ArrayMesiITA=Split(MesiITA,"|")
ArrayMesiEN=Split(MesiEN,"|")
For n=0 to 11
if InStr(UCase(Data_data),UCase(ArrayMesiEN(n)))<>0 then
Data_nuova=Replace(Data_data,ArrayMesiEN(n),ArrayMesiITA(n))
exit for
end if
next
Response.Write "Nuova data in Italiano:" &Data_nuova
end if
%>