ciclo bis

**pagineasp2** · 04-05-2007, 12:30

cerco di spiegari cosa voglio fare
dovrei confrontare
1)DMC_IVR con TIMOTY_IVR e con DWHC_IVR
se DMC_IVR e diverso da TIMOTY_IVR e da DWHC_IVR colorare in rosso DMC_IVR altrimenti se è uguale colorare in nero DMC_IVR

2)DMC_web con TIMOTY_web e con DWHC_web
se DMC_web e diverso da TIMOTY_web e da DWHC_web colorare in rosso DMC_web altrimenti se è uguale colorare in nero DMC_web

3)DMC_asp con TIMOTY_asp e con DWHC_asp
se DMC_asp e diverso da TIMOTY_asp e da DWHC_asp colorare in rosso DMC_asp altrimenti se è uguale colorare in nero DMC_asp

</table>
<table border="2" cellspacing="0" bgcolor="white" align="center" bordercolor="blue">
<thead>

<tr>
<th bgcolor="#DCDCDC" scope="col" colspan="4">TIMOTY</th>
<th bgcolor="#DCDCDC" scope="col" colspan="3">DWHC</th>
<th bgcolor="#DCDCDC" scope="col" colspan="3">DMC</th>
</tr>

<tr>
<th>DATA</th>
<th>IVR</th>
<th>WEB</th>
<th>ASP</th>

<th>IVR</th>
<th>WEB</th>
<th>ASP</th>

<th>IVR</th>
<th>WEB</th>
<th>ASP</th>
</tr>

<%
if not rs1.eof then
do while not(rs1.eof)

dim colore
dim codice1
dim codice2
dim codice3
colore ="#000000"

codice1 = rs1("DMC_ivr")
codice2=rs1("DMC_web")
codice3=rs1("DMC_asp")

response.write rs1("Dmc_IVR")
if (rs1("DMC_IVR")<>rs1("TIMOTY_IVR")) or (rs1("DMC_IVR")<>rs1("DWHC_IVR")) then

colore = "#ff0000"
codice1=rs1("DMC_IVR")
end if

if (rs1("DMC_IVR")=rs1("TIMOTY_IVR")) and (rs1("DMC_IVR")=rs1("DWHC_IVR")) then

colore = "#000000"
codice1=rs1("DMC_IVR")
end if

if (rs1("DMC_WEB")<>rs1("TIMOTY_WEB")) or (rs1("DMC_WEB")<>rs1("DWHC_WEB")) then

colore = "#ff0000"
codice2=rs1("DMC_WEB")
else
colore = "#000000"
codice2=rs1("DMC_WEB")
end if
if (rs1("DMC_ASP")<>rs1("TIMOTY_ASP")) and (rs1("DMC_ASP")<>rs1("DWHC_ASP")) then

colore = "#ff0000"
codice1=rs1("DMC_ASP")
end if
%>

<tr>
<td><%response.write(rs1("DATA_INIZIO_S ETTIMANA"))%></td>
<td><%response.write(rs1("TIMOTY_IVR")) %></td>
<td><%response.write(rs1("TIMOT Y_WEB"))%></td>
<td><%response.write(rs1("TIMOT Y_ASP"))%></td>
<td><%response.write(rs1("dwhc_IVR"))%> </td>
<td><%response.write(rs1("dwhc_ WEB"))%></td>
<td><%response.write(rs1("dwhc_ ASP"))%></td>
<td>" face="verdana">
<%response.write(codice1)%> </td>
<td>"face="verdana">
<%response.write(codice2)%> </td>
<td>"face="verdana">
<%response.write(codice3)%> </td>
<td>"face="verdana">
</tr>
<%

rs1.movenext
loop
end if
rs1.Close
Set rs1 = Nothing

end if

**Santino83_02** · 04-05-2007, 12:49

codice:

A1=rs("DMC_IVR")
B1=rs("TIMOTY_IVR")
C1=rs("DWHC_IVR")

A2=rs("DMC_web")
B2=rs("TIMOTY_web")
C2=rs("DWHC_web")

A3=rs("DMC_asp")
B3=rs("TIMOTY_asp")
C3=rs("DWHC_asp")

'//--------- CASO 1
colore=""
if A1<>B1 and A1<>C1 then
	colore="red"
elseif A1=B1 and A1=C1 then
	colore="black"
else	'A1=B1 o A1=C1
	colore="black"
end if

'//--------- CASO 2
colore=""
if A2<>B2 and A2<>C2 then
	colore="red"
elseif A2=B2 and A2=C2 then
	colore="black"
else	'A2=B2 o A2=C2
	colore="black"
end if

'//--------- CASO 3
colore=""
if A3<>B3 and A3<>C3 then
	colore="red"
elseif A3=B3 and A3=C3 then
	colore="black"
else	'A3=B3 o A3=C3
	colore="black"
end if

**pagineasp2** · 04-05-2007, 14:46

prima di tutto grazie per l'impegno, scusami se ti disturbo ancora, ho fatto cosi, ma ancora non funziona bene.

if not rs1.eof then

dim colore

dim A1
dim B1
dim C1
dim A2
dim B2
dim C2
dim A3
dim B3
dim C3

A1=rs1("DMC_IVR")
B1=rs1("TIMOTY_IVR")
C1=rs1("DWHC_IVR")

A2=rs1("DMC_web")
B2=rs1("TIMOTY_web")
C2=rs1("DWHC_web")

A3=rs1("DMC_asp")
B3=rs1("TIMOTY_asp")
C3=rs1("DWHC_asp")

colore =""

if A1<>B1 and A1<>C1 then
colore="red"
elseif A1=B1 and A1=C1 then
colore="black"
else A1=B1 or A1=C1
colore="black"
end if

'//--------- CASO 2
colore=""
if A2<>B2 and A2<>C2 then
colore="red"
elseif A2=B2 and A2=C2 then
colore="black"
else A2=B2 or A2=C2
colore="black"
end if
'//--------- CASO 3
colore=""
if A3<>B3 and A3<>C3 then
colore="red"
elseif A3=B3 and A3=C3 then
colore="black"
else A3=B3 or A3=C3
colore="black"
end if
%>

<tr>
<td><%response.write(rs1("DATA_INIZIO_S ETTIMANA"))%></td>
<td><%response.write(rs1("TIMOTY_IVR")) %></td>
<td><%response.write(rs1("TIMOT Y_WEB"))%></td>
<td><%response.write(rs1("TIMOT Y_ASP"))%></td>
<td><%response.write(rs1("dwhc_IVR"))%> </td>
<td><%response.write(rs1("dwhc_ WEB"))%></td>
<td><%response.write(rs1("dwhc_ ASP"))%></td>
<td>" face="verdana">
<%response.write(A1)%> </td>
<td>"face="verdana">
<%response.write(A2)%> </td>
<td>"face="verdana">
<%response.write(A3)%> </td>
<td>"face="verdana">
</tr>
<%

end if
rs1.Close
Set rs1 = Nothing

end if

**Santino83_02** · 05-05-2007, 13:44

non puoi usare la stessa variabile colore per tre casi diversi se li devi stampare insieme

codice:

if not rs1.eof then


dim colore1,colore2,colore3

dim A1
dim B1
dim C1
dim A2
dim B2
dim C2
dim A3
dim B3
dim C3

A1=rs1("DMC_IVR")
B1=rs1("TIMOTY_IVR")
C1=rs1("DWHC_IVR")

A2=rs1("DMC_web")
B2=rs1("TIMOTY_web")
C2=rs1("DWHC_web")

A3=rs1("DMC_asp")
B3=rs1("TIMOTY_asp")
C3=rs1("DWHC_asp")

colore1=""
colore2=""
colore3=""



if A1<>B1 and A1<>C1 then
colore1="red"
elseif A1=B1 and A1=C1 then
colore1="black"
else A1=B1 or A1=C1
colore1="black"
end if

'//--------- CASO 2
if A2<>B2 and A2<>C2 then
colore2="red"
elseif A2=B2 and A2=C2 then
colore2="black"
else A2=B2 or A2=C2
colore2="black"
end if
'//--------- CASO 3
if A3<>B3 and A3<>C3 then
colore3="red"
elseif A3=B3 and A3=C3 then
colore3="black"
else A3=B3 or A3=C3
colore3="black"
end if
%>





<tr>
<td><font size="2" face="verdana"><%response.write(rs1("DATA_INIZIO_SETTIMANA"))%> </font></td>
<td><font size="2" face="verdana"><%response.write(rs1("TIMOTY_IVR"))%> </font></td>
<td><font size="2"face="verdana"><%response.write(rs1("TIMOTY_WEB"))%> </font></td>
<td><font size="2"face="verdana"><%response.write(rs1("TIMOTY_ASP"))%> </font></td>
<td><font size="2" face="verdana"><%response.write(rs1("dwhc_IVR"))%> </font></td>
<td><font size="2"face="verdana"><%response.write(rs1("dwhc_WEB"))%> </font></td>
<td><font size="2"face="verdana"><%response.write(rs1("dwhc_ASP"))%> </font></td>
<td><font size="2" color="<%=colore1%>" face="verdana">
<%response.write(A1)%> </font> </td>
<td><font size="2" color="<%=colore2%>"face="verdana">
<%response.write(A2)%> </font> </td>
<td><font size="2" color="<%=colore3%>"face="verdana">
<%response.write(A3)%> </font> </td>
</tr>
<%


end if
rs1.Close
Set rs1 = Nothing

end if

o almeno credo sia questo quello che vuoi fare...

**pagineasp2** · 07-05-2007, 09:10

grazie mille funziona benissimo, un ultima cosa adesso mi vorrei cimentare a fare i grafici in asp, per caso hai degli esempi da farmi vedere cosi da poter prendere spunto e andare avanti da solo?

**Santino83_02** · 07-05-2007, 17:28

Originariamente inviato da pagineasp2
grazie mille funziona benissimo, un ultima cosa adesso mi vorrei cimentare a fare i grafici in asp, per caso hai degli esempi da farmi vedere cosi da poter prendere spunto e andare avanti da solo?

andare avanti da solo?

c'era qualcuno che aveva fatto una classe per fare i grafici in asp, prova a cercarla con google che non mi ricordo se fosse di Imente... poi per il resto ti posso solo dire di prendere una pagina asp e cominciare a cercare di capire come si faccia un grafico, partendo dal caso piu semplice fino ad ampliarlo al caso piu complesso.... per tutto il resto c'è google

**optime** · 07-05-2007, 17:34

se vuoi/devi fare dei *veri* grafici, NON usare asp

**Santino83_02** · 07-05-2007, 17:35

Originariamente inviato da optime
se vuoi/devi fare dei *veri* grafici, NON usare asp

tra le altre cose...

Discussione: ciclo bis

Strumenti discussione

Ricerca discussione

Visualizza

ciclo bis

Permessi di invio