<% Set conn = Server.CreateObject("ADODB.Connection") conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\\file-cyber.law.harvard.edu\inetpub\dbs\icann-realtime.mdb","","" sql = "SELECT * FROM [" & request.form("FORM_TABLENAME") & "] WHERE TRUE " if request.form("FORM_CRITERIAVALUES") <> "" then sql = sql & " AND (" for each cid in split(request.form("FORM_CRITERIAVALUES"),",") sql = sql & request.form("FORM_CRITERIAFIELDNAME") & "=" & cid & " OR " next sql = sql & "FALSE)" else response.write "error -- you didn't enter a criteria string. you must." response.end end if if request.form("FORM_SUPPLEMENTALCRITERIA") <> "" then sql = sql & " AND (" & request.form("FORM_SUPPLEMENTALCRITERIA") & ")" end if response.write "Current Request changes:" & sql & "
" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn , 3, 3 do while not rs.eof if request.form("FORM_CHANGEFIELDNAME") <> "" then rs(request.form("FORM_CHANGEFIELDNAME")) = request.form("FORM_CHANGEFIELDTO") end if for each fid in split(request.form("FORM_CHANGEFIELDNAMES"), ",") if request.form(fid) <> "" then rs(fid) = request.form(fid) next rs.update rs.movenext loop response.write "
changes made" rs.close set rs = nothing conn.close set conn = nothing %>