Questo è il
codice:
<%
dim strCode
strCode="innovatel"
dim intVolta
intVolta="0"

' Mappaggio del database
set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("database.mdb")
strConn=strConn & ";pwd=" & strCode
Conn.Open strConn

' Stringa di interrogazione sulla tabella
Dim Giorno
Giorno = RIGHT("00" & Day(Date()), 2)
sql = "SELECT * FROM Pronostici WHERE Film='Horror'"  & " AND Data='" & Giorno & "'"

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3

do while not(rs.eof)
if intVolta="1" then
intVolta="0"

else
intVolta="1"

end if
%>

  <tr>
    <td width="5%" height="18" align="center" bgcolor="#FFFFFF"><%=rs(2)%></td>
    <td width="20%" height="18" align="center" bgcolor="#FFFFFF"><%=rs(3)%></td>
    <td width="55%" height="18" align="center" bgcolor="#FFFFFF"><%=rs(4)%></td>
    <td width="5%" height="18" align="center" bgcolor="#FFFFFF"><%=rs(5)%></td>
    <td width="10%" height="18" align="center" bgcolor="#FFFFFF"><%=rs(6)%></td>
    <td width="5%" height="18" align="center" bgcolor="#FFFFFF"><%=rs(8)%></td>
  </tr>
        <%
rs.movenext
loop
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
%>
  <tr>
    <td width="5%" height="19" align="center" bgcolor="#FFCCFF"></td>
    <td width="20%" height="19" align="center" bgcolor="#FFCCFF"></td>
    <td width="55%" height="19" align="center" bgcolor="#FFCCFF"></td>
    <td width="5%" height="19" align="center" bgcolor="#FFCCFF"></td>
    <td width="10%" height="19" align="center" bgcolor="#FFCCFF"><%=rs(7)%></td>
    <td width="5%" height="19" align="center" bgcolor="#FFCCFF"><%=rs(9)%>td>
  </tr>

</table>
Per la prima riga <tr> va tutto bene, si riesce cioè a visualizzare i campi desiderati.
Il problema sorge quando, come nel codice postato, vorrei far apparire rs7 e rs9 nella riga desiderata.
Il problema riscontrato è che quella riga non si vede proprio.