Incident Reports

Post  |  Guidelines  |  Overview  |  Statistics

Incidents flagged with an * are being held pending editorial review.

<% ' create table of contents from Access data base ' process sql statement here SQLstmt = "SELECT Incidents.ED_IRAPID, Incidents.IC_Title, Incidents.ED_Sub_Date, Incidents.ED_Reviewed FROM Incidents WHERE (((Incidents.IC_Publish)=True) AND ((Incidents.ED_Suppress)=False)) ORDER BY Incidents.ED_Sub_Date DESC;" ' set up and open connection to database 'connect to db set conn = server.createobject("adodb.connection") set rs=Server.CreateObject("adodb.Recordset") conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& request.servervariables("APPL_PHYSICAL_PATH") & "__mdbdb\irap.mdb" 'conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& request.servervariables("APPL_PHYSICAL_PATH") & "cdf\__mdbdb\irap.mdb" Set rs = conn.execute(SQLstmt) If err.number>0 then response.write "VBScript Errors Occured:" & "

" response.write "Error Number=" & err.number & "

" response.write "Error Descr.=" & err.description & "

" response.write "Help Context=" & err.helpcontext & "

" response.write "Help Path=" & err.helppath & "

" response.write "Native Error=" & err.nativeerror & "

" response.write "Source=" & err.source & "

" response.write "SQLState=" & err.sqlstate & "

" end if IF conn.errors.count> 0 then response.write "Database Errors Occured" & "

" response.write SQLstmt & "

" for counter= 0 to conn.errors.count response.write "Error #" & conn.errors(counter).number & "

" response.write "Error desc. -> " & conn.errors(counter).description & "

" next else ' build html links and pass parameter to display page ' loop through the records and display the information response.write "" response.write "" Do while not rs.eof response.write "" response.write "" else response.write "" + RS("IC_Title") + "*" response.write "" end if response.write "" rs.MoveNext loop response.write("
Incident TitleSubmitted
" if RS("ED_Reviewed") then response.write "" + RS("IC_Title") + "" + CStr(RS("ED_Sub_Date")) + "" + CStr(RS("ED_Sub_Date")) + "
") end if ' close connection Conn.Close set Conn = nothing set rs = nothing %>