CSER Projects/Research Input/Update Form: - For all Update/Delete/Copy operations: first SELECT a record - Select a record, then click 'New' to COPY it to a new record - one project/thesis/centre/etc per record, then connect that record to one or more people on the NEXT page - Description: Line breaks are replaced with HTML codes; you can insert other HTML codes like <b> - Images/photos must be copied to \\www\websites\GPA\CRSSIS\... (local LAN access required) or e-mailed to somebody with local access or linked to an URL on another website (absolute link as in http://www.abc.def/images/image.gif) - Timeframe + Funding info are only shown when data is provided (same for Weblink and Image URLs) - for help/bug reports/improvements contact Jurgen Overheu x56740 <% session.LCID=3081 ProjId=request("ProjId") 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 projects order by field, title" Set ProjDB = comdb.Execute(SQLQuery) response.write " " response.write "" do until ProjDB.EOF if cint(ProjId)= cint(ProjDB("ProjId")) then ProjId=ProjDB("ProjId") Principal=ProjDB("Principal") Title=ProjDB("Title") Description=ProjDB("Description") Field=ProjDB("Field") Funding=ProjDB("Funding") Timeframe=ProjDB("Timeframe") weblink=ProjDB("weblink") webltext=ProjDB("webltext") imageURL=ProjDB("imageURL") MapLocURL=ProjDB("MapLocURL") cat=ProjDB("cat") end if response.write "" & left(ProjDB("Title"),60) & " ... - " & ProjDB("Field") & "" ProjDB.MoveNext loop response.write " " response.write " " response.write "

" ' --------------- end of listing, start of details --------------- if ProjId="" then title=" -- add new one --" end if response.write " " response.write "Title: " & title & " " SQLQuery = "SELECT name from people order by name" Set fielddb = comdb.Execute(SQLQuery) response.write "Principal: " do until fielddb.EOF response.write "" & fielddb("Name") fielddb.MoveNext loop set fielddb=nothing response.write " " ' response.write "Principal: " SQLQuery = "SELECT field from peoplefield order by field" Set fielddb = comdb.Execute(SQLQuery) response.write "Subject area: " do until fielddb.EOF response.write "" & fielddb("Field") fielddb.MoveNext loop set fielddb=nothing response.write " " response.write "RHD Category: (PhD, MPhil) " response.write "Description: " & description & " " response.write "Weblink URL (http://...) and optional Weblink Text: " response.write " " response.write "Image URL (relative or absolute, depends on file location): " response.write "Map/Location URL (eg this link): " response.write "Funding: " & funding & " " response.write "Timeframe: " & timeframe & " " response.write " " response.write "" if ProjId>"" then response.write " - " response.write "" response.write "" end if response.write " " set ProjDB=nothing set comdb=nothing %>