" & rs("maptype") & ", || "
rs.movenext
loop
response.write "This is the grouping as defined on the map... Click here for alphabetical listing. or here for the category listing."
response.write "
back"
rs.close
strSQL.Close
strSQL = Nothing
strSQL= "SELECT * From members WHERE [Active] = True ORDER by [maptype], [coname]"
rs.Open strSQL, conn, adOpenForwardOnly, adLockReadOnly, adCmdText
'Show
response.write ""
response.write ""
response.write "| # | "
response.write "Company | "
response.write "Contact | "
response.write "Address | "
response.write "Mailing | "
response.write "Phone | "
response.write "Fax | "
response.write "E-mail | "
response.write "Web | "
' response.write "
"
'response.write ""
'response.write "
" & rs("maptype") & ""
response.write "
" & rs("maptype") & ""
response.write ""
objIT = rs("category")
Dim ct
ct = 0
do while not rs.eof
ct=ct+1
if UCase(objIT) = UCase(rs("maptype")) then
response.write ""
response.write "| " & ct & " | "
response.write "" & rs("coname") & " " & rs("description") & " | "
response.write "" & rs("contact") & " | "
response.write "" & rs("address") & " | "
response.write "" & rs("ad2") & " | "
response.write "(" & left(rs("phone"),3) & ") " & Right(rs("phone"),7) & " | "
response.write "(" & left(rs("fax"),3) & ") " & Right(rs("fax"),7) & " | "
response.write "" & rs("email") & " | "
response.write "" & rs("website") & " | "
response.write "
"
rs.movenext
else
objIT = rs("maptype")
response.write "
"
response.write "
" & rs("maptype") & " Top index"
response.write ""
response.write ""
response.write "| " & ct & " | "
response.write "" & rs("coname") & " " & rs("description") & " | "
response.write "" & rs("contact") & " | "
response.write "" & rs("address") & " | "
response.write "" & rs("ad2") & " | "
response.write "(" & left(rs("phone"),3) & ") " & Right(rs("phone"),7) & " | "
response.write "(" & left(rs("fax"),3) & ") " & Right(rs("fax"),7) & " | "
response.write "" & rs("email") & " | "
response.write "" & rs("website") & " | "
response.write "
"
rs.MoveNext
end if
loop
rs.Close
'Clean Up
rs=Nothing
strSQL.Close
strSQL = Nothing
rs.Close
set rs=nothing
Conn.Close
set Conn=nothing
%>