<% numIdNota = request("idNota") sql = "SELECT * FROM comentarios" Set rsComenta = Server.CreateObject("ADODB.Recordset") rsComenta.Open sql, MeuDB, 3, 3 strIp = Request.ServerVariables("REMOTE_ADDR") if strIp <> "201.8.40.186" then rsComenta.AddNew rsComenta("idNota") = numIdNota rsComenta("autor") = request("nome") rsComenta("texto") = trataStringBd(request("texto")) rsComenta("email") = request("email") rsComenta("autoriza") = 1 rsComenta.Update end if response.redirect "notas.asp?id=" & numIdNota %>