Campo con un numero deve far uscire tante gif quanto è il valore del numero

[pablomare]

Devo inserire tante stelline quanto è il numero nel db.
Faccio così:

if rs("categoria")&"x"<>"x" then
valore=rs("categoria")
for i=1 to valore
response.write("[img][/img]")
next
end if

Però le mi stelline devono apparire in una paginazione al posto di " & Rs("categoria") & "
<%
If page = "" then
'Response.Write "<div align='center'>Nessun record trovato con le caratteristiche scelte. </div>"
page = 1'(rs.PageCount)

End if
'imposto la dimensione della pagina
Rs.PageSize = perpage
'mi sposto all'ultima pagina
'Rs.AbsolutePage = page
%>

<%


'scrivo i link ai 7 record
For i = 1 to perpage

If Not Rs.EOF then
if Rs("idofferta") < 7 then

Response.Write "<table border='0' width='550' cellspacing='0' cellpadding='4'>"
Response.Write "<tr>"
Response.Write "<td colspan='8' height='5'></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td valign='top' align='left'>[b]" & Rs("localita") & "</td>"
Response.Write "<td align='left'colspan='2' width='75'> " & Rs("categoria") & " </td>"
Response.Write "<td align='right' width='120'colspan='3'>" & Rs("animali") & "[img]/img/animali.gif[/img]</td>"
Response.Write "<td align='left' colspan='2'>" & Rs("rif") & "</a></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td align='left' colspan='4'>" & Rs("descrizione") & "</td>"
Response.Write "<td align='left' colspan='2' valign='bottom'></td>"
Response.Write "<td align='left' rowspan='4' valign='top' width='79' colspan='2' height='66'>[img]" & Rs("foto1") & " [/img]</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td colspan='6'></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td align='left'>" & Rs("persone") & " persone / " & Rs("locali") & " stanze / " & Rs("camere_letto") & " camera da letto</td>"
Response.Write "<td align='left' colspan='5'>Da EUR" & Rs("prezzo") & "</td>"
Response.Write " </tr>"
Response.Write "<tr align='right'><td colspan='8' >Vai al dettaglio</td></tr>"
Response.Write "<tr align='right'><td colspan='8' ></td></tr>"
Response.Write "<tr align='right'><td colspan='8' class='tdfiletto2'></td></tr>"
Response.Write "</table>"
else
Response.Write "<table border='0' width='550' cellspacing='0' cellpadding='4'>"
Response.Write "<tr>"
Response.Write "<td valign='top' align='left'>[b]" & Rs("localita") & "</td>"
Response.Write "<td align='left'colspan='2' width='75'> " & Rs("categoria") & "</td>"
Response.Write "<td align='right' width='120'colspan='3'>" & Rs("animali") & "[img]/img/animali.gif[/img]</td>"
Response.Write "<td align='left' colspan='2'>" & Rs("rif") & "</a></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td align='left' colspan='4'>" & Rs("descrizione") & "</td>"
Response.Write "<td align='left' colspan='2' valign='bottom'></td>"
Response.Write "<td align='left' rowspan='4' valign='top' width='79' colspan='2' height='66'>[img]" & Rs("foto1") & " [/img]</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td colspan='6'></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td align='left'>" & Rs("persone") & " persone / " & Rs("locali") & " stanze / " & Rs("camere_letto") & " camera da letto</td>"
Response.Write "<td align='left' colspan='5'>Da EUR" & Rs("prezzo") & "</td>"
Response.Write " </tr>"
Response.Write "<tr align='right'><td colspan='8' >Vai al dettaglio</td></tr>"
Response.Write "<tr align='right'><td colspan='8' ></td></tr>"
Response.Write "<tr align='right'><td colspan='8' class='tdfiletto2'></td></tr>"
Response.Write "</table>"
end if
Rs.MoveNext
end if
next
.....

[supergeniux]

cambia il response.write con il codice che hai scritto :\

[pablomare]

Se faccio così

For i = 1 to perpage

If Not Rs.EOF then
if Rs("idofferta") < 7 then

Response.Write "<table border='0' width='550' cellspacing='0' cellpadding='4'>"
Response.Write "<tr>"
Response.Write "<td colspan='8' height='5'></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td valign='top' align='left'>[b]" & Rs("localita") & "</td>"
if rs("categoria")&"x"<>"x" then valore=rs("categoria") for i=1 to valore
response.write"<td align='left'colspan='2' width='75'>[img][/img]</td>"next end if
Response.Write "<td align='right' width='120'colspan='3'>" & Rs("animali") & "[img]/img/animali.gif[/img]</td>"

mi dà questo errore: Prevista fine istruzione

/results.asp, line 125

if rs("categoria")&"x"<>"x" then valore=rs("categoria") for i=1 to valore

[supergeniux]

cambia questa riga:

Response.Write "<td align='left'colspan='2' width='75'> " & Rs("categoria") & " </td>"

con queste:

Response.Write "<td valign='top' align='left'>"

categoria = rs("categoria")

for x = 1 to categoria
response.write "[img]img/stern.gif[/img]"
next

response.write "</td>"

[pablomare]

Grande! Funziona!

Se invece devo chiamare un 'immagine da un campo vero/falso ?

[supergeniux]

fai il confronto e se è true la fai visualizzare, altrimenti no (o viceversa).