erro na linha 24

[designmix 0]

galera estou com erro nesse script.

 

tipo do erro

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A000D)

Tipos incompatíveis: 'abre_conexao'

/dpi/enviar.asp, line 24

 

 

Tipo de navegador:

Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)

 

Página:

POST 91 bytes to /dpi/enviar.asp

 

POST Data:

nome=da&empresa=daw&telefone=daw&email=dwa&assunto=dad&mensagem=dawdadawdawda&Submit=Enviar

 

ASP [/tr][tr]

<%

<!--#include file="_conn/bib_conexao.asp"-->

%>

 

<%

 

 

Nome = Request.Form("nome")

empresa = Request.Form("empresa")

Telefone = Request.Form("telefone")

Email = Request.Form("email")

assunto = Request.Form("assunto")

mensagem = Request.Form("mensagem")

 

 

 

strSQL = "INSERT INTO Cadastro ( cadastro_id, nome_id, empresa_id, telefone_id, email_id, assunto_id, mensagem_id)"

strSQL = strSQL & "values ('"& nome & "','" & empresa & "','" & telefone & "','" & email & "','" & assunto & "','" & mensagem & "')"

 

 

 

 

 

Call abre_conexao (essa é a linha que esta dando erro) linha 24

 

Set rs=conexao.Execute (StrSQL)

 

Call fecha_conexao

Set rs = Nothing

 

%>

[/tr]

:blink: :blink: :wacko:

 

 

grato pela ajuda :D

[th4deu 4]

Ola Designmix! Veja se os campos "id" estão definidos como "número" no banco de dados, caso estejam, tire as aspas simples (') e deixe apenas as duplas (") :) AbraçoseLoC

[designmix 0]

não estão como varcharestou usando db mysqlso o tel que esta intgrato

[th4deu 4]

não estão como varcharestou usando db mysqlso o tel que esta intgrato

entao tire as aspas do campo tel e faça o teste!

[designmix 0]

galera ainda estou com erro

ASP [/tr][tr]

 

<%

<!--#include file="_conn/bib_conexao.asp"-->

%>

 

<%

 

 

Nome = Request.Form("nome")

empresa = Request.Form("empresa")

Telefone = Request.Form("telefone")

Email = Request.Form("email")

assunto = Request.Form("assunto")

mensagem = Request.Form("mensagem")

 

 

 

strSQL = "INSERT INTO Cadastro ( cadastro_id, nome_id, empresa_id, telefone_id, email_id, assunto_id, mensagem_id)"

strSQL = strSQL & "values ('"& nome & "','" & empresa & "','" & telefone & "','" & email & "','" & assunto & "','" & mensagem & "')"

 

 

 

 

 

call abre_conexao

 

 

Set rs=conn.Execute (StrSQL)

 

call fecha_conexao

Set rs = Nothing

 

%>

[/tr]

 

 

 

:wacko: :wacko: :blink: :blink:

[Mário Monteiro 179]

qual o erro agora...

[jothaz 1]

poste o código de:call abre_conexaot+9

[designmix 0]

aqui esta tudo

 

 

formulario

ASP [/tr][tr]

<form name="form1" method="post" action="enviar.asp">

<br>

<table width="275" height="215" border="0" cellpadding="0" cellspacing="0" class="titulodamateria">

<tr class="texto">

<td width="125" height="23" align="center" class="texto"><p align="justify">Nome:</p></td>

<td width="150"><input name="nome" type="text" class="bordaCampos" size="30"></td>

</tr>

<tr class="texto">

<td align="center" class="texto"><div align="justify">Empresa:</div></td>

<td><input name="empresa" type="text" class="bordaCampos" size="30"></td>

</tr>

<tr class="texto">

<td align="center" class="texto"><div align="justify">Telefone:</div></td>

<td><input name="telefone" type="text" class="bordaCampos" size="30"></td>

</tr>

<tr class="texto">

<td align="center" class="texto"><div align="justify">E-mail:</div></td>

<td><input name="email" type="text" class="bordaCampos" size="30"></td>

</tr>

<tr class="texto">

<td align="center" class="texto"><div align="justify">Assunto:</div></td>

<td><input name="assunto" type="text" class="bordaCampos" size="30"></td>

</tr>

<tr class="texto">

<td colspan="2" align="center" class="texto"><div align="left">Mensagem:</div></td>

</tr>

<tr>

<td colspan="2">

<div align="right">

<textarea name="mensagem" cols="51" rows="5" wrap="VIRTUAL" class="bordaCampos" id="mensagem"></textarea>

</div></td>

</tr>

<tr>

<td colspan="2"><div align="center"> <br>

<input name="Submit" type="submit" class="Botao" value="Enviar">

<span class="style1">_ </span>

<input name="Submit2" type="reset" class="Botao" value="Limpar">

</div>

<div align="left"> </div></td>

</tr>

</table>

<p class="texto"> </p>

</form>

[/tr]

 

esse é o enviar.asp

ASP [/tr][tr]

<%

<!--#include file="_conn/bib_conexao.asp"-->

%>

 

<%

 

 

Nome = Request.Form("nome")

empresa = Request.Form("empresa")

Telefone = Request.Form("telefone")

Email = Request.Form("email")

assunto = Request.Form("assunto")

mensagem = Request.Form("mensagem")

 

 

 

strSQL = "INSERT INTO Cadastro ( cadastro_id, nome_id, empresa_id, telefone_id, email_id, assunto_id, mensagem_id)"

strSQL = strSQL & "values ('"& nome & "','" & empresa & "','" & telefone & "','" & email & "','" & assunto & "','" & mensagem & "',')"

 

 

 

 

 

 

call abre_conexao

 

Set rs=conn.Execute (StrSQL)

 

call fecha_conexao

Set rs = Nothing

 

%>

 

[/tr]

 

 

e esse é o bib_conexao.asp

 

ASP [/tr][tr]

 

<%

dim conn

 

abre_conexao

Set conn = Server.CreateObject("ADODB.Connection")

conn.open "driver=MySQL ODBC 3.51 Driver;server=localhost;uid=root;pwd=;database=dpi_criacao"

end sub

 

fecha_conexao

conn.close

set conn = nothing

end sub

 

%>

[/tr]

 

 

grato :wacko: :blink:

[jothaz 1]

Tenta isso:

<%dim connSub abre_conexao()Set conn = Server.CreateObject("ADODB.Connection")conn.open "driver=MySQL ODBC 3.51 Driver;server=localhost;uid=root;pwd=;database=dpi_criacao"end subsub fecha_conexao()conn.closeset conn = nothingend sub%>

t+

[designmix 0]

Continua dando erro

Tipo de erro:Erro de tempo de execução do Microsoft VBScript (0x800A000D)Tipos incompatíveis: 'abre_conexao'/dpi/enviar.asp, line 25Tipo de navegador: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0) Página: POST 145 bytes to /dpi/enviar.aspPOST Data:nome=dwad&empresa=designmix&telefone=1140253001&email=contato@designmix.com.br&assunto=testedawda&mensagem=adadadadahjdfhajfhjahfja&Submit=Enviar Hora:

[dimarcinho 0]

cara, tah aki o erro

tah faltando um espaço pra continuar.... sempre q puder, dah um Response.Write() na linha SQL qdo tiver dando erro..... se nao for uma instrução mto grande, rapidinho tu ve o erro....

 

ASP [/tr][tr]strSQL = "INSERT INTO Cadastro ( cadastro_id, nome_id, empresa_id, telefone_id, email_id, assunto_id, mensagem_id) " '---> colokei um "espaço" aki no final, depois do parenteses

strSQL = strSQL & "values ('"& nome & "','" & empresa & "','" & telefone & "','" & email & "','" & assunto & "','" & mensagem & "')" '---> tirei uma virgula e uma aspa q estavam a esquerda do ultimo parentese tb....

[/tr]

 

bom, são erros.... se nao funcionar, posta ae

[designmix 0]

O ERRO CONTINUA

 

 

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A000D)

Tipos incompatíveis: 'abre_conexao'

/dpi/enviar.asp, line 25

ASP [/tr][tr]<%

<!--#include file="_conn/bib_conexao.asp"-->

%>

 

<%

 

 

Nome = Request.Form("nome")

empresa = Request.Form("empresa")

Telefone = Request.Form("telefone")

Email = Request.Form("email")

assunto = Request.Form("assunto")

mensagem = Request.Form("mensagem")

 

 

 

strSQL = "INSERT INTO Cadastro ( cadastro_id, nome_id, empresa_id, telefone_id, email_id, assunto_id, mensagem_id) "

strSQL = strSQL & "values ('"& nome & "','" & empresa & "','" & telefone & "','" & email & "','" & assunto & "','" & mensagem & "') "

 

 

 

 

 

 

call abre_conexao

 

Set rs=conn.Execute (StrSQL)

 

call fecha_conexao

Set rs = Nothing

 

%>

[/tr]

[Mário Monteiro 179]

posta o que tem em abre_conexao

[designmix 0]

ja poste o script todo meunao tenho mais o que posta hehehhevaleu

[Mário Monteiro 179]

sim mas esta funcao esta em algum lugar...veja aqui<!--#include file="_conn/bib_conexao.asp"-->

[designmix 0]

e esse é o bib_conexao.asp

 

que o include vai para esse script

 

ASP [/tr][tr]

 

 

<%

dim conn

 

abre_conexao

Set conn = Server.CreateObject("ADODB.Connection")

conn.open "driver=MySQL ODBC 3.51 Driver;server=localhost;uid=root;pwd=;database=dpi_criacao"

end sub

 

fecha_conexao

conn.close

set conn = nothing

end sub

 

%>

[/tr]

[Mário Monteiro 179]

cara acho que ta incompleto o seu includetente assimSUB abre_conexao()Set conn = Server.CreateObject("ADODB.Connection")conn.open "driver=MySQL ODBC 3.51 Driver;server=localhost;uid=root;pwd=;database=dpi_criacao"end subSUB fecha_conexao()conn.closeset conn = nothingend subespero que funcione...

[designmix 0]

com erro na linha 24

[designmix 0]

Nada ainda continua dando o mesmo erro na linha 24Sera que ninguem sabe como faz um form com db mysql

[Mário Monteiro 179]

Nada ainda continua dando o mesmo erro na linha 24Sera que ninguem sabe como faz um form com db mysql

cara não estou conseguindo ver mais nada de errado, pode ser vista cansada, eheeh, tente contato com o bicicleta que é apaixonado pelo MySql...