<% dim strconn dim mysql 'myDSN="DSN=YourDSN" ' or connection string strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("comparar.mdb") mySQL="SELECT DISTINCT MODELO FROM PRODUTOS WHERE INSTRUMENTO='" & REQUEST.QUERYSTRING("inst") & "' AND TIPO ='" & REQUEST.QUERYSTRING("tipo") & "' AND MARCA = '" & REQUEST.QUERYSTRING("marca") & "'" Set Conn = Server.CreateObject("ADODB.Connection") SQL="SELECT * FROM PRODUTOS Where MARCA='" & REQUEST.QUERYSTRING("marca") & "'" 'TENTEI USAR ESSA SOLLUÇÃO Conn.Open(strconn) Set RS = Conn.Execute(mySQL) Set RS1 = Conn.Execute(SQL) --- SETEI ESSE RS1, MAS ELE FICOU INDEPENDENTE. DA QUERY MARCA If RS.EOF and RS.BOF Then Response.Write("Selecione um instrumento") Else Do While Not RS.EOF Response.Write("<A HREF=""" & "produto.asp?ID=" & RS1("ID") & """>" & RS("MODELO") & "</A>" & "<BR>") --> PRCISO USAR O ID NESSA LINHA RS.MoveNext Loop End If RS.Close Conn.Close Set RS = Nothing Set Conn = Nothing %>
Tentei sair por aqui, mas os produtos listados aparecem sempre com o mesmo RS1(ID)