Sei in: PST » Progetti
Catalogo di offerte di tecnologie e servizi green <% opzione=request("opzione") '__________________________________________________ ELENCO AZIENDE if opzione="" or isnull(opzione) then response.write "
Seleziona l'azienda:

    " i=1 Set rsel = Server.CreateObject("ADODB.Recordset") sqlel = "SELECT * FROM creazione_aziende_green ORDER BY nome " rsel.Open sqlel, conn,3,3 if rsel.EOF then response.write "Non è presente nessuna azienda" end if Do While not rsel.EOF idazienda=rsel("idazienda") nome=rsel("nome") link=rsel("link") edificio=rsel("edificio") ufficio=rsel("ufficio") response.write "
  • "&nome&"
    • " i=i+1 rsel.MoveNext loop rsel.Close Set rsel = nothing response.write "
" end if '__________________________________________________ DETTAGLIO AZIENDE if opzione="2" then idazienda=request("idazienda") Set rsdetail = Server.CreateObject("ADODB.Recordset") sqldetail = "SELECT * FROM creazione_aziende_green WHERE idazienda="&idazienda&" " rsdetail.Open sqldetail, conn,3,3 if not rsdetail.EOF then idazienda=rsdetail("idazienda") nome=estraiDB(rsdetail("nome")) link=rsdetail("link") email=rsdetail("email") profilo=estraiDB(rsdetail("profilo")) tel=rsdetail("tel") fax=rsdetail("fax") edificio=rsdetail("edificio") ufficio=rsdetail("ufficio") categoria=rsdetail("categoria") logo=rsdetail("logo") response.write "" response.write "


"&link&"" response.write "
"&email&"" response.write "

Profilo "&nome&":
"&profilo&"
" response.write "
Contatti:
" response.write "telefono: "&tel&"
" response.write "fax: "&fax&"
" response.write "email: "&email&"
" response.write "sito web: "&link&"
" response.write "Prodotto/Tecnologia/Servizio green: "&edificio&"

" response.write "Sede: "&ufficio&"
" end if rsdetail.Close Set rsdetail = nothing end if %>

Torna indietro