risotto
codice:
<%
dim a, anno, m, mese, g, giorno, sesso, gior
if request.form("Estrapola") <> "" then
	function Estrapola(cod_fisc)
		cod_fisc=UCASE(request.Form("cod"))
		a=(mid(cod_fisc,7,2))
		anno=cstr("19"&a)
		m=(mid(cod_fisc,9,1))
		if m="A" then
			mese="01"
		end if
		if m="B" then
			mese="02"
		end if
		if m="C" then
			mese="03"
		end if
		if m="D" then
			mese="04"
		end if
		if m="E" then
			mese="05"
		end if
		if m="H" then
			mese="06"
		end if
		if m="L" then
			mese="07"
		end if
		if m="M" then
			mese="08"
		end if
		if m="P" then
			mese="09"
		end if
		if m="R" then
			mese="10"
		end if
		if m="S" then
			mese="11"
		end if
		if m="T" then
			mese="12"
		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 & "/" & mese & "/" & anno & "-" & sesso
		end function 
end if

%>
shere it!!!