特定の ID (practice_Area_ID) に関連付けられているすべての会社を表示しようとしています。Do Loop の設定が間違っているのか、それとも SQL コードの問題なのかわかりません。
問題は、表示される結果に 1 つの会社しか表示されず (5 つの異なる会社があるはずの場合)、見つかった練習エリアの数 (この例では 5 つ) に応じて複数回複製されることです。
言い換えれば、問題は、5 つの異なる企業を表示するのではなく、1 つの企業しか表示していないのに、5 回リストされていることです。
私のひどい表の書式設定は無視してください...結果をここに表示しようとしているだけです。
<%
intPractice_Area_ID = Request.QueryString("intPractice_Area_ID")
%>
(ランダムなhtmlはこちら)
<%
Set rsCompInfo = Server.CreateObject ("ADODB.Recordset")
compSQL = "SELECT Company_Main.Company_Name, Company_Main.Company_address, Practice_Areas.Practice_Area_ID FROM Practice_Areas INNER JOIN (Company_Main INNER JOIN Company_Practice_CK ON Company_Main.Company_ID = Company_Practice_CK.Company_ID) ON Practice_Areas.Practice_Area_ID = Company_Practice_CK.Practice_Area_ID WHERE Company_Practice_CK.Practice_Area_ID =" & intPractice_Area_ID
rsrsCompInfo.Open compSQL, Conn
strName = rsProdInfo("Company_Name")
strAddress = rsProdInfo("Company_Address")
%>
<table width="200" border="1">
<tr>
<th>Firm Name</th>
<th>Address</th>
</tr>
<%
if rsCompInfo.EOF then
Response.Write "No Records Found!"
else
strName = rsCompInfo("Company_Name")
strAddress = rsCompInfo("Company_Address")
Do While Not rsCompInfo.EOF
%>
<table border="1" cellspacing="0" cellpadding="2" width="602">
<tr>
<td width="560" valign="top"><font face="Verdana" size="3"><b><%= strName %></b></font><p>
<td width="560" valign="top"><font face="Verdana" size="3"><b><%= strAddress %></b></font><p>
<input type="hidden" name="intPractice_Area_ID" value="<%= intPractice_Area_ID %>">
</tr>
<td width="34"><td width="560"><font face="Verdana" size="2">
</table>
<%
rsCompInfo.MoveNext
Loop
end if
rsCompInfo.Close
set rsCompInfo = Nothing
Conn.Close
set Conn = Nothing