Ir para conteúdo

Arquivado

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

setti_rafael

cesta.asp

Recommended Posts

Bom dia, estou com problemas, com este código, poderiam me ajudar a solucionar, o erro está no insert values da variavel strinsitem está com 3 linhas espaçadas abaixo.

 

Obrigado!!!



<%
Option Explicit
%>
<!--#Include file="conexao.inc"-->
<%
Response.Expires=0
Dim coneditora, itematual, codigopedido, codigolivro, field_name, strinsitem, rsiinsitem,stritenspedido,rsitenspedido,totalped,desconto,totalpeddesc,totaldesconto
dim strmax, rsmax, novopedido
dim strinsped, rsinspedped
dim strdup, rsdup
itematual=request.querystring("item1")
call abreconexao
if session ("codped") = 0 then
strmax="SELECT max(codpedido) AS maiorcodped FROM Pedidos "
Set rsmax=coneditora.execute(strmax)
novopedido=rsmax.fields("maiorcodped")
if isnull(rsmax("maiorcodped")) then
novopedido= 1
else
novopedido= rsmax("maiorcodped")+ 1
end if
session("codped")=novopedido
rsmax.close
set rsmax=nothing
strinsped="INSERT into PEDIDOS (dtPedido) VALUES ('" & date & "')"
set rsinspedped=coneditora.execute(strinsped)
set rsinspedped=nothing
end if
codigopedido=session("codped")
codigolivro=itematual
RESPONSE.WRITE(CODIGOLIVRO)
if request.querystring("item1") <> "" then
strdup = "SELECT * "
strdup = strdup & "FROM itens "
strdup = strdup & "WHERE codlivro= " & request.querystring("item1") & " "
strdup = strdup & "and codpedido = " & session ("codped") & " "
set rsdup=coneditora.execute(strdup)
if rsdup.eof then
strinsitem="INSERT into itens "
strinsitem= strinsitem & "(codpedido, codlivro, qtlivro) "
strinsitem= strinsitem & " values (" & codigopedido & ", "
strinsitem= strinsitem & codigolivro & ", 1)"
set rsiinsitem=coneditora.execute(strinsitem)
set rsiinsitem=nothing
end if
rsdup.close
set rsdup=nothing
end if
if request.form <> "" then
coneditora.execute "DELETE FROM itens WHERE codpedido= " & session ("codped")
For each field_name in Request.form
if field_name <> "btRec" and FIELD_NAME <> "0" and TRIM(REQUEST.FORM(FIELD_NAME)) <> "" then
strinsitem="INSERT into itens "
strinsitem= strinsitem & "(codpedido, codlivro, qtlivro) "
strinsitem= strinsitem & "values(" & codigopedido & ", "



strinsitem= strinsitem & field_name & ", "   

strinsitem= strinsitem &  REQUEST.FORM(FIELD_NAME) & ")"   

strinsitem= strinsitem &  ")"




response.write(strinsitem)
set rsiinsitem=coneditora.execute(strinsitem)
set rsiinsitem=nothing
end if
next
end if
%>
<html>
<head>
<title>Faça um Site - E - Commerce</title>
<link rel=stylesheet href="estilos.css" type="text/css">
</head>
<title>Faça um Site - E-Commerce </title>
<link rel=stylesheet href="estilos.css" type="text/css">
</head>
<body topmargin="0" leftmargin="0">
<!--#include file="menusup.htm"-->
<table border="0" cellpadding="0" cellspacing="5" width="100%">
<tr>
<td width="100%"><p class="titulo"><img border="0" src="serieweb/ecommerce/images/banner_titulos.gif" align="left"><font color="#000000">Sua cesta de compras</font></td>
</tr>
</table>
<%
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=coneditora.execute(stritenspedido)
if rsitenspedido.eof =true then
%>
<table border="0" cellpadding="0" cellspacing="1" width="100%">
<tr>
<td width="5%">Cod Livro:= <%=codigolivro%></td>
<td width="4%" align="right" valign="top"><img border="0" src="serieweb/ecommerce/images/detalhes.gif"> </td>
<td width="91%"><p class="ft10"<font color="#000000"> No momento não existe nenhum livro em sua cesta de compras. </font></td>
</tr>
</table>
<%
else
%>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%">
<table border="0" cellpadding="0" cellspacing="1" width="100%">
<tr>
<td width="5%"></td>
<td width="95%"><p class="ft8"<b><font color="#cc6600"> INSTRUÇÕES. </font></b>
<p class="ft8"><b>Alterar a quantidade: </b>Digite a nova quantidade no campo (Quant.) e em seguida clique no botão "Recalcular Pedido".
<p class="ft8"><b>Inserir novo livro na cesta: </b>Clique no link "Continuar comprando".
<p class="ft8"><b>Excluir um livro na cesta: </b>Digite 0 (zero) no campo (Quant.) e em seguida clique no botão "Recalcular Pedido".</b>
<p class="ft8"><b>Fechar pedido: </b> Concluída a sua compra, clique no link "Fechar seu pedido&quot
</td>
</tr>
</table>
</td>
</tr>
</table>
<form action="cesta.asp" method="POST">
<table border="0" cellpadding="0" cellspacing="1" width="100%">
<tr>
<td width="48%" bgcolor="#00669"><p class="ft8"><font color="#ffffff">Título do Livro</font></td>
<td width="15%" bgcolor="#00669"><p class="ft8" align="right"><font color="#FFFFFF">Preço Unitário</font></td>
<td width="9%" bgcolor="#00669""><p class="ft8" align="center"><font color="#ffffff">Quant.</font></p> </td>
<td width="13%" bgcolor="#00669"><p class="ft8" align="center"><b><font color="#ffffff">Desconto (-)</font></b></p></td>
<td width="17%" bgcolor="#00669"><p class="ft8" align="center"><font color="#ffffff"> <font color="#FFFFFF"><b>Total Unitário</b></font></font></p></td>
</tr>
</table>
<%
totalped=0
desconto=0
totalpeddesc=0
totaldesconto=0

DO WHILE not rsitenspedido.eof
desconto=rsitenspedido("qtlivro") * rsitenspedido.fields("preco") * rsitenspedido.fields("desconto") / 100
%>
<table border="0" cellpadding="0" cellspacing="1" width="100%">

<tr>
<td width="48%" bgcolor="#cccccc"><p class="ft8"><%= rsitenspedido.fields("titulo")%></td>
<td width="15%" bgcolor="#cccccc"><p class="ft8" align="right">R$ <%= formatnumber(rsitenspedido.fields("preco"),2)%></td>
<td width="9%" bgcolor="#cccccc""><p class="ft8" align="center"><input type="TEXT" name="<% = rsitenspedido.fields("codLivro") %>" size="2" maxlength="2" value="<%=rsitenspedido.fields("QtLivro")%>"></td>
<td width="13%" bgcolor="#cccccc"><p class="ft8" align="right">R$ <%= formatnumber(desconto,2)%></td>
<td width="17%" bgcolor="#cccccc"><p class="ft8" align="right">R$ <%= formatnumber(rsitenspedido.fields("QtLivro") * rsitenspedido("preco"),2) %></td>
</tr>
</table>
<%
totalped=(rsitenspedido.fields("qtlivro")*  rsitenspedido("preco"))+ totalped
rsitenspedido.Movenext
totaldesconto=totaldesconto + desconto
loop
session("totalped")=totalped
session("totaldesconto")=totaldesconto
session("totalpeddesc")=totalped - totaldesconto

rsitenspedido.close
set rsitenspedido=nothing
set rsiinsitem=nothing
call fechaconexao
%>
<table border="0" cellpadding="0" cellspacing="1" width="100%">
<tr>
<td width="102%" bgcolor="#ffffff" colspan="3">
<hr size="1" color="#CCCCCC">
</td>
</tr>
<tr>
<td width="48%" bgcolor="#ffffff" rowspan="3"><p class="ft10" align="center"><input type="submit" value="Recalcular Pedido" name="btRec"></td>
<td width="%" bgcolor="#006699"><p class="ft8"><b><font color="#FFFFFF">Valor Total (menos o frete) : </font></b></td>
<td width="17%" bgcolor="#006699"><p class="ft8" align="right"><font color="#FFFFFF"> R$ <b><%= formatnumber(session("totalped"),2)%></b></font></td>
</tr>
<tr>
<td width="37%" bgcolor="#0099cc"><p class="ft8"><b><font color="#FFFFFF">Descontos ( - ): </font></b></td>
<td width="17%" bgcolor="#0099cc"><p class="ft8" align="right"><font color="#FFFFFF">  R$ <b><%= formatnumber(session("totaldesconto"),2) %> </b></font></td>
</tr>
<tr>
<td width="37%" bgcolor="#006699"><p class="ft8"><b><font color="#FFFFFF">Total com Descontos (menos o frete) : </font></b></p></td>
<td width="17%" bgcolor="#006699"><p class="ft8" align="right"><font color="#FFFFFF"> R$ <b><%= formatnumber(session("totalpeddesc"),2)%></b></font></p></td>
</tr>
/table>
</form>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%">
<p class="ft8" align="center">  <font color="#cc6600"><b>Nota</b></font><font color="#cc6600"><b>: </b></font> O valor total de sua compra não inclui o frete. Ele será calculado no fechamento do seu pedido.</p>
<hr size="1" color="#cccccc">
</td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="1" width="100%">
<tr>
<td width="33%" bgcolor="#cc6600">
<p align="center" class="ft8"> <a href="index.asp" class="menu"<font color="#FFFFFF">Continuar comprando</font></a></td>
<td width="33%" bgcolor="#990000">
<p align="center" class="ft8"> <a href="fechapedido.asp" class="menu"<font color="#ffffff">Fechar seu pedido</font></a></td>
<td width="34%" bgcolor="#cc6600">
<p class="ft8" align="center"> <a href="excluicesta.asp" class="menu"<font color="#FFFFFF">Esvaziar toda a cesta</font></a></td>
</tr>
</table>
<%
end if
%>

<!--#include file="rodape.inc"-->
</body>
</html>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Acho que você tem parenteses demais... mas adiciona uma aspa simples nas variaveis...

 

deixa tudo inline, só para testar mesmo...

strinsitem = "INSERT into itens (codpedido, codlivro, qtlivro) values("&codigopedido&", '"&field_name& "', '"&request.form(FIELD_NAME)&"')"

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.