Visualizzare record in 2 colonne pari e dispari

**Pierhagi** · 04-12-2009, 15:41

Ciao a tutti

sto cercando di visualizzare un classico calendario del campionato di calcio disponendo i risultati su 2 colonne, dove vorrei che nella prima colonna ci fossere i risultati di una giornata con numero dispari e nella colonna quelli con la giornata pari es:

Colonna Dispari - Colonna Pari
GIORNATA 1 - GIORNATA 2
Risultato1 Risultato1
Risultato2 Risultato3
Risultato4 Risultato2
Risultato3 Risultato4

GIORNATA 3 - GIORNATA 4
Risultato1 Risultato1
Risultato2 Risultato3
Risultato4 Risultato2
Risultato3 Risultato4

...etc

Questo si potrebbe fare utilizzando il campo del mio db: NUM_GIORNATA

Seguendo questo doc:
http://forum.html.it/forum/showthrea...+pi%F9+colonne

sono riuscito a fare a metà il mio lavoro:
http://www.sampdoriaclubfinale.it/ca...e_torneo=Serie A 2009/2010

Il codice della mia pagina è:

INIZIO
************************************************** *
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<%
Dim rs
Dim sql

Dim nome_torneo_v
nome_torneo_v = request.querystring("nome_torneo")

sql = "SELECT * FROM TabCalendario WHERE NOME_TORNEO = '"& nome_torneo_v &"' ORDER BY NUM_GIORNATA ASC"

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, cn, 3,3
%>

<html>
<head></head>
<body>
<table border="1">
prova
<%

Dim conta
conta = 0

Do while not rs.eof

conta = conta + 1
if conta = 0 then

Response.Write("<tr>")

Response.Write("<td>")
Response.write rs("NUM_GIORNATA")
Response.Write("</td>")

Response.Write("<tr>")

end if
Response.Write("<td>")
Response.Write "-" & rs("NUM_GIORNATA") & "-" & rs("NOME_SQUADRA_1")& "-" & rs("NOME_SQUADRA_2") & " " & rs("PUNTEGGIO_1")& "-" & rs("PUNTEGGIO_2")
Response.Write("</td>")

if conta = 2 then

Response.Write("<tr>")
conta = 0
end if

rs.MoveNext
loop

%>
</table>

</body>
</html>

<%
rs.Close
Set rs = Nothing

cn.Close
Set cn = Nothing
%>
************************************************** *
FINE

**ale_1976** · 04-12-2009, 16:00

Ciao Pier,

già devi cambiare la riga

if conta=0 then

in

if conta=1 then

perché conta a 0 non c'è se non prima del ciclo...poi appena entri nel ciclo già gli sommi 1...

**Pierhagi** · 04-12-2009, 17:30

Ecco qua!...risolto!

Con l'aiuto di "ale_1976" si è raggiunto l'obbiettivo!

Ciao

CODICE:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<%
Dim rs
Dim sql

Dim nome_torneo_v
nome_torneo_v = request.querystring("nome_torneo")

sql = "SELECT * FROM TabCalendario WHERE NOME_TORNEO = '"& nome_torneo_v &"' ORDER BY NUM_GIORNATA ASC"

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, cn, 3,3
%>

<html>
<head></head>
<body>

<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="500" id="AutoNumber1">
<%
Dim intCount
intCount = 0
giornata = 0
Do While Not Rs.EOF
giornata = giornata + 1
intCount = intCount + 1
If (intCount Mod 2) = 1 Then
%>
<tr>
<td width="250">
<table style="width: 90%; margin-left: auto; margin-right: auto;">
<%
sql2 = "SELECT * FROM TabCalendario where NUM_GIORNATA = "&giornata&" AND NOME_TORNEO = '"& nome_torneo_v &"'"
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.Open sql2, cn, 3,3
Do While Not Rs2.EOF
%>
<tr><td><%=rs2("NUM_GIORNATA")%> - <%=rs2("NOME_SQUADRA_1")%> - <%=rs2("NOME_SQUADRA_2")%></td><td><%=rs2("punteggio_1")%> - <%=rs2("punteggio_2")%></td></tr>
<%
Rs2.MoveNext
Loop
%>
</table>
</td>
<%
Else
%>
<td width="250">
<table style="width: 90%; margin-left: auto; margin-right: auto;">
<%
sql2 = "SELECT * FROM Tabcalendario where NUM_GIORNATA="&giornata&" AND NOME_TORNEO = '"& nome_torneo_v &"'"
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.Open sql2, cn, 3,3
Do While Not Rs2.EOF
%>
<tr><td><%=rs2("NUM_GIORNATA")%> - <%=rs2("nome_squadra_1")%> - <%=rs2("nome_squadra_2")%></td><td><%=rs2("punteggio_1")%> - <%=rs2("punteggio_2")%></td></tr>
<%
Rs2.MoveNext
Loop
%>
</table>
</td></tr>
<%
End If
%>

<%
Rs.MoveNext
Loop
If (intCount Mod 2) = 1 Then
%>
<td width="250"></td></tr>
<%
End If
%>
</table>

</table>

</body>
</html>

<%
rs.Close
Set rs = Nothing

rs2.Close
Set rs2 = Nothing

cn.Close
Set cn = Nothing
%>

Discussione: Visualizzare record in 2 colonne pari e dispari

Strumenti discussione

Ricerca discussione

Visualizza

Visualizzare record in 2 colonne pari e dispari

Permessi di invio