<% function decimali(numero) Dim tmNmb if not isNull(numero) then tmNmb=numero * 100 tmbNmb=Int(tmNmb) tmnNmb=tmbNmb / 100 if Instr(1,tmnNmb,",")=0 then tmnNmb=tmnNmb & ",00" else lenVir=Instr(1,tmnNmb,",") if Len(Mid(tmnNmb,lenVir,Len(tmnNmb)-lenVir))< 2 then tmnNmb=tmnNmb & "0" end if end if else tmnNmb="0,00" end if decimali=tmnNmb end function function testFile(pathFile) Dim fso set fso=Server.CreateObject("Scripting.FileSystemObject") testFileDoc=fso.FileExists(pathFile) set fso=nothing testFile=testFileDoc end function Dim pathDirMod pathDirMod=Request.ServerVariables("PATH_TRANSLATED") pathDirMod=Replace(pathDirMod,"risultatoTitolari.asp","") pathDirMod=pathDirMod & "moduli\" Dim dbConn Dim rsDirigenti,sqlDirigenti Dim typeRic typeRic=request("typeRic") set dbConn=Server.CreateObject("ADODB.connection") dbConn.Open DB_ASL9_READ,"","" Select Case typeRic Case "0" if Len(Trim(request("txtCognome")))=0 then Response.Redirect "TraspDirigenti.asp" sqlDirigenti="SELECT * FROM T_OT_Dirigenti WHERE DI_Archivio=1 and DI_Tipo=1 AND DI_Cognome like '%" & Replace(request("txtCognome"),"'","''") & "%' ORDER BY DI_Cognome" set rsDirigenti=Server.CreateObject("ADODB.recordset") rsDirigenti.Open sqlDirigenti,dbConn,3,1 Case "1" if Len(Trim(request("letter")))=0 then Response.Redirect "TraspDirigenti.asp" sqlDirigenti="SELECT * FROM T_OT_Dirigenti WHERE DI_Archivio=1 and DI_Tipo=1 AND Left(DI_Cognome,1)='" & request("letter") & "' ORDER BY DI_Cognome" set rsDirigenti=Server.CreateObject("ADODB.recordset") rsDirigenti.Open sqlDirigenti,dbConn,3,1 End Select %> Asl TO4 - Amministrazione trasparente <%dim sezione 'specifica la sezione, per evidenziarlo all'interno del menù sezione="trasparenza"%>

Ti trovi in:

Home, Amministrazione trasparente, Titolari di posizione organizzativa, Risultato della ricerca

Risultati per dirigenti aziendali

La tua ricerca ha ottenuto <%if rsDirigenti.RecordCount<>1 then%><%=rsDirigenti.RecordCount%> risultati<%else%>un risultato<%end if%>

<%do while not rsDirigenti.eof%>

<%=rsDirigenti("DI_Cognome") & " " & rsDirigenti("DI_Nome")%>

<% pathFile="" pathFile=pathDirMod & rsDirigenti("DI_Curriculum") if testFile(pathFile)then %> " title="Apre un documento pdf">Curriculum vitae

<%end if%>

<% pathFile="" pathFile=pathDirMod & rsDirigenti("DI_DicRed") if testFile(pathFile)then %> " title="Apre un documento pdf">Retribuzione

<%end if%> <% rsDirigenti.movenext loop%> Nuova Ricerca