<% Sub Page_Body() sql = "SELECT * FROM associations WHERE is_bicycle = 0 AND is_italian = 0 " set rs = server.createobject("adodb.recordset") rs.open sql, conn %>

<% If not rs.eof Then %>

<% End If %> <% Do While Not rs.eof %>

<%= rs("name_short") %>
<% If rs("name_long") <> "" Then %> <%= rs("name_long") %>
<% End If %> <% If rs("address") <> "" Then response.write rs("address") & "
" %> <% If rs("zip") <> "" Then response.write rs("zip") & " " If rs("city") <> "" Then response.write rs("city") & " " If rs("city") <> "" And rs("province") <> "" Then response.write " (" & get_province(rs("province")) & ") " ElseIf rs("province") <> "" Then response.write get_province(rs("province")) & " " End If If rs("city") <> "" Or rs("province") <> "" Or rs("zip") <> "" Then response.write "
" %> <% If rs("phone") <> "" Then %> Tel:<%= rs("phone") %>
<% End If %> <% If rs("fax") <> "" Then %> Fax:<%= rs("fax") %>

<% End If %> <% If rs("email") <> "" Then %> "><%= rs("email") %>

<% End If %> <% If rs("url") <> "" Then %> " target="new"><%= rs("url") %>
<% End If %>

<% rs.movenext Loop If rs.recordcount >= 1 Then response.write "

" sql = "SELECT * FROM associations WHERE is_bicycle = 0 AND is_italian = 1 " set rs = server.createobject("adodb.recordset") rs.open sql, conn %> <% If not rs.eof Then %>

<% End If %> <% Do While Not rs.eof %>

<% rs.movenext Loop %>

<% sql = "SELECT * FROM magazines WHERE is_bicycle = 0 AND is_italian=0" set rs = server.createobject("adodb.recordset") rs.open sql, conn %> <% If not rs.eof Then %>

<% End If %> <% Do While Not rs.eof %>

<%= rs("name") %>
<% If rs("is_consumer") = True Then response.write "Consumer Market
" Else response.write "Trade Market
" End If If rs("editor") <> "" Then response.write "Editor: " & rs("editor") & "
" If rs("address") <> "" Then response.write rs("address") & "
" If rs("city") <> "" Then response.write rs("city") & " " If rs("city") <> "" And rs("state") <> "" Then response.write ", " If rs("state") <> "" Then response.write get_state(rs("state")) & " " If rs("zip") <> "" Then response.write rs("zip") & " " If rs("city") <> "" Or rs("state") <> "" Or rs("zip") <> "" Then response.write "
" %> <% If rs("phone") <> "" Then %> Tel:<%= rs("phone") %>
<% End If %> <% If rs("fax") <> "" Then %> Fax:<%= rs("fax") %>

<% End If %> <% If rs("email") <> "" Then %> "><%= rs("email") %>

<% End If %> <% If rs("url") <> "" Then %> " target="new"><%= rs("url") %>
<% End If %>

<% rs.movenext Loop If rs.recordcount >= 1 Then response.write "

" %> <% sql = "SELECT * FROM magazines WHERE is_bicycle = 0 AND is_italian=1" set rs = server.createobject("adodb.recordset") rs.open sql, conn %> <% If not rs.eof Then %>

<% End If %> <% Do While Not rs.eof %>

<%= rs("name") %>
<% If rs("is_consumer") = True Then response.write "Consumer Market
" Else response.write "Trade Market
" End If If rs("editor") <> "" Then response.write "Editor: " & rs("editor") & "
" If rs("address") <> "" Then response.write rs("address") & "
" If rs("zip") <> "" Then response.write rs("zip") & " " If rs("city") <> "" Then response.write rs("city") & " " If rs("city") <> "" And rs("province") <> "" Then response.write " (" & get_province(rs("province")) & ") " ElseIf rs("province") <> "" Then response.write get_province(rs("province")) & " " End If If rs("city") <> "" Or rs("province") <> "" Or rs("zip") <> "" Then response.write "
" %> <% If rs("phone") <> "" Then %> Tel:<%= rs("phone") %>
<% End If %> <% If rs("fax") <> "" Then %> Fax:<%= rs("fax") %>

<% End If %> <% If rs("email") <> "" Then %> "><%= rs("email") %>

<% End If %> <% If rs("url") <> "" Then %> " target="new"><%= rs("url") %>
<% End If %>

<% rs.movenext Loop %>

<% End Sub %> <% Sub Page_Left() %> <% End Sub %> <% Sub Page_Right() %>

ANCMA
Via Mauro Macchi, 32
20124 Milano
[tel] 02.6698.1818
[fax] 02.6698.2072

ancma@ancma.it

www.ancma.it

<% End Sub %> <% Function Page_header() Page_header = "" End Function %>