<%@ language="vbscript" codepage="1252"%> <% Call WriteMetaData(objConn, strConn) %> <% on error resume next lCountryID = clng(trim(Request.QueryString("cboCountry"))) if err.number <> 0 then lCountryID = 0 end if err.clear %>

Advanced Search

Please select a Service and a Region. You will then be presented with a list of available items in that area. Please click the item you wish to search for and then use the tick boxes to narrow down your search. When you are ready to begin searching, click the "Submit" button.




<%'if request.QueryString("cboService") <> "" then%>

 
<% ServiceID = request.QueryString("cboService") if ServiceID = "" or ServiceID = "0" then ServiceID = "null" end if sql = "Feature_Service_List "&ServiceID Set sql_RES = server.CreateObject("ADODB.Recordset") sql_RES.open sql , objconn fcount = 0 do while not sql_RES.eof tsql = "Type_Feature_List " & SQL_RES("Feature_ID") Set tsql_RES = server.CreateObject("ADODB.Recordset") tsql_RES.cursorType = 3 tsql_RES.open tsql , objconn tnumberOfRecords = tsql_RES.recordcount %> <% height = ((tnumberOfRecords/2)*19) +10 %>
" style="width:350px; margin-bottom:3px; min-height:25px; height:auto; _height:25px; padding:5px; border:1px solid #2169B0;"> ,<%=fcount%>);" style="cursor:pointer;" > Click to search for <%=SQL_RES("Feature")%> <%=SQL_RES("Service")%>
" style="width:338px; margin-bottom:0px; min-height:25px; min-height:auto; _height:25px; padding:5px; display:none;"> <% do while not tsql_RES.eof %>
" > <%=tsql_RES("type")%>
<% tsql_RES.movenext loop tsql_RES.close %>
<% fcount = fcount + 1 SQL_RES.movenext loop SQL_RES.close %>
<%'end if%>