Problema

[designmix 0]

Alguem me ajude preciso de um formulario de contato, que mande os dados para um db .. mysql...

 

 

pois o meu condigo esta dando um erro e ninguem sabe o que é.

 

preciso ver um outro script para dar uma olhada. no que estou errando.

 

 

 

 

 

grato

 

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif :huh: :wacko:

[dark0 0]

que tal postar o codigo e o erro?

[designmix 0]

Aqui esta o script

 

esse é o form

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>

</form>

[/tr]

 

Esse o enviar .asp

 

ASP [/tr][tr]

<%

Option Explicit

%>

 

<%

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

%>

 

<%

 

 

Nome = Request.Form("nome")

empresa = Request.Form("empresa")

Telefone = Request.Form("tel")

Email = Request.Form("email")

assunto = Request.Form("assunto")

mensagem = Request.Form("msg")

 

 

 

strSQL = "INSERT INTO Cadastro ( cadastro_id, nome_id, empresa_id, tel_id, email_id, assunto_id, msg_id)"

strSQL = strSQL & "values ('"& nome & "','" & empresa & "','" & tel & "','" & email & "','" & assunto & "','" & msg & "')"

 

 

 

 

 

abre_conexao --> essa é a linha 24

 

Set rs=conn.Execute (StrSQL)

 

fecha_conexao

Set rs = Nothing

 

%>

 

 

[/tr]

 

Esse é o bib_conexao.asp

 

ASP [/tr][tr]

 

<%

dim conexao

 

sub abre_conexao

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

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

end sub

 

Sub fecha_conexao

conexao.close

set conexao = nothing

end sub

 

%>

[/tr]

 

Ei esta o meu script .. esta dando erro na linha 24 do enviar .asp,

[dark0 0]

qual a descrição do erro?Pois, o erro pode estar na instrução SQL.Mas, o erro em si, vai variar, conforme a descrição dele.Pode ser permissões, ou aspa simples, ou qualquer coisinha..

[FabricioGomes 0]

tenta colocar sub abre_conexao()... - com parenteses - no arquivo bib_conexao.asp

[designmix 0]

Tipo do erroTipo 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 103 bytes to /dpi/enviar.asp :blink: :wacko:

[Magnoweb 0]

esse abre_conexao é um comentário?experimenta colocar uma aspa simples na frente tipo:'abre_conexaotbm em 'fecha_conexaopelo menos é isso que parece tá faltando

[FabricioGomes 0]

nao, magnoweb, é a chamada da Sub que esta no arquivo bib...ele quer saber o motivo do erro nessa linha, que chama a sub abre_conexao

[designmix 0]

GALERA NAO ERA ERRO NO SCRIPT MAIS SIM NO INCLUDE O INCLUDE NAO FUNCIONA

 

VOU TER QUE COLOCAR EM TODAS PAG O SCRIPT

 

ASP [/tr][tr]<%

dim conexao

 

sub abre_conexao

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

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

end sub

 

Sub fecha_conexao

conexao.close

set conexao = nothing

end sub

 

%>

[/tr]

 

AGRADEÇO A AJUDA

[Salgado 4]

você colocou o Include dentro das Tags <%%> do ASP por isso o erro, retire ela e teste novamente.

[FabricioGomes 0]

putz, salgado, tava na cara... a gente nao presta atencao, é f**a quando descobre que está assim, na cara.... ;)

[designmix 0]

nem fale.. fiquei uma semana para descobrir isso olha que bosta hehehheeheh