%@ LANGUAGE = VBScript %>
<%Option Explicit%>
St. Joseph Bay State Buffer Preserve KBDI Report
St. Joseph Bay State Buffer Preserve KBDI
Report
Daily maximun temperature and rainfall amounts
collected at the St. Joseph Bay State Buffer Preserve, 7 miles south of
Port St. Joe, FL, 7 miles WNW of Indian Pass, FL, located on
the southeastern shore of St. Joe Bay. Latitude 29.7 N, Longitude
085.3 W.
<%
Dim oConn
Dim oRs2
Dim objRS
Dim objRS1
Dim filePath
Dim Index
Dim Item
Dim YearRange
Dim CurKBDIDate
Dim CurKBDI
Dim CurMaxTemp
Dim CurRainFall
Dim CurDroughtStage
filePath = Server.MapPath("database/KbdiWeb.mdb")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath
Set objRS1 = oConn.Execute("SELECT KBDIDate, KBDI, MaximumTemp, RainFall, DroughtStage from qry_KBDIWeb ORDER BY KBDIDate DESC")
objRS1.MoveFirst
CurKBDIDate = objRS1.FIELDS("KBDIDate")
CurKBDI = objRS1.FIELDS("KBDI")
CurMaxTemp = objRS1.FIELDS("MaximumTemp")
CurRainFall = objRS1.FIELDS("RainFall")
CurDroughtStage = objRS1.FIELDS("DroughtStage")
objRS1.Close
%>
| KbdiDate |
<% = CurKBDIDate%> |
| KBDI |
<% = CurKBDI%> |
| HighTemp (° F) |
<% = CurMaxTemp%> |
| RainFall (in.) |
<% = CurRainFall%> |
| DroughtStage |
<% = CurDroughtStage%> |
<%
Response.Write ("For history, pick a year.")
If Len(Request.QueryString("id")) <> 0 Then
YearRange = CINT(Request.QueryString("id"))
Set oRs2 = oConn.Execute("SELECT KBDIDate, KBDI, MaximumTemp AS HighTemp, RainFall, DroughtStage from qry_KBDIWeb WHERE KBDIYear = " & YearRange)
%>
<%for each Item in oRs2.Fields
response.write("| " &Item.name & " | ")
next%>
<%
Do while (Not oRs2.eof) %>
<% For Index=0 to (oRs2.fields.count-1) %>
| <% = oRs2(Index)%> |
<% Next %>
<% oRs2.MoveNext
Loop
Response.Write "
" & vbCrLf & "
" & vbCrLf
%>
<%
oRs2.close
%>
<%
End if
Set objRS = oConn.Execute("SELECT DISTINCT KBDIYear FROM qry_KBDIWeb ORDER BY KBDIYear DESC")
If Not objRS.EOF Then
objRS.MoveFirst
%>
<%
End If
objRS.close
oConn.close
%>