Ir para conteúdo
Fórum Script Brasil

Mauri Siqueira

Membros
  • Total de itens

    4
  • Registro em

  • Última visita

Sobre Mauri Siqueira

Mauri Siqueira's Achievements

0

Reputação

  1. Olá bareta , olhei... e quase todos, menos o campo de ID, sõ do tipo texto... realmente não sei o motivo deste erro.... :ninja:
  2. Mauri Siqueira

    Ajuda! URGENTE

    Olá, Preciso de ajuda urgente para resolver este erro -> Erro de tempo de execução do Microsoft VBScript erro '800a000d' Tipos incompatíveis: '[string: "INSERT INTO convenio"]' /cdp/admin/convenios/pages/novo.asp, line 23 Aqui está o código <%@LANGUAGE="VBScript"%> <!--#include virtual="cdp/conn/conexao.asp" --> <% nome = request.form("nome") cat = request.form("categoria") logomarca = request.form("logomarca") servicos = request.form("servicos") ende = request.form("endereco") mail = request.form("mail") site = request.form("site") desconto = request.form("desconto") telefone = request.form("telefone") subcategoria = request.form("subcategoria") exibir = request.form("exibir") local = convenios sql = "INSERT INTO convenios (nomeDaEmpresa,categoria,logomarca,servicos,endereco,desconto,telefone,subcategoria,exibir) VALUES ('"&nome&"','"&cat&"','"&logomarca&"','"&servicos&"','"&endereco&mail&site&"','"&desconto&"','"&telefone&"','"&subcategoria&"','"&exibir&"')" Dim rs Set rs = con.Execute(sql&con.Mode = 3) if rs.eof then response.write("A inserção foi feita com sucesso!") else response.write("Tente outra vez") response.redirect("incluir_convenios.asp") end if set rs = nothing %> Desde já agradeço!
  3. Mauri Siqueira

    Erro no script

    Olá. estou tentando inserir dados em um banco na intranet (.mdb) apenas como teste de conexão. Segue o script asp: <code> <%@LANGUAGE="VBScript"%> <% Dim conObj Set conObj = Server.CreateObject("ADODB.Connection") conObj.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/cdp/conn/banco/ddrh.mdb") & ";" sql = ("INSERT INTO convenios (nomeDaEmpresa,categoria) VALUES ('teste','teste')") Dim rs Set rs = conObj.Execute(sql) if rs.EOF then response.write("A inserção foi feita com sucesso!") else response.write("Tente outra vez") response.redirect("incluir_convenios.asp") end if set rs = nothing %> </code> E o erro é o seguinte: Microsoft JET Database Engine erro '80004005' A operação deve usar uma consulta atualizável. /cdp/admin/convenios/pages/novo.asp, line 11 Desde já agradeço pela atenção!
  4. Olá, preciso saber como configurar o IIS para enviar formulários de e-mail para um servidor externo... pegando qualquer endereço de e-mail de um formulário. Isso é possível?
×
×
  • Criar Novo...