celle colorate alternate

**mono** · 28-07-2004, 12:55

questo qui è il mio script

<%
Dim Conta
Conta = 0
While not Rs.eof
%>
<td width="50%" bordercolor="#FFFFFF">
<a href="#">

<font color="black" size="1" face="Verdana, Arial, Helvetica, sans-serif">
<%=Rs("descrizione_marchio")%>
</font>

</a>
</td>
<%
Conta = Conta + 1
if Conta = 2 then
conta = 0
response.write "</tr><tr>"
end if

Rs.MoveNext
Wend

Rs.close
Set Rs = Nothing
%>

come posso fare
per far diventare anche le celle una di un colore e una di un altra?
e un altra domanda.
perche cosi facendo mi mette tutto in ordine alfabetico ma invece di continuare quando arriva alla fine della pagina e riniziarmi all'altra colonna
scrive una colonna a destra e una a sinistra sempre in ordine alfabetico?

**weppos** · 28-07-2004, 12:57

Originariamente inviato da mono
come posso fare
per far diventare anche le celle una di un colore e una di un altra?

http://forum.html.it/forum/search.ph...der=descending

Originariamente inviato da mono
e un altra domanda.
perche cosi facendo mi mette tutto in ordine alfabetico ma invece di continuare quando arriva alla fine della pagina e riniziarmi all'altra colonna
scrive una colonna a destra e una a sinistra sempre in ordine alfabetico?

Perchè glielo dici tu (o quello che ha creato lo script

) con il codice

codice:

Conta = Conta + 1
if Conta = 2 then
conta = 0
response.write "</tr><tr>"
end if

**kluster** · 28-07-2004, 13:53

sbagliato post scusate

**mono** · 28-07-2004, 14:40

<head>
<style type="text/css">
A:link, A:visited { text-decoration: none }
A:hover { text-decoration: underline }
</style>
</head>
<table border="1" width="100%" cellpadding="0" cellspacing="0">
<%
dim conn, rs
set conn = server.CreateObject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("catalogo/db_sid.mdb")
set rs = server.CreateObject("adodb.recordset")
rs.open "SELECT* FROM marchi WHERE tipo_marchio = 'h' ORDER BY descrizione_marchio", conn
%>
<%
dim toogle
toogle = 1
Dim Conta
Conta = 0
While not Rs.eof
%>
<%
if toogle = 1 then
bgcolor = "#eeeeee"
toogle = 0
else
bgcolor = "#ffffff"
toogle = 1
end if
%>
<td width="50%" bgcolor="<%=bgcolor%>">
<a href="#">

<font color="black" size="1" face="Verdana, Arial, Helvetica, sans-serif">
<%=Rs("descrizione_marchio")%>
</font>

</a>
</td>
<%
Conta = Conta + 1
if Conta = 2 then
conta = 0
response.write "</tr><tr>"
end if

Rs.MoveNext
Wend

Rs.close
Set Rs = Nothing
%>

perdonatemi ma prorio nn ci riesco a far venire le celle alternate

**weppos** · 28-07-2004, 14:42

A prima vista il codice sopra sembra corretto.
Già che ci sei postalo come da regolamento nei tag [ CODE ]

Non ti cambia colore? :master:

**mono** · 28-07-2004, 14:45

si mi cambia colore

pero mi viene una parte della tabella xxx
e l'altra parte della tabella yyyyy

e nn a righe alternate

**weppos** · 28-07-2004, 14:47

Originariamente inviato da mono
si mi cambia colore

pero mi viene una parte della tabella xxx
e l'altra parte della tabella yyyyy

e nn a righe alternate

E ce credo.
Il tag HTML <td> serve per le colonne, <tr> per le righe.
Sposta il bgcolor nel tag delle righe, anche se meglio ancora sarebbe usare una classe dato che il w3c non permette più l'attributo gbcolor nè per i td nè per i tr.

**mono** · 28-07-2004, 15:17

ma se lo sposto nel tag delle righe
mi errore

response.write "</tr><tr bgcolor="bgcolor">"

**kluster** · 28-07-2004, 15:33

ho riadattato un po' il codice (non l'ho testato ma dovrebbe andare)

codice:

<%
dim conn, rs,Conta ,toogle
set conn = server.CreateObject("adodb.connection") 
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("catalogo/db_sid.mdb") 
set rs = server.CreateObject("adodb.recordset") 
rs.open "SELECT* FROM marchi WHERE tipo_marchio = 'h' ORDER BY descrizione_marchio", conn 
Conta 	 = 0 
toogle 	 = 1 
%>
<table border="1" width="100%" cellpadding="0" cellspacing="0"> 
	<tr bgcolor="#FFFFFF">
<% 
While not Rs.eof %> 
		<td width="50%"> 
			<a href="#"> 
				<font color="black" size="1" face="Verdana, Arial, Helvetica, sans-serif">
				<%=Rs("descrizione_marchio")%>
				</font>
			</a>
		</td> 
<%  if toogle = 1 then bgcolor="#EEEEEE" else bgcolor="#FFFFFF"	
	if Conta mod 2 = 0 then  response.write "</tr><tr bgcolor=" & bgcolor & ">"  'mod è il resto della divisione
	Conta 	= Conta + 1 
	toogle 	= toogle * -1 ' il numero 1 moltiplicato per - 1 da' una volta 1 e una volta -1
	Rs.MoveNext 
Wend 
Rs.close 
Set Rs = Nothing 
if Conta mod 2 <> 0 then Response.write("<td></td>")
%>
       </tr>
</table>

**mono** · 28-07-2004, 15:38

mi spiace farti perdere tempo ma nn funza
mi da tutte le righe dello stesso colore

Discussione: celle colorate alternate

Strumenti discussione

Ricerca discussione

Visualizza

celle colorate alternate

Re: celle colorate alternate

Permessi di invio