" response.write "

"&rs(0)&"

" rs.movenext loop set rs=nothing %> <% end if %>

	L'archivio online cataloga, in circa 650 schede, tutti gli spettacoli messi in scena al CRT dal 1975 ad oggi. Attraverso il motore di ricerca, è possibile visualizzare i singoli spettacoli, selezionando l'anno di programmazione, il regista, il titolo dello spettacolo. RICERCA ANNO DI PROGRAMMAZIONE ">   RICERCA REGISTA SPETTACOLO ">   RICERCA SPETTACOLO ">     <% if request.form<>"" then %> <% strwhere="" if request.form("regia")<>"" then strwhere=strwhere&" AND cont_par.txt_i LIKE '%§§#§§#did2#§#§%"&request.form("regia")&"%§§#§§#did6#§#§%' " if request.form("anno")<>"" then strwhere=strwhere&" AND cont_par.txt_i LIKE '%§§#§§#did1#§#§"&request.form("anno")&"§§#§§#did2#§#§%' " if request.form("spettacolo")<>"" then strwhere=strwhere&" AND cont_par.txt_i LIKE '%"&request.form("spettacolo")&"%§§#§§#did1#§#§%' " strsql="SELECT cont_art.tit_art_i, cont_par.txt_i, cont_art.path FROM cont_art INNER JOIN cont_par ON cont_art.ID = cont_par.art WHERE (((cont_par.tipo_par)='tit') AND ((cont_art.sezione)='cont/010sta') AND ((cont_art.flag_stato_i)=1)) "&strwhere&" ORDER BY cont_art.stit_art_i DESC;" set rs=application("dse").execute(strsql) do while not rs.eof 'response.write "
	"&getcont("did3",rs(1))&"		"&getcont("did6",rs(1))&"		"&getcont("did1",rs(1))&"		"&getcont("did5",rs(1))&"

www.vivaticket.it

<% function getcont(nomecont, txt_i) getcont="" sep_cont="#§#§" sep_s_i="§§#§§#" strtmp1=split(rs(1),sep_cont) set contdb=Server.CreateObject("Scripting.Dictionary") for i=0 to ubound(strtmp1) strtmp2=split(strtmp1(i),sep_s_i) if nomecont=strtmp2(1) then getcont=strtmp2(0) exit for end if next end function %>