<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_fdm_conn_STRING 'Recordset1.Source = "SELECT * FROM protagonisti" mioId = request.QueryString("ev") SQL = " SELECT eventi.ID, eventi.edizione AS edizione, eventi.partenzaAudio AS partenzaAudio, eventi.*, protagonisti.nome AS Pnome, protagonisti.cognome AS Pcognome, protagonisti.ID AS Pid " SQL = SQL & " FROM protagonisti INNER JOIN (eventi INNER JOIN protagonisti_per_evento ON eventi.ID = protagonisti_per_evento.idEvento) ON protagonisti.ID = protagonisti_per_evento.idProtagonista " SQL = SQL & " WHERE (((eventi.ID)=" & mioId & "))" Recordset1.Source = SQL Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <%fdm_titolo_audio = (Recordset1.Fields.Item("Pnome").Value) &" " &(Recordset1.Fields.Item("Pcognome").Value) fdm_titolo_audio=replace(fdm_titolo_audio,"á","a") fdm_titolo_audio=replace(fdm_titolo_audio,"ò","o'") fdm_titolo_audio=replace(fdm_titolo_audio,"è","e") fdm_titolo_audio=replace(fdm_titolo_audio,"é","e") fdm_titolo_audio=replace(fdm_titolo_audio,"ù","u") fdm_titolo_audio=replace(fdm_titolo_audio,"ì","i") 'nomeTest = trim(fdm_titolo_audio) 'if nomeTest = " Elio" then ' fdm_titolo_audio = "Elio con Katia" 'end if %> <% 'fdm_titolo_audio = "Piergiorgio Odifreddi" 'fdm_documento_audio = "32 Odifreddi fdm06.flv" fdm_documento_audio = (Recordset1.Fields.Item("video").Value) edizione = Recordset1.Fields("edizione") response.Write("ed: " &edizione&"

") select case edizione case 2006 Session("fdm_documento_audio")=fdm_documento_audio ' questo peerchè inizialmente i file del 2006 sono stati messi nella cartella principale audio, mentre quelli inseriti in seguito sono in cartelle separate per anno case else Session("fdm_documento_audio")=edizione &"/"&fdm_documento_audio end select Session("fdm_titolo_audio")=fdm_titolo_audio Session("partenzaAudio")=Recordset1.Fields("partenzaAudio") 'Session("fdm_documento_audio")=fdm_documento_audio response.Write(Session("fdm_titolo_audio")&"
") response.Write(Session("fdm_documento_audio")&"
") 'response.End() 'response.Write(Session("partenzaAudio")&"
") response.Redirect("video.asp") 'response.End() %> <% Recordset1.Close() Set Recordset1 = Nothing %>