Cave Conditions   Submit A Report!  New
Click on the cave name for the full report.
Discernable positive flow, and reasonably clear
Caution - No flow and/or low visibility can be expected
Danger - Reversing flow and/or zero visibility can be expected
Unknown - No current report on conditions
<% ' create table of contents from Access data base current_location = "" SQLstmt = "SELECT Reports.Spring_ID, Reports.General_Location, Reports.Spring, Reports.Dive_Status, Reports.Observe_Date FROM Reports ORDER BY Reports.General_Location DESC , Reports.Spring;" ' 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\springs.mdb" 'conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& request.servervariables("APPL_PHYSICAL_PATH") & "\cdf\__mdbdb\springs.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 Do while not rs.eof if RS("General_Location") <> current_location then if current_location <> "" then response.write("") end if current_location = RS("General_Location") response.write "

" & current_location & "
" response.write "" response.write "" end if response.write "" icon = "quest.bmp" if RS("Dive_Status") = "clear" then icon = "clear.bmp" if RS("Dive_Status") = "caution" then icon = "caution.bmp" if RS("Dive_Status") = "danger" then icon = "danger.bmp" response.write "" response.write "" response.write "" rs.MoveNext loop response.write("
SpringConditionsDate
" response.write "" + RS("Spring") + "" & CStr(RS("Observe_Date")) & "
") end if ' close connection Conn.Close set conn = nothing set rs = nothing %>