colore dinamico in base alla categoria

[serpiko]

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:

<%
			
			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 "

<table><td><font face='verdana' size='2' color='#000000'>Non sono stati trovati dati.</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>[img]immagini/jpg/zipimage_p.jpg[/img]<span class=""titolonews"">"&objRS("nome")&"</span>

"
									Response.Write "<font color='#000000' face='Verdana' size='1'>Inserito il [" & objRS("pdate") & "] | Scaricato [" & objRS("hit") & "]</font>
<hr></td></tr>"
									else
									if i ="reclami" then 
									Response.Write "<tr><td>[img]immagini/jpg/zipimage_p.jpg[/img]<span class=""titolonews"">"&objRS("nome")&"</span>

"
									Response.Write "<font color='#ff0000' face='Verdana' size='1'>Inserito il [" & objRS("pdate") & "] | Scaricato [" & objRS("hit") & "]</font>
<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%>
                            

 
                              <%If ipagecount <> 1 Then%>
                            <table>
                              <tr> 
                                <td width="50%"><font face="verdana" size="1" color="#000000"> 
                                  [ 
                                  <%if iPageCurrent-2 > 0 and iPageCurrent > 2 then%>
                                  [img]images/first.gif[/img] 
                                  <%end if%>
                                  <%if iPageCurrent > 1 then%>
                                  [img]images/pre.gif[/img] 
                                  <%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%>
                                  [img]images/next.gif[/img] 
                                  <%end if%>
                                  <%if iPageCurrent+1 < iPageCount then%>
                                  [img]images/last.gif[/img] 
                                  <%end if%>
                                  ] </font></td>
                              </tr>
                              <tr> 
                                <td colspan="2" align="left"><font face="verdana" size="1" color="#000000"> 
                                  Pagina <font color="#FF0000"> <%=iPageCurrent%> 
                                  </font> di <font color="#FF0000"> 
                                  <%=iPageCount%> </font> </font></td>
                              </tr>
                            </table>
                            <%end if%>
                            <%
			objConn.Close
			Set objConn = Nothing
			%>

[serpiko]

ho provato in questo modo:

if pcat ="annunci" then 
Response.Write "<tr><td>[img]immagini/jpg/zipimage_p.jpg[/img]<span class=""titolonews"">"&objRS("nome")&"</span>

"
							
Response.Write "<font color='#ff0000' face='Verdana' size='1'>Inserito il [" & objRS("pdate") & "] | Scaricato [" & objRS("hit") & "]</font>
<hr></td></tr>"
		
else
									
Response.Write "<tr><td>[img]immagini/jpg/zipimage_p.jpg[/img]<span class=""titolonews"">"&objRS("nome")&"</span>

"
							
Response.Write "<font color='#000000' face='Verdana' size='1'>Inserito il [" & objRS("pdate") & "] | Scaricato [" & objRS("hit") & "]</font>
<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?!!?

[serpiko]

AiutO!!!!!!!!!!!!!!!!!!!!!!!!!!!

[serpiko]

boh! ragazzi no preoccupe ho risolto!

dim colore, colore2 
colore="#ff0000" 
colore2="#000000" 
If objRS("pcat") = "annunci" Then 
Response.Write "<tr><td>[img]immagini/jpg/zipimage_p.jpg[/img]<span class=""titolonews"">"&objRS("nome")&"</span>

"& vbCrlf 

Response.Write "<font color='"& Colore2 &"' face='Verdana' size='1'>Inserito il [" & objRS("pdate") & "] | Scaricato [" & objRS("hit") & "]</font>

[img][/img]</td></tr>" 
Else 
Response.write " <TR><TD bgcolor=""#FF0000""><div align=""center""><font color=""#FFFFFF"" size=""2"" face=""Geneva, Arial, Helvetica, sans-serif"">RECLAMI</font></div></TD></TR>" 
Response.Write "<tr><td>[img]immagini/jpg/zipimage_p.jpg[/img]<span class=""titolonews"">"&objRS("nome")&"</span>

"& vbCrlf 

Response.Write "<font color='"& Colore &"' face='Verdana' size='1'>Inserito il [" & objRS("pdate") & "] | Scaricato [" & objRS("hit") & "]</font>
</td></tr>" 

Response.Write "<TR><TD bgcolor=""#FF0000""><div align=""center""></div></TD></TR>" 
end if