<%
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("")
%>
|