|
|
Elenco Progetti
<%
opzione=request("opzione")
'__________________________________________________ ELENCO PROGETTI
if opzione="" then
response.write ""
Set rs = Server.CreateObject("ADODB.Recordset")
sql= "SELECT * FROM creazione_progetti WHERE stato='ATTIVO' ORDER BY nome DESC"
rs.Open sql, conn,3,3
i=0
'response.write sql
do while not rs.eof
idprogetto=estraiDB(rs("idprogetto"))
nome=estraiDB(rs("nome"))
immagine=estraiDB(rs("immagine"))
response.write ""
response.write "![](public/loghiprogetti/"&immagine&")
"&nome&"
"
response.write " | "
i=i+1
rs.MoveNext
loop
rs.close
response.write "
"
if i=0 then
response.write "
NON È PRESENTE NESSUN PROGETTO
"
end if
end if
'_________________________________ DETTAGLIO PROGETTO
if opzione="2" then
idprogetto=request("idprogetto")
Set rs = Server.CreateObject("ADODB.Recordset")
sql= "SELECT * FROM creazione_progetti WHERE idprogetto="&idprogetto&""
rs.Open sql, conn,3,3
'response.write sql
do while not rs.eof
idprogetto=estraiDB(rs("idprogetto"))
nome=estraiDB(rs("nome"))
immagine=estraiDB(rs("immagine"))
progetto=estraiDB(rs("progetto"))
file=estraiDB(rs("file"))
if immagine<>"" then
response.write ""
end if
response.write ""&nome&""
response.write ""&progetto&""
Set rs2 = Server.CreateObject("ADODB.Recordset")
sqldocumenti= "SELECT * FROM creazione_documentiproggetti WHERE idprogetto="&idprogetto&" AND statodocumento='ATTIVO' ORDER BY datadocumento DESC "
rs2.Open sqldocumenti, conn,3,3
'response.write sql
do while not rs2.eof
nomedocumento=estraiDB(rs2("nomedocumento"))
documento=estraiDB(rs2("documento"))
elencoallegati=elencoallegati& ""&nomedocumento&""
rs2.MoveNext
loop
rs2.close
if elencoallegati<>"" then
response.write "
ALLEGATI:"
end if
rs.MoveNext
loop
rs.close
end if
%>
<%
if idprogetto="8" then
%>
CATALOGO DI OFFERTE DI TECNOLOGIE E SERVIZI GREEN
<%
end if
%>
|
|
