<% ' create table of contents from Access data base ' process sql statement here IRAPID = request.QueryString("IRAPID") SQLstmt = "SELECT Incidents.IC_Title, Incidents.IC_Narrative FROM Incidents WHERE (((Incidents.ED_IRAPID)=" + IRAPID + "));" ' 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 ' using a Do While...Loop statement Do while not rs.eof response.write "

" + RS("IC_Title") + "

" response.write "

" + RS("IC_Narrative") + "

" rs.MoveNext loop end if ' close connection Conn.Close set Conn = nothing set RS = nothing %>