<% Set conn = Server.CreateObject("ADODB.Connection") conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\\192.168.20.9\inetpub\dbs\icann-realtime.mdb","","" sql = "SELECT * FROM [" & request.form("FORM_TABLENAME") & "] where " & request.form("FORM_CRITERIAFIELDNAME")& "=" & request.form("FORM_CRITERIAVALUES") Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn response.write "

Editing in " & request.form("FORM_TABLENAME") & "

" & vbcrlf response.write "
" & vbcrlf for each fld in split(request.form("FORM_SHOWFIELDS"), ",") response.write "" & vbcrlf next for each fld in split(request.form("FORM_EDITFIELDS"), ",") response.write "" & vbcrlf next response.write "
" & fld & "" & rs(fld) & "
" & fld & "
" %> "> "> "> "> ">
<% rs.close set rs = nothing conn.close set conn=nothing %>