<% option explicit Response.Expires = 0 Response.Buffer = True Session.LCID = 2057 %> <%Dim Connect, rs, Query, reference, ObjRS, Con, rs1, rs2, selected, staff(10), stafffunc(10), sql, topic, projdesc, parmrole, backbuttontxt, regionstext regionstext="" reference = request("valueid") topic=request("topic") ' Open Database Connection Set Con = getDBConnection() sql="Select * from regionslinks RL, Regions R WHERE RL.RegionID=R.RegionID and RL.ProjectID = " & reference Set rs2 = getQueryRecordSet(sql, con) 'response.Write(sql) 'response.end() if not rs2.eof then do until rs2.eof regionstext = regionstext & rs2("regionArea") & ", " rs2.movenext loop end if regionstext=left(regionstext, len(regionstext)-2) rs2.close set rs2 = nothing if topic<>"" then backbuttontxt="Back to services" Set rs2 = getQueryRecordSet("Select topicarea from topicarea WHERE topicareaid = " & topic, con) topic = rs2("topicarea") rs2.close set rs2 = nothing else backbuttontxt="Back to Search Results" end if Set rs2 = getQueryRecordSet("Select * from PARMSTAFFLINK PSL, PARMSTAFF PS WHERE PSL.PD_ID = " & reference & " AND PSL.STAFF_ID=PS.STAFFID", con) do until rs2.EOF staff(rs2("STAFFSEQ")) = rs2("STAFFNAME") if IsNull(rs2("FUNCTION")) or rs2("FUNCTION") = "" then stafffunc(rs2("STAFFSEQ")) = "" else stafffunc(rs2("STAFFSEQ")) = rs2("FUNCTION") end if rs2.movenext loop rs2.close set rs2 = nothing sql="SELECT PD.PROJECT_NAME, PD.PROJECT_COUNTRY, PD.VALPOUND, PD.VALEURO, PD.PROJECT_LOCATION, PD.PARM_STAFF_NO, PD.PARM_STAFF_MM, PD.START_DATE, PD.END_DATE, PD.PROJECT_NO, PD.PROJECT_COUNTRY_CODE, " &_ "PD.VALUE, PD.ASS_STAFF_MM, PD.PROJ_DECRI, PD.PARM_ROLE, " &_ "CC.COUNTRYCODE, R.REGIONAREA, C1.CLIENTNAME AS CLIENT1, C2.CLIENTNAME AS CLIENT2, S.STATUS, AS1.ASSCO AS ASS_FIRM_1, AS2.ASSCO AS ASS_FIRM_2 " &_ "FROM PROJECTDETAILS PD, COUNTRYCODE CC, REGIONS R, REGIONSLINKS RL, CLIENT C1, CLIENT C2, STATUS S, ASSCO AS1, ASSCO AS2 " &_ "WHERE PD.ViewPublic='y' AND PD.ID=" & reference & " AND CC.COUNTRYCODEID=PD.PROJECT_COUNTRY_CODE AND C1.CLIENTID=PD.CLIENT1 AND C2.CLIENTID=PD.CLIENT2 AND S.STATUSID=PD.STATUS " &_ "AND AS1.ASSCOID=PD.ASS_FIRM_1 AND AS2.ASSCOID=PD.ASS_FIRM_2 AND PD.ID=RL.ProjectID AND RL.RegionID=R.RegionID" 'response.Write("sql=" & sql) Set rs = getQueryRecordSet(sql, con) If not rs.eof then if rs("Proj_decri")<>"" or not isNULL(rs("Proj_decri")) then projdesc=rs("Proj_decri") projdesc=Replace(projdesc,"

","") projdesc=Replace(projdesc,"

","") if left(projdesc,3)="

" then projdesc=right(projdesc,len(projdesc)-3) end if if right(projdesc,4)<>"

" then projdesc=projdesc & "

" end if end if if rs("PARM_role")<>"" or not isNULL(rs("PARM_role")) then parmrole=rs("PARM_role") parmrole=Replace(parmrole,"

","") parmrole=Replace(parmrole,"

","") if left(projdesc,3)="

" then parmrole=right(parmrole,len(parmrole)-3) end if end if %> <%=rs("Project_name")%> Poseidon Aquatic Resource Management Fishery Consultants Poseidon Aquatic Resource Management Fishery Consultants. Worldwide fishery consultants, aquaculture fishery consultants advising on marine environmental issues.">

<%=topic%>

Back to Services

Region: <%=regionstext%>

<%If rs("Project_name") <> "" then Response.Write(rs("Project_name"))%> <%If rs("Project_country") <> "" then Response.Write(rs("Project_country"))%>

<%if rs("CLIENT1") <> "None" Then Response.Write(rs("CLIENT1")) if rs("CLIENT2") <> "None" Then Response.Write(" and " & rs("CLIENT2"))%> - Project Dates:
<%If rs("Start_date") <> "" then Response.Write( monthname(month(rs("Start_date"))) & " " & year(rs("Start_date")))%> <%If rs("End_date") <> "" then Response.Write(" - " & monthname(month(rs("End_date"))) & " " & year(rs("End_date")))%>

Description of Project:
<%If rs("Proj_decri") <> "" then Response.Write(projdesc)%> <%If rs("PARM_role") <> "" then %> Services Provided:
<%Response.Write(parmrole)%> <%end if%>

<%end if rs.Close Set rs = Nothing Con.Close Set Con = Nothing %>