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