I Fatti.com - Speciale Elezioni 2008

<% ID_Articolo=Request.QueryString("ID_Articolo") ID_CATEGORIA=Request.QueryString("ID_CATEGORIA") DOSSIER=Request.QueryString("DOSSIER") %> <% 'Controllo se sono presenti dei record nell'istruzione dim objRS2 Set objRS2 = CreateObject("ADODB.Recordset") strSQL2 = "SELECT COUNT(*) FROM DOWNLOAD_ELEZIONI" Set objRS2 = cnlive.Execute(strSQL2) tot_record = objRS2(0) set objRS2 = nothing if tot_record > 0 then ' Seleziona gli articoli della sezione download Set objRs = CreateObject("ADODB.Recordset") string_SQL = "SELECT * FROM DOWNLOAD_ELEZIONI WHERE down_tipo = '1' ORDER BY down_ID DESC" objRs.Open string_SQL, cnlive, 1 , 1 Do while NOT objRs.EOF response.write "" response.write "" response.write "" response.write "" objRs.Movenext Loop objRs.Close Set objRs = Nothing else response.write "" response.write "" response.write "" end if %>

Tutto sul voto del 13 e 14 aprile
" response.write " " response.write ""&trim(objRs("down_data"))&" " response.write ""&trim(objRs("down_titolo"))&" " response.write trim(objRs("down_catenaccio")) response.write "" response.write " " response.write " " response.write trim(replace(objRs("down_testo"), "`", "'")) response.write " " response.write "	" Set objRs1 = CreateObject("ADODB.Recordset") string_SQL = "SELECT * FROM DOWNLOAD_LINK_ELEZIONI Where down_ID = "&objRs("down_ID")&" " objRs1.Open string_SQL, cnlive, 1 , 1 Do while NOT objRs1.EOF PATH_FOTOGRAFIA = objRs1("down_path") response.write "Leggi il documento " response.write "   " objRs1.Movenext Loop objRs1.Close Set objRs1 = Nothing response.write "
PAGINA IN COSTRUZIONE A breve sarà on line" response.write "

---