Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.

Dismiss

colorare su front page

7 views

Skip to first unread message

Domenico Zangrilli

unread,

Jul 30, 2011, 6:12:43 AM7/30/11

Salve
avrei bisogno se gentilmente potreste dirmi come colorare la tabella
di numeri in una pagina asp

dovrei colorare 7 colori per 49 numeri
cioè

1-8-15-22-29-36-43 colore Verde
2-9-16-23-30-37-44 colore rosso
3-10-17-24-31-38-45 colore arancio
4-11-18-25-32-39-46 colore giallo
5-12-19-26-33-40-47 colore marrone
6-13-20-27-34-41-48 colore viola
7-14-21-28-35-42-49 colore blu

come posso colorare in formato html

la sorgente è stata creata con Font page 2000
http://www.grillizan.info/lotto_uk49s.htm
--------------------------------------------------------------------------------------------------------------

in VBA di excel
Sub copia()
'
' copia Macro
' Macro registrata il 13/08/2009 da Domenico
'

Dim N, M, num, colore, reso
ActiveSheet.Unprotect
Range("E3:K204").Select
Selection.Interior.Color = xlNone
For N = 3 To 104
For M = 1 To 6
num = Cells(N, M + 13).Value
If num = 0 Then
reso = Cells(N, M + 4).Value
colore = reso Mod 7 '----------------> qui il comando dei 7 colori
in num 0 to 6 trasformato in select case
Select Case colore
Case 0
Cells(N, M + 4).Select
Selection.Interior.ColorIndex = 33
Case 1
Cells(N, M + 4).Select
Selection.Interior.ColorIndex = 4
Case 2
Cells(N, M + 4).Select
Selection.Interior.ColorIndex = 3
Case 3
Cells(N, M + 4).Select
Selection.Interior.ColorIndex = 46
Case 4
Cells(N, M + 4).Select
Selection.Interior.ColorIndex = 6
Case 5
Cells(N, M + 4).Select
Selection.Interior.ColorIndex = 40
Case 6
Cells(N, M + 4).Select
Selection.Interior.ColorIndex = 39
End Select
End If
Next M
Next N
ActiveSheet.Protect
Range("A1:K104").Select
Selection.Copy
End Sub

il codice html
<html>

<head>
<meta http-equiv="Content-Type" content="text/html;
charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Lotto UK49s</title>
<meta name="Microsoft Theme" content="copia-di-industriale 011,
default">
<meta name="Microsoft Border" content="tl, default">
</head>

<body>
<h1>Lotto Uk 49's 
<img border="0" src="49sLogo.jpg"></h1>
Visite Avvenute: <img src="_vti_bin/fpcount.exe/C:/Documents
%20and%20Settings/Domenico/Documenti/Web/grillizan.info/?
Page=Uk49s.asp|Image=4|Digits=6" alt="Contatore visite">

<table border="1">
<thead>
<tr>
<td>Estr</td>
<td>Data</td>
<td align="center">E1</td>
<td align="center">E2</td>
<td align="center">E3</td>
<td align="center">E4</td>
<td align="center">E5</td>
<td align="center">E6</td>
<td>Jolly</td>
</tr>
</thead>
<tbody>

<%
fp_sQry="SELECT * FROM ArchivioUk49s ORDER BY Estr DESC"
fp_sDefault=""
fp_sNoRecords="<tr><td colspan=9 align=left width=""100%"">Nessun
record restituito.</td></tr>"
fp_sDataConn="Database5"
fp_iMaxRecords=0
fp_iCommandType=1
fp_iPageSize=25
fp_fTableFormat=True
fp_fMenuFormat=False
fp_sMenuChoice="Estr"
fp_sMenuValue="Estr"
fp_iDisplayCols=9
fp_fCustomQuery=False
BOTID=0
fp_iRegion=BOTID
%>


<tr>
<td><%=FP_FieldVal(fp_rs,"Estr")%>
</td>
<td><%=FP_FieldVal(fp_rs,"Data")%>
</td>
<td align="center"><%=FP_FieldVal(fp_rs,"E1")%>
</td>
<td align="center"><%=FP_FieldVal(fp_rs,"E2")%>
</td>
<td align="center"><%=FP_FieldVal(fp_rs,"E3")%>
</td>
<td align="center"><%=FP_FieldVal(fp_rs,"E4")%>
</td>
<td align="center"><%=FP_FieldVal(fp_rs,"E5")%>
</td>
<td align="center"><%=FP_FieldVal(fp_rs,"E6")%>
</td>
<td align="center"><%=FP_FieldVal(fp_rs,"Jolly")%>
</td>
</tr>


</tbody>
</table> </body>

</html>

Domenico Zangrilli

unread,

Jul 30, 2011, 6:12:44 AM7/30/11

0 new messages