Jump to content

Archived

This topic is now archived and is closed to further replies.

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>

Share this post


Link to post
Share on other 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)&"')"

Share this post


Link to post
Share on other sites

×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.