<%@ Language=VBScript %>
<%
Response.buffer=true
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Cache-Control", "private"
response.expires=0
Regions_Name = Request.QueryString("REGIONS_NAME")
Session("Regions_Name")= Regions_Name
Session("CurrentPagesrfl")=""
Session("CurrentPagecopn")=""
Session("CurrentPagecatsr")=""
IF Regions_Name <> "ALL" Then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Session("DSNtemp")
Set RS = Server.CreateObject("ADODB.RecordSet")
SQLQuery = "select * from regions where Regions_Name LIKE '%"&Regions_Name&"%' ORDER BY Regions_Name"
RS.Open SQLQuery, Conn, adOpenStatic
If not RS.EOF THEn
Regions_ID = RS("regions_id")
Regions_Name = RS("regions_name")
RS.Close
SQLQuery = "select * from regions_sub where regions_id = '"&Regions_ID&"' ORDER BY Regions_Sub_Name"
RS.Open SQLQuery, Conn, adOpenStatic
End if
End IF
%>
Search Construction Canada, Canada's Online Construction Directory
More
than 15,000 links and growing every day. Want to get
YOUR company listed FREE? CLICK HERE
1.
Select the area(s)
you want to search by clicking in the box next to its name.
2.
Search by
"Keyword" or "Company Name" by entering your
information in the appropriate space, then click its
corresponding "Search" button.
-OR
Click on the
"Show All Categories" button at the bottom of the page
to view ALL of our catoegories alphabetically.
