<%@ Language=VBScript %> <% Response.Charset = "utf-8" Session.Codepage = 1252 if not IsNull(Request("idl")) and Request("idl") <> "" then Session("idl") = Request("idl") end if if IsNull(Session("idl")) or Session("idl") = "" or CInt(Session("idl")) < 1 then Session("idl") = "1" end if torna = "torna all'elenco" download = "Scarica il PDF" if Session("idl") = "2" then torna = "back to list" download = "Download PDF" end if %> ebilling
 <% Set cmdUpdates = Server.CreateObject("ADODB.Command") cmdUpdates.CommandType = 1 Set cmdUpdates.ActiveConnection = Session("CONNECTION") cmdUpdates.CommandText = "SELECT * FROM updates WHERE id_update = " & Request("idu") Set rsUpdates = Server.CreateObject("ADODB.Recordset") rsUpdates.Open cmdUpdates, , 1, 3 if not(rsUpdates.BOF and rsUpdates.EOF) then %> <% end if rsUpdates.Close %>

update

<%=ShowDate(rsUpdates("data"))%>

<%=rsUpdates("titolo")%>

<%=rsUpdates("sottotitolo")%>

<%=rsUpdates("testo")%>

<% if (IsNull(rsUpdates("miniatura")) or rsUpdates("miniatura") = "") and not IsNull(rsUpdates("pdf")) and rsUpdates("pdf") <> "" then %>

 " target="_blank"><%= download%>

<% end if %>

 

<%= torna%>

<% if not IsNull(rsUpdates("miniatura")) and rsUpdates("miniatura") <> "" then %>

" alt=" " class="immagine">

 

<% if not IsNull(rsUpdates("pdf")) and rsUpdates("pdf") <> "" then %>

 " target="_blank"><%= download%>

<% end if %> <% end if %>