Dovrei in una pagina ASP visualizzare tutte le giornate di un campionato all'interno di due colonne.

recupero i dati dal database in questo modo:
codice:
<table>
	<%
	set objRs1 = objConn.Execute("SELECT * FROM risultati WHERE giornata = '1' ORDER BY Id_gare ASC")	
	
	Do while NOT objRs1.EOF %>
	<tr>
		<td><%=objRs1("squadra_casa")%></td>
        <td width="20"></td>
        <td><%=objRs1("squadra_fuori")%></td>
        <td width="20"></td>
	</tr>
<%
objRs1.Movenext
Loop 
objRs1.Close
Set objRs1 = Nothing
%>
</table>
e fin qui ok riesco a visualizzare una giornata il problema e che non saprei come ripetere con un ciclo questa tabella all'interno di un'altra tabella con 2 colonne.
avevo trovato un codice che forse poteva andare bene ma mi da errore

codice:
<%
newline=true

Set objConn = Server.CreateObject("ADODB.Connection")		
objConn.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/fpdb/webgoal.mdb")
objConn.Open			

strsql = "select distinct giornata from risultati order by giornata"

Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strsql, objConn,3,3
i=objRS("giornata")
Response.Write i
%>
<TABLE width="720" border=0 cellpadding="0" cellspacing="0" class="forumline" align="center">
	<TR>
		<th>Calendario</th>
	</TR>
		
<% do while not objRS.eof 
	if newline=true then 
		response.write "<tr><td>"
		response.write "<table width=""100%"" cellpadding=""0"" cellspacing=""0"" border=""0"">"
		response.write "<tr>"
		newline=false
	else
		newline=true
		end if
		response.write "<td width=""50%"">"
			response.write "<table width=""99%"" border=""0"" align=""center"" cellpadding=""1"" cellspacing=""1"" class=""bodyline"">"
			
			'apro un nuovo recordset
			strsql1 = "select * from risultati where giornata=" & objRS("giornata")
			Set objRS1 = Server.CreateObject("ADODB.Recordset")
			objRS1.Open strsql1, objConn,3,3
			%>

<tr class="titolo2"> 
	<td colspan="2" class="catHead">
	<span><%=objRS1("giornata")%>° Giornata</span></td>
</tr>
<%
do while not objrs1.eof
%>
<tr> 
	 <td width="70%" class="row1"><span class="gensmall"><%=objRS1("squadra_casa")%>-<%=objRS1("squadra_fuori")%></span></td>
     <td align="center" class="row1"><span class="gensmall"><%=objRS1("risultato_casa")%>-<%=objRS1("risultato_fuori")%></span></td>
</tr>	
<%		
objRS1.movenext
loop
objRS1.close
	set objRS1=nothing		

		response.write "</table>"
		response.write "</td>"	
		if newline=true then
			response.write "</tr>"
			response.write "</table>"
			response.write "</td></tr>"						
		end if
 objRS.movenext
	loop %>
</table>
<%
objRS.close
Set objRS = nothing
objConn.close
Set objConn = nothing
%>
ma da come errore Data type mismatch in criteria expression.

Avete dei consigli da darmi?

Ciao.