Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Andre Gustavo

varRecebe = REQUEST.FORM("txt_nome")

Por , em ASP Clássico

Recommended Posts

Andre Gustavo    0

Andre Gustavo
Postado

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.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Felipe Fonseca    0

Felipe Fonseca
Postado

cara se esta como POST mesmo ... entao nao vejo outra alternativa a nao ser indo por teste.

 

Esqueca o banco de dados.

 

'--------------- - 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")

pegue essa parte e de um response.wrtite varMarca

se nao aparecer o valor digitado, você esta com problemas no seu formulario

Compartilhar este post

Link para o post
Compartilhar em outros sites

Andre Gustavo    0

Andre Gustavo
Postado

cara se esta como POST mesmo ... entao nao vejo outra alternativa a nao ser indo por teste.

 

Esqueca o banco de dados.

 

'--------------- - 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")

pegue essa parte e de um response.wrtite varMarca

se nao aparecer o valor digitado, você esta com problemas no seu formulario

POIS EH CARA..

EU JA FIZ TODOS ESSES TESTE COM O RESPONSE.WRITE

TESTEI VARIAVEL POR VARIAVEL, TESTEI TODAS AO MESMO TEMPO, MAS NÃO DA NADA

NENHUMA DAS VARIAVEIS ESTAO RECEBENDO SEU DEVIDOS VALORES.

SERÁ QUE TEM ALGUMA COISA HAVER, TIPO, TENNHO A PÁGINA

INDEX QUE TEM UM IFRAME, ONDE TODO CONTEUDO DO SITE EH EXIBIDO,

AI NA PÁGINA DO FORM É EXIBIDA DENTRO DESSE IFRAME(PRINCIPAL) DA INDEX

E DENTRO DA PÁGINA QUE CONTEM O FORM TEM OUTRO IFRAME QUE EXIBE O FORMULARIO

 

ASSIM

 

INDEX(IFRAME)|

|---VENDAS(IFRAME)|

|---FORMCADASTRO

 

Conseguiu entender como é

Tem um IFRAME DENTRO DE OUTRO IFRAME

será que pode ser esse o problema?

Se for como eu devo fazer pra dar certo meu cadastro?

Pois ja fiz um monte de testes e nenhum deu resultado positivo

Compartilhar este post

Link para o post
Compartilhar em outros sites

Andre Gustavo    0

Andre Gustavo
Postado

Posta o seu form ai

form

CODE
<%@LANGUAGE="VBSCRIPT" %>

 

<% Option Explicit %>

<% Session.LCID = 1046 %>

<!-- #Include File="conexaoDB.inc" -->

<!-- #include file = "Upload_funcoes.asp" -->

<%

DIM conexaoDB , rsTIPO , strSQL

strSQL = "SELECT * FROM TBL_TIPO ORDER BY ID_TIPO "

call AbreConexao

Set rsTIPO = conexaodb.Execute(strSQL)

%>

 

<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />

<title>Untitled Document</title>

<script language="javascript">

function valida() {

if(document.form1.txt_Marca.value=="") {

alert("É necessario informar a marca da máquina.")

document.form1.txt_Marca.focus()

return false

}

if(document.form1.txt_Modelo.value=="") {

alert("É necessario informar o modelo da máquina.")

document.form1.txt_Modelo.focus()

return false

}

if(document.form1.txt_Formato.value=="") {

alert("É necessario informar o formato padrão da máquina.")

document.form1.txt_Formato.focus()

return false

}

if(document.form1.txt_AnoFabricacao.value=="") {

alert("É necessario informar o ano de fabricação da máquina.")

document.form1.txt_AnoFabricacao.focus()

return false

}

if(document.form1.txt_Tipo.value=="-1") {

alert("É necessario informar o tipo da máquina.")

document.form1.txt_Tipo.focus()

return false

}

if(document.form1.txt_Funcionamento.value=="-1") {

alert("É necessario informar o estado de funcionamento da máquina.")

document.form1.txt_Funcionamento.focus()

return false

}

if(document.form1.txt_Aparencia.value=="-1") {

alert("É necessario informar informar o estado de aparência da máquina.")

document.form1.txt_Aparencia.focus()

return false

}

if(document.form1.txt_LocCidade.value=="") {

alert("É necessário informar a cidade de localização da máquina.")

document.form1.txt_LocCidade.focus()

return false

}

if(document.form1.txt_LocEstado.value=="-1") {

alert("É necessário informar o estado de localização da máquina.")

document.form1.txt_LocEstado.focus()

return false

}

if(document.form1.txt_NomeContato.value=="") {

alert("É necessário informar seu nome para que possamos entrar em contato")

document.form1.txt_NomeContato.focus()

return false

}

if(document.form1.txt_DDD_FoneContato.value=="") {

alert("É necessário informar o código de DDD da sua região.")

document.form1.txt_DDD_FoneContato.focus()

return false

}

if(document.form1.txt_TelefoneContato.value=="") {

alert("É necessário informar o telefone para contato.")

document.form1.txt_TelefoneContato.focus()

return false

}

if(document.form1.txt_EmailContato.value=="") {

alert("É necessário informar um e-mail válido.")

document.form1.txt_EmailContato.focus()

return false

}

email=document.form1.txt_EmailContato.value // varialvel recebe o caminho do campo do formulario para validar e-mail valido.

if(email.indexOf("@")==-1){ //compara o valor da varialvel (indexOf) com o valor digitado pelo usario e valida o campo se a resposta for verdadeira.

alert("Por favor informe um E-mail válido.")

document.form1.txt_EmailContato.focus()

return false

}

if(email.indexOf(".")==-1){

alert("Por favor informe um E-mail válido.")

document.form1.txt_EmailContato.focus()

return false

}

if(document.form1.txt_Preco.value=="") {

alert("É necessário informar o valor da máquina.")

document.form1.txt_Preco.focus()

return false

}

 

 

 

if(document.form1.txt_Pagamento.value=="-1") {

alert("É necessário informar a forma de pagamento.")

document.form1.txt_Pagamento.focus()

return false

}

}

 

</script>

 

<style type="text/css">

<!--

body,td,th {

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

font-size: 11px;

}

body {

margin-left: 0px;

margin-top: 0px;

margin-right: 0px;

margin-bottom: 0px;

}

.style1 {font-size: 12px;

font-weight: bold;

color: #FFFFFF;

}

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

.style12 {font-size: 11px; color: #FFFFFF; }

.style9 {

font-size: 11px;

font-weight: bold;

}

.style14 {font-size: 11px; color: #FFFFFF; font-weight: bold; }

-->

</style></head>

 

<body>

 

<form action="salva_maquinavenda.asp" method="post" target="conteudo" enctype="multipart/form-data" name="form1" id="form1" onSubmit="return valida();" >

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

<tr>

<td colspan="2" background="imagens/nosso_objetivo_r2_c3.jpg" bgcolor="#F4F9FF"><div align="center">

<div align="center"><span class="style10"><span class="style9">Características do Equipamento</span></span><span class="style1">    </span></div>

</div></td>

</tr>

<tr>

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

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

</tr>

<tr>

<td width="20%" bgcolor="#F4F9FF"><div align="right"> Marca:</div></td>

<td width="80%" bgcolor="#F4F9FF"><input name="txt_Marca" type="text" id="txt_Marca" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" size="28" maxlength="50" /></td>

</tr>

<tr>

<td bgcolor="#F4F9FF"><div align="right">Modelo:</div></td>

<td bgcolor="#F4F9FF"><input name="txt_Modelo" type="text" id="txt_Modelo" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" size="28" maxlength="50" /></td>

</tr>

<tr>

<td bgcolor="#F4F9FF"><div align="right">Formato:</div></td>

<td bgcolor="#F4F9FF"><input name="txt_Formato" type="text" id="txt_Formato" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" size="28" maxlength="50" /></td>

</tr>

<tr>

<td bgcolor="#F4F9FF"><div align="right">Ano de Fab.: </div></td>

<td bgcolor="#F4F9FF"><input name="txt_AnoFabricacao" type="text" id="txt_AnoFabricacao" onKeyUp="java script:Sonumero1(this);" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" size="28" maxlength="50" /></td>

</tr>

<tr>

<td bgcolor="#F4F9FF"><div align="right">Tipo:</div></td>

<td bgcolor="#F4F9FF"><select name="txt_Tipo" id="txt_Tipo" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto">

 

<option value="-1" selected="selected">Selecione</option>

<% Do While Not rsTIPO.EOF %>

<option value="<% = rsTIPO("ID_TIPO") %>"><% = rsTIPO("TIPO") %></option>

<%

rsTIPO.MoveNext

Loop

rsTIPO.Close

Call fechaConexao

Set rsTIPO = Nothing

%>

</select></td>

</tr>

<tr>

<td bgcolor="#F4F9FF"><div align="right">Funcionamento:</div></td>

<td bgcolor="#F4F9FF"><select name="txt_Funcionamento" id="txt_Funcionamento" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto">

<option value="-1" selected="selected">Selecione</option>

<option value="Perfeita">Perfeita</option>

<option value="Excelente">Excelente</option>

<option value="Muito Boa">Muito Boa</option>

<option value="Boa">Boa</option>

<option value="Regular">Regular</option>

<option value="Ruim">Ruim</option>

</select></td>

</tr>

<tr>

<td bgcolor="#F4F9FF"><div align="right">Aparência:</div></td>

<td bgcolor="#F4F9FF"><select name="txt_Aparencia" id="txt_Aparencia" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto">

<option value="-1" selected="selected">Selecione</option>

<option value="Perfeita">Perfeita</option>

<option value="Excelente">Excelente</option>

<option value="Muito Boa">Muito Boa</option>

<option value="Boa">Boa</option>

<option value="Regular">Regular</option>

<option value="Ruim">Ruim</option>

</select></td>

</tr>

<tr>

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

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

</tr>

<tr>

<td colspan="2" background="imagens/nosso_objetivo_r2_c3.jpg" bgcolor="#F4F9FF"><div align="center"><span class="style14">Localização da Máquina </span></div></td>

</tr>

<tr>

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

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

</tr>

<tr>

<td bgcolor="#F4F9FF"><div align="right">Cidade:</div></td>

<td bgcolor="#F4F9FF"><input name="txt_LocCidade" type="text" id="txt_LocCidade" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" value="<% =session("cidade") %>" size="28" maxlength="12" /></td>

</tr>

<tr>

<td bgcolor="#F4F9FF"><div align="right">Estado:</div></td>

<td bgcolor="#F4F9FF"><select name="txt_LocEstado" id="txt_LocEstado" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto">

<option value="-1">Selecione</option>

<option value="AC">AC</option>

<option value="AL">AL</option>

<option value="AP">AP</option>

<option value="AM">AM</option>

<option value="BA">BA</option>

<option value="CE">CE</option>

<option value="DF">DF</option>

<option value="ES">ES</option>

<option value="GO">GO</option>

<option value="MA">MA</option>

<option value="MT">MT</option>

<option value="MS">MS</option>

<option value="MG">MG</option>

<option value="PA">PA</option>

<option value="PB">PB</option>

<option value="PR">PR</option>

<option value="PE">PE</option>

<option value="PI">PI</option>

<option value="RJ">RJ</option>

<option value="RN">RN</option>

<option value="RS">RS</option>

<option value="RO">RO</option>

<option value="RR">RR</option>

<option value="SC">SC</option>

<option value="SP">SP</option>

<option value="SE">SE</option>

<option value="TO">TO</option>

</select></td>

</tr>

<tr>

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

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

</tr>

<tr>

<td colspan="2" background="imagens/nosso_objetivo_r2_c3.jpg" bgcolor="#F4F9FF"><div align="center"><span class="style14">Informações para Contato </span></div></td>

</tr>

<tr>

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

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

</tr>

<tr>

<td bgcolor="#F4F9FF"><div align="right">Nome: </div></td>

<td bgcolor="#F4F9FF"><input name="txt_NomeContato" type="text" id="txt_NomeContato" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" value="<% =session("nome") %>" size="28" maxlength="50" /></td>

</tr>

<tr>

<td bgcolor="#F4F9FF"><div align="right">Empresa:</div></td>

<td bgcolor="#F4F9FF"><input name="txt_EmpresaContato" type="text" id="txt_EmpresaContato" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" size="28" maxlength="50" /></td>

</tr>

<tr>

<td bgcolor="#F4F9FF"><div align="right">Telefone:</div></td>

<td bgcolor="#F4F9FF"><input name="txt_DDD_FoneContato" type="text" id="txt_DDD_FoneContato" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" onKeyUp="java script:Sonumero2(this);" value="<% =session("ddd") %>" size="3" maxlength="2" />

<input name="txt_TelefoneContato" type="text" id="txt_TelefoneContato" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" onKeyUp="java script:Sonumero3(this);" value="<% =session("telefone") %>" size="21" maxlength="12" /></td>

</tr>

<tr>

<td bgcolor="#F4F9FF"><div align="right">E-mail:</div></td>

<td bgcolor="#F4F9FF"><input name="txt_EmailContato" type="text" id="txt_EmailContato" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" value="<% =session("email") %>" size="28" maxlength="50" /></td>

</tr>

<tr>

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

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

</tr>

<tr>

<td colspan="2" background="imagens/nosso_objetivo_r2_c3.jpg" bgcolor="#F4F9FF"><div align="center"><span class="style14">Condições de Pagamento</span></div></td>

</tr>

<tr>

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

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

</tr>

<tr>

<td bgcolor="#F4F9FF"><div align="right"> Preço:</div></td>

<td bgcolor="#F4F9FF"><input name="txt_Preco" type="text" id="txt_Preco" onKeyUp="java script:Sonumero4(this);" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" size="28" maxlength="50" /></td>

</tr>

<tr>

<td bgcolor="#F4F9FF"><div align="right">Pagamento:</div></td>

<td bgcolor="#F4F9FF"><select name="txt_Pagamento" id="txt_Pagamento" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto">

<option value="-1" selected="selected">Selecione</option>

<option value="Á Vista">Á Vista</option>

<option value="Á Combinar">Á Combinar</option>

</select></td>

</tr>

<tr>

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

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

</tr>

<tr>

<td colspan="2" background="imagens/nosso_objetivo_r2_c3.jpg" bgcolor="#F4F9FF"><div align="center"><span class="style14">Informações Complementares</span></div></td>

</tr>

<tr>

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

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

</tr>

<tr>

<td colspan="2" bgcolor="#F4F9FF"><div align="center">

<textarea name="txt_InfoComplementar" id="txt_InfoComplementar" cols="28" rows="5">Digite aqui alguma observação ou dados do equipamento que jugar importante.</textarea>

</div></td>

</tr>

<tr>

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

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

</tr>

<tr>

<td colspan="2" background="imagens/nosso_objetivo_r2_c3.jpg" bgcolor="#F4F9FF"><div align="center"><span class="style14">Fotos do Equipamento</span></div></td>

</tr>

<tr>

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

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

</tr>

<tr>

<td bgcolor="#F4F9FF"><div align="right">

<div align="right">Foto 1:</div>

</div></td>

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

<input name="txt_foto1" type="file" id="txt_foto1" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" size="18" />

</label></td>

</tr>

<tr>

<td bgcolor="#F4F9FF"><div align="right">

<div align="right">Foto 2:</div>

</div></td>

<td bgcolor="#F4F9FF"><input name="txt_foto2" type="file" id="txt_foto2" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" size="18" /></td>

</tr>

<tr>

<td bgcolor="#F4F9FF"><div align="right">

<div align="right">Foto 3:</div>

</div></td>

<td bgcolor="#F4F9FF"><input name="txt_foto3" type="file" id="txt_foto3" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" size="18" /></td>

</tr>

<tr>

<td bgcolor="#F4F9FF"><div align="right">

<div align="right">Foto 4:</div>

</div></td>

<td bgcolor="#F4F9FF"><input name="txt_foto4" type="file" id="txt_foto4" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" size="18" /></td>

</tr>

<tr>

<td bgcolor="#F4F9FF"><div align="right">Foto 5:</div>

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

<td bgcolor="#F4F9FF"><input name="txt_foto5" type="file" id="txt_foto5" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" size="18" /></td>

</tr>

 

<tr>

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

</tr>

<tr>

<td colspan="2" bgcolor="#F4F9FF"><div align="center">

<input type="submit" name="button" id="button" style=" font-size:10px; color:#FFFFFF; background-color:#33507C; font-family:Verdana, Arial, Helvetica, sans-serif"value="Cadastrar" />

</div></td>

</tr>

</table>

</form>

</body>

</html>

 

 

%>

nesse formulario o usuario envia 5 fotos da máquina que serao armazenadas em uma pasta. Essa tabela "TBL_MAQUINAS_VENDA" que recebe os dados da máquina a venda, é relacionada com outra tabela "TBL_USUARIOS" por intermedio do campo "ID_USUARIO". O usuario faz o login e somente ao efetuar o login ele podera cadastrar as maquinas que deseja vender.

A tabela "TBL_MAQUINAS_VENDA" recebe o Id do usuario já cadastrado, da tabela "TBL_USUARIOS"

Eu estou enviando o ID do Usuario para o INSERT, atravez de SESSION, pois para que o usuario possa

cadastrar alguma maquina ele deve primeiramente se cadastrar como usuario do site.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Andre Gustavo    0

Andre Gustavo
Postado

Como q você recupera o campo do seu formulário onde seleciona a foto ???

salva_maquinavenda.asp

CODE
<%@LANGUAGE="VBSCRIPT" %>

<!-- #Include File="conexaoDB.inc" -->

<!-- #include file = "upload_funcoes.asp" -->

<%

 

DIM conexaoDB , rsSalva , rsSQL , strINS , strSQL , varDataCadastro

DIM varId_usuario , varMarca , varModelo , varFormato , varAnoFabricacao , varTipo , varFuncionamento , varAparencia , varCidade , varEstado , varNome , varEmpresa , varDDD , varFone , varEmail , varPreco , varPagamento , varObservacoes , varFoto1 , varFoto2 , varFoto3 , varFoto4 , varFoto5

 

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

=

 

'----------------------------------# - FAZENDO O UPLOAD -----------------------------

' Chamando Funções, que fazem o Upload funcionar

 

byteCount = Request.TotalBytes

RequestBin = Request.BinaryRead(byteCount)

Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest RequestBin

 

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

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

 

varMarca = TRIM(UploadRequest.Item("txt_Marca").Item("value"))

varModelo = TRIM(UploadRequest.Item("txt_Modelo").Item("value"))

varFormato = TRIM(UploadRequest.Item("txt_Formato").Item("value"))

varAnoFabricacao = TRIM(UploadRequest.Item("txt_AnoFabricacao").Item("value"))

varTipo = UploadRequest.Item("txt_Tipo").Item("value")

varFuncionamento = UploadRequest.Item("txt_Funcionamento").Item("value")

varAparencia = UploadRequest.Item("txt_Aparencia").Item("value")

varCidade = TRIM(UploadRequest.Item("txt_LocCidade").Item("value"))

varEstado = TRIM(UploadRequest.Item("txt_LocEstado").Item("value"))

varNome = TRIM(UploadRequest.Item("txt_NomeContato").Item("value"))

varEmpresa = TRIM(UploadRequest.Item("txt_EmpresaContato").Item("value"))

varDDD = TRIM(UploadRequest.Item("txt_DDD_FoneContato").Item("value"))

varFone = TRIM(UploadRequest.Item("txt_TelefoneContato").Item("value"))

varNome = TRIM(UploadRequest.Item("txt_NomeContato").Item("value"))

varEmail = TRIM(UploadRequest.Item("txt_EmailContato").Item("value"))

varPreco = TRIM(UploadRequest.Item("txt_Preco").Item("value"))

varPagamento = TRIM(UploadRequest.Item("txt_Pagamento").Item("value"))

varObservacoes = TRIM(UploadRequest.Item("txt_InfoComplementar").Item("value"))

varDataCadastro = formatDateTime(date,2)

 

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

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

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

' TRABALHANDO FOTOs

' Tipo de arquivo que esta sendo enviado

 

tipo_foto1 = UploadRequest.Item("txt_foto1").Item("ContentType")

tipo_foto2 = UploadRequest.Item("txt_foto2").Item("ContentType")

tipo_foto3 = UploadRequest.Item("txt_foto3").Item("ContentType")

tipo_foto4 = UploadRequest.Item("txt_foto4").Item("ContentType")

tipo_foto5 = UploadRequest.Item("txt_foto5").Item("ContentType")

 

' Caminho completo dos arquivos enviados

 

caminho_foto1 = UploadRequest.Item("txt_foto1").Item("FileName")

caminho_foto2 = UploadRequest.Item("txt_foto2").Item("FileName")

caminho_foto3 = UploadRequest.Item("txt_foto3").Item("FileName")

caminho_foto4 = UploadRequest.Item("txt_foto4").Item("FileName")

caminho_foto5 = UploadRequest.Item("txt_foto5").Item("FileName")

 

' Nome dos arquivos enviados

 

nome_foto1 = Right(caminho_foto1,Len(caminho_foto1)-InstrRev(caminho_foto1,"\"))

nome_foto2 = Right(caminho_foto2,Len(caminho_foto2)-InstrRev(caminho_foto2,"\"))

nome_foto3 = Right(caminho_foto3,Len(caminho_foto3)-InstrRev(caminho_foto3,"\"))

nome_foto4 = Right(caminho_foto4,Len(caminho_foto4)-InstrRev(caminho_foto4,"\"))

nome_foto5 = Right(caminho_foto5,Len(caminho_foto5)-InstrRev(caminho_foto5,"\"))

 

' Conteudo binario dos arquivos enviados

 

foto1 = UploadRequest.Item("txt_foto1").Item("Value")

foto2 = UploadRequest.Item("txt_foto2").Item("Value")

foto3 = UploadRequest.Item("txt_foto3").Item("Value")

foto4 = UploadRequest.Item("txt_foto4").Item("Value")

foto5 = UploadRequest.Item("txt_foto5").Item("Value")

 

 

' pasta onde as imagens serao guardadas

 

pasta = Server.MapPath("Fotos_maquinas_venda/")

nome_foto1 = "/"&nome_foto1

nome_foto2 = "/"&nome_foto2

nome_foto3 = "/"&nome_foto3

nome_foto4 = "/"&nome_foto4

nome_foto5 = "/"&nome_foto5

 

' pasta + nome dos arquivos

cfoto1 = "Fotos_maquinas_venda" + nome_foto1

cfoto2 = "Fotos_maquinas_venda" + nome_foto2

cfoto3 = "Fotos_maquinas_venda" + nome_foto3

cfoto4 = "Fotos_maquinas_venda" + nome_foto4

cfoto5 = "Fotos_maquinas_venda" + nome_foto5

 

' Fazendo o Upload do arquivo selecionado

if cfoto1 <> "" then

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto1)

For i = 1 to LenB(cfoto1)

MyFile.Write chr(AscB(MidB(cfoto1,i,1)))

Next

MyFile.Close

end if

 

if cfoto2 <> "" then

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto2)

For i = 1 to LenB(cfoto2)

MyFile.Write chr(AscB(MidB(cfoto2,i,1)))

Next

MyFile.Close

end if

 

if cfoto3 <> "" then

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto3)

For i = 1 to LenB(cfoto3)

MyFile.Write chr(AscB(MidB(cfoto3,i,1)))

Next

MyFile.Close

end if

 

if cfoto4 <> "" then

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto4)

For i = 1 to LenB(cfoto4)

MyFile.Write chr(AscB(MidB(cfoto4,i,1)))

Next

MyFile.Close

end if

 

if cfoto5 <> "" then

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto5)

For i = 1 to LenB(cfoto5)

MyFile.Write chr(AscB(MidB(foto5,i,1)))

Next

MyFile.Close

end if

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

 

 

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

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

 

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

<!-- #INCLUDE FILE="conexaoDB.inc" -->

 

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

 

strINS = "INSERT INTO TBL_MAQUINAS_VENDA "

strINS = strINS & "( MARCA , MODELO , FORMATO , ANO_FABRICACAO , TIPO , FUNCIONAMENTO , APARENCIA , LOC_CIDADE , LOC_ESTADO , NOME , EMPRESA , DDD , TELEFONE , E_MAIL , preço , PAGAMENTO , OBSERVACOES , FOTO1 , FOTO2 , FOTO3 , FOTO4 , FOTO5 , DATA ) "

strINS = strINS & " VALUES ( " & varMarca & " , "

strINS = strINS &"'"& varModelo &"',"

strINS = strINS &"'"& varFormato &"',"

strINS = strINS &"'"& varAnoFabricacao &"',"

strINS = strINS & "'"& varTipo &"',"

strINS = strINS & "'"& varFuncionamento &"',"

strINS = strINS & "'"& varAparencia &"',"

strINS = strINS & "'"& varCidade &"',"

strINS = strINS & "'"& varEstado &"',"

strINS = strINS & "'"& varNome & "',"

strINS = strINS & "'"& varEmpresa & "',"

strINS = strINS & ""& varDDD & "',"

strINS = strINS & ""& varFone & "',"

strINS = strINS & "'"& varEmail & "',"

strINS = strINS & ""& varPreco & "',"

strINS = strINS & "'"& varPagamento & "',"

strINS = strINS & "'"& varObservacoes & "',"

strINS = strINS & ""& cfoto1 & ","

strINS = strINS & ""& cfoto2 & ","

strINS = strINS & ""& cfoto3 & ","

strINS = strINS & ""& cfoto4 & ","

strINS = strINS & ""& cfoto5 & ","

 

strINS = strINS & "#"& varDataCadastro&"#')"

 

CALL AbreConexao

SET rsSQL = conexaoDB.EXECUTE(strINS)

 

 

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Jow Xavier    0

Jow Xavier
Postado

cara seguinte você está recuperando os campo como se estivesse em um formulário simples ... você tem q recuperar os campo da mesma forma q você recupera o campo do formulário das fotos ...

 

foto1 = UploadRequest.Item("txt_foto1").Item("Value")
foto2 = UploadRequest.Item("txt_foto2").Item("Value")
foto3 = UploadRequest.Item("txt_foto3").Item("Value")
foto4 = UploadRequest.Item("txt_foto4").Item("Value")
foto5 = UploadRequest.Item("txt_foto5").Item("Value")

Todos os campos devem ser recuperados assim:

 

varMarca = UploadRequest.Item("txt_Marca").Item("Value")

Compartilhar este post

Link para o post
Compartilhar em outros sites

Andre Gustavo    0

Andre Gustavo
Postado

cara seguinte você está recuperando os campo como se estivesse em um formulário simples ... você tem q recuperar os campo da mesma forma q você recupera o campo do formulário das fotos ...

 

CODE
foto1 = UploadRequest.Item("txt_foto1").Item("Value")

foto2 = UploadRequest.Item("txt_foto2").Item("Value")

foto3 = UploadRequest.Item("txt_foto3").Item("Value")

foto4 = UploadRequest.Item("txt_foto4").Item("Value")

foto5 = UploadRequest.Item("txt_foto5").Item("Value")[/code]

 

Todos os campos devem ser recuperados assim:

 

varMarca = UploadRequest.Item("txt_Marca").Item("Value")
Ainda continua: Erro de sintaxe na instrução INSERT INTO.

 

salva_maquinavenda.asp

<%@LANGUAGE="VBSCRIPT" %>

 

<!-- #Include File="conexaoDB.inc" -->

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

<!-- #include file = "upload_funcoes.asp" -->

 

<%

 

DIM conexaoDB , rsSalva , rsSQL , strINS , strSQL , varDataCadastro

DIM varId_usuario , varMarca , varModelo , varFormato , varAnoFabricacao , varTipo , varFuncionamento , varAparencia , varCidade , varEstado , varNome , varEmpresa , varDDD , varFone , varEmail , varPreco , varPagamento , varObservacoes , varFoto1 , varFoto2 , varFoto3 , varFoto4 , varFoto5

 

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

 

 

'----------------------------------# - FAZENDO O UPLOAD - #-----------------------------------------------------------------------

' Chamando Funções, que fazem o Upload funcionar

 

byteCount = Request.TotalBytes

RequestBin = Request.BinaryRead(byteCount)

Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest RequestBin

 

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

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

 

varMarca = UploadRequest.Item("txt_Marca").Item("value")

varModelo = UploadRequest.Item("txt_Modelo").Item("value")

varFormato = UploadRequest.Item("txt_Formato").Item("value")

varAnoFabricacao = UploadRequest.Item("txt_AnoFabricacao").Item("value")

varTipo = UploadRequest.Item("txt_Tipo").Item("value")

varFuncionamento = UploadRequest.Item("txt_Funcionamento").Item("value")

varAparencia = UploadRequest.Item("txt_Aparencia").Item("value")

varCidade = UploadRequest.Item("txt_LocCidade").Item("value")

varEstado = UploadRequest.Item("txt_LocEstado").Item("value")

varNome = UploadRequest.Item("txt_NomeContato").Item("value")

varEmpresa = UploadRequest.Item("txt_EmpresaContato").Item("value")

varDDD = UploadRequest.Item("txt_DDD_FoneContato").Item("value")

varFone = UploadRequest.Item("txt_TelefoneContato").Item("value")

varNome = UploadRequest.Item("txt_NomeContato").Item("value")

varEmail = UploadRequest.Item("txt_EmailContato").Item("value")

varPreco = UploadRequest.Item("txt_Preco").Item("value")

varPagamento = UploadRequest.Item("txt_Pagamento").Item("value")

varObservacoes = UploadRequest.Item("txt_InfoComplementar").Item("value")

varDataCadastro = session("data")

varIdusuario = session("id_usuario")

 

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

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

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

 

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

' TRABALHANDO FOTOs

' Tipo de arquivo que esta sendo enviado

 

tipo_foto1 = UploadRequest.Item("txt_foto1").Item("ContentType")

tipo_foto2 = UploadRequest.Item("txt_foto2").Item("ContentType")

tipo_foto3 = UploadRequest.Item("txt_foto3").Item("ContentType")

tipo_foto4 = UploadRequest.Item("txt_foto4").Item("ContentType")

tipo_foto5 = UploadRequest.Item("txt_foto5").Item("ContentType")

 

' Caminho completo dos arquivos enviados

 

caminho_foto1 = UploadRequest.Item("txt_foto1").Item("FileName")

caminho_foto2 = UploadRequest.Item("txt_foto2").Item("FileName")

caminho_foto3 = UploadRequest.Item("txt_foto3").Item("FileName")

caminho_foto4 = UploadRequest.Item("txt_foto4").Item("FileName")

caminho_foto5 = UploadRequest.Item("txt_foto5").Item("FileName")

 

' Nome dos arquivos enviados

 

nome_foto1 = Right(caminho_foto1,Len(caminho_foto1)-InstrRev(caminho_foto1,"\"))

nome_foto2 = Right(caminho_foto2,Len(caminho_foto2)-InstrRev(caminho_foto2,"\"))

nome_foto3 = Right(caminho_foto3,Len(caminho_foto3)-InstrRev(caminho_foto3,"\"))

nome_foto4 = Right(caminho_foto4,Len(caminho_foto4)-InstrRev(caminho_foto4,"\"))

nome_foto5 = Right(caminho_foto5,Len(caminho_foto5)-InstrRev(caminho_foto5,"\"))

 

' Conteudo binario dos arquivos enviados

 

foto1 = UploadRequest.Item("txt_foto1").Item("Value")

foto2 = UploadRequest.Item("txt_foto2").Item("Value")

foto3 = UploadRequest.Item("txt_foto3").Item("Value")

foto4 = UploadRequest.Item("txt_foto4").Item("Value")

foto5 = UploadRequest.Item("txt_foto5").Item("Value")

 

 

' pasta onde as imagens serao guardadas

 

pasta = Server.MapPath("Fotos_maquinas_venda/")

nome_foto1 = "/"&nome_foto1

nome_foto2 = "/"&nome_foto2

nome_foto3 = "/"&nome_foto3

nome_foto4 = "/"&nome_foto4

nome_foto5 = "/"&nome_foto5

 

' pasta + nome dos arquivos

cfoto1 = "Fotos_maquinas_venda" + nome_foto1

cfoto2 = "Fotos_maquinas_venda" + nome_foto2

cfoto3 = "Fotos_maquinas_venda" + nome_foto3

cfoto4 = "Fotos_maquinas_venda" + nome_foto4

cfoto5 = "Fotos_maquinas_venda" + nome_foto5

 

' Fazendo o Upload do arquivo selecionado

if cfoto1 <> "" then

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto1)

For i = 1 to LenB(cfoto1)

MyFile.Write chr(AscB(MidB(cfoto1,i,1)))

Next

MyFile.Close

end if

 

if cfoto2 <> "" then

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto2)

For i = 1 to LenB(cfoto2)

MyFile.Write chr(AscB(MidB(cfoto2,i,1)))

Next

MyFile.Close

end if

 

if cfoto3 <> "" then

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto3)

For i = 1 to LenB(cfoto3)

MyFile.Write chr(AscB(MidB(cfoto3,i,1)))

Next

MyFile.Close

end if

 

if cfoto4 <> "" then

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto4)

For i = 1 to LenB(cfoto4)

MyFile.Write chr(AscB(MidB(cfoto4,i,1)))

Next

MyFile.Close

end if

 

if cfoto5 <> "" then

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto5)

For i = 1 to LenB(cfoto5)

MyFile.Write chr(AscB(MidB(foto5,i,1)))

Next

MyFile.Close

end if

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

 

'-----------------# - 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 , FOTO1 , FOTO2 , FOTO3 , FOTO4 , FOTO5 , DATA ) values ( "& varIdusuario &",'"& varMarca &"', '"& varModelo &"', '"& varFormato &"', "& varAnoFabricacao &", '"& varTipo &"', '"& varFuncionamento &"', '"& varAparencia &"', '"& varCidade &"', '"& varEstado &"', '"& varNome &"', '"& varEmpresa &"', "& varDDD &", "& varFone &", '"& varEmail &"', '"& varPreco &"', '"& varPagamento &"', '"& varObservacoes &"', '"& cfoto1 &"', '"& cfoto2 &"', '"& cfoto3 &"', '"& cfoto4 &"', '"& cfoto5 &"', "& 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">

 

<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 bgcolor="#F4F9FF"> </td>

</tr>

<tr>

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

</tr>

 

<tr>

<td bgcolor="#F4F9FF"><% 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.WRITE "<font face='Verdana' size='1'>Sua máquina já esta cadastrada em nosso site.Obrigado.</font>"

END IF

%>

</td>

</tr>

 

<tr>

<td bgcolor="#F4F9FF"> </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

set rsSalva = Nothing

SET rsSQL = Nothing

 

%>

</body>

</html>

Ainda continua: Erro de sintaxe na instrução INSERT INTO.

Quem quiser dar uma olha no BD segue abaixo o link:

http://users6.nofeehost.com/webtecno/Db_GilMaquinas.rar

Compartilhar este post

Link para o post
Compartilhar em outros sites

Jow Xavier    0

Jow Xavier
Postado

Bom dia

Cara manda imprimir a sua SQL e posta o resultado agora ... pra ver se agora tá pegando os valores ....

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

qual é a linah do erro? nao poste toda a sua pagina pois é inutil e apenas atrapalha

 

Poste apenas o trecho no maximo se bem que so a consulta ja deve mostrar o que ta causando o erro

 

Ponha aqui exatamente qual a linha do erro e caso seja um execute ou open como deve ser ponha INSERT tambem

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito