%@ Language = VBScript %>
<% Response.Buffer = True %>
Vediamo quando sei nato
<%
Nome = Request.Form("Nome")
Mese = Request.Form("Mese")
Mese = UCase(Mese)
Response.write "Ciao " & nome & ",
"
Select Case Mese
Case "DICEMBRE", "GENNAIO", "FEBBRAIO"
Response.Write("sei nato in inverno")
Case "MARZO", "APRILE", "MAGGIO"
Response.Write("sei nato in primavera")
Case "GIUGNO", "LUGLIO", "AGOSTO"
Response.Write("sei nato in estate")
Case "SETTEMBRE", "OTTOBRE", "NOVEMBRE"
Response.Write("sei nato in autunno")
End Select
%>