<% 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 = "UPDATE " & request.form("FORM_TABLENAME") & " SET " if request.form("FORM_CHANGEFIELDNAME") <> "" then sql = sql & request.form("FORM_CHANGEFIELDNAME") & "=" & request.form("FORM_CHANGEFIELDTO") end if for each fid in split(request.form("FORM_CHANGEFIELDNAMES"), ",") sql = sql & " " & fid & "=""" & request.form(fid) & """, " next if request.form("FORM_CHANGEFIELDNAMES") <> "" then sql = left(sql, len(sql) - 2) sql = sql & " 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 ' Set rs = Server.CreateObject("ADODB.Recordset") ' rs.Open s, conn , 3, 3 response.write sql & "
" Conn.Execute sql response.write "
done: " & sql ' rs.close ' set rs = nothing conn.close set conn = nothing %>