| CSER Project/People linker: <% ' using get in form: ProjId=request("ProjId") action=request("do") PersId=request("PersId") externs=request("externs") 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 ' update table PersProj: if ProjId>"" and PersId>"" then if action="Add" then SQLQuery = "INSERT into PersProj (PrsId,PrjId) VALUES (" & PersId & "," & ProjId & ")" Set projlink = comdb.Execute(SQLQuery) SQLQuery = "Update projects SET Externs='" & externs & "' where ProjId=" & ProjId Set projlink = comdb.Execute(SQLQuery) elseif action="Delete" then SQLQuery = "DELETE from Persproj where PrjId=" & ProjId & " and PrsId=" & PersId Set projlink = comdb.Execute(SQLQuery) end if end if ' show existing info (after any updates): if ProjId="" then response.write " I need a project ID to work with, sorry! " else SQLQuery = "Select Title from Projects where ProjId=" & ProjId Set projlink = comdb.Execute(SQLQuery) do until projlink.EOF response.write "ID=" & ProjId & "; " & projlink("Title") & ": " Projlink.MoveNext loop SQLQuery = "Select Title, Name from Projects, People, PersProj where PersId=PrsId and ProjId=PrjId and ProjId=" & ProjId Set projlink = comdb.Execute(SQLQuery) do until Projlink.EOF response.write projlink("Name") & " " lastname=projlink("Name") Projlink.MoveNext loop response.write " " ' add/remove names form: SQLQuery = "Select PersId,Name from People order by name" Set projlink = comdb.Execute(SQLQuery) response.write "Select from list: " response.write "" end if 'response.write " " & SQLQuery & " "
set comdb=nothing
' response.write " If the SQL query shown above produced an error please report it to Jurgen, x56740. " ' response.write " Link project to PEOPLE " response.write " Edit another Project " response.write " CSER Research " %> |