<% Response.Expires=-1442 'Force page to refresh whenever requested%> Browse

Browse Observation Examples

<% If Session("userID") <> "" Then Response.Write "

Welcome " & Session("Fname") & "

" End If %>

Here's a list of all observation examples:

<% Dim rsObs strSQL = "SELECT * FROM tblObservations " & _ "WHERE Type = 1" Set rsObs = Server.CreateObject("ADODB.Recordset") rsObs.Open strSQL, objConn If Session("userID") <> "" Then Response.Write "Click to view of copy of the example details." End If If Not rsObs.EOF Then Response.Write _ "" & _ " " & _ " " & _ " " & _ " " & _ " " Do While Not rsObs.EOF If Session("userID") <> "" Then Response.Write _ "" & _ "" Else Response.Write "" End If Response.Write _ "" & _ "" & _ "" rsObs.MoveNext Loop Response.Write "

Obs ID" If Session("userID") <> "" Then Response.Write " Click to view" End If Response.Write "	Project title	Object name
" & _ rsObs("ObsID") & "	" & rsObs("ObsID") & "	" & rsObs("Project_title") & "	" & rsObs("Object_name") & "

" rsObs.close Set rsObs = Nothing Else Response.Write "

No examples to display

" End If %>

<% If Session("userID") <> "" Then %> <% Else %> <% End If %>

Home

Browse

View my list of requests

Edit Registration Info

Home

Browse

Please send us feedback to improve this site.