<%option explicit%> <% if request.querystring("lang") = "E" then session("lang") = "E" response.Cookies("NUL_Lang") = "E" response.Cookies("NUL_Lang").expires = date() + 30 elseif request.querystring("lang") = "I" then session("lang") = "I" response.Cookies("NUL_Lang") = "I" response.Cookies("NUL_Lang").expires = date() + 30 end if %> <% dim nPage nPage = request.QueryString("pg") if nPage = "" or not isnumeric(nPage) then nPage = null end if call openDB() %> <% Response.Write "

" & FontClean(strTitle,strLang,fc_MacTest) & "

" & VBCrLf Response.Write "

" & FontClean(strContent,strLang,fc_MacTest) & "

" & VBCrLf if nIsSystem = 2 then 'show the serives Set cmdTemp = Server.CreateObject( "ADODB.Command" ) Set cmdTemp.ActiveConnection = conntemp cmdTemp.CommandText = "NUL_sp_Get_Services" cmdTemp.CommandType = adCmdStoredProc 'return value cmdTemp.Parameters.Append cmdTemp.CreateParameter("@RETURN_VALUE", 3, 4, 0) 'input params cmdTemp.Parameters.Append cmdTemp.CreateParameter("@language", 200, 1, 1, strLang) Set rstemp = Server.CreateObject("ADODB.Recordset") rstemp.CursorLocation = adUseClient 'Open Recordset object rstemp.Open cmdTemp if not rstemp.eof then do while not rstemp.eof %>

"><%=FontClean(rstemp("Service"),strLang,fc_MacTest)%>

<% rstemp.movenext loop end if elseif nIsSystem = 3 then 'show the communitiess Set cmdTemp = Server.CreateObject( "ADODB.Command" ) Set cmdTemp.ActiveConnection = conntemp cmdTemp.CommandText = "NUL_sp_Get_Communities" cmdTemp.CommandType = adCmdStoredProc 'return value cmdTemp.Parameters.Append cmdTemp.CreateParameter("@RETURN_VALUE", 3, 4, 0) 'input params cmdTemp.Parameters.Append cmdTemp.CreateParameter("@language", 200, 1, 1, strLang) Set rstemp = Server.CreateObject("ADODB.Recordset") rstemp.CursorLocation = adUseClient 'Open Recordset object rstemp.Open cmdTemp if not rstemp.eof then dim nCount, nDivide nCount = rstemp.recordcount nDivide = cint(nCount/3) %> <% dim nRegion, nRegionOld x = 0 do while not rstemp.eof 'get variables nRegion = rstemp("ID_Region") 'figure out where we are in the table if x >= nDivide and nRegionOld <> nRegion then 'close cell x = 0 nDivide = cint((nCount - nDivide)/2) response.Write("") end if if x = 0 then 'start new cell response.Write("

") end if 'begin output if nRegion <> nRegionOld then %>

<%=FontClean(rstemp("Region"),strLang,fc_MacTest)%> <% end if %>
"><%=FontClean(rstemp("Community"),strLang,fc_MacTest)%> <% nRegionOld = rstemp("ID_Region") x = x + 1 rstemp.movenext loop %>

<% end if elseif nIsSystem = 4 then 'show the contact form dim nAdmin, nMSG nAdmin = 1000 'this is for the following includes and is needed for thier stored procedures %> "> <%if bAudi then%> <%end if%>

<%= dictLabels("Agency") %>:	">
<%= dictLabels("Description") %>:	">
<%= dictLabels("Address_1") %>:
<%= dictLabels("Address_2") %>:
<%= dictLabels("City") %>:
<%= dictLabels("Province") %>:
<%= dictLabels("Postal_Code") %>:
<%= dictLabels("First_Name") %>:
<%= dictLabels("Last_Name") %>:
<%= dictLabels("Job_Title") %>:
<%= dictLabels("Email") %>:
<%= dictLabels("Phone") %>:
<%= dictLabels("Fax") %>:
<%= dictLabels("Client_Groups") %>:	<% for x = 0 to nAudi %> <%=arrAudi(1,x)%> <% next %>
<%= dictLabels("Service_Area") %>:	<% if bArea then for x = 0 to nArea %> <%=arrArea(1,x)%> <% next end if %>
<%= dictLabels("Service_Languages") %>:	<% if bLangs then for x = 0 to nLangs %> <%=arrLangs(1,x)%> <% next end if %>
<%= dictLabels("Services_Offered") %>:	<% if bServices then for x = 0 to nServices %> <%=arrServices(1,x)%> <% next end if %>
	"> " onClick="this.form.agency.focus();">

<%elseif nIsSystem = 6 then 'show the web site feedback form %> <% if false then 'feedback form has been removed %>

What information were you looking for?
Did you find the information you wanted?	Yes Some of it No

How would you rate the following features of the Nuluaq Project web page?

	Excellent	Very Good	Satisfactory	Poor
Appearance
Layout
Accuracy of Information
Relevance and Scope
Usefulness

Are you seeking the information as:	Advocacy Crisis/Emergency Counselling/Healing Corrections/Justice Health Service Provider Shelter Support Group Policy Maker Student Individual Other (specify):
Do you have any additional feedback? (e.g. suggested topics, new features, improvements)

<% end if %> <%end if%> <%call closeDB()%>