<% Dim objRS, bodyOption, success, objcon If request.form <> "" then set objCon = server.createobject("adodb.connection") With objCon .open datastore .execute "UPDATE pgd_config SET bodyoption = '"&trim(SQLAccessInput(request.form("bodyoption")))&"'", , adCmdText + adExecuteNoRecords .close End With set objCon = nothing success = true Application.lock Application(dbName&"bodyoption") = request.form("bodyoption") Application.unlock end if set objRS = server.createobject("adodb.recordset") With objRS .open "SELECT bodyoption FROM pgd_config", datastore, , , adCmdText bodyOption = .fields(0) .close End With set objRS = nothing %> Mozilla 4 Browser Body tag attributes <%= OutputCSS() %>
Netscape 4.X body option :       Help

<% if success then response.write ("attributes updated successfully!") %>
>
Mozilla 4 Browser Body tag attributes
> ">