Sei in: Home » News
News <% opzione=request("opzione") '__________________________________ ELENCO NEWS if opzione="" then sql="SELECT * FROM creazione_news WHERE status='ATTIVO' OR status='HOME' ORDER BY data DESC" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn,3,3 i=0 do while not rs.eof titolo=estraiDB(rs("titolo")) news=estraiDB(rs("NEWS")) data=rs("data") allegato=estraiDB(rs("allegato")) idnews=rs("idnews") link=estraiDB(rs("link")) response.write data&"
"&titolo&"

"&news&"" if allegato<>"" then response.write "

Allegato: "&allegato&"" end if if link<>"" then response.write "

Link: "&link&"" end if response.write"

----------------------------------------------------------------------------------------------------------

" rs.movenext i=i+1 loop end if '__________________________________ DETTAGLIO NEWS if opzione="2" then idnews=request("idnews") sql="SELECT * FROM creazione_news WHERE idnews="&idnews 'response.write sql Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn,3,3 i=0 do while not rs.eof titolo=estraiDB(rs("titolo")) news=estraiDB(rs("NEWS")) data=rs("data") allegato=estraiDB(rs("allegato")) idnews=rs("idnews") response.write "
"&data&"
" response.write "
"&titolo&"


" response.write news if allegato<>"" and not isnull(allegato) then response.write "

DOWNLOAD ALLEGATO" end if rs.movenext i=i+1 loop end if %>