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>