| " & stli("cat1") & " | ||||
" & stli("Name") & " " response.write stli("Field") & " " else response.write " | " & stli("Name") & " " response.write stli("Degree") & " " & stli("Roles") response.write " Email: " & stli("email") & "" response.write " - Ph: " & stli("phone") & " - Location: " & stli("Building Room") & " " if stli("PersURL")>"" then response.write " My HomePage" end if if stli("PublishURL")>"" then response.write " My Research Publications" end if if stli("UQPublishURL")>"" then response.write " UQ Research Publications" end if if stli("UQProjURL")>"" then response.write " UQ Research Projects" end if response.write " " response.write "CRSSIS Projects/Research Experience: " & stli("Experience") & " Interests: " response.write stli("Interests") & " <-back" end if response.write " | "
tdcount=tdcount+1
if tdcount=5 then
response.write "|||
<% 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 %>
 |
Staff, Students and Associates <% if FID>"" then response.write ": " & FID %> |
 |
|
<%
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 ProjID>0 then
SQLQuery = "SELECT * from people, PersProj B where PersId=B.PrsId and B.PrjId=" & ProjId
elseif PersId>0 then
SQLQuery = "SELECT * from people where PersId=" & PersId
elseif FId>"" then
SQLQuery = "SELECT * from people where field='" & FId & "' order by worder, cat1, name"
imgsize=" width='72' height='103'"
else
SQLQuery = "SELECT * from people, peoplecat where people.cat1=peoplecat.category order by peoplecat.order, worder, name"
imgsize=" width='72' height='103'"
end if
Set stli = comdb.Execute(SQLQuery)
pcat=""
response.write ""
do until stli.EOF
if pcat<>stli("cat1") then
response.write "
"
set stli=nothing
set comdb=nothing
%>