Ir para conteúdo

Arquivado

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

shumi

Problemão

Recommended Posts

Vamos lá, altere novamente o trecho dos IFs no código e teste:

ElseIf (VarPagamento = "6" OR VarPagamento = "7") AND Request("Flag")<>"Adicionais" Then
								%>
							<!--#include file="novas_formas.asp" -->
								<%
							else
' Insere os Dados adicionais do Cartão:
If (VarPagamento = "6" OR VarPagamento = "7") AND Request("Flag")="Adicionais" Then
set Conexcao = Server.CreateObject("ADODB.Connection")
Conexcao.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MaPpath("DBLojaVirtual.mdb")
Conexcao.open

forma_pag = Request.Form("forma_pag")
nun = Request.Form("nun")
cod = Request.Form("cod")
nome_q_aparece = Request.Form("nome_q_aparece")
dia_validade = Request.Form("dia_validade")
mes_validade = Request.Form("mes_validade")
ano_validade = Request.Form("ano_validade")

Response.Expires = 0
sSQL = "INSERT INTO pag(forma_pag,nun,cod,nome_q_aparece,dia_validade,mes_validade,ano_validade) VALUES ('"& forma_pag &"','"& nun &"','"& cod &"','"& nome_q_aparece &"','"& dia_validade &"','"& mes_validade &"','"& ano_validade &"')"
Conexcao.Execute sSQL,intRetorno
set RS=nothing

Conexcao.close
Set Conexcao=nothing
End If
' Fim do trecho que insere os dados adicionais


							  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

Compartilhar este post


Link para o post
Compartilhar em outros sites

Deu certo!!!!alterei

Compartilhar este post


Link para o post
Compartilhar em outros sites

Teste bastante antes de publicar, e coloque novamente a formatação caso seja preciso. Depois mando a fatura pra vocês.

Compartilhar este post


Link para o post
Compartilhar em outros sites

HA JAH ACABOU???hehehhe deixa ver se escreveu no banco, achei que tinha mais.... hehehhedeixa eu ver!Abraçosse acabou vou dar um pulo aki!!!!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Só acrescente um IF na página que vai depois de tudo cadastrado no BD, aquela que iria mostrar o Boleto.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Ixi Salgado não deu certo cara!!!Não escreveu no banco e tem uma outra tabela no banco que todas as campras vão pra la e tb não foi...Cara isso é um freela meu que tenho um contrato com essa empresa e eles me pagam uma mensalidade por mes, pra mim arrumar o design da loja e de uns banner impressos que faço pra ela e agora me pediram isso.Quanto você cobra pra arrumar isso pra mim? já não to entendendo + nada e você é bom nissoAbraços

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

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