<%
dim conn, sql, count, rs
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\\file-cyber.law.harvard.edu\inetpub\dbs\digitaldiscovery.mdb","",""
Set rs = Server.CreateObject("ADODB.Recordset")
fields = split("intAttorneyClientPrivilege;intCostOfDigitalDiscovery;intDefinitionOfDiscoverableDocument;intPrivacy;intScopeOfDiscovery;intStandardsForPreservationAndRetention;intTechnologyAndRuleReform", ";")
%>
Digital Discovery Questions
Free Responses
<%
sql = "select * from tAnswers2 where boolPublic=True"
admin = FALSE
if UCase(request.querystring("admin"))="ADMIN" then admin = TRUE
if admin then sql = sql & " OR TRUE"
rs.open sql, conn
do while not rs.eof
if admin then
response.write "" & rs("txtFirst") & " " & rs("txtLast") & " (" & rs("txtCompany") & ")"
if not rs("boolname") then response.write " (requested anonymity)"
if not rs("boolpublic") then response.write " (requested privacy)"
response.write "
"
else
if rs("boolName") then
response.write "" & rs("txtFirst") & " " & rs("txtLast") & " (" & rs("txtCompany") & ")
"
else
response.write "(Anonymous Submission)
"
end if
end if
response.write "Opportunities: " & replacerobust(rs("txtQ1"),chr(13),"
") & "
"
response.write "Risks: " & replacerobust(rs("txtQ2"),chr(13),"
") & "
"
response.write "Balanced Solution: " & replacerobust(rs("txtQ3"),chr(13),"
") & "
"
response.write "Outstanding Question: " & replacerobust(rs("txtQ4"),chr(13),"
") & "
"
response.write "Where to Go from Here: " & replacerobust(rs("txtQ5"),chr(13),"
") & "
"
rs.movenext
loop
rs.close
set rs = nothing
conn.close
set conn = nothing
response.write "