Buonasera Forum,
ho bisogno del vostro supporto per sapere come fare a visualizzare in una pagina asp i record di due tabelle access, quasi identiche, così composte:

la prima in uso si chiama "Prodotti" contiene i seguenti dati nell'ordine:
ID, Cod, Cat, Marca, Descr, Disp, Img, Prezzo

la seconda "Telefonia" contiene invece:
ID, Marca, Cat, Cod, Descr, Img, Link, Prezzo, Disp

L'ordine è diverso ma la pagina del catalogo dovrebbe caricare gli stessi dati, per cui credo sia fattibile.
Purtroppo non so come fare a estrarli, ho individuato la porzione di codice da modificare, riuscite cortesemente a darmi indicazioni?

Grazie per l'attenzione

codice:
<%
If (QSSCategoria = "") AND (QSCategoria = "") AND (QSQuery = "") AND (SCategoria = "") Then
                                               Response.Redirect Request.ServerVariables("HTTP_REFERER")
                               Else
'---Stampo a video i prodotti delle categorie richieste
                                               Set RS = Server.CreateObject("ADODB.RecordSet")
                                               RS.PageSize = MaxProdottiPerPagina
                                              
                                               If QSQuery2 <> "" Then
                                                               QSQuery2 = Replace(QSQuery2, "'", "''")
                                                               ArrQuery = Split(QSQuery2, " ")
                                                               SQL = " SELECT * FROM Prodotti WHERE "
                                                               For i = 0 to UBound(ArrQuery, 1)
                                                                              SQL = SQL & "(categoriasotto LIKE '%" & ArrQuery(i) & "%' OR categoriasotto LIKE '%" & ArrQuery(i) & "%' OR categoriasotto LIKE '%" & ArrQuery(i) & "%') AND "
                                                               Next
                                                               SQL = SQL & "Cancellato = False"
                                                               RS.Open SQL, Conn, 1
                                               Else
                                              
                                                               If (QSSCategoria <> "") and (QSCategoria = "") Then
                                                                              SQL = " SELECT * FROM Prodotti WHERE SCategoria = "& [QSSCategoria] &" AND Cancellato = False ORDER BY ID DESC "
                                                                              RS.Open SQL, Conn, 1
                                                               End If
               
                                                               If (QSCategoria <> "") and (SCategoria = "") Then
                                                                              SQL = " SELECT * FROM Prodotti WHERE Categoria = "& [QSCategoria] &" AND Cancellato = False ORDER BY ID DESC"
                                                                              RS.Open SQL, Conn, 1
                                                               End If
                                                               If (SCategoria <> "") AND (QSCategoria <> "") AND (SCategoria <> "")Then
'                                                                              SQL = "SELECT * FROM Prodotti WHERE S_Categoria = "& [SCategoria] &" AND Cancellato = False ORDER BY ID DESC "
                                                                              SQL = "SELECT * FROM Prodotti WHERE S_Categoria = "& [SCategoria] &" AND SCategoria = "& [QSSCategoria] &" AND Categoria = "& [QSCategoria] &" AND Cancellato = False ORDER BY ID DESC "
                                                                              RS.Open SQL, Conn, 1
                                                               end if
 
                                               End If
                                              
 
                                               If Not RS.EoF Then 
                                                               RS.MoveFirst
                                                               RS.AbsolutePage = QSPg
 
'               VERSIONE FILE 1.5.Ver.3 Moicans & Snake
'               QSCategoria = Request.QueryString("cat")
'               QSSCategoria = Request.QueryString("scat")
'               SCategoria = Request.QueryString("ca")
 
                                               Prima = "<img border=0 src=interfaccia/nav_prima.jpg align=center width=24 height=24>"
                                               Precedente = "<img border=0 src=interfaccia/nav_sinistra.jpg align=center width=24 height=24>"
            ultima = "<img border=0 src=interfaccia/nav_ultima.jpg align=center width=24 height=24>"
            Successiva = "<img border=0 src=interfaccia/nav_destra.jpg align=center width=24 height=24>"
 
                               If QSPg <> 1 Then
Footer = "<a href=""catalogo.asp?scat=" & QSSCategoria & "&cat=" & QSCategoria & "&ca=" & SCategoria & "&pg=1&q=" & QSQuery & """>" & Prima & "</a> "
Footer = Footer & "<a href=""catalogo.asp?scat=" & QSSCategoria & "&cat=" & QSCategoria & "&ca=" & SCategoria & "&pg=" & cLng(QSPg) - 1 & "&q=" & QSQuery & """>" & Precedente & "</a> "
                                                               Else
                                                                              Footer =  " "
                                 Footer = Footer &  " "
                                                               End If
                                                              
                                                                              For I = 1 To RS.PageCount
                                                                              If I = QSPg Then
                                                                                              Footer = Footer & I & " "
                                                                              Else
                                                                                              ' Footer = Footer & "<font size = 4 color = red ><b><a href=""catalogo.asp?scat="&QSSCategoria&"&cat="&QSCategoria&"&pg="&i&"&q=" & QSQuery & """><font size = 2 ></b>"& I &"</font></a> "
                                                                                              Footer = Footer & "<font size = 4 color = red ><b><a href=""catalogo.asp?scat="&QSSCategoria&"&cat="&QSCategoria&"&ca="&SCategoria&"&pg="&i&"&q=" & QSQuery & """><font size = 2 ></b>"& I &"</font></a> "
                                                                              End If
                                                               Next
                                                              
 
                                                               If QSPg <> RS.PageCount Then
Footer = Footer & "<a href=""catalogo.asp?scat="&QSSCategoria&"&cat="&QSCategoria&"&ca="&SCategoria&"&pg="& cLng(QSPg) + 1 &"&q=" & QSQuery & """>" & Successiva & "</a> "
Footer = Footer & "<a href=""catalogo.asp?scat="&QSSCategoria&"&cat="&QSCategoria&"&ca="&SCategoria&"&pg="&RS.PageCount&"&q=" & QSQuery & """>" & ultima & "</a>"
                                                               Else
                                                                              Footer = Footer & " "
                                                               End If
 
                                                               For I = 1 To RS.PageSize
                                                                              If RS.EOF Then Exit For
%>