CSER People Input/Update Form: - DELETE will also delete any project links AND mark orphaned projects! <% session.LCID=3081 PersId=request("PersId") 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 SQLQuery = "SELECT * from people order by worder,name" Set peopldb = comdb.Execute(SQLQuery) response.write " " response.write "" do until peopldb.EOF if cint(PersId)= cint(peopldb("PersId")) then PersId=peopldb("PersId") Name=peopldb("Name") Worder=peopldb("Worder") Cat1=peopldb("Cat1") Cat2=peopldb("Cat2") Roles=peopldb("Roles") Degree=peopldb("Degree") Field=peopldb("Field") Experience=peopldb("Experience") Interests=peopldb("Interests") ' empty Contact=peopldb("Contact") email=peopldb("email") Phone=peopldb("Phone") PersURL=peopldb("PersURL") BldgRm=peopldb("Building Room") PhotoURL=peopldb("PhotoURL") PublishURL=peopldb("PublishURL") end if response.write "" & peopldb("worder") & "- " & peopldb("Name") & "" peopldb.MoveNext loop response.write " " response.write " " response.write "

" ' --------------- end of listing, start of details --------------- if PersId="" then name=" -- add new one --" end if response.write " " response.write " Name " response.write " Order - see numbers in front of name above " SQLQuery = "SELECT field from peoplefield" Set fielddb = comdb.Execute(SQLQuery) response.write "Select focus area: " do until fielddb.EOF response.write "" & fielddb("Field") fielddb.MoveNext loop set fielddb=nothing response.write " " SQLQuery = "SELECT category from peoplecat" Set fielddb = comdb.Execute(SQLQuery) response.write "Select category: " do until fielddb.EOF response.write "" & fielddb("category") fielddb.MoveNext loop set fielddb=nothing response.write " " ' response.write " Category 1; optionally 2nd Cat " ' use 2nd cat ?? ' response.write " " response.write "Roles: " response.write "Degrees: " & degree & " " response.write "Experience:: " & experience & " " response.write "Interests: " & interests & " " response.write "Contact (Location, email phone): - " response.write " - " response.write "Homepage URL (htp://...): " response.write "Photos: - copy a 145x206 photo to \\Www\Websites\GPA\CRSSIS\people\photos - then type a URL to link it, eg /CRSSIS/people/photos/JBloggs.png " response.write "My Publications URL (http://...): " response.write "UQ Research Solutions Publications URL (http://...): " response.write "UQ Research Solutions Projects URL (http://...): " response.write " " response.write "" if PersId>"" then response.write " - " response.write "" response.write "" end if response.write " " set peopldb=nothing set comdb=nothing %>