<%
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
%>
<%=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
%>
|
<%
end if
rsUpdates.Close
%>