<% on error resume next ProjIDurl=request("pid") if instr(ProjIDurl,";")>0 then ProjIDurl=left(ProjIDurl,instr(ProjIDurl,";")-1) ProjID=0 ProjID=cint(ProjIDurl) if err>0 then response.write "An invalid project number was given" ProjID=0 Err.Clear end if PersIdurl=request("Id") if instr(PersIdurl,";")>0 then PersIdurl=left(PersIdurl,instr(PersIdurl,";")-1) PersID=0 PersID=cint(PersIDurl) if err>0 then response.write "An invalid person ID was given" PersID=0 Err.Clear end if on error goto 0 'error handling off FIDurl=request("FId") if instr(FIDurl,";")>0 then FIDurl=left(FIDurl,instr(FIDurl,";")-1) FID=FIDurl if FID<>"" and FID<>"Landscape Ecology and Conservation" and FID<>"Remote Sensing" and FID<>"GIS/Spatial Analysis" then response.write "An invalid FID was given: " & FID FID="" end if constr= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\Inetpub\websites\gpem\crssis\dbs\crssis.mdb" Set comdb = Server.CreateObject("ADODB.Connection") comdb.Open constr if PersID>0 and PersID<10000 then SQLQuery = "SELECT * from projects, PersProj B where ProjId=B.PrjId and B.PrsId=" & PersId & " order by Field, RHD desc, Title" elseif ProjId>0 and ProjID<10000 then SQLQuery = "SELECT * from projects where ProjId=" & ProjId elseif FID>"" then SQLQuery = "SELECT * from projects where Field='" & FID & "' order by RHD desc, Title" else SQLQuery = "SELECT * from projects order by Field, RHD desc, Title" response.write "" end if Set stli = comdb.Execute(SQLQuery) prefield="" if ProjId>0 then prefield=stli("Field") ' single record response.write "

" do until stli.EOF if prefield<>stli("Field") then response.write "

Landscape Ecology and Conversation

" prefield=stli("Field") precat=0 end if if stli("cat")>"" and precat=0 and ProjId=0 then response.write "

Research Higher Degree Projects:

" precat=1 end if if ProjId=0 then response.write "" & stli("Title") if stli("Cat")>"" then response.write " - " & stli("Cat") response.write "

" else response.write "

" & stli("Title") & "

" PersTitle=" Principal: " if stli("cat")>"" then PersTitle = stli("cat") & " thesis by " response.write PersTitle principal= stli("Principal") if stli("orphaned")=True then response.write principal & " (fomerly with CSER)" else SQLQuery = "Select PersId from people where name='" & principal &"'" set peoprec=comdb.Execute(SQLQuery) PersId=peoprec("PersId") response.write "" & principal & "" SQLQuery = "Select * from people, persproj where PersId=PrsId and PrjId=" & ProjId & " and PersId<>" & PersId & " order by name" set peoprec=comdb.Execute(SQLQuery) c=0 do until peoprec.eof if c=0 then response.write " and others: " response.write " " & peoprec("name") & "" c=c+1 peoprec.movenext loop end if if stli("externs")>"" then response.write " " & stli("externs") if stli("weblink")>"" then webtext=stli("weblink") if stli("WebLText")>"" then webtext=stli("WebLText") response.write "
" & webtext & "" end if if stli("MapLocURL")>"" then response.write "
- Map Location - " response.write "

" if stli("ImageURL")>"" then response.write "

" response.write "Description: " & stli("description") if stli("Timeframe")>"" then response.write "

Timeframe: " & stli("Timeframe") if stli("Funding")>"" then response.write "

Funding: " & stli("Funding") & "
" end if stli.MoveNext loop set stli=nothing set comdb=nothing %>