Ir para conteúdo

POWERED BY:

Arquivado

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

Romeu.web

Either BOF or EOF is True, or the current record has been deleted. Req

Por , em ASP Clássico

Recommended Posts

Romeu.web    0

Romeu.web
Postado

Oi sou novo aqui, alguem pode me ajudar já tentei de tudo mas não consigo descobrir onde esta errado neste código:

<%
Option Explicit
%>
<!--#Include file="conexao.inc"-->
<%
Response.Expires = 0
Dim conexaodb, strFrete, rsFrete, strCliente, rsCliente, strPedido, RsPedido
Dim strMaxCli, rsMaxCli, novoCliente
Dim varNome, varCPF, varEnd, varCid, varBairro, varUF, varCep
Dim varDDD, varFone, varEmail, varCartao, varMes, varAno, varObs
DIM strItensPedido, rsItensPedido, desconto
varNome = Trim(Request.Form("txtNome"))
varCPF = Trim(Request.Form("txtCpf"))
varEnd = Trim (Request.Form("txtEnd"))
varCid = Trim (Request.Form("txtCid"))
varBairro = Trim(Request.Form("txtBairro"))
varUf = Trim(Request.Form("txtUf"))
varCep = Trim (Request.Form("txtCep"))
varDDD = Trim (Request.Form("txtDDD"))
varFone = Trim (Request.Form("txtFone"))
varEmail = Trim (Request.Form("txtEmail"))
varCartao = Trim (Request.Form("txtCartao"))
varMes = Trim (Request.Form("txtMes"))
varAno = Trim (Request.Form("txtAno"))
varObs = Trim (Request.Form("txtObs"))
varNome = replace(varNome, "'", " ")
varCpf = replace(varCpf, "'", " ")
varEnd = replace(varEnd, "'", " ")
varCid = replace(varCid, "'", " ")
varBairro = replace(varBairro, "'", " ")
varDDD = replace(varDDD, "'", " ") 
varFone = replace (varFone, "'", " ")
varEmail = replace (varEmail, "'", " ")
varObs = replace(varObs, "'", " ")
session("totalPed") = replace(session("totalPed"), ",", ".")
session("totalDesconto") = replace(session("totalDesconto"), ",", ".")
session("frete") = replace(session("frete"), ",", ".") 
strFrete = "SELECT * FROM Fretes WHERE uf = '" & varUf & "'"
Call abreConexao
set rsFrete=conexaodb.Execute(strFrete)
session("frete") = rsFrete("valor")
rsFrete.Close
set rsFrete = Nothing
IF Session("codCli") = 0 THEN 
strMaxCli = "SELECT max(codCliente) AS maiorCodCli FROM Clientes "
Set rsMaxCli = conexaodb.Execute(strMaxCli) 
novoCliente = rsMaxCli.Fields("maiorcodCli") 
if IsNull(rsMaxCli("maiorCodCli")) THEN 
novoCliente = 1 
ELSE 
novoCliente = rsMaxCli("maiorCodCli") + 1
END IF
Session("codCli") = novoCliente
rsMaxCli.Close
Set rsMaxCli = Nothing
strCliente = "INSERT into Clientes "
strCliente = strCliente & "(nome, cpfCnpj, endereco, cidade, bairro, uf, cep, ddd, fone, email, obs) "
strCliente = strCliente & "VALUES ('" & varNome & "', "
strCliente = strCliente & "'" & varCpf & "', "
strCliente = strCliente & "'" & varEnd & "', "
strCliente = strCliente & "'" & varCid & "', " 
strCliente = strCliente & "'" & varBairro & "', "
strCliente = strCliente & "'" & varUf & "', "
strCliente = strCliente & "'" & varCep & "', "
strCliente = strCliente & "'" & varDDD & "', "
strCliente = strCliente & "'" & varFone & "', "
strCliente = strCliente & "'" & varEmail & "', "
strCliente = strCliente & "'" & varObs & "') "
Set rsCliente = conexaodb.Execute(strCliente)
Set rsCliente = Nothing
End If
strPedido = "UPDATE pedidos SET "
strPedido = strPedido & "codCliente = " & session("codCli") & ", "
strPedido = strPedido & "cartao = '" & varCartao & "', "
strPedido = strPedido & "vencimento = '" & varmes & "/" & + varano & "', "
strPedido = strPedido & "valorPedido = " & session("totalPed") & ", "
strPedido = strPedido & "valorDesconto = " & session("totaldesconto") & ", "
strPedido = strPedido & "valorFrete = " & session("frete") & ", "
strPedido = strPedido & "statusPed = 1 "
strPedido = strPedido & "WHERE codPedido = " & session("codPed") & " "
set rsPedido = conexaodb.Execute(strPedido)
set rsPedido = Nothing
strCliente = "SELECT * FROM Clientes WHERE codCliente = " & session("codCli")
Set rsCliente = conexaodb.Execute(strCliente)
strPedido = "SELECT * FROM Pedidos WHERE codCliente = " & session("codCli")
Set rSPedido = conexaodb.Execute(strPedido)
strItensPedido = "SELECT * "
strItensPedido = strItensPedido & "FROM Livros "
strItensPedido = strItensPedido & "INNER JOIN Itens "
strItensPedido = strItensPedido & "ON livros.codLivro = Itens.codLivro "
strItensPedido = strItensPedido & "WHERE codPedido = " & session("codPed") & ""
Set rsItensPedido = conexaodb.Execute(strItensPedido)
session("nome") = varNome
session("email") = varEmail
%> 
<html>
<head> 
<title>Loja E-cormnerce </title>
<link rel=stylesheet href="estilos.css" type="text/css">
</head>
<body topmargin="0" leftmargin="0" bgcolor=" #FFFFFF">
<!--#include file="MenuSup.htm"-->
<table border="0" cellpadding="0" cellspacing="5" width="100%">
<tr>
<td width="100%"><p class="titulo"><img border="0" src="images/Banner_Titulos.gif" align="left"><font color="#OOOOOO">Fechar seu Pedido  - Caixa</font></td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="1" width="100%">
<tr>
<td width="100%" colspan="2" bgcolor="#006699"><p class="ft10" align="center"><b><font color="#FFFFFF">INFORMAÇÕES SOBRE 0 SED PEDIDO </font></b>
<b><font color="#FFFFFF">  PEDIDO NÚMERO: <% = session("codPed") %>   CLIENTE NÚMERO: <% = session("codCli") %></font></b></td> 
</tr>
<tr>
<td width="17%" bgcolor="#CCCCCC"><p class="ft10" align="left">Nome</td>
<td width="83%" bgcolor="#CCCCCC"><p class="ft10"><b><% = rsCliente("nome") %></b></td>
</tr> 
<tr>
<td width="17%" bgcolor="#CCCCCC"><p class="ftlO" align="left">CPF/CNPJ</td>
<td width="83%" bgcolor="#CCCCCC"><p class="ft10"><b><% = rsCliente("CpfCnpj") %></b></td>
</tr> 
<tr>
<td width="17%" bgcolor="#CCCCCC"><p class="ft10" align="left">Endereço</td>
<td width="83%" bgcolor="#CCCCCC"><p class="ft10"><b><% = rsCliente("endereco") %> - <% = rsCliente("cidade") %> - <% = rsCliente("bairro") %> - <% = rsCliente("uf") %> CEP: <% = rsCliente("cep") %> </b></td>
</tr>
<tr>
<td width="17%" bgcolor="#CCCCCC"><p class="ft10" align="left">DDD/Fone</td>
<td width="83%" bgcolor="#CCCCCC"><p class="ft10"><b><% = rsCliente("ddd") %> - <% = rsCliente("fone") %></b></td>
</tr>
<tr>
<td width="17%" bgcolor="#CCCCCC"><p class="ft10" align="left">E-mail</td>
<td width="83%" bgcolor="#CCCCCC"><p class="ft10"><b><% = rsCliente("email") %></b></td>
</tr>
<tr> 
<td width="17%" bgcolor="#CCCCCC"><p class="ft10" align="left">Cartao de crédito</td>
<td width="83%" bgcolor="#CCCCCC"><p class="ft1O"><b><% = rsPedido("cartao") %> Número: (não disponivel no modo teste) - Vencimento: <% = rsPedido("vencimento") %></b></td>
</tr>
<tr>
<td width="17%" bgcolor="#CCCCCC"><p class="ft10" align="left">Data do Pedido</td>
<td width="83%" bgcolor="#CCCCCC"><p class="ft10"><b><% = FormatDateTime(rsPedido("dtPedido")/1) %></b></td>
</tr>
<tr>
<td width="100%" colspan="2" bgcolor="#0099CC"><p class="ft10" align="center"><b><font color="#FFFFFF">ITENS DE SEU PEDIDO</font></b></td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="1" width="100%">
<tr>
<td width="48%" bgcolor="#006699"><p class="ft8"><b><font color="#FFFFFF">Titulo do Livro</font></b></td>
<td width="15%" bgcolor="#006699"><p class="ft8" align="right"><b><font color="#FFFFFF">Preco Unitário</font></b></td>
<td width="9%" bgcolor="#006699"><p class="ft8" align="right"><b><font color="#FFFFFF">Quantidade</font></b></td>
<td width="13%" bgcolor="#006699"><p class="ft8" align="right"><b><font color="#FFFFFF">desconto (-) </font></b></td>
<td width="17%" bgcolor="#006699"><p class="ft8" align="right">
<font color=" #FFFFFF">  </font><b>
<font color="#FFFFFF">Total Unitário</font></b></p></td>
</tr>
</table>
<%
Do WHILE not rsItensPedido.EOF
desconto = rsItensPedido("qtLivro") * rsItensPedido("Preco") * rsItensPedido("desconto")/100
%>
<table border="0" cellpadding="0" cellspacing="1" width="100%">
<tr>
<td width="48%" bgcolor="#FFCCOO"><p class="ft8"><b><% = rsItensPedido.Fields("Titulo") %></b></td>
<td width="15%" bgcolor="#FFCCOO"><p class="ft8" align="right"><b>R$ <% = formatNumber(rsItensPedido.Fields("Preco"),2) %></b></td>
<td width="9%" bgcolor="#FFCCOO"><p class="ft8" align="right"><b><% = rsItensPedido.Fields("QTlIVRO") %></b></td>
<td width="13%" bgcolor="#FFCCOO"><p class="ft8" align="right"><b>R$ <% = formatNumber(desconto,2) %></b></td>
<td width="17%" bgcolor="#FFCCOO"><p class="ft8" align="right"><b>R$ <% = FormatNumber(rsItensPedido("qtLivro") * rsItensPedido("Preco"),2) %></b></td>
</tr>
</table>
<%
rsltensPedido.MoveNext
loop
%>
<table border="0" cellpadding="0" cellspacing="1" width="100%">
<tr>
<td width="48%" bgcolor="#CC6600" rowspan="14"><p class="ft8" align="left"><b><font color="#FFFFFF">NOTA: Você concluiu com êxito o seu pedido. Confira atentamente os dados exibidos nesta página e a seguir clique no botão "Encerrar seu Pedido".Em alguns segundos, você receberá um e-mail confirmando sua compra.   </font></b></td>
<td width="37%" bgcolor="#999999"><p class="ft8"><b><font color="#FFFFFF">Subtotal </font></b></td>
<td width="17%" bgcolor="#999999"><p class="ft8" align="right"><font color="#FFFFFF"> R$ <b><% = FormatNumber(rsPedido("valorPedido"),2)%></b></font ></td>
</tr>
<tr>
<td width="37%" bgcolor="#808080"><p class="ft8"><b><font color="#FFFFFF">descontos (-) </font></b></td> 
<td width="17%" bgcolor="#808080"><p class="ft8" align="right"><font color="#FFFFFF"> R$ <b><% = FormatNumber(rsPedido("valorDesconto"),2) %></b></font></td>
</tr>
<tr>
<td width="37%" bgcolor="#999999"><p class="ft8"><b><font color="#FFFFFF">Valor do Frete ( + )</font></b></p></td>
<td width="17%" bgcolor="#999999"><p class="ft8" align="right"><font color="#FFFFFF"> R$ <b><% = FormatNumber(rsPedido("valorFrete"),2) %></b></font></td>
</tr>
<tr>
<td width="37%" bgcolor="#808080"><p class="ft8"><font color="#FFFFFF"><b>Total </b></font></td>
<td width="17%" bgcolor="#808080"><p class="ft8" align="right"><font color="#FFFFFF"> R$ <b><% = FormatNumber((rsPedido("valorPedido") - rsPedido("valorDesconto") + rsPedido("valorfrete")),2) %></b></font></td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%">
<hr size="1" color="#COCOCO">
</td>
</tr>
<tr>
<td width="lOO%">
<form method="POST" action="encerrapedido.asp">
<p class="ft8" align="center">
<input type="submit" value="Encerrar seu Pedido" name= "btEncerra">
</form>
 </td>
 </tr>
</table>
<!--#Include file="rodape.inc"-->
</body>
</html>
<%
rsltensPedido.Close
rsPedido.Close
rsCliente.Close
Call fechaconexao
Set rsltensPedido = Nothing
Set rsPedido = Nothing
Set rsCliente = Nothing
%>

o erro é este:

 

 

 

ADODB.Field error '80020009'

 

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

 

/loja/caixa.asp, line 0

 

 

obrigado

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado

faça uma verificação para ver se existe com o IF, quando você vai buscar no banco com o SELECT, e formate seu código melhor para quando ele querer editar, vá para tal IF, quando ele querer inserir vá para tal IF, e assim por diante

Compartilhar este post

Link para o post
Compartilhar em outros sites

Romeu.web    0

Romeu.web
Postado

Desculpe sou novo e não entendi o que você disse sobre o if.

Na realidade ele inclui o cliente novamente, não verifica se ja existe. (o cliente fez o pedido ele cadastra o cliente e o pedido, mas o cliente não esta cadastrando na tabela cliente, somente os itens na tabela itens)

Não sei o que esta erado.

Estou enviando o cod novamente tentei comentar algumas partes.

 

<%
Option Explicit
%>
<!--#Include file="conexao.inc"-->
<%
Response.Expires = 0
Dim conexaodb, strFrete, rsFrete, strCliente, rsCliente, strPedido, RsPedido
Dim strMaxCli, rsMaxCli, novoCliente
Dim varNome, varCPF, varEnd, varCid, varBairro, varUF, varCep
Dim varDDD, varFone, varEmail, varCartao, varMes, varAno, varObs
DIM strItensPedido, rsItensPedido, desconto
varNome = Trim(Request.Form("txtNome"))
varCPF = Trim(Request.Form("txtCpf"))
varEnd = Trim (Request.Form("txtEnd"))
varCid = Trim (Request.Form("txtCid"))
varBairro = Trim(Request.Form("txtBairro"))
varUf = Trim(Request.Form("txtUf"))
varCep = Trim (Request.Form("txtCep"))
varDDD = Trim (Request.Form("txtDDD"))
varFone = Trim (Request.Form("txtFone"))
varEmail = Trim (Request.Form("txtEmail"))
varCartao = Trim (Request.Form("txtCartao"))
varMes = Trim (Request.Form("txtMes"))
varAno = Trim (Request.Form("txtAno"))
varObs = Trim (Request.Form("txtObs"))
varNome = replace(varNome, "'", " ")
varCpf = replace(varCpf, "'", " ")
varEnd = replace(varEnd, "'", " ")
varCid = replace(varCid, "'", " ")
varBairro = replace(varBairro, "'", " ")
varDDD = replace(varDDD, "'", " ")
varFone = replace (varFone, "'", " ")
varEmail = replace (varEmail, "'", " ")
varObs = replace(varObs, "'", " ")
session("totalPed") = replace(session("totalPed"), ",", ".")
session("totalDesconto") = replace(session("totalDesconto"), ",", ".")
session("frete") = replace(session("frete"), ",", ".")

[color="#FF0000"]*****CALCULA FRETE[/color]
strFrete = "SELECT * FROM Fretes WHERE uf = '" & varUf & "'"
Call abreConexao
set rsFrete=conexaodb.Execute(strFrete)
session("frete") = rsFrete("valor")
rsFrete.Close
set rsFrete = Nothing
IF Session("codCli") = 0 THEN
strMaxCli = "SELECT max(codCliente) AS maiorCodCli FROM Clientes "
Set rsMaxCli = conexaodb.Execute(strMaxCli)
novoCliente = rsMaxCli.Fields("maiorcodCli")
if IsNull(rsMaxCli("maiorCodCli")) THEN
novoCliente = 1
ELSE
novoCliente = rsMaxCli("maiorCodCli") + 1
END IF
Session("codCli") = novoCliente
rsMaxCli.Close
Set rsMaxCli = Nothing

[color="#FF0000"]******* Insere o cliente na tabela de clientes[/color]
strCliente = "INSERT into Clientes "
strCliente = strCliente & "(nome, cpfCnpj, endereco, cidade, bairro, uf, cep, ddd, fone, email, obs) "
strCliente = strCliente & "VALUES ('" & varNome & "', "
strCliente = strCliente & "'" & varCpf & "', "
strCliente = strCliente & "'" & varEnd & "', "
strCliente = strCliente & "'" & varCid & "', "
strCliente = strCliente & "'" & varBairro & "', "
strCliente = strCliente & "'" & varUf & "', "
strCliente = strCliente & "'" & varCep & "', "
strCliente = strCliente & "'" & varDDD & "', "
strCliente = strCliente & "'" & varFone & "', "
strCliente = strCliente & "'" & varEmail & "', "
strCliente = strCliente & "'" & varObs & "') "
Set rsCliente = conexaodb.Execute(strCliente)
Set rsCliente = Nothing
End If

[color="#FF0000"]****** Atualiza a tabela de Pedidos[/color]
strPedido = "UPDATE pedidos SET "
strPedido = strPedido & "codCliente = " & session("codCli") & ", "
strPedido = strPedido & "cartao = '" & varCartao & "', "
strPedido = strPedido & "vencimento = '" & varmes & "/" & + varano & "', "
strPedido = strPedido & "valorPedido = " & session("totalPed") & ", "
strPedido = strPedido & "valorDesconto = " & session("totaldesconto") & ", "
strPedido = strPedido & "valorFrete = " & session("frete") & ", "
strPedido = strPedido & "statusPed = 1 "
strPedido = strPedido & "WHERE codPedido = " & session("codPed") & " "
set rsPedido = conexaodb.Execute(strPedido)
set rsPedido = Nothing

[color="#FF0000"]*****Retorna dados do Cliente[/color]
strCliente = "SELECT * FROM Clientes WHERE codCliente = " & session("codCli")
Set rsCliente = conexaodb.Execute(strCliente)

[color="#FF0000"]*****Retorna dados do Pedido[/color]
strPedido = "SELECT * FROM Pedidos WHERE codCliente = " & session("codCli")
Set rSPedido = conexaodb.Execute(strPedido)

[color="#FF0000"]*****Livros na Cesta[/color]
strItensPedido = "SELECT * "
strItensPedido = strItensPedido & "FROM Livros "
strItensPedido = strItensPedido & "INNER JOIN Itens "
strItensPedido = strItensPedido & "ON livros.codLivro = Itens.codLivro "
strItensPedido = strItensPedido & "WHERE codPedido = " & session("codPed") & ""
Set rsItensPedido = conexaodb.Execute(strItensPedido)
session("nome") = varNome
session("email") = varEmail
%>
<html>
<head>
<title>Loja E-cormnerce </title>
<link rel=stylesheet href="estilos.css" type="text/css">
</head>
<body topmargin="0" leftmargin="0" bgcolor=" #FFFFFF">
<!--#include file="MenuSup.htm"-->
<table border="0" cellpadding="0" cellspacing="5" width="100%">
<tr>
<td width="100%"><p class="titulo"><img border="0" src="images/Banner_Titulos.gif" align="left"><font color="#OOOOOO">Fechar seu Pedido  - Caixa</font></td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="1" width="100%">
<tr>
<td width="100%" colspan="2" bgcolor="#006699"><p class="ft10" align="center"><b><font color="#FFFFFF">INFORMAÇÕES SOBRE 0 SED PEDIDO </font></b>
<b><font color="#FFFFFF">  PEDIDO NÚMERO: <% = session("codPed") %>   CLIENTE NÚMERO: <% = session("codCli") %></font></b></td>
</tr>
<tr>
<td width="17%" bgcolor="#CCCCCC"><p class="ft10" align="left">Nome</td>
<td width="83%" bgcolor="#CCCCCC"><p class="ft10"><b><% = rsCliente("nome") %></b></td>
</tr>
<tr>
<td width="17%" bgcolor="#CCCCCC"><p class="ftlO" align="left">CPF/CNPJ</td>
<td width="83%" bgcolor="#CCCCCC"><p class="ft10"><b><% = rsCliente("CpfCnpj") %></b></td>
</tr>
<tr>
<td width="17%" bgcolor="#CCCCCC"><p class="ft10" align="left">Endereço</td>
<td width="83%" bgcolor="#CCCCCC"><p class="ft10"><b><% = rsCliente("endereco") %> - <% = rsCliente("cidade") %> - <% = rsCliente("bairro") %> - <% = rsCliente("uf") %> CEP: <% = rsCliente("cep") %> </b></td>
</tr>
<tr>
<td width="17%" bgcolor="#CCCCCC"><p class="ft10" align="left">DDD/Fone</td>
<td width="83%" bgcolor="#CCCCCC"><p class="ft10"><b><% = rsCliente("ddd") %> - <% = rsCliente("fone") %></b></td>
</tr>
<tr>
<td width="17%" bgcolor="#CCCCCC"><p class="ft10" align="left">E-mail</td>
<td width="83%" bgcolor="#CCCCCC"><p class="ft10"><b><% = rsCliente("email") %></b></td>
</tr>
<tr>
<td width="17%" bgcolor="#CCCCCC"><p class="ft10" align="left">Cartao de crédito</td>
<td width="83%" bgcolor="#CCCCCC"><p class="ft1O"><b><% = rsPedido("cartao") %> Número: (não disponivel no modo teste) - Vencimento: <% = rsPedido("vencimento") %></b></td>
</tr>
<tr>
<td width="17%" bgcolor="#CCCCCC"><p class="ft10" align="left">Data do Pedido</td>
<td width="83%" bgcolor="#CCCCCC"><p class="ft10"><b><% = FormatDateTime(rsPedido("dtPedido")/1) %></b></td>
</tr>
<tr>
<td width="100%" colspan="2" bgcolor="#0099CC"><p class="ft10" align="center"><b><font color="#FFFFFF">ITENS DE SEU PEDIDO</font></b></td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="1" width="100%">
<tr>
<td width="48%" bgcolor="#006699"><p class="ft8"><b><font color="#FFFFFF">Titulo do Livro</font></b></td>
<td width="15%" bgcolor="#006699"><p class="ft8" align="right"><b><font color="#FFFFFF">Preco Unitário</font></b></td>
<td width="9%" bgcolor="#006699"><p class="ft8" align="right"><b><font color="#FFFFFF">Quantidade</font></b></td>
<td width="13%" bgcolor="#006699"><p class="ft8" align="right"><b><font color="#FFFFFF">desconto (-) </font></b></td>
<td width="17%" bgcolor="#006699"><p class="ft8" align="right">
<font color=" #FFFFFF">  </font><b>
<font color="#FFFFFF">Total Unitário</font></b></p></td>
</tr>
</table>
<%
Do WHILE not rsItensPedido.EOF
desconto = rsItensPedido("qtLivro") * rsItensPedido("Preco") * rsItensPedido("desconto")/100
%>
<table border="0" cellpadding="0" cellspacing="1" width="100%">
<tr>
<td width="48%" bgcolor="#FFCCOO"><p class="ft8"><b><% = rsItensPedido.Fields("Titulo") %></b></td>
<td width="15%" bgcolor="#FFCCOO"><p class="ft8" align="right"><b>R$ <% = formatNumber(rsItensPedido.Fields("Preco"),2) %></b></td>
<td width="9%" bgcolor="#FFCCOO"><p class="ft8" align="right"><b><% = rsItensPedido.Fields("QTlIVRO") %></b></td>
<td width="13%" bgcolor="#FFCCOO"><p class="ft8" align="right"><b>R$ <% = formatNumber(desconto,2) %></b></td>
<td width="17%" bgcolor="#FFCCOO"><p class="ft8" align="right"><b>R$ <% = FormatNumber(rsItensPedido("qtLivro") * rsItensPedido("Preco"),2) %></b></td>
</tr>
</table>
<%
rsltensPedido.MoveNext
loop
%>
<table border="0" cellpadding="0" cellspacing="1" width="100%">
<tr>
<td width="48%" bgcolor="#CC6600" rowspan="14"><p class="ft8" align="left"><b><font color="#FFFFFF">NOTA: Você concluiu com êxito o seu pedido. Confira atentamente os dados exibidos nesta página e a seguir clique no botão "Encerrar seu Pedido".Em alguns segundos, você receberá um e-mail confirmando sua compra.   </font></b></td>
<td width="37%" bgcolor="#999999"><p class="ft8"><b><font color="#FFFFFF">Subtotal </font></b></td>
<td width="17%" bgcolor="#999999"><p class="ft8" align="right"><font color="#FFFFFF"> R$ <b><% = FormatNumber(rsPedido("valorPedido"),2)%></b></font ></td>
</tr>
<tr>
<td width="37%" bgcolor="#808080"><p class="ft8"><b><font color="#FFFFFF">descontos (-) </font></b></td>
<td width="17%" bgcolor="#808080"><p class="ft8" align="right"><font color="#FFFFFF"> R$ <b><% = FormatNumber(rsPedido("valorDesconto"),2) %></b></font></td>
</tr>
<tr>
<td width="37%" bgcolor="#999999"><p class="ft8"><b><font color="#FFFFFF">Valor do Frete ( + )</font></b></p></td>
<td width="17%" bgcolor="#999999"><p class="ft8" align="right"><font color="#FFFFFF"> R$ <b><% = FormatNumber(rsPedido("valorFrete"),2) %></b></font></td>
</tr>
<tr>
<td width="37%" bgcolor="#808080"><p class="ft8"><font color="#FFFFFF"><b>Total </b></font></td>
<td width="17%" bgcolor="#808080"><p class="ft8" align="right"><font color="#FFFFFF"> R$ <b><% = FormatNumber((rsPedido("valorPedido") - rsPedido("valorDesconto") + rsPedido("valorfrete")),2) %></b></font></td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%">
<hr size="1" color="#COCOCO">
</td>
</tr>
<tr>
<td width="lOO%">
<form method="POST" action="encerrapedido.asp">
<p class="ft8" align="center">
<input type="submit" value="Encerrar seu Pedido" name= "btEncerra">
</form>
</td>
</tr>
</table>
<!--#Include file="rodape.inc"-->
</body>
</html>
<%
rsltensPedido.Close
rsPedido.Close
rsCliente.Close
Call fechaconexao
Set rsltensPedido = Nothing
Set rsPedido = Nothing
Set rsCliente = Nothing
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Romeu.web    0

Romeu.web
Postado

tem mais outras vezes dá erro na linha 69:

 

Set rsCliente = conexaodb.Execute(strCliente)

 

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

 

[Microsoft][ODBC Microsoft Access Driver] Field 'Clientes.email' cannot be a zero-length string.

 

/loja/caixa.asp, line 69

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

da uma olhada neste tópico http://forum.imasters.com.br/index.php?showtopic=313330

verifique Tb se as permissões estão corretas, veja se o campo clientes.email não esta recebendo valor, verifique se está sendo passado dados pelo formulário, e é interessante você antes de incluir no banco certificar de que não esta cadastrado, faz um SELECT antes e se não for final do arquivo.

 

 

IF NOT RS.cliente.EOF then
‘ aqui você executa seu INSERT
ELSE
‘ jah cadastrado

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

se seu db precisar receber emails vazios tambem precisa mudar as permissoes do campo email

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