<%if session("username") = "" then response.redirect("../index.htm") end if %>

| Help | Contact | About Us
"Website Version Only"
<% strDB = "Borel.mdb" 'Database MapPath strTable = "tblsurvey" '************************************** 'Set your database - ' change the MapPath to your ' database folder '************************************** Set MyConn=Server.CreateObject("ADODB.Connection") MyConn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _ "DATA SOURCE=" & server.MapPath(strDB) MySQL="select * from tblcomments where username='" & session("username") & "'" Set MyRs=MyConn.Execute(MySQL) response.write(" ") response.write( "Biodiversity and Habitat" ) response.write(" ---------------------- ") response.write("") response.write(MyRs("page1")) response.write("") response.write(" ---------------------- ") response.write("Parks and Protected Areas") response.write(" ---------------------- ") response.write("") response.write(MyRs("page2")) response.write("") response.write(" ---------------------- ") response.write("Large Intact Forests") response.write(" ---------------------- ") response.write("") response.write(MyRs("page3")) response.write("") response.write(" ---------------------- ") response.write("Human Needs") response.write(" ---------------------- ") response.write("") response.write(MyRs("page4")) response.write("") response.write(" ---------------------- ") response.write("Culture and Heritage") response.write(" ---------------------- ") response.write("") response.write(MyRs("page5")) response.write("") %>
Home | Zoom Maps | View all Maps |  |