|
<%
Set Rs=server.CreateObject("ADODB.recordset")
Rs.open"select a.*,b.category_name from link_master as a left join category_master as b on b.category_id=a.category_id",oCon,1,1
if Rs.eof <> true then
rCnt=1
Response.Write ""
while not Rs.eof
if strCategory <> Rs("category_name") then
Response.Write "| " & Rs("category_name") & " | "
end if
Response.Write "| " & Rs("link_title") & " | "
Response.Write "| " & Rs("link_description") & " | "
strCategory=Rs("category_name")
rCnt=rCnt+1
Rs.movenext
wend
Response.Write " "
end if
Set Rs=Nothing
%> |
|