Problemão

Cidre · Janeiro 10, 2006

É um formulário +/- assim que você quer?

https://www.ahkbrasil.com/fechar_pedido.asp

shumi · Janeiro 10, 2006

É um formulário +/- assim que você quer?https://www.ahkbrasil.com/fechar_pedido.asp

Aqui não aparece o formulario, fala que o carrinho de compras está vazio, mas o formulário que quero seria + ou - igual ao do submarino, ou americanas, com as opções de pagamento, mas só tem uma diferença a do submarino ou americanas envolve cartões de credito e essa aqui não. os cartões que envolve é somente o da loja mesmo.

Cidre · Janeiro 10, 2006

você não pode fazer a validação e o formulário num arquivo só sem por includes?

shumi · Janeiro 10, 2006

você não pode fazer a validação e o formulário num arquivo só sem por includes?

Posso...Mas aqui está o script

<%																		Dim objPagamentos									Set objPagamentos = Banco.Execute("SELECT * FROM Pagamentos WHERE Status = True ORDER BY Forma ASC")																		While not objPagamentos.EOF										Response.Write "<tr><td><input type=radio name=FormaPagamento value="& objPagamentos("Cod") &"></td><td><span class="& Chr(34) &"TextTahoma11Cinza"& Chr(34) &">"& objPagamentos("Forma") &"</td></tr>"									objPagamentos.MoveNext : Wend																		%>

esse script puxa as opções de pagamento que está no banco de dados e coloca na tela, eu inseri as duas novas opções que queria nessa tabela e dá certo, mas precisaria que além dessa parte fosse inserido os campos adicionais que preciso com o numero do cartão por exemplo. e esse script acima lista os valores 1 em baixo do outro e eu precisaria o boleto e o deposito em conta um em baixo do outro e as 2 novas opções que preciso uma do lado da outra....obrigado

Cidre · Janeiro 10, 2006

Fazer até que não é tão complicado, dificil é conseguir explicar, não seria mais facil você montar um formulário com todas as opções de pagamento sem puxar do banco, com os campos adicionais, e fazer uma validação pra vêr se ele escolheu o cartão, se tiver escolhido você insere no banco as informações adicionais.

shumi · Janeiro 10, 2006

Fazer até que não é tão complicado, dificil é conseguir explicar, não seria mais facil você montar um formulário com todas as opções de pagamento sem puxar do banco, com os campos adicionais, e fazer uma validação pra vêr se ele escolheu o cartão, se tiver escolhido você insere no banco as informações adicionais.

Ha beleza vou montar então um arquivo ai você me ensina a validar e fazer esse esqueminha que me falou ok?Já vou montar!

shumi · Janeiro 10, 2006

Cidre,

Fiz o form normal então!!!!

Ficou assim:

<%set Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MaPpath("DataBase\DBLojaVirtual.mdb")Conexcao.open%><html><head><title>teste</title></head><body><link href="Includes/Styles.css" rel="stylesheet" type="text/css"><center><form action="valida.asp" method="post" name="cad">	<table width="95%" border="0">	  <tr> 		<td width="12%"><div align="center"><img src="/Imagens/boleto.gif" width="42" height="26"></div></td>		<td width="11%"><div align="center"><img src="/Imagens/carne.gif" width="42" height="26"></div></td>	  </tr>	  <tr> 		<td><div align="center"> 			<input class="radio" type="radio" name="opcao" value="boleto">		  </div></td>		<td><div align="center"> 			<input class="radio" type="radio" name="opcao" value="deposito">		  </div></td>	  </tr>	  <tr>	  <td><div align="center"></div></td>		<td><div align="center"></div></td>	  </tr>	  	  			<tr> 		<td width="12%"><div align="center"><img src="/Imagens/band_1.gif" width="42" height="26"></div></td>		<td width="11%"><div align="center"><img src="/Imagens/band_2.gif" width="42" height="26"></div></td>	  </tr>	  <tr> 		<td><div align="center"> 			<input class="radio" type="radio" name="opcao" value="cartao_loja">		  </div></td>		<td><div align="center"> 			<input class="radio" type="radio" name="opcao" value="carne">		  </div></td>	  </tr>	  <tr> 		<td><div align="center"></div></td>		<td><div align="center"></div></td>	  </tr>	</table>	<table width="95%" border="0" cellspacing="0" cellpadding="0">			<tr> 			  		<td height="203"> <div align="center">			<table border="0" width="61%">			  <tr> 				<td width="45%" height="187" align="left"> 				  <table cellSpacing="0" cellPadding="0" border="0" width="108%">					<tr> 					  <td width="49%"><b><span class="TextTahoma11Cinza">Número 						do Cartão ou Carne </span></b></td>					  <td width="51%"><b><span class="TextTahoma11Cinza">Código 						do Pag. </span></b></td>					</tr>					<tr> 					  <td width="49%" height="41" class="text"> <input name="nun" id="nun" size="30" maxLength="20"> 					  </td>					  <td width="51%" class="text" id="CVC_TD"><p><span class="TextTahoma11Cinza"> 						   - </span> 						  <input name="cod" type="text" id="cod" size="5" maxlength="4">						</p></td>					</tr>					<tr> 					  <td colspan="2" class="text"> <span class="TextTahoma11Cinza"> 						(Digite apenas os números)</span><br> <input name="nome" id="nome" size="40" maxlength="80"> 						<br> <span class="TextTahoma11Cinza"> </td>					</tr>					<tr> 					  <td height="22" colspan="2" valign="top" class="text"><span class="TextTahoma11Cinza">Nome</span> do cliente </td>					</tr>				  </table>				  <b><br>				  <span class="TextTahoma11Cinza">Data de Validade<br>				  <input name="mes" id="mes" size="3" maxlength="2">				  <span class="TextTahoma11Cinza">/ 20 </span> 				  <input name="ano" id="ano" size="3" maxlength="2">				  <span class="TextTahoma11Cinza">  (Ex. mm / aa) </span> 				  </span></b>			</table>					  </div></table> 	<p>	  <input type="submit" name="Submit" value="Enviar">	</p> 	</form>	</body>	</html>

como valido?

Abraços

Cidre · Janeiro 10, 2006

Tenta esse código, só não esquece de inserir os inserts no lugar que eu comentei:

<%set Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MaPpath("DataBase\DBLojaVirtual.mdb")Conexcao.open%><html><head><title>teste</title></head><body><link href="Includes/Styles.css" rel="stylesheet" type="text/css"><%if request("confirma")="ok" then%><center><form action="valida.asp" method="post" name="cad">	<table width="95%" border="0">	  <tr> 		<td width="12%"><div align="center">		  <input name="confirma" type="hidden" id="confirma" value="ok">		  <img src="/Imagens/boleto.gif" width="42" height="26"></div></td>		<td width="11%"><div align="center"><img src="/Imagens/carne.gif" width="42" height="26"></div></td>	  </tr>	  <tr> 		<td><div align="center"> 			<input class="radio" type="radio" name="opcao" value="boleto">		  </div></td>		<td><div align="center"> 			<input class="radio" type="radio" name="opcao" value="deposito">		  </div></td>	  </tr>	  <tr>	  <td><div align="center"></div></td>		<td><div align="center"></div></td>	  </tr>	  	  			<tr> 		<td width="12%"><div align="center"><img src="/Imagens/band_1.gif" width="42" height="26"></div></td>		<td width="11%"><div align="center"><img src="/Imagens/band_2.gif" width="42" height="26"></div></td>	  </tr>	  <tr> 		<td><div align="center"> 			<input class="radio" type="radio" name="opcao" value="cartao_loja">		  </div></td>		<td><div align="center"> 			<input class="radio" type="radio" name="opcao" value="carne">		  </div></td>	  </tr>	  <tr> 		<td><div align="center"></div></td>		<td><div align="center"></div></td>	  </tr>	</table>	<table width="95%" border="0" cellspacing="0" cellpadding="0">			<tr> 			  		<td height="203"> <div align="center">			<table border="0" width="61%">			  <tr> 				<td width="45%" height="187" align="left"> 				  <table cellSpacing="0" cellPadding="0" border="0" width="108%">					<tr> 					  <td width="49%"><b><span class="TextTahoma11Cinza">Número 						do Cartão ou Carne </span></b></td>					  <td width="51%"><b><span class="TextTahoma11Cinza">Código 						do Pag. </span></b></td>					</tr>					<tr> 					  <td width="49%" height="41" class="text"> <input name="nun" id="nun" size="30" maxLength="20"> 					  </td>					  <td width="51%" class="text" id="CVC_TD"><p><span class="TextTahoma11Cinza"> 						   - </span> 						  <input name="cod" type="text" id="cod" size="5" maxlength="4">						</p></td>					</tr>					<tr> 					  <td colspan="2" class="text"> <span class="TextTahoma11Cinza"> 						(Digite apenas os números)</span><br> <input name="nome" id="nome" size="40" maxlength="80"> 						<br> <span class="TextTahoma11Cinza"> </td>					</tr>					<tr> 					  <td height="22" colspan="2" valign="top" class="text"><span class="TextTahoma11Cinza">Nome</span> do cliente </td>					</tr>				  </table>				  <b><br>				  <span class="TextTahoma11Cinza">Data de Validade<br>				  <input name="mes" id="mes" size="3" maxlength="2">				  <span class="TextTahoma11Cinza">/ 20 </span> 				  <input name="ano" id="ano" size="3" maxlength="2">				  <span class="TextTahoma11Cinza">  (Ex. mm / aa) </span> 				  </span></b>			</table>					  </div></table>	<p>	  <input type="submit" name="Submit" value="Enviar">	</p>	</form>	<%else		if request("opcao")="carne" or request("opcao")="cartao_loja" then			numero=request("num")			codigo=request("cod")			nome=request("nome")			mes=request("mes")			ano=request("ano")						'Aqui você põe o insert na tabela que vai receber as informações adicionais			response.write("Inserido com sucesso!")					else						'Aqui você pões o insert das informações do boleto e depósito									response.write("Inserido com sucesso!")					end if						end if%>	</body>	</html>

shumi · Janeiro 10, 2006

Cidre,

Eu entendi!

Só que olha só tudo que envolve o pagamento:

esse é um arquivo :

<table>									<%																		Dim objPagamentos									Set objPagamentos = Banco.Execute("SELECT * FROM Pagamentos WHERE Status = True ORDER BY Forma ASC")																		While not objPagamentos.EOF										Response.Write "<tr><td><input type=radio name=FormaPagamento value="& objPagamentos("Cod") &"></td><td><span class="& Chr(34) &"TextTahoma11Cinza"& Chr(34) &">"& objPagamentos("Forma") &"</td></tr>"									objPagamentos.MoveNext : Wend																		%>									</table>																																</td></tr>													<%												With Response							.Write LinhaHorizontal														.Write "</table>"						End With						  						  Else						  							  Dim VarNome							  Dim VarEndereco							  Dim VarNumero							  Dim VarComplemento							  Dim VarCep							  Dim VarBairro							  Dim VarCidade							  Dim VarEstado							  Dim AltBd							  Dim VarPagamento																						  VarPagamento = Request.Form("FormaPagamento")							  VarNome = Trim(Replace(Request.Form("Nome"), "'", "''"))							  VarEndereco = Trim(Replace(Request.Form("Endereco"), "'", "''"))							  VarNumero = Trim(Replace(Request.Form("Numero"), "'", "''"))							  VarComplemento = Trim(Replace(Request.Form("Complemento"), "'", "''"))							  VarCep = Trim(Replace(Request.Form("Cep"), "'", ""))							  VarBairro = Trim(Replace(Request.Form("Bairro"), "'", "''"))							  VarCidade = Trim(Replace(Request.Form("Cidade"), "'", "''"))							  VarEstado = Trim(Replace(Request.Form("Estado"), "'", "''"))							  								  If VarComplemento = "" Then								  VarComplemento = ""								  Else								  VarComplemento = VarComplemento&", "								  End If																								  If VarNome = "" Then									  Response.Write "<br><span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">Preencha o campo nome!</span><br /><br />" & Voltar								  ElseIf VarEndereco = "" Then									  Response.Write "<br><span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">Preencha o campo endereço!</span><br /><br />" & Voltar								  ElseIf VarNumero = "" Then									  Response.Write "<br><span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">Preencha o campo numero!</span><br /><br />" & Voltar								  ElseIf VarCep = "" Then									  Response.Write "<br><span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">Preencha o campo CEP!</span><br /><br />" & Voltar								  ElseIf VarBairro = "" Then									  Response.Write "<br><span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">Preencha o campo bairro!</span><br /><br />" & Voltar								  ElseIf VarCidade = "" Then									  Response.Write "<br><span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">Preencha o campo cidade!</span><br /><br />" & Voltar								  ElseIf VarEstado = "" Then									  Response.Write "<br><span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">Selecione o estado!</span><br /><br />" & Voltar								  ElseIf VarPagamento = "" Then									  Response.Write "<br><span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">Selecione a forma de pagamento!</span><br /><br />" & Voltar								  Else																									  Set AltBd = Server.CreateObject("ADODB.Recordset")									  AltBd.CursorLocation = adUseServer									  AltBd.CursorType = adOpenForwardOnly									  AltBd.LockType = adLockOptimistic									  AltBd.Open "SELECT * FROM Pedidos WHERE Secao = '"& VarCliente &"'", Banco, , , adCmdText									  									  Do While Not AltBd.Eof									  										  AltBd("CodCliente") = Session("Cliente")										  AltBd("Entrega") = VarNome &", "& VarEndereco &", "& VarNumero &", "& VarComplemento &" CEP: "& VarCep &", "& VarBairro &", "& VarCidade &", "& VarEstado										  AltBd("Pagamento") = VarPagamento										  AltBd("Finalizado") = True										  									  AltBd.Update									  									  AltBd.Movenext									  									  Loop									  									  AltBd.Close								  Set AltBd = Nothing								  								Response.Redirect "Recibo.asp?Pagamento="& VarPagamento																								End If						  						  End If						  						  %>						  </td>	   				  </tr>					  <%End If%>   			  </table>			  </td>				<td width="148" height="100%" valign="top"></td>			  </tr>   	  </table>	</td>  </tr>  <tr>	<td><!--#include file="Includes/Rodape.asp"--></td>  </tr></table><%Call FechaBanco%>

e esse é o recibo.asp que é onde tem os inserts

<%

VarPagamento = Request("Pagamento")

If VarPagamento = codigo1 OR VarPagamento = codigo2 Then

Response.Redirect("cartoes_valida.asp?Pagamento="& VarPagamento)

End If

Dim Pedidos

Dim Linha

Dim VarCliente

Dim SomaTotal

Dim Frete

Dim Regioes

Dim Regiao

Dim VarAct

Dim VarFrete

Dim VarMethod

Dim Clientes

Dim VarPagamento

Dim objPagamento

Dim objPedidosFinalizados

Dim SomaFrete

Dim VarValorTotalFinalizado

Dim VarValorBase

Dim Corpo

Dim objPedidos

VarAct = Request.QueryString("Act")

VarCliente = Session.SessionID

VarPagamento = Request.QueryString("Pagamento")

VarFrete = 0

Call AbreBanco

Set objPagamento = Banco.Execute("SELECT * FROM Pagamentos WHERE Cod = "& VarPagamento &"")

Set Pedidos = Banco.Execute("SELECT * FROM Pedidos WHERE Secao = '"& VarCliente &"'")

Set Clientes = Banco.Execute("Select * From Clientes Where Cod = "& Pedidos("CodCliente") &"")

Set SomaTotal = Banco.Execute("Select SUM(PrecoTotal) AS SomaTotal FROM Pedidos WHERE Secao = '"& VarCliente &"'")

Set SomaFrete = Banco.Execute("Select SUM(Frete) AS SomaFrete FROM Pedidos WHERE Secao = '"& VarCliente &"'")

VarValorBase = Pedidos("ValorBase")

VarValorTotalFinalizado = Replace(Replace(SomaTotal("SomaTotal") + SomaFrete("SomaFrete") + VarValorBase,".",""),",",".")

Set objPedidosFinalizados = Banco.Execute("INSERT INTO PedidosFinalizados (Valor, CodCliente, FormaPagamento, CodSecao) VALUES ('"& VarValorTotalFinalizado &"', "& Clientes("Cod") &", "& VarPagamento &", "& VarCliente &")")

Set objPedidos = Banco.Execute("SELECT * FROM PedidosFinalizados WHERE CodSecao = '"& VarCliente &"'")

Set AltPedidos = Banco.Execute("UPDATE Pedidos SET CodFinalizado = "& objPedidos("Cod") &" WHERE Secao = '"& VarCliente &"'")

Corpo = "<link href="& Chr(34) & Local & "Includes/Styles.css"& Chr(34) &" rel="& Chr(34) &"stylesheet"& Chr(34) &" type="& Chr(34) &"text/css"& Chr(34) &">"

Corpo = Corpo & "<br><span class="& Chr(34) &"TextTahoma11Cinza"& Chr(34) &"> Pedido feito no dia: </span><span class="& Chr(34) &"TextTahoma11CinzaBold"& Chr(34) &">"& Date() &" </span><span class="& Chr(34) &"TextTahoma11Cinza"& Chr(34) &">/ Nº do Pedido: </span><span class="& Chr(34) &"TextTahoma11CinzaBold"& Chr(34) &"> "& objPedidos("Cod") &"</span><br><br>"

Corpo = Corpo & "<span class="& Chr(34) &"TextTahoma11CinzaBold"& Chr(34) &"> Dados do Cliente</span><br>"

Corpo = Corpo & "<span class="& Chr(34) &"TextTahoma11Cinza"& Chr(34) &"> Nome do Cliente: </span><span class="& Chr(34) &"TextTahoma11CinzaBold"& Chr(34) &"> "& Clientes("Nome") &"<br></span>"

Corpo = Corpo & "<span class="& Chr(34) &"TextTahoma11Cinza"& Chr(34) &"> E-mail do Cliente: </span><span class="& Chr(34) &"TextTahoma11CinzaBold"& Chr(34) &"> "& Clientes("Email") &"<br></span>"

Corpo = Corpo & "<span class="& Chr(34) &"TextTahoma11Cinza"& Chr(34) &"> Telefone do Cliente: </span><span class="& Chr(34) &"TextTahoma11CinzaBold"& Chr(34) &"> ("& Clientes("DDDTelefone") &") "& Clientes("Telefone") &" / ("& Clientes("DDDCelular") &") "& Clientes("Celular") &"</span>"

If ComponenteEmail = 1 Then

Dim Contato

Set Contato = Server.CreateObject("CDONTS.NewMail")

Contato.From = Clientes("Nome") & "<"& Clientes("Email") &">"

Contato.To = EmailContato

Contato.Subject = "Um novo pedido foi feito na - " & NomedaLoja

Contato.BodyFormat = 0

Contato.MailFormat = 0

Contato.Body = Corpo

Contato.Send

Set Contato = Nothing

Else

Dim Mailer

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

Mailer.RemoteHost = ServerAddress

Mailer.FromName = Clientes("Nome")

Mailer.FromAddress = Clientes("Email")

Mailer.AddRecipient EmailContato, NomedaLoja

Mailer.Subject = "Um novo pedido foi feito na - " & NomedaLoja

Mailer.BodyText = Corpo

Mailer.SendMail

Set Mailer = Nothing

End If

%>

<tr>

</tr>

<tr>

<td>

<tr>

<tr>

</tr>

<%If VarAct = "" Then%>

<tr>

<td height="20" align="center" bgcolor="<%=FundoTitulo%>"><div align="left"> <span class="TextTahoma11AzulBold">Recibo do Pedido</span></div></td>

</tr>

<tr>

</tr>

<tr>

<tr>

<td width="100%" class="TextTahoma11AzulBold"><div align="center">Local da entrega </div></td>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

</table></td>

</tr>

<tr>

</tr>

<tr>

<%

If Pedidos.EOF Then

Response.Write "<center><span class="& Chr(34) &"TextTahoma11CinzaBold"& Chr(34) &"><br>Seu carrinho de compras está vazio.</span></center><br><br>" & Voltar

Else

%>

<td width="15%" height="20"><div align="center"><span class="TextTahoma11CinzaBold">Valor unit.</span></div></td>

<td width="16%" height="20" align="center"><div align="center"><span class="TextTahoma11CinzaBold">Sub-Total</span></div></td>

</tr>

<%

Dim VarSubTotal

WHILE NOT Pedidos.EOF

VarSubTotal = Pedidos("Preco") * Pedidos("Quantidade")

Dim Produtos

Set Produtos = Banco.Execute("Select * From Produtos Where Cod="& Pedidos("CodProduto"))

Banco.Execute("Update Produtos Set Estoque='"& Produtos("Estoque") - Pedidos("Quantidade") &"' Where Cod="& Produtos("Cod"))

If Linha Then

%>

<%

End If : Linha = not Linha

%>

<td height="20" align="center" class="TextTahoma11Cinza"><a href="MaisProduto.asp?Produto=<%=Pedidos("CodProduto")%>" class="LinkTahoma11Cinza"><%=Pedidos("Quantidade")%></a></td>

<td height="20"><span class="TextTahoma11Cinza"> </span><a href="MaisProduto.asp?Produto=<%=Pedidos("CodProduto")%>" class="LinkTahoma11Cinza"><%=Pedidos("Produto")%></a></td>

</tr>

<%

Pedidos.MOVENEXT : WEND

%>

</tr>

</tr>

</tr>

<td height="20" colspan="2" class="TextTahoma11Cinza"><div align="right">Valor do frete: <span class="TextTahoma11CinzaBold"></span></div></td>

</tr>

<div align="right"><span class="TextTahoma11CinzaBold">Valor total</span></div></td>

</tr>

<td height="20" colspan="2"><div align="right" class="TextTahoma11Cinza">Forma de Pagamento:

</div></td>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

</table>

<%

End If

%></td>

</tr>

<tr>

<td height="0" align="center" valign="middle

Cidre · Janeiro 10, 2006

No primeiro arquivo ele está verificando se os campos estão preenchidos, se estiverem ele atualiza o banco, e no segundo ele configura um e-mail de pedido finalizado

shumi · Janeiro 10, 2006

Cidre,

Deu o erro:

Erro de compilação do Microsoft VBScript erro '800a0401'

Fim da instrução esperado

/teste/55555.asp, line 146

Set objPedidosFinalizados = Banco.Execute("INSERT INTO PedidosFinalizados (Valor, CodCliente, FormaPagamento, CodSecao) VALUES ('"& VarValorTotalFinalizado &"', "& Clientes("Cod") &", "& VarPagamento &", "& VarCliente &")") response.write("Inserido com sucesso!")

eu coloquei assim:

<%set Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MaPpath("DataBase\DBLojaVirtual.mdb")Conexcao.open%><html><head><title>teste</title></head><body><link href="Includes/Styles.css" rel="stylesheet" type="text/css"><%if request("confirma")="ok" then%><center><form action="valida.asp" method="post" name="cad">	<table width="95%" border="0">	  <tr> 		<td width="12%"><div align="center">		  <input name="confirma" type="hidden" id="confirma" value="ok">		  <img src="/Imagens/boleto.gif" width="42" height="26"></div></td>		<td width="11%"><div align="center"><img src="/Imagens/carne.gif" width="42" height="26"></div></td>	  </tr>	  <tr> 		<td><div align="center"> 			<input class="radio" type="radio" name="opcao" value="boleto">		  </div></td>		<td><div align="center"> 			<input class="radio" type="radio" name="opcao" value="deposito">		  </div></td>	  </tr>	  <tr>	  <td><div align="center"></div></td>		<td><div align="center"></div></td>	  </tr>	  	  			<tr> 		<td width="12%"><div align="center"><img src="/Imagens/band_1.gif" width="42" height="26"></div></td>		<td width="11%"><div align="center"><img src="/Imagens/band_2.gif" width="42" height="26"></div></td>	  </tr>	  <tr> 		<td><div align="center"> 			<input class="radio" type="radio" name="opcao" value="cartao_loja">		  </div></td>		<td><div align="center"> 			<input class="radio" type="radio" name="opcao" value="carne">		  </div></td>	  </tr>	  <tr> 		<td><div align="center"></div></td>		<td><div align="center"></div></td>	  </tr>	</table>	<table width="95%" border="0" cellspacing="0" cellpadding="0">			<tr> 			  		<td height="203"> <div align="center">			<table border="0" width="61%">			  <tr> 				<td width="45%" height="187" align="left"> 				  <table cellSpacing="0" cellPadding="0" border="0" width="108%">					<tr> 					  <td width="49%"><b><span class="TextTahoma11Cinza">Número 						do Cartão ou Carne </span></b></td>					  <td width="51%"><b><span class="TextTahoma11Cinza">Código 						do Pag. </span></b></td>					</tr>					<tr> 					  <td width="49%" height="41" class="text"> <input name="nun" id="nun" size="30" maxLength="20"> 					  </td>					  <td width="51%" class="text" id="CVC_TD"><p><span class="TextTahoma11Cinza"> 						   - </span> 						  <input name="cod" type="text" id="cod" size="5" maxlength="4">						</p></td>					</tr>					<tr> 					  <td colspan="2" class="text"> <span class="TextTahoma11Cinza"> 						(Digite apenas os números)</span><br> <input name="nome" id="nome" size="40" maxlength="80"> 						<br> <span class="TextTahoma11Cinza"> </td>					</tr>					<tr> 					  <td height="22" colspan="2" valign="top" class="text"><span class="TextTahoma11Cinza">Nome</span> do cliente </td>					</tr>				  </table>				  <b><br>				  <span class="TextTahoma11Cinza">Data de Validade<br>				  <input name="mes" id="mes" size="3" maxlength="2">				  <span class="TextTahoma11Cinza">/ 20 </span> 				  <input name="ano" id="ano" size="3" maxlength="2">				  <span class="TextTahoma11Cinza">  (Ex. mm / aa) </span> 				  </span></b>			</table>					  </div></table>	<p>	  <input type="submit" name="Submit" value="Enviar">	</p>	</form>	<%else		if request("opcao")="carne" or request("opcao")="cartao_loja" then			numero=request("num")			codigo=request("cod")			nome=request("nome")			mes=request("mes")			ano=request("ano")						sSQL = "INSERT INTO pag_cartao(cartao,nun_cartao,cod_seguranca,nome_cartao,mes_validade,ano_validade) VALUES ('"& cartao &"','"& nun_cartao &"','"& cod_seguranca &"','"& nome_cartao &"','"& mes_validade &"','"& ano_validade &"')"			Conexcao.Execute sSQL,intRetorno			response.write("Inserido com sucesso!")					else						Set objPedidosFinalizados = Banco.Execute("INSERT INTO PedidosFinalizados (Valor, CodCliente, FormaPagamento, CodSecao) VALUES ('"& VarValorTotalFinalizado &"', "& Clientes("Cod") &", "& VarPagamento &", "& VarCliente &")")	 response.write("Inserido com sucesso!")			  											end if						end if%>	</body>	</html>

mas deixa eu te perguntar um negocio...

fazendo assim como o sistema vai entender o valor da compra e os dados do cliente????

abraços

Cidre · Janeiro 10, 2006

Esse arquivo que eu te passei e você montou é só pra parte de escolha de pagamento, o resto do valor da compra, e dados do cliente tem que continuar como você tinha feito

shumi · Janeiro 10, 2006

Não coube tudo o que queria te escrever aqui...

da uma olhada no

http://www.newstyle1.com/cidre.txt

Obrigado!

Cidre · Janeiro 11, 2006

Esse erro pode ter dado pq você tá declarando duas vezes a mesma variável no mesmo arquivo, se você for vêr mais em cima no arquivo tem outro "Dim Pedidos"

shumi · Janeiro 11, 2006

Cidre,

Agora eu fiz assim e inseri na loja pra testar certinho já

<!--#include file="Includes/Config.asp"--><!--#include file="Includes/ADOVBS.inc" --><link href="Includes/Styles.css" rel="stylesheet" type="text/css"><%Session("Finaliza") = "Sim"%><!--#include file="Includes/Travar3.asp" --><%Dim VarClienteDim VarActDim EstadoDim ClientesVarAct = Request.QueryString("Act")VarCliente = Session.SessionIDSession("Endereco") = Request.ServerVariables("SCRIPT_NAME") &"?"& Request.ServerVariables("QUERY_STRING")If Session("Regiao") = "" Then	Response.Redirect "Cesta.asp?Mensagem=Erro"End IfCall AbreBancoDim VarRegiaoSet Clientes = Banco.Execute("Select * From Clientes Where Cod="& Session("Cliente"))Nome = Clientes("Nome")Endereco = Clientes("Endereco")Numero = Clientes("Numero")Complemento = Clientes("Complemento")Cep = Clientes("Cep")Bairro = Clientes("Bairro")Cidade = Clientes("Cidade")Estado = Clientes("Estado")Dim PedidosSet Pedidos = Banco.Execute("Select * From Pedidos Where Secao = '"& VarCliente &"'")Dim SomaTotalSet SomaTotal = Banco.Execute("Select SUM(PrecoTotal) AS SomaTotal FROM Pedidos WHERE Secao = '"& VarCliente &"'")%><!--#include file="Includes/Form.asp"--><table width="100%" border="0" cellspacing="0" cellpadding="0">  <tr>	<td><!--#include file="Includes/BarraCima.asp"--></td>  </tr>  <tr>	<td>		<table width="100%"  border="0" cellspacing="0" cellpadding="0">			  <tr>				<td width="176" height="100%" valign="top"><!--#include file="Includes/BarraEsq.asp"--></td>				<td width="0" valign="top" bgcolor="#FFFFFF">					<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">						  <tr>							<td height="9%" align="center"><img src="Imagens/SpacerCima.gif" width="1" height="9"></td>						</tr>		 				<tr>		 				  <td height="20" align="center" bgcolor="<%=FundoTitulo%>"><div align="left">  <span class="TextTahoma11AzulBold">Finalizar compras </span></div></td>	   				  </tr>		 				<tr>							<td height="9%" align="center"> </td>						  </tr>						<%If SomaTotal("SomaTotal") < Minimo Then%>		 				<tr>		 				  <td height="5%" align="center" class="TextTahoma11AzulBold">Você deve comprar no mínimo R$ <%=Minimo%><br>	   					  <br>	   					  <br></td>	   				  </tr>		 				<tr>		 				  <td height="5%" align="center" class="TextTahoma11AzulBold"><%=Voltar%></td>	   				  </tr>					  <%Else%>		 				<tr>		 				  <td height="10%" align="center" class="TextTahoma11AzulBold">Informe o local de entrega do produto</td>	   				  </tr>						  <tr>							<td align="center" valign="middle">						  <%						  						  If VarAct = "" Then						  						  With Response						  							.Write "<br><table>"							.Write "<form action="& Chr(34) &"Finaliza.asp?Act=Cadastrar"& Chr(34) &" method="& Chr(34) &"post"& Chr(34) &" name="& Chr(34) &"Cadastro"& Chr(34) &">"							.Write LinhaHorizontal							.Write FCampos(1)							.Write LinhaHorizontal							.Write FCampos(4)							.Write LinhaHorizontal							.Write FCampos(5)							.Write LinhaHorizontal							.Write FCampos(16)							.Write LinhaHorizontal							.Write FCampos(9)							.Write LinhaHorizontal							.Write FCampos(6)							.Write LinhaHorizontal							.Write FCampos(7)							.Write LinhaHorizontal							.Write "<tr><td><span class="& Chr(34) &"TextTahoma11CinzaBold"& Chr(34) &">Estado:* </span></td><td><select name=Estado class="& Chr(34) &"FormEstado"& Chr(34) &"><option value="& Estado &">"& Estado &"</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=MS>MS</option><option value=MT>MT</option><option value=MG>MG</option><option value=PA>PA</option><option value=PB>PB</option><option value=PE>PE</option><option value=PI>PI</option><option value=PR>PR</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=SE>SE</option><option value=SP>SP</option><option value=TO>TO</option></select> <span class="& Chr(34) &"TextTahoma11CinzaClaro"& Chr(34) &"> Ex: SP)</span></td></tr>"							.Write LinhaHorizontal						End With												%>														<tr><td></table>								<table>									<%if request("confirma")="ok" then%><center><form action="valida.asp" method="post" name="cad"><input name="confirma" type="hidden" id="confirma" value="ok">	<table width="95%" border="0">	  <tr> 		<td width="12%"><div align="center"><img src="/Imagens/boleto.gif" width="42" height="26"></div></td>		<td width="11%"><div align="center"><img src="/Imagens/carne.gif" width="42" height="26"></div></td>	  </tr>	  <tr> 		<td><div align="center"> 			<input class="radio" type="radio" name="opcao" value="boleto">		  </div></td>		<td><div align="center"> 			<input class="radio" type="radio" name="opcao" value="deposito">		  </div></td>	  </tr>	  <tr>	  <td><div align="center"></div></td>		<td><div align="center"></div></td>	  </tr>	  	  			<tr> 		<td width="12%"><div align="center"><img src="/Imagens/band_1.gif" width="42" height="26"></div></td>		<td width="11%"><div align="center"><img src="/Imagens/band_2.gif" width="42" height="26"></div></td>	  </tr>	  <tr> 		<td><div align="center"> 			<input class="radio" type="radio" name="opcao" value="cartao_loja">		  </div></td>		<td><div align="center"> 			<input class="radio" type="radio" name="opcao" value="carne">		  </div></td>	  </tr>	  <tr> 		<td><div align="center"></div></td>		<td><div align="center"></div></td>	  </tr>	</table>	<table width="95%" border="0" cellspacing="0" cellpadding="0">			<tr> 			  		<td height="203"> <div align="center">			<table border="0" width="61%">			  <tr> 				<td width="45%" height="187" align="left"> 				  <table cellSpacing="0" cellPadding="0" border="0" width="108%">					<tr> 					  <td width="49%"><b><span class="TextTahoma11Cinza">Número 						do Cartão ou Carne </span></b></td>					  <td width="51%"><b><span class="TextTahoma11Cinza">Código 						do Pag. </span></b></td>					</tr>					<tr> 					  <td width="49%" height="41" class="text"> <input name="nun" id="nun" size="30" maxLength="20"> 					  </td>					  <td width="51%" class="text" id="CVC_TD"><p><span class="TextTahoma11Cinza"> 						   - </span> 						  <input name="cod" type="text" id="cod" size="5" maxlength="4">						</p></td>					</tr>					<tr> 					  <td colspan="2" class="text"> <span class="TextTahoma11Cinza"> 						(Digite apenas os números)</span><br> <input name="nome" id="nome" size="40" maxlength="80"> 						<br> <span class="TextTahoma11Cinza"> </td>					</tr>					<tr> 					  <td height="22" colspan="2" valign="top" class="text"><span class="TextTahoma11Cinza">Nome</span> do cliente </td>					</tr>				  </table>				  <b><br>				  <span class="TextTahoma11Cinza">Data de Validade<br>				  <input name="mes" id="mes" size="3" maxlength="2">				  <span class="TextTahoma11Cinza">/ 20 </span> 				  <input name="ano" id="ano" size="3" maxlength="2">				  <span class="TextTahoma11Cinza">  (Ex. mm / aa) </span> 				  </span></b>			</table>					  </div></table> 	<p>	  <input type="submit" name="Submit" value="Enviar">	</p> 	</form>	<%else		if request("opcao")="carne" or request("opcao")="cartao_loja" then			numero=request("num")			codigo=request("cod")			nome=request("nome")			mes=request("mes")			ano=request("ano")						sSQL = "INSERT INTO pag_cartao(cartao,nun_cartao,cod_seguranca,nome_cartao,mes_validade,ano_validade) VALUES ('"& cartao &"','"& nun_cartao &"','"& cod_seguranca &"','"& nome_cartao &"','"& mes_validade &"','"& ano_validade &"')"			Conexcao.Execute sSQL,intRetorno			response.write("Inserido com sucesso!")					else			Set objPedidosFinalizados = Banco.Execute("INSERT INTO PedidosFinalizados (Valor, CodCliente, FormaPagamento, CodSecao) VALUES ('"& VarValorTotalFinalizado &"', "& Clientes("Cod") &", "& VarPagamento &", "& VarCliente &")") response.write("Inserido com sucesso!")					end if		%>									</table>									<table><tr><td><!--#include file="car.asp" --></td></tr></table>																								</td></tr>													<%												With Response							.Write LinhaHorizontal														.Write "</table>"						End With						  						  Else						  							  Dim VarNome							  Dim VarEndereco							  Dim VarNumero							  Dim VarComplemento							  Dim VarCep							  Dim VarBairro							  Dim VarCidade							  Dim VarEstado							  Dim AltBd							  Dim VarPagamento																						  VarPagamento = Request.Form("FormaPagamento")							  VarNome = Trim(Replace(Request.Form("Nome"), "'", "''"))							  VarEndereco = Trim(Replace(Request.Form("Endereco"), "'", "''"))							  VarNumero = Trim(Replace(Request.Form("Numero"), "'", "''"))							  VarComplemento = Trim(Replace(Request.Form("Complemento"), "'", "''"))							  VarCep = Trim(Replace(Request.Form("Cep"), "'", ""))							  VarBairro = Trim(Replace(Request.Form("Bairro"), "'", "''"))							  VarCidade = Trim(Replace(Request.Form("Cidade"), "'", "''"))							  VarEstado = Trim(Replace(Request.Form("Estado"), "'", "''"))							  								  If VarComplemento = "" Then								  VarComplemento = ""								  Else								  VarComplemento = VarComplemento&", "								  End If																								  If VarNome = "" Then									  Response.Write "<br><span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">Preencha o campo nome!</span><br /><br />" & Voltar								  ElseIf VarEndereco = "" Then									  Response.Write "<br><span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">Preencha o campo endereço!</span><br /><br />" & Voltar								  ElseIf VarNumero = "" Then									  Response.Write "<br><span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">Preencha o campo numero!</span><br /><br />" & Voltar								  ElseIf VarCep = "" Then									  Response.Write "<br><span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">Preencha o campo CEP!</span><br /><br />" & Voltar								  ElseIf VarBairro = "" Then									  Response.Write "<br><span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">Preencha o campo bairro!</span><br /><br />" & Voltar								  ElseIf VarCidade = "" Then									  Response.Write "<br><span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">Preencha o campo cidade!</span><br /><br />" & Voltar								  ElseIf VarEstado = "" Then									  Response.Write "<br><span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">Selecione o estado!</span><br /><br />" & Voltar								  ElseIf VarPagamento = "" Then									  Response.Write "<br><span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">Selecione a forma de pagamento!</span><br /><br />" & Voltar								  Else																									  Set AltBd = Server.CreateObject("ADODB.Recordset")									  AltBd.CursorLocation = adUseServer									  AltBd.CursorType = adOpenForwardOnly									  AltBd.LockType = adLockOptimistic									  AltBd.Open "SELECT * FROM Pedidos WHERE Secao = '"& VarCliente &"'", Banco, , , adCmdText									  									  Do While Not AltBd.Eof									  										  AltBd("CodCliente") = Session("Cliente")										  AltBd("Entrega") = VarNome &", "& VarEndereco &", "& VarNumero &", "& VarComplemento &" CEP: "& VarCep &", "& VarBairro &", "& VarCidade &", "& VarEstado										  AltBd("Pagamento") = VarPagamento										  AltBd("Finalizado") = True										  									  AltBd.Update									  									  AltBd.Movenext									  									  Loop									  									  AltBd.Close								  Set AltBd = Nothing								  								Response.Redirect "Recibo.asp?Pagamento="& VarPagamento																								End If						  						  End If						  						  %>						  </td>	   				  </tr>					  <%End If%>   			  </table>			  </td>				<td width="148" height="100%" valign="top"></td>			  </tr>   	  </table>	</td>  </tr>  <tr>	<td><!--#include file="Includes/Rodape.asp"--></td>  </tr></table><%Call FechaBanco%>

Ai deu a erro:

Erro de compilação do Microsoft VBScript erro '800a0401'

Fim da instrução esperado

/teste/Finaliza.asp, line 243

Set objPedidosFinalizados = Banco.Execute("INSERT INTO PedidosFinalizados (Valor, CodCliente, FormaPagamento, CodSecao) VALUES ('"& VarValorTotalFinalizado &"', "& Clientes("Cod") &", "& VarPagamento &", "& VarCliente &")") response.write("Inserido com sucesso!")

acho que ele da erro pq ele puxa de algum lugar sei la.... to ficando loko com isso aki!!!!

Pior que to fazendo isso e outra parte tb, mas a outra parte to indo bem!!!! soh isso que não consigo sair do lugar!!!!!

Valeu

Mário Monteiro · Janeiro 11, 2006

primeiramente

para inserir voce não precisa de Recordset

Set objPedidosFinalizados =

tente apenas

Banco.Execute("INSERT INTO PedidosFinalizados (Valor, CodCliente, FormaPagamento, CodSecao) VALUES ('"& VarValorTotalFinalizado &"', "& Clientes("Cod") &", "& VarPagamento &", "& VarCliente &")")

tem mais ai em cima parece que o response.write ta na mesma linha mude para a linha de baixo se for isso

response.write("Inserido com sucesso!")

shumi · Janeiro 11, 2006

Mario,Eu e você usamos o Dreamweaver...e ele para cada parte do script usa uma cor diferente...Esse script todinho está de cor diferente do normal!Será que é muitos erros???Abraços e valeu pela ajuda!!!!!

Mário Monteiro · Janeiro 11, 2006

como assim todo diferente???está dentro das tags asp???

shumi · Janeiro 11, 2006

Não sei se tem algo a ver, mas acho que sim...

<%Dim VarClienteDim VarActDim EstadoDim ClientesVarAct = Request.QueryString("Act")VarCliente = Session.SessionIDSession("Endereco") = Request.ServerVariables("SCRIPT_NAME") &"?"& Request.ServerVariables("QUERY_STRING")If Session("Regiao") = "" Then	Response.Redirect "Cesta.asp?Mensagem=Erro"End IfCall AbreBancoDim VarRegiaoSet Clientes = Banco.Execute("Select * From Clientes Where Cod="& Session("Cliente"))Nome = Clientes("Nome")Endereco = Clientes("Endereco")Numero = Clientes("Numero")Complemento = Clientes("Complemento")Cep = Clientes("Cep")Bairro = Clientes("Bairro")Cidade = Clientes("Cidade")Estado = Clientes("Estado")Dim PedidosSet Pedidos = Banco.Execute("Select * From Pedidos Where Secao = '"& VarCliente &"'")Dim SomaTotalSet SomaTotal = Banco.Execute("Select SUM(PrecoTotal) AS SomaTotal FROM Pedidos WHERE Secao = '"& VarCliente &"'")%>

Essa parte por exemplo onde está o dim, if, then, end if, call, execute e set deveriam estar em azul e nesse arquivo não está... ele estão em preto fora o end if que esta o end em rosa e o if em preto....

Tem algo a ver??? o codigo todo ta de cores diferentes do que o normal!!!!!

abraços

shumi · Janeiro 11, 2006

Mario,Fiz como você me falou e deu erro em outro arquivo, mas esse arquivo q deu erro está funcionando perfeitamente!!! ele estava rodando, acredito que o erro seja no arquivo que estou mexendo agora!Erro de compilação do Microsoft VBScript erro '800a0411' Redefinição do nome /teste/Includes/Config.asp, line 9 Dim Bancovocê tem ideia o q seja???ObrigadO!!!

Arquivado

Problemão

Recommended Posts

Cidre 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Cidre 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Cidre 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Cidre 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Cidre 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Cidre 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Cidre 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0