Problemão

[shumi 0]

Galera,

 

Estou com um problemão pra resolver e ele é muito díficil de resolver ao meu ver!

 

É assim... tem uma loja virtual aqui para inserir a opção de pagamento CARNE DA LOJA e CRÉDITO DA LOJA o carne é estilo aquele das "Casas Bahias" e o Crédito da Loja é um serviço que eles têm aqui como se fosse o cartão de compras do Carrefour cada cliente tem uma quantia que pode parcelar e tals...

 

e não fui eu que fiz o codigo quem fez foi um ex-funcionario da loja já faz + ou - 1 semana que estou vendo todo o codigo e estudando para fazer as modificações algumas eu já até fiz pois é fácil outras são layouts, mas essa seria a + urgente e a + DIFICIL!!!

 

o cod de pagamento atual esta assim :

 

<!--#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>									<%																		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>									<table><tr><td><!--#include file="carne.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%>

como vcs podem ver existem muitas partes do codigo que levam para outros arquivos e tals...

Onde ACHO que devo resolver o problema é:

 

<%																		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>									<table><tr><td><!--#include file="carne.asp" -->

onde Tem esse INCLUDE foi eu que coloquei que isso seria as opções que preciso inserir, não sei se fiz o certo, mas tb abri uma nova tabela no banco de dados onde iriam essas novas informações.

 

 

Gostaria que vcs me desse uma grande LUZ!!!

 

Obrigado

[shumi 0]

Nesse include do carne está um arquivo certinho e separadamente ele funciona ele só não funciona quando insiro ele ai nesse arquivo.

 

o que precisaria era ligar um no outro!

 

Assim ele não da erro nenhum apenas quando escolho uma das opções que eu inseri ele não cadastra na tabela que inseri tb.

 

gostaria muito de um help!!!!

 

 

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

[shumi 0]

Galera me guie ai por favor! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

por onde começo?

fiz certo até agora?

 

obrigado!

[Salgado 4]

Olhando por alto, no BD está cadastrada as possíveis formas de pagamento, esse que você está adicionando já está cadastrado nele? O arquivo que recebe esse form é que deve tratar e apontar para as suas novas formas de pagamento.

[shumi 0]

Olhando por alto, no BD está cadastrada as possíveis formas de pagamento, esse que você está adicionando já está cadastrado nele?

hummmmm entendi!!! no BD não estavam as novas formas de pagamento apenas tinha uma tabela que criei que é uma tabela simples como se fosse para receber um cadastro mesmo. agora além de eu fazer o q você me falou eu mantive essa tabela!!! ta certo?

O arquivo que recebe esse form é que deve tratar e apontar para as suas novas formas de pagamento.

O arquivo que recebe esse form não é esse mesmo tb??? eu acho o o cara que fez, juntou os 2 arq em 1... sei la não consigui entender nada!!! já fiz o design completo que ele me pediu, barrei os campos do cadastro que teriam que ser obrigatório, jah fiz várias coisas, mas esta parte da programação tá embaçado!!!!!!Obrigado!

[Salgado 4]

Analizando melhor o script pude notar que é ele mesmo que recebe o FORM, grava numa tabela (pedidos) os dados e a forma de pagamento e REDIRECIONA para o arquivo RECIBO.ASP passando um parâmetro Pagamento que é o código do tipo escolhido. Verifique o arquivo recibo.asp, salvo engano, é nele que devem estar os tratamentos relativos às formas de pagamento.

[shumi 0]

Analizando melhor o script pude notar que é ele mesmo que recebe o FORM, grava numa tabela (pedidos) os dados e a forma de pagamento e REDIRECIONA para o arquivo RECIBO.ASP passando um parâmetro Pagamento que é o código do tipo escolhido. Verifique o arquivo recibo.asp, salvo engano, é nele que devem estar os tratamentos relativos às formas de pagamento.

Então Salgado esse aqui é o arquivo pagamento...

 

<!--#include file="Includes/Config.asp"--><link href="Includes/Styles.css" rel="stylesheet" type="text/css"><%Dim PedidosDim LinhaDim VarClienteDim SomaTotalDim FreteDim RegioesDim RegiaoDim VarActDim VarFreteDim VarMethodDim ClientesDim VarPagamentoDim objPagamentoDim objPedidosFinalizadosDim SomaFreteDim VarValorTotalFinalizadoDim VarValorBaseDim CorpoDim objPedidosVarAct = Request.QueryString("Act")VarCliente = Session.SessionIDVarPagamento = Request.QueryString("Pagamento")VarFrete = 0Call AbreBancoSet 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							%><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">  <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="597" valign="top">					<table width="99%" 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>						<%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>							<td height="9%" align="center"> </td>						  </tr>		 				<tr>		 				  <td height="10%" align="center"><table width="64%"  border="0" align="center" cellpadding="1" cellspacing="2">							<tr>							  <td width="100%" class="TextTahoma11AzulBold"><div align="center">Local da entrega </div></td>							</tr>							<tr>							  <td class="TextTahoma11Cinza"><div align="center" class="TextTahoma11Cinza"><%=Pedidos("Entrega")%></div></td>							</tr>							<tr>							  <td height="6" class="TextTahoma11Cinza"></td>							</tr>							<tr>							  <td height="1" bgcolor="e5e5e5" class="TextTahoma11Cinza"></td>							</tr>						  </table></td>	   				  </tr>		 				<tr>		 				  <td height="19%" align="center"> </td>	   				  </tr>						  <tr>							<td height="0" align="center" valign="middle">						<%												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						  						%>						  <table  border="0" bgcolor="#FFFFFF">							<tr bgcolor="<%=TabelaBarraEsq%>">							  <td width="7%" height="20" align="center"><span class="TextTahoma11CinzaBold">Qtd</span></td>							  <td height="20"><div align="center"><span class="TextTahoma11CinzaBold">Nome</span></div></td>							  <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														%>								<tr bgcolor="<%=FundoCelula1%>">							  <%														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>							  <td height="20"><div align="center"><span class="TextTahoma11Cinza"><%=FormatCurrency(Pedidos("Preco"))%></span></div></td>							  <td height="20" align="center"><div align="right"><span class="TextTahoma11Cinza"><%=FormatCurrency(VarSubTotal)%> </span></div></td>							</tr>							<%														Pedidos.MOVENEXT : WEND														%>							<tr bgcolor="#FFFFFF">							  <td height="6" colspan="4" class="TextTahoma11Cinza"></td>							</tr>							<tr bgcolor="#FFFFFF">							  <td height="1" colspan="4" bgcolor="e5e5e5" class="TextTahoma11Cinza"></td>							</tr>							<tr bgcolor="#FFFFFF">							  <td height="6" colspan="4" class="TextTahoma11Cinza"></td>							</tr>							<tr bgcolor="#FFFFFF">							  <td height="20" colspan="2" class="TextTahoma11Cinza"><div align="right">Valor do frete: <span class="TextTahoma11CinzaBold"></span></div></td>							  <td height="20" colspan="2"><div align="right"><span class="TextTahoma11Cinza"><%=FormatCurrency(SomaFrete("SomaFrete") + VarValorBase)%></span></div></td>							</tr>							<tr bgcolor="#FFFFFF">							  <td height="20" colspan="2">								<div align="right"><span class="TextTahoma11CinzaBold">Valor total</span></div></td>							  <td height="20" colspan="2"><div align="right"><span class="TextArial18CinzaBold"><%=FormatCurrency(SomaTotal("SomaTotal") + SomaFrete("SomaFrete") + VarValorBase)%></span></div></td>							</tr>							<tr bgcolor="#FFFFFF">							  <td height="20" colspan="2"><div align="right" class="TextTahoma11Cinza">Forma de Pagamento: 								</div></td>							  <td height="20" colspan="2" class="TextTahoma11CinzaBold"><div align="right"><%=objPagamento("Forma")%></div></td>							</tr>							<tr>							  <td height="6" colspan="4" class="TextTahoma11Cinza"></td>							</tr>							<tr>							  <td height="1" colspan="4" bgcolor="e5e5e5" class="TextTahoma11Cinza"></td>							</tr>							<tr>							  <td height="6" colspan="4" class="TextTahoma11Cinza"></td>							</tr>						  </table>						<%												End If												%></td>	   				  </tr>						  <tr>							<td height="0" align="center" valign="middle"> </td>	   				  </tr>						  <tr>							<td height="0" align="center" valign="middle">						  <%If VarPagamento = "1" Then%>						  <!--#include file="Pagamento/Deposito.asp" -->						  <%ElseIf VarPagamento = "2" Then%>						  <!--#include file="Pagamento/BoletoItau.asp" -->						  <%ElseIf VarPagamento = "3" Then%>						  <!--#include file="Pagamento/BoletoBradesco.asp" -->						  <%ElseIf VarPagamento = "4" Then%>						  <!--#include file="Pagamento/BoletoCaixa.asp" -->						  <%ElseIf VarPagamento = "5" Then%>						  <!--#include file="Pagamento/BoletoBB.asp" -->						  <%ElseIf VarPagamento = "6" Then%>						  <!--#include file="Pagamento/BoletoReal.asp" -->						  <%End If%>						  </td>	   				  </tr>					  <tr>						  <td> </td>					  </tr>						  <%=LinhaHorizontal%>						  <tr>							<td height="25" align="center" valign="middle"><a href="<%=Local%>" class="LinkTahoma11CinzaBold">Sair e continuar navegando</a></td>	   				  </tr>						  <%=LinhaHorizontal%>					  <%End If%>					</table>				</td>				<td width="5" height="100%" valign="top"></td>			  </tr>   	  </table>	</td>  </tr>  <tr>	<td><!--#include file="Includes/Rodape.asp"--></td>  </tr></table><%Banco.Execute("Update Pedidos Set Secao=0 Where Secao = '"&VarCliente&"'")Session.Abandon()Set objPagamento = NothingSet Pedidos = NothingSet Clientes = NothingSet SomaTotal = NothingSet SomaFrete = NothingSet objPedidosFinalizados = NothingSet objPedidos = NothingSet AltPedidos = NothingCall FechaBanco%>

Mas a loja só tem a opção de boletos bancários e essas 2 novas que tenho que inserir o cliente terá que colocar alguns dados adicionais então montei um arquivo para receber esses dados, nesse arquivo tem a opção de pagamento, o nº do CRÉDITO DA LOJA e quantas vezes ele quer pagar!

 

esse arquivo que montei com o layout posso deixa-lo nesse include que postei anteriormente?

e o arquivo que recebe esse form que criei tenho q ligar nesse acima?

 

obrigado Salgado!!!

[Salgado 4]

O seu script funciona CORRETAMENTE independente de passar por essa página? Se sim você deve colocar um request e um redirect logo no início dessa página e usar o seu.

[shumi 0]

O seu script funciona CORRETAMENTE independente de passar por essa página?

o meu script sozinho funciona normal, mas ele vai para aquela tabela q fiz ele não passa por + nenhum lugar!

Se sim você deve colocar um request e um redirect logo no início dessa página e usar o seu.

Gostaria que você me explicasse melhor sobre essa parte. Eu tenho que usar o request e um redirect onde? na que recebe o form que eu fiz ou no recibo.asp ?Valeu !!!

[Salgado 4]

No recibo.asp

[shumi 0]

hummmmm to começando a entender cara!!!!Então assim:No meu include(que esta as outras formas de pagamento) coloco ele pra ir para esse recibo.asp( form action="recibo.asp" ... ) ai no recibo.asp fazer o request e o redirect o redirect eu faço ele ir para o arquivo que receberia o form que eu tinha feito. É isso né???agora tenho a dúvida como fazer o request e o redirect eu pensei em um ifzinho(se as informações vierem do arquivo tal vá para tal lugar, se não execulte esse script... essa parte acho q falei m***** né??) seria isso?obrigado

[shumi 0]

O Salgado ou alguem mais poderia checar se a Lógica está certa mesmo?Obrigado

[shumi 0]

Eu coloquei no form das novas opções de pagamento para ele ir para o recibo.asp ai ele dá o erro:

 

Microsoft JET Database Engine erro '80040e14'

 

Erro de sintaxe (operador faltando) na expressão de consulta 'Cod ='.

 

/teste/recibo.asp, line 34

 

 

a linha 34 é

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

o que seria??? alguem pode me ajudar???

 

Obrigado!!!!

[Salgado 4]

Não foi enviada nenhum cod.

[shumi 0]

Não foi enviada nenhum cod.

Eu cadastrei as novas formas de pagamento no banco de dados e elas aparecem duplicada, pois além de aparecer as do banco aparece a do include que eu criei.quando escolho as novas formas que eu coloquei no banco da certo, mas não envia as informações que quero como por exemplo numero do cartão de fidelidade e etc... e quando escolho a do include da esse erro.mas eu gostaria que aparecesse só as informações do include, pois a do banco aparece 1 em baixo da outra e a do include aparece organizado, com as imagens de cada nova opçao e etc...Me ajuda a resolver isso por favor!!! eu to tentando, mas ta dificil pra caramba!!!!!!!Obrigado!

[Salgado 4]

Cara, usando o do BD fica algo mais profissional, menos "gambiarra", já que você está apenas acrescentando algo numa parte já existente.

 

Quando você submete o form, ele recebe o pedido e trata, depois redireciona para o RECIBO.ASP, logo no inicio você coloca um

VarPagamento = Request("Pagamento")
If VarPagamento = codigo1 OR VarPagamento = codigo2 Then
Response.Redirect("Seuarquivo.asp?Pagamento="& VarPagamento)
End If

Acho que é isso.

 

Dou por encerrada minha participação nesse tópico.

[shumi 0]

Cara, usando o do BD fica algo mais profissional, menos "gambiarra", já que você está apenas acrescentando algo numa parte já existente.Quando você submete o form, ele recebe o pedido e trata, depois redireciona para o RECIBO.ASP, logo no inicio você coloca um

VarPagamento = Request("Pagamento")If VarPagamento = codigo1 OR VarPagamento = codigo2 ThenResponse.Redirect("Seuarquivo.asp?Pagamento="& VarPagamento)End If

Acho que é isso.Dou por encerrada minha participação nesse tópico.

Haaaaaaaaaaa Salgado!eu não consegui!!coloquei o cod que você me passou no recibo.asp e ele cadastra normal só que as informações adcionais não........ http://forum.imasters.com.br/public/style_emoticons/default/cry.gif

[shumi 0]

Quem quiser fazer a caridade de me ajudar basicamente eu teria que ligar isso

 

 

<%																		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 %>

com

 

<%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="opcoes_valida.asp" method="post" name="cad">	<table width="95%" border="0">	  <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="carne">		  </div></td>		<td><div align="center"> 			<input class="radio" type="radio" name="opcao" value="credito">		  </div></td>	  </tr>	  <tr> 		<td><div align="center"> CARNE DA LOJA </div></td>		<td><div align="center"> CRÉDITO DA LOJA </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 Crédito ou Carne </span></b></td>					  <td width="51%"><b><span class="TextTahoma11Cinza">Código 						do LIS </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_lis" type="text" id="cod_lis" 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 						(como está na opção de crédito)</span> </td>					</tr>				  </table>				  <b>				  <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>

e isso:

 

<%												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%>

com isso:

 

<%set Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MaPpath("DataBase\DBLojaVirtual.mdb")Conexcao.openopcao = Request.Form("opcao")nun = Request.Form("nun")cod_lis = Request.Form("cod_lis")nome = Request.Form("nome")mes = Request.Form("mes")ano = Request.Form("ano")Response.Expires = 0'SET RS = Conexcao.Execute("SELECT cpf FROM convencao WHERE cpf = '" & Trim(request.Form("cpf")) & "'")'IF RS.EOF THEN	sSQL = "INSERT INTO opcoes_pag(opcao,nun,cod_lis,nome,mes,ano) VALUES ('"& opcao &"','"& nun &"','"& cod_lis &"','"& nome &"','"& mes &"','"& ano &"')"	Conexcao.Execute sSQL,intRetorno'else'	response.redirect "cadastro.asp?msg=1"'	response.End()'end ifset RS=nothingConexcao.closeSet Conexcao=nothing			response.redirect "default.asp"%>

Obrigado!!!!

[Cidre 0]

Responde de uma forma simples e objetiva o problema que você ta tendo pra fazer essas ligações que eu te ajudo a resolver, eu tentei ler todos os posts do tópico mas ficou meio confuso pq não sei até que parte você conseguiu chegar

[shumi 0]

Responde de uma forma simples e objetiva o problema que você ta tendo pra fazer essas ligações que eu te ajudo a resolver, eu tentei ler todos os posts do tópico mas ficou meio confuso pq não sei até que parte você conseguiu chegar

Cidre,Quem desenvolveu essa loja foi um ex-funcionario e ele manjava muito e eu tenho que inserir 2 novas formas de pagamento.As formas de pagamento que já tem é deposito e boleto e essas formas que já tem não precisa armazernar nenhuma informação adicional o boleto que tinha era do bradesco eu consegui colocar o do Itaú, pois essa isso é simples eu fui no banco de dados e onde tem as opções de pagamento coloquei boleto itaú e fiz o mesmo procedimento do bradesco e deu certo...Mas essas novas formas de pagamento o usuario quando escolher uma delas tem que digitar informações adicionais como numero do cartao da loja por exemplo.Então eu criei um arquivo separado é esse include que criei esta funcionando certo separadamente ele grava na tabela que criei no banco para receber as informações adicionais e tal, só que quando coloco esse include no meu codigo ele não funciona... quando escolho para pagar com uma das novas opções ele retorna falando que eu não selecionei nenhuma forma de pagamento.E eu não estou conseguindo mexer nesse codigo dele, pois ele faz 1 arquivo que liga várias coisas em no mesmo, por exemplo o formulario de pagamento ele valida no mesmo lugar e etc..... é uma doideira!!!Gostaria muito que você me ajudasse!!!Obrigado!