salve!
ho una pagina asp che estrapola i dati (categoria "annunci") da un db (le cui categorie sono però "annunci", "reclami" e "ovazioni"). Al momento funziona tutto alla perfezione. il problema è che però adesso per non so quale oscuro motivo mi è stato chiesto di far apparire anche i "reclami", magari con una riga sopra (con lo sfondo ad esempio di colore rosso) ho provato a fare una regola ma non mi riesce3, qualcuno può dirmi cosa sbaglio?! perché il risultato è che adesso a video non mi stampa nulla! vi posto qui di seguito il codice:
<!-- #include file="adovbs.inc"-->
<!-- #include file="connDb.asp"-->
<%
iPageSize = 5 'NUMERO RECORD PER PAGINA
If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If
strSQL = "SELECT * FROM DOWNLOAD where pcat = 'annunci' or pcat = 'reclami' order by pdate DESC"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.PageSize = iPageSize
objRS.CacheSize = iPageSize
objRS.Open strSQL, objConn, adOpenStatic, adLockReadOnly, adCmdText
reccount = objRS.recordcount
iPageCount = objRS.PageCount
If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1
If iPageCount = 0 Then
Response.Write "<p><table><td><font face='verdana' size='2' color='#000000'><b>Non sono stati trovati dati.</b></td></table></p>"
Else
objRS.AbsolutePage = iPageCurrent
iRecordsShown = 0
%>
<table>
<%
Cont=1
Do While iRecordsShown < iPageSize And Not objRS.EOF
i = objRS("pcat")
if i ="annunci" then
Response.Write "<tr><td><b><img src='immagini/jpg/zipimage_p.jpg'><span class=""titolonews""><a onmouseover=""this.style.background='#eeeeee'"" onmouseout=""this.style.background='#ffffff'"" href=""popdown.asp?cod="&objRS("cod")&""&path&""" acronym title=""clicca per scaricare il documento in formato zip"">"&objRS("nome")&"</b></a></span><br><br>"
Response.Write "<font color='#000000' face='Verdana' size='1'>Inserito il [<b>" & objRS("pdate") & "</b>] | Scaricato [<b>" & objRS("hit") & "</b>]</font><br><hr></td></tr>"
else
if i ="reclami" then
Response.Write "<tr><td><b><img src='immagini/jpg/zipimage_p.jpg'><span class=""titolonews""><a onmouseover=""this.style.background='#eeeeee'"" onmouseout=""this.style.background='#ffffff'"" href=""popdown.asp?cod="&objRS("cod")&""&path&""" acronym title=""clicca per scaricare il documento in formato zip"">"&objRS("nome")&"</b></a></span><br><br>"
Response.Write "<font color='#ff0000' face='Verdana' size='1'>Inserito il [<b>" & objRS("pdate") & "</b>] | Scaricato [<b>" & objRS("hit") & "</b>]</font><br><hr></td></tr>"
end if
end if
Cont = Cont + 1
'POSIZIONAMENTO ALLA RIGA SUCCESSIVA DEL DB
iRecordsShown = iRecordsShown + 1
objRS.MoveNext
Loop
'PULIZIA DEGLI OGGETTI ADO
objRS.Close
Set objRS = Nothing
%>
</table>
<%End if%>
<p>
<%If ipagecount <> 1 Then%>
<table>
<tr>
<td width="50%"><font face="verdana" size="1" color="#000000">
<b>[
<%if iPageCurrent-2 > 0 and iPageCurrent > 2 then%>
<a href="annunci.asp?page=1"><img border="0" src="images/first.gif" valign="middle" alt="Prima"></a>
<%end if%>
<%if iPageCurrent > 1 then%>
<a href="annunci.asp?page=<%=iPageCurrent-1%>"><img border="0" src="images/pre.gif" valign="middle" alt="Precedente"></a>
<%end if%>
<%if iPageCount > 2 then
if iPageCurrent-2 < 1 then da_pag = 1 else da_pag = iPageCurrent-2
if iPageCurrent+2 > iPageCount then fino_a_pag = iPageCount else fino_a_pag = iPageCurrent+2
else
da_pag = 1
fino_a_pag = iPageCount
end if%>
<%for i = da_pag to fino_a_pag%>
<%if i = iPageCurrent then%>
<font color="red"> <%=i%> </font>
<%else%>
<a href="annunci.asp?page=<%=i%>"> <%=i%>
</a>
<%end if%>
<%next%>
<%if iPageCurrent > 0 and iPageCurrent < iPageCount then%>
<a href="annunci.asp?page=<%=iPageCurrent+1%>"><img border="0" src="images/next.gif" valign="middle" alt="Successiva"></a>
<%end if%>
<%if iPageCurrent+1 < iPageCount then%>
<a href="annunci.asp?page=<%=iPageCount%>"><img border="0" src="images/last.gif" valign="middle" alt="Ultima"></a>
<%end if%>
]</b> </font></td>
</tr>
<tr>
<td colspan="2" align="left"><font face="verdana" size="1" color="#000000">
Pagina <font color="#FF0000"><b> <%=iPageCurrent%>
</b></font> di <font color="#FF0000"><b>
<%=iPageCount%> </b></font> </font></td>
</tr>
</table>
<%end if%>
<%
objConn.Close
Set objConn = Nothing
%>ho provato in questo modo:
if pcat ="annunci" then
Response.Write "<tr><td><b><img src='immagini/jpg/zipimage_p.jpg'><span class=""titolonews""><a onmouseover=""this.style.background='#eeeeee'"" onmouseout=""this.style.background='#ffffff'"" href=""popdown.asp?cod="&objRS("cod")&""&path&""" acronym title=""clicca per scaricare il documento in formato zip"">"&objRS("nome")&"</b></a></span><br><br>"
Response.Write "<font color='#ff0000' face='Verdana' size='1'>Inserito il [<b>" & objRS("pdate") & "</b>] | Scaricato [<b>" & objRS("hit") & "</b>]</font><br><hr></td></tr>"
else
Response.Write "<tr><td><b><img src='immagini/jpg/zipimage_p.jpg'><span class=""titolonews""><a onmouseover=""this.style.background='#eeeeee'"" onmouseout=""this.style.background='#ffffff'"" href=""popdown.asp?cod="&objRS("cod")&""&path&""" acronym title=""clicca per scaricare il documento in formato zip"">"&objRS("nome")&"</b></a></span><br><br>"
Response.Write "<font color='#000000' face='Verdana' size='1'>Inserito il [<b>" & objRS("pdate") & "</b>] | Scaricato [<b>" & objRS("hit") & "</b>]</font><br><hr></td></tr>"
end if adesso a video mi satampa i record, ma non fa differenza se annunci o reclami , comunque la parte che io ho scritto volevo in ff0000 (rosso) comunque me la restituisce in nero... cioè in pratica non se ne frega nulla dell'istruzione! sicuramente sbaglio ma in cosa?!!?
