renatacm

a estrutura de pastas é a seguinte: localhost/teste (onde estão os .htm e .asp localhost/teste/database (onde estão os .mdb) Eu consigo verificar se o usuário já existe e retornar para ele como aceito, porém, caso ele não exista, eu não consigo gravar os dados do form no banco... É como se o banco não tivesse permissão para gravação. O IIS me retorna a mensagem " A operação deve usar uma consulta atualizável.", porém, até nos aprâmetros do Recordset eu já mexi e nada. Deixei sem nenhuma tipo de trava e nada, coloquei e testei cada um dos tipos de trava e nada também!!! A linha em que o ISS me aponta o erro é Set bd = Conexao.Execute(ComandoSQL) Poderá ser alguma configuração do IIS 5.1? Se bem que no meu provedor de hospedagem também não funcionou...

Estou usando o WinXPPro, com IIS 5.1 e o banco de bados é o Access 2002, quando mando executar a pagina cadastrese1.asp, o erro apresentado é o descrito abaixo. Já tentei de todas as formas, com o Recorset (sem uso de query SQL), sem o recordset (com o uso de query SQL) e NADA! Onde estou errando??? Sou iniciante e o pouco que aprendi (pelo visto: nada) foi na base da curiosidade. Por favor, se alguém puder me ajudar!!! Preciso resolver isso logo. Obrigada. ;) HTTP 500.100 - Servidor interno Erro - erro do ASP Internet Information Services Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80004005) [Microsoft][Driver ODBC para Microsoft Access] A operação deve usar uma consulta atualizável. /teste/cadastrese1.asp, line 151 (está marcada com ***) Set Conexao = Server.CreateObject("ADODB.Connection") Set bd = Server.CreateObject("ADODB.RecordSet") Conexao.Open "DBQ= "& Server.Mappath("database/visitantes.mdb") &";Driver={Microsoft Access Driver (*.mdb)};","","" PesquisaSQL = "SELECT email FROM cadastro WHERE email Like '"& Request.Form("email") &"';" bd.open PesquisaSQL, Conexao, 1, 3 If bd.BOF OR bd.EOF Then ComandoSQL = "INSERT INTO cadastro (user, email, nome, empresa, ddd, telefone, cep, endereco, numecomple, bairro, cidade, estado, solucaodeinteresse, desejarecebermaisinfo, pass)" ComandoSQL = ComandoSQL & " VALUES (" ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("user")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("email")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("nome")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("empresa")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("ddd")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("telefone")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("cep")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("endereco")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("numecomple")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("bairro")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("cidade")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("estado")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("solucaodeinteresse")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("desejarecebermaisinfo")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("pass")) & "')" *** Set bd = Conexao.Execute(ComandoSQL) Conexao.Close Set bd = Nothing Set Conexao = Nothing