<%= r1("type") %>
|
<%
SQLStmt = "SELECT id,name,url,description,address,city,state,zipcode,phone FROM "& tb
SQLStmt = SQLStmt & " WHERE type= '"& r1("type") &"' Order by type asc, name asc"
' Response.write SQLStmt&"
"
' Response.end
set r2 = connection.execute(SQLStmt)
jme = 0
while r2.eof = false
jme = jme +1
if jme = 1 then%>
<%end if%>
<% If r2("url") <> "" then %>"><%= r2("name") %><% Else %><%= r2("name") %><% End If %>
|
<%
if jme = 2 then
jme = 0
%>
<%end if
r2.movenext
WEND
if jme = 1 then
%>
<% End If %>
|
<%
r1.movenext
WEND
%>