varRecebe = REQUEST.FORM("txt_nome")

Fala ai galera....

To com um problema aqui, que é o seguinte

Tenho um form de cadastro, que envia os dados para a página que salva no DB

Quando eu mando cadastrar da erro

Erro de sintaxe na instrução INSERT INTO.

salva_maquinavenda.asp, line 163

linha 163

SET rsSalva = conexaoDB.EXECUTE(strINS)E quando eu faço:

CODE
strINS = "Insert INTO TBL_MAQUINAS_VENDA ( ID_USUARIO, MARCA, MODELO, FORMATO, ANO_FABRICACAO, TIPO, FUNCIONAMENTO, APARENCIA, LOC_CIDADE, LOC_ESTADO, NOME, EMPRESA, DDD, TELEFONE, E_MAIL, PRECO, PAGAMENTO, OBSERVACOES, DATA ) values ( "&varId_usuario&",'"&varMarca&"','"&varModelo&"','"&varFormato&"',"&varAnoFabricacao&",'"&varTipo&"','"&varFuncionamento&"','"&varAparencia&"','"&varCidade&"','"&varEstado&"','"&varNome&"','"&varEmpresa&"',

"&varDDD&","&varFone&",'"&varEmail&"','"&varPreco&"','"&varPagamento&"', '"&varObservacoes&"', #"&varDataCadastro&"#)"

CALL AbreConexao

response.Write(strINS)

RESPONSE.End()[/code]

aparece o seguinte resultado:****

Insert INTO TBL_MAQUINAS_VENDA ( ID_USUARIO, MARCA, MODELO, FORMATO, ANO_FABRICACAO, TIPO, FUNCIONAMENTO, APARENCIA, LOC_CIDADE, LOC_ESTADO, NOME, EMPRESA, DDD, TELEFONE, E_MAIL, PRECO, PAGAMENTO, OBSERVACOES, DATA ) values ( 47,'','','',,'','','','','','','',,,'','','', '', #4 de Setembro de 2008#)

as unicas variavei que estao recebendo os valores sao as do ID_Usuario e a DATA.

esse e o codigo que salva:

<%@LANGUAGE="VBSCRIPT"%><% option explicit %>

<!--#include file ="conexaoDB.inc" -->

<!--#include file ="global.asa" -->

<%

'--------------- - DECLARAÇÃO DE VARIAVEIS - ------------------------------------------------------------------------------

DIM conexaoDB , rsSalva , rsSQL , strINS , sql , sql13 , sql12 , strSQL , varDataCadastro

DIM varId_usuario , varMarca , varModelo , varFormato , varAnoFabricacao , varTipo , varFuncionamento , varAparencia , varCidade

DIM varEstado , varNome , varEmpresa , varDDD , varFone , varEmail , varPreco , varPagamento , varObservacoes , varFoto1 , varFoto2

DIM varFoto3 , varFoto4 , varFoto5

'============================================================================

===============================================

'--------------- - RECEPÇÃO DE DADOS INSERIDOS NO FORMULARIO DE CADASTRO DE USUARIOS -

' Recuperando os Dados Digitados ----------------------

varMarca = TRIM (REQUEST.FORM("txt_Marca"))

varModelo = TRIM (REQUEST.FORM("txt_Modelo"))

varFormato = TRIM (REQUEST.FORM("txt_Formato"))

varAnoFabricacao = TRIM ( REQUEST.FORM("txt_AnoFabricacao"))

varTipo = REQUEST.FORM("txt_Tipo")

varFuncionamento = REQUEST.FORM("txt_Funcionamento")

varAparencia = REQUEST.FORM("txt_Aparencia")

varCidade = TRIM (REQUEST.FORM("txt_LocCidade"))

varEstado = REQUEST.FORM("txt_LocEstado")

varNome = TRIM(REQUEST.FORM("txt_NomeContato"))

varEmpresa = TRIM(REQUEST.FORM("txt_EmpresaContato"))

varDDD = TRIM(REQUEST.FORM("txt_DDD_FoneContato"))

varFone = TRIM(REQUEST.FORM("txt_TelefoneContato"))

varNome = TRIM(REQUEST.FORM("txt_NomeContato"))

varEmail = TRIM(REQUEST.FORM("txt_EmailContato"))

varPreco = TRIM(REQUEST.FORM("txt_Preco"))

varPagamento = REQUEST.FORM("txt_Pagamento")

varObservacoes = REQUEST.FORM("txt_InfoComplementar")

varDataCadastro = session("data")

varId_usuario = session("id_usuario")

'==========================================================================

'----------------- - SUBSTITUIÇÃO DE CARACTERES NULOS PRESENTES NO FORMULARIO -

varPreco = REPLACE(varPreco, "." , " ")

varPreco = REPLACE(varPreco, "," , ".")

varFone = Replace(varFone , "-" , " " )

varObservacoes = REPLACE(varObservacoes , "" , "NÃO ENVIOU")

'----------------- - INSTRUÇÃO SQL DE INCLUSÃO DE CADASTRO NO BANCO DE DADO -

strINS = "Insert INTO TBL_MAQUINAS_VENDA ( ID_USUARIO, MARCA, MODELO, FORMATO, ANO_FABRICACAO, TIPO, FUNCIONAMENTO, APARENCIA, LOC_CIDADE, LOC_ESTADO, NOME, EMPRESA, DDD, TELEFONE, E_MAIL, PRECO, PAGAMENTO, OBSERVACOES, DATA ) values ( "&varId_usuario&",'"&varMarca&"','"&varModelo&"','"&varFormato&"',"&varAnoFabricacao&",'"&varTipo&"','"&varFuncionamento&"','"&varAparencia&"','"&varCidade&"','"&varEstado&"','"&varNome&"','"&varEmpresa&"',"&varDDD&","&varFone&",'"&varEmail&"','"&varPreco&"','"&varPagamento&"', '"&varObservacoes&"', #"&varDataCadastro&"#)"

 

strSQL = " SELECT TBL_USUARIOS.ID_USUARIO , TBL_MAQUINAS_VENDA.ID_USUARIO FROM TBL_USUARIOS INNER JOIN TBL_MAQUINAS_VENDA ON TBL_USUARIOS.ID_USUARIO = TBL_MAQUINAS_VENDA.ID_USUARIO "

CALL AbreConexao

SET rsSQL = conexaoDB.EXECUTE(strSQL)

%>

<style type="text/css">

<!--

body,td,th {

	font-family: Verdana, Arial, Helvetica, sans-serif;

	font-size: 10px;

}

body {

	margin-left: 0px;

	margin-top: 0px;

	margin-right: 0px;

	margin-bottom: 0px;

}

.style1 {font-size: 12px}

.style2 {color: #FFFFFF}

.style3 {font-size: 12px; color: #FFFFFF; }

.style5 {font-size: 12px;

	font-weight: bold;

	color: #FFFFFF;

}

.style6 {color: #33507D}

.style9 {

	font-size: 11px;

	color: #000000;

}

.style11 {color: #33507D; font-size: 10px; }

.style14 {color: #33507D; font-size: 10px; font-weight: bold; }

a {

	font-family: Verdana, Arial, Helvetica, sans-serif;

	font-size: 10px;

}

a:link {

	color: #33507D;

}

a:visited {

	color: #33507D;

}

a:hover {

	color: #456DAB;

}

a:active {

	color: #456DAB;

}

-->

</style>

 

<html>

<head>

<title>Cadastrando Máquina a venda</title>

<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />

</head>

<body bgcolor="#FFFFFF">

<table border="0" cellpadding="0" cellspacing="0" width="546">

<!-- fwtable fwsrc="Untitled" fwpage="Page 1" fwbase="nosso_objetivo.jpg" fwstyle="Dreamweaver" fwdocid = "70924152" fwnested="0" -->

 <tr>

 <td><img src="imagens/spacer.gif" width="2" height="1" border="0" alt=""></td>

 <td><img src="imagens/spacer.gif" width="31" height="1" border="0" alt=""></td>

 <td><img src="imagens/spacer.gif" width="22" height="1" border="0" alt=""></td>

 <td><img src="imagens/spacer.gif" width="161" height="1" border="0" alt=""></td>

 <td><img src="imagens/spacer.gif" width="94" height="1" border="0" alt=""></td>

 <td><img src="imagens/spacer.gif" width="34" height="1" border="0" alt=""></td>

 <td><img src="imagens/spacer.gif" width="77" height="1" border="0" alt=""></td>

 <td><img src="imagens/spacer.gif" width="12" height="1" border="0" alt=""></td>

 <td><img src="imagens/spacer.gif" width="113" height="1" border="0" alt=""></td>

 <td><img src="imagens/spacer.gif" width="1" height="1" border="0" alt=""></td>

 </tr>

 

 <tr>

 <td colspan="2" bgcolor="#F4F9FF"><img name="principal_r1_c1" src="imagens/principal_r1_c1.jpg" width="32" height="29" border="0" alt=""></td>

 <td colspan="2" bgcolor="#F4F9FF"> </td>

 <td colspan="5" bgcolor="#E1E8EE"> </td>

 <td><img src="imagens/spacer.gif" width="1" height="30" border="0" alt=""></td>

 </tr>

 <tr>

 <td colspan="9" valign="middle" background="imagens/nosso_objetivo_r2_c3.jpg"><div align="right"><span class="style1"><span class="style5">Cadastro de Máquina á Venda</span>   </span></div></td>

 <td><img src="imagens/spacer.gif" width="1" height="22" border="0" alt=""></td>

 </tr>

 <tr>

 <td><img name="nosso_objetivo_r3_c1" src="imagens/nosso_objetivo_r3_c1.jpg" width="2" height="14" border="0" alt=""></td>

 <td colspan="3" bgcolor="#F4F9FF"> </td>

 <td colspan="5" bgcolor="#E1E8EE"><div align="center"></div></td>

 <td><img src="imagens/spacer.gif" width="1" height="14" border="0" alt=""></td>

 </tr>

 <tr>

 <td colspan="4"><img name="nosso_objetivo_r4_c1" src="imagens/nosso_objetivo_r4_c1.jpg" width="216" height="4" border="0" alt=""></td>

 <td colspan="5" rowspan="4" align="left" valign="top" bgcolor="#F4F9FF">

 <table width="100%" border="0" cellspacing="0" cellpadding="3">

 <tr>

 <td colspan="2" bgcolor="#F4F9FF"> </td>

 </tr>

 <tr>

 <td colspan="2" bgcolor="#F4F9FF"> </td>

 </tr>

 

 <tr>

 <td colspan="2" bgcolor="#F4F9FF"><table width="100%" border="0">

 <tr>

 <td>

<% IF not rsSQL.EOF THEN

Response.Write "<font face='Verdana' color='red' size='1'>Cadastro não pode prosseguir, devido a algum erro encontrado, por favor tente novamente ou entren em contato com o administrador do site.Obrigado.</font>"

ELSE

SET rsSalva = conexaoDB.EXECUTE(strINS)

Response.REDIRECT("enviar_fotos.asp")

END IF

%>

 </td>

 </tr>

 </table></td>

 </tr>

 <tr>

 <td bgcolor="#F4F9FF"> </td>

 <td bgcolor="#F4F9FF"> </td>

 </tr>

 <tr>

 <td colspan="2" bgcolor="#F4F9FF"><div align="center"><span class="style14"></span></div></td>

 </tr>

 </table>

 

 </td>

 <td><img src="imagens/spacer.gif" width="1" height="4" border="0" alt=""></td>

 </tr>

 <tr>

 <td colspan="4" align="center" valign="bottom"><table width="100%" border="0" cellspacing="3" cellpadding="3">

 <tr>

 <td><div align="justify"><span class="style11">O formulário ao lado, permite o cadastro de máquinas a venda. Se você deseja vender seu equipamento basta anunciar em nosso site através do cadastro de máquinas a venda. O anúncio é gratuíto. Entretando, o usuário deverá estar de acordo com as normas para a utilização dos serviços prestados pelo site.<br>

 <br>

Conheça as normas de utilização dos nossos serviços em:<br>

<strong>Como funciona</strong></span><span class="style5"><span class="style6"><br>

 </span></span></div></td>

 </tr>

 </table> <span class="style2"><span class="style6"><br>

 <br>

 <span class="style1"><strong>Para maiores informações, <br>

	favor entrar em contato.</strong></span><br>

	</span><br>

 </span><span class="style3"><span class="style9">Fones: (62) 9159-3858 / 3584-4753</span></span></td>

 <td><img src="imagens/spacer.gif" width="1" height="290" border="0" alt=""></td>

 </tr>

 <tr>

 <td colspan="4" align="center" valign="middle" background="imagens/nosso_objetivo_r6_c1.jpg"><span class="style4"> E-mail: gilmarcastro@terra.com.br</span> </td>

 <td><img src="imagens/spacer.gif" width="1" height="36" border="0" alt=""></td>

 </tr>

 <tr>

 <td colspan="4"><img name="nosso_objetivo_r7_c1" src="imagens/nosso_objetivo_r7_c1.jpg" width="216" height="43" border="0" alt=""></td>

 <td><img src="imagens/spacer.gif" width="1" height="43" border="0" alt=""></td>

 </tr>

</table>

<%

CALL fechaConexao

rsSQL.Close

rsSalva = nothing

SET rsSQL = Nothing

SET rsSalva = Nothing

%>

</body>

</html>

Se alguem puder me ajudar.

Eu agradeço desde ja.