BuBuCATRAME

BuBu il Catrame

Scripts (ASP & other..)

La mia passione. Credo che dopo essermi scervellato per risolvere questi problemi di programmazione, il frutto dei miei sforzi possa essere reso pubblico per alleviare gli sforzi di chi, magari webmaster, programmatore, abbia la necessita' di risolvere un problema di lavoro in modo semplice e, mi auguro, limpido.
Tutti gli script ASP che pubblico in queste pagine sono liberamente utilizzabili, e modificabili. Fate anche voi qualcosa per il prossimo, e il mondo girerà un pochino meglio.

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
%>