%@ Language=VBScript %>
<%
set conn = server.createobject ("adodb.connection")
conn.open "win", "sa", "yourpassword"
set RSCategories = conn.Execute("select * from associationurls order by association")
set RSCategoriesss = conn.Execute("select * from ecologicalurls order by organization")
set RSCategoriess = conn.Execute("select * from publicationurls order by publication")
set RSCategories_c = conn.Execute("select * from association_c order by country")
set RSCategories_c1 = conn.Execute("select * from publication_c order by country")
set RSCategories_c2 = conn.Execute("select * from organization_c order by country")
if not isempty(Request.Form("SearchBySub")) then
set RSVacs = conn.Execute("select * from associationurls where " _
& "association = '" & request.form("association") & "'")
else
set RSVacs = conn.Execute("select * from associationurls ")
end if
if not isempty(Request.Form("SearchBySub2")) then
set RSVacs = conn.Execute("select * from association_c where " _
& "county = '" & Request.Form("country") & "'")
else
set RSVacs = conn.Execute("select * from associationurls ")
end if
if not isempty(Request.Form("SearchBySub3")) then
set RSVacs2 = conn.Execute("select * from ecologicalurls where " _
& "organization = '" & request.form("organization") & "'")
else
set RSVacs = conn.Execute("select * from ecologicalurls ")
end if
if not isempty(Request.Form("SearchBySub4")) then
set RSVacs = conn.Execute("select * from organization_c where " _
& "county = '" & Request.Form("country") & "'")
else
set RSVacs = conn.Execute("select * from ecologicalurls ")
end if
if not isempty(Request.Form("SearchBySub3")) then
set RSVacs3 = conn.Execute("select * from publicationurls where " _
& "publication = '" & request.form("publication") & "'")
else
set RSVacs = conn.Execute("select * from publicationurls ")
end if
if not isempty(Request.Form("SearchBySub5")) then
set RSVacs = conn.Execute("select * from publication_c where " _
& "county = '" & Request.Form("country") & "'")
else
set RSVacs = conn.Execute("select * from publicationurls ")
end if
%>