<%
if request("Pag")="" then
Pag=1
else
Pag=request("Pag")
end if
Prox = pag+1
if prox>10 then prox = 1
prev = pag-1
if Prev<1 then prev = 10
%>
.........
<META http-equiv="Page-Enter" CONTENT="RevealTrans(Duration=1,Transition=4)">
<META http-equiv="Page-exit" CONTENT="RevealTrans(Duration=1,Transition=4)">
..........................
<%
Dim rsAnn
Dim sqlAnn
Dim rsFile
Dim sqlFile
Set rsAnn = Server.CreateObject("ADODB.Recordset")
sqlAnn = "SELECT top 10 T_OFFERTE.ID_OFFERTA, T_OFFERTE.Codice, OF.NOME_FILE, T_OFFERTE.Descrizione FROM T_OFFERTE,AGENZIE A,OFFERTE_FILE OF WHERE T_OFFERTE.ID_OFFERTA=OF.ID_OFFERTA AND T_OFFERTE.IdAgenzia=A.IdAgenzia and (OF.TIPOFILE='FotoEsterna' or OF.TIPOFILE='Foto') and A.disabilitato=false ORDER BY DATAVALIDITA desc"
rsAnn.open sqlAnn, Conn,3
if not rsann.eof then
rsann.pagesize=1
rsann.absolutepage=pag
Link="scheda\foto\" & rsAnn("NOME_FILE").value
%>
<TABLE BORDER="0" WIDTH="450" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0" cellspacing="0">
<TR>
<TD COLSPAN="3" WIDTH="450" HEIGHT="20" ALIGN="left" VALIGN="middle">
<FONT FACE="Arial" size="1" color="#1C3686">
<%
response.write rsann("codice")
%>
</FONT>
</TD>
</TR>
<TR>
<TD COLSPAN="3" WIDTH="450" HEIGHT="20" ALIGN="left" VALIGN="middle">
</TD>
</TR>
<TR>
<TD WIDTH="100" HEIGHT="75" ALIGN="left" VALIGN="middle">
" target=scheda>[img]<%=Link%>[/img]
</TD>
<TD WIDTH="350" HEIGHT="75" ALIGN="left" VALIGN="top">
<FONT FACE="Arial" size="2" color="#1C3686"><A HREF="scheda/scheda.asp?ID_OFFERTA=<%=rsann("ID_OFFERTA")%>" target=scheda>
<%
if len(rsann("descrizione")) then
response.write rsann("descrizione")
else
response.write "Clicca qui per il dettaglio"
end if
%>
</A></FONT>
</TD>
<TD WIDTH="25" HEIGHT="75" ALIGN="left" VALIGN="middle">
<A HREF="annunci.asp?pag=<%=prev%>">
[img]images/Su.gif[/img]</A>
<A HREF="annunci.asp?pag=<%=prox%>">
[img]images/Giu.gif[/img]</A>
</TD>
</TR>
</TABLE>
<%
else
%><CENTER>
<div align="left">
<TABLE WIDTH=450 HEIGHT=100% style="border-collapse: collapse" bordercolor="#111111" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<TR>
<TD bgcolor="#FFFFFF" ALIGN=CENTER>
[img]images/Logohp.gif[/img]
</TD></TR>
</TABLE>
</div>
<%
end if
rsAnn.Close
Set rsAnn=Nothing
%>