allego la pagina asp, il file ovviamente e' da rinominare come .asp

grazie
ciao

codice:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
 "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="it">
<head>
<meta http-equiv="content-type" content="text/html; charset=iso-8859-1" />
<meta name="Author" content="Tibergol p.coop" />
<title>Articoli Amministrazione</title>
</head>

<body class="Pagina">
<%
  app=request.servervariables("PATH_INFO")
  MIAASP=right(app,len(app)-instrrev(app,"/"))
'------------------------------------------------------------------------------------------------------------------'
Sub Intestazione(db, IDUTENTE, IDTEMA, IDSKSOGG, FLPARTITA, IDSTAGIONE, IDCOMPETIZIONE, IDEVENTO, EVENTO )

	response.write "<form id=""QUERY"" action="""& MIAASP &""" method=""post"">" & vbCRLF
%>
    <fieldset id="CampiInput" title="Scegli l'opzione desiderata e Premi il bottone Avanti">
	Articolo redatto da ? 
    <input name="rbFlAutoreRassStampa" id="OptAut" type="radio" title="Autore" 
  value="Aut" checked="checked" />
    <label  title="Premi sulla sinistra per selezionare questa risposta" for="OptAut" >
        Autore
    </label>   
    
    

    <a href="/Adminnew/Articoli2/InsArt-Fase40-appo.asp?V__AZIONE=E"  title="ciao prova"  >
    <button > Avanti ---></button>
    </a>


<%
	response.write "</fieldset>" & vbCRLF
	response.write "</form>" & vbCRLF
End Sub

'------------------------------------------------------------------------------------------------------------------'
Sub Main()

	V__AZIONE = request("V__AZIONE")


	fatto="no"
		select case V__AZIONE
			case "E"
			
				FLAUTORASSTA = request("rbFlAutoreRassStampa")
				FLDICHSKSOGG = request("rbFlDichSoggetto")
				FLARTNATOWEB = request("rbFlArtNatoWeb")	
                response.write "FLAUTORASSTA*************>"& FLAUTORASSTA
                response.write TC & "FLDICHSKSOGG*************>"& FLDICHSKSOGG
            	fatto="si"
                
		end select

		if fatto="no" then
            response.write "<h1 class=""" & KClTitPPN & """ >"
			response.write "Articoli - Inserimento - " 
			response.write "Fase 1 - Riferimenti " & vbCRLF
			response.write "</h1>" & vbCRLF
        
			response.write "<hr />" & vbCRLF 
			call Intestazione(db, IDUTENTE, IDTEMA, IDSKSOGG, FLPARTITA, IDSTAGIONE, IDCOMPETIZIONE, IDEVENTO, EVENTO )
						
		end if
End Sub
'------------------------------------------------------------------------------------------------------------------'
Call Main
%>
</body>
</html>