The thread title uses the word "Joins" but that SQL statement doesn't contain any (which won't help the matter!)
Let us re-write this
Code:
SELECT a.agency_ID
, a.agencyName
, p.program_ID
, p.programName
, p.agencyID
, p.programBrief
, p.programGroup
, p.directURL
FROM mcaa.programs As [p]
INNER
JOIN mcaa.agency As [a]
ON a.agency_ID = p.agencyID
WHERE a.agency_ID = MMColParam
ORDER
BY programName ASC
The only thing left to do is replace the bit highlighted above in orange with the selected agency_id. This will all depend on how you're accessing your data and storing/accessing the variable
Perhaps a good suggestion would be to build the query up dynamically like so:-
Code:
<%
Dim sql
sql = ""
sql = sql & " SELECT a.agency_ID, a.agencyName, p.program_ID, p.programName"
sql = sql & " , p.agencyID, p.programBrief, p.programGroup, p.directURL"
sql = sql & " FROM mcaa.programs As [p]"
sql = sql & " INNER JOIN mcaa.agency As [a]"
sql = sql & " ON a.agency_ID = p.agencyID"
sql = sql & " WHERE a.agency_ID = "
sql = sql & Request.QueryString("agency_id")
sql = sql & " ORDER BY programName ASC"
Response.Write(sql)
%>