Calendario con StringaMese

[StegcO]

Salve

vorrei creare un piccolo calendario contente la data ma in forma Stringa

quindi "Gennaio" invece di "01", cosa che invece fa utilizzando Month(objRs("Dat"))

esiste una funziona che restituisce il dato in testo oppure devo farmi io una funzione con vettore?

grazie

[alexba64]

Originariamente inviato da StegcO
Salve

vorrei creare un piccolo calendario contente la data ma in forma Stringa

quindi "Gennaio" invece di "01", cosa che invece fa utilizzando Month(objRs("Dat"))

esiste una funziona che restituisce il dato in testo oppure devo farmi io una funzione con vettore?

grazie

<%
' Imposto il calendario
Function GetMonthName(Mesi)
Select Case Mesi
         Case 01: GetMonthName="Gennaio"
         Case 02: GetMonthName="Febbraio"
         Case 03: GetMonthName="Marzo"
         Case 04: GetMonthName="Aprile"
         Case 05: GetMonthName="Maggio"
         Case 06: GetMonthName="Giugno"
         Case 07: GetMonthName="Luglio"
         Case 08: GetMonthName="Agosto"
         Case 09: GetMonthName="Settembre"
         Case 10: GetMonthName="Ottobre"
         Case 11: GetMonthName="Novembre"
         Case 12: GetMonthName="Dicembre"
         Case Else:
         GetMonthName="**Error**"
End Select
End Function

%>

<%=GetMonthName(Month(objRs("Dat")))%>

[StegcO]

Grazie per l'aiuto, io ho provato a modificare i lcodice che hai postato per adattarlo alle mie esisgenze e ho fatto così

											Select Case StringMese
											         Case Month(objRs("Dat")) = "1"
											         	Mese = "Gen"
											         Case Month(objRs("Dat")) = "2"
											         	Mese = "Feb"
											         Case Month(objRs("Dat")) = "3"
											         	Mese = "Mar"
											         Case Month(objRs("Dat")) = "4"
											         	Mese = "Apr"
											         Case Month(objRs("Dat")) = "5"
											         	Mese = "Mag"
											         Case Month(objRs("Dat")) = "6"
											         	Mese = "Giu"
											         Case Month(objRs("Dat")) = "7"
											         	Mese = "Lug"
											         Case Month(objRs("Dat")) = "8"
											         	Mese = "Ago"
											         Case Month(objRs("Dat")) = "9"
											         	Mese = "Set"
											         Case Month(objRs("Dat")) = "10"
											         	Mese = "Ott"
											         Case Month(objRs("Dat")) = "11"
											         	Mese = "Nov"
											         Case Month(objRs("Dat")) = "12"
											         	Mese = "Dic"
											End Select

ma restituisce sempre "Gen" (stampando Mese)

forse deov mettere altro al posto di StringMese?