codice:
<%
dim a, anno, m, mese, g, giorno, sesso, gior
if request.form("Estrapola") <> "" then
	function Estrapola(cod_fisc)
		cod_fisc=request.Form("cod")
		a=(mid(cod_fisc,7,2))
		anno=cstr("19"+a)
		m=(mid(cod_fisc,9,1))
		if m="A" then
			mese="Gennaio"
		end if
		if m="B" then
			mese="Febbraio"
		end if
		if m="C" then
			mese="Marzo"
		end if
		if m="D" then
			mese="Aprile"
		end if
		if m="E" then
			mese="Maggio"
		end if
		if m="F" then
			mese="Giugno"
		end if
		if m="G" then
			mese="Luglio"
		end if
		if m="H" then
			mese="Agosto"
		end if
		if m="I" then
			mese="Settembre"
		end if
		if m="L" then
			mese="Ottobre"
		end if
		if m="M" then
			mese="Novembre"
		end if
		if m="N" then
			mese="Dicembre"
		end if
		
		gior=(mid(cod_fisc,10,2))
		g=cint(gior)
		
		if g>40 then
			sesso="F"		
			g=cstr(g-40)
			if len(g)=1 then
				giorno="0"+g
			else
				giorno=g
			end if
		else
			sesso="M"
			if len(g)=1 then
				giorno="0"+g
			else
				giorno=g
			end if
		end if
		Estrapola=giorno
		Estrapola=sesso
		Estrapola=anno	
		Estrapola=mese
		end function 
end if

%>
questo è il codice, stampa solo MarzoMarzo...