Con questo codice estraggo il cammino di due squadre, e sembra funzionare (uso 2 SQL) ma non riesco a visualizzarle im modo corretto.

Come MAi?

codice:
                                      <table width="558" border="0" cellspacing="0" cellpadding="0">
<%
Dim StrSquadraA
Dim StrSquadraB
StrSquadraA = "34"
StrSquadraB = "1"
'---------------------------------------------------
'	Richiama l'SQL per i risultati della giornata
'---------------------------------------------------
'Definisci stringa di richiamo
strSQL = "SELECT c.*,a.str_squadra as A, b.str_squadra as B FROM tb_calendari as c,tb_squadre as a,tb_squadre as b WHERE a.str_squadra=(SELECT str_squadra FROM tb_squadre WHERE id_squadra=c.str_squadra_A) AND b.str_squadra=(select str_squadra from tb_squadre where id_squadra=c.str_squadra_B) AND (c.Str_Squadra_A="&StrSquadraA&" OR c.Str_Squadra_B="&StrSquadraA&") AND c.str_stagione="&StrSeason&"  ORDER BY id_calendario DESC,c.str_squadra_A ASC"
ObjRs.Open strSQL, objConn
Do Until ObjRs.EOF
%>
                                        <tr>
                                          <td><%=ObjRs("A")%> - <%=ObjRs("B")%></td>
                                          <td><%=ObjRs("Str_gol_A")%>-<%=ObjRs("Str_Gol_B")%></td>
										  <td>99</td>
<%
objRs.MoveNext 
Loop
ObjRs.Close	
'Definisci stringa di richiamo
strSQL = "SELECT c.*,a.str_squadra as A, b.str_squadra as B FROM tb_calendari as c,tb_squadre as a,tb_squadre as b WHERE a.str_squadra=(SELECT str_squadra FROM tb_squadre WHERE id_squadra=c.str_squadra_A) AND b.str_squadra=(select str_squadra from tb_squadre where id_squadra=c.str_squadra_B) AND (c.Str_Squadra_A="&StrSquadraB&" OR c.Str_Squadra_B="&StrSquadraB&") AND c.str_stagione="&StrSeason&"  ORDER BY id_calendario DESC,c.str_squadra_A ASC"
ObjRs.Open strSQL, objConn
Do Until ObjRs.EOF
%>
                                          <td><%=ObjRs("A")%> - <%=ObjRs("B")%></td>
                                          <td><%=ObjRs("Str_gol_A")%>-<%=ObjRs("Str_Gol_B")%></td>
										  </tr>
<%
objRs.MoveNext 
Loop	
%>
                                        
<%
ObjRs.Close
%>
                                      </table>