Transferência de itens

[Marinho 0]

Ola !

Estou precisando transferir os itens do carrinho ( Sessão ) para a tabela pedido.

 

Meu carrinho

 

<%

'Define Constantes

CONST cartpid = 0

CONST cartpname = 1

CONST cartpprice = 2

CONST cartpquantity = 3

 

'Pega Carrinho

IF NOT isArray(Session("cart") ) THEN

DIM localcart(4,20)

ELSE

localcart = Session("cart")

END IF

 

'Pega Informações

productid = TRIM(Request.QueryString("id_prod") )

productname = TRIM(Request.QueryString("nome_prod") )

productprice = TRIM(Request.QueryString("preco_prod") )

 

'Adicionar ao Carrinho

IF productid <> "" THEN

foundit= false

FOR i=o to Ubound (localcart,2)

IF localcart(cartpid,i) = productid THEN

localcart(cartpquantity,i) = localcart( cartpquantity, i) + 1

foundit = TRUE

EXIT FOR

END IF

NEXT

IF NOT foundit THEN

FOR i=0 to UBOUND(localcart,2)

IF localcart(cartpid,i) = "" THEN

localcart(cartpid,i) = productid

localcart(cartpname,i) = productname

localcart(cartpprice,i) = productprice

localcart(cartpquantity,i) = 1

EXIT FOR

END IF

NEXT

END IF

END IF

 

'Atualiza Carrinho

IF Request("updateQ") <> "" THEN

FOR i=0 to Ubound (localcart,2)

newQ = TRIM(Request("pq" & localcart(cartpid,i) ) )

deleteproduct = TRIM(Request.QueryString("productid") )

IF newQ = "" or newQ = "0" or deleteproduct <> "" THEN

IF deleteproduct = localcart(cartpid,i) THEN

localcart(cartpid,i) = ""

END IF

ELSE

IF isNumeric(newQ) THEN

localcart (cartpquantity,i) = newQ

END IF

END IF

NEXT

END IF

 

 

'Update Sesssion Carrinho

Session("cart") = localcart

 

%>

<center>

<FORM method="post" action="carrinho.asp" Name="form">

<input name="updateQ" type="hidden" value="1">

<TABLE width="100%" BORDER=0>

<TR>

<TD>

<TABLE width="100%" Border=1>

<TR>

<TD Align="center"><b>Produto</b></TD>

<TD Align="center"><b>Preço</b></TD>

<TD Align="center"><b>Quantidade</b></TD>

</TR>

<% total = 0 %>

<% FOR i=0 TO Ubound(localcart,2) %>

<% IF localcart(cartpid,i) <> "" THEN %>

<% total = total + localcart(cartpprice,i)*localcart(cartpquantity,i)%>

<TR>

<TD><%=localcart(cartpname,i)%></TD>

<TD><%=localcart(cartpprice,i)%></TD>

<TD><INPUT TYPE="TEXT" Size="1" Value="<%=localcart(cartpquantity,i)%>" Name="pq<%=localcart(cartpid,i)%>"> <a href="carrinho.asp?updateQ=1&productid=<%=localcart(cartpid,i)%>"><IMG SRC="delete.gif" Border=0></a></TD>

</TR>

 

<% END IF %>

<% NEXT %>

</TABLE>

</TD></TR>

<TR>

<TD Align="right">

<TABLE BORDER=1>

<TR>

<TD>Total:</TD>

<TD>R$<%=Total%></TD>

</TR>

</TABLE>

 

</TD></TR>

</TABLE>

<br>

<INPUT TYPE="Submit" Value="Atualizar">

<label>

<a href="fecha_pedido.asp">Fecha Pedido</a>

</label>

<label>

<a href="Default.asp">Continuar Comprando</a>

</label>

</FORM>

<a href="default.asp">voltar</a></center>

 

--------------------------------------------------------------------------------------------------

Como eu faço para jogar os itens do carrinho ( Sessão ) na tabela pedido ?

Obrigado a todos

[Marinho 0]

Ola !

Estou precisando transferir os itens do carrinho ( Sessão ) para a tabela pedido.

 

Meu carrinho

 

<%

'Define Constantes

CONST cartpid = 0

CONST cartpname = 1

CONST cartpprice = 2

CONST cartpquantity = 3

 

'Pega Carrinho

IF NOT isArray(Session("cart") ) THEN

DIM localcart(4,20)

ELSE

localcart = Session("cart")

END IF

 

'Pega Informações

productid = TRIM(Request.QueryString("id_prod") )

productname = TRIM(Request.QueryString("nome_prod") )

productprice = TRIM(Request.QueryString("preco_prod") )

 

'Adicionar ao Carrinho

IF productid <> "" THEN

foundit= false

FOR i=o to Ubound (localcart,2)

IF localcart(cartpid,i) = productid THEN

localcart(cartpquantity,i) = localcart( cartpquantity, i) + 1

foundit = TRUE

EXIT FOR

END IF

NEXT

IF NOT foundit THEN

FOR i=0 to UBOUND(localcart,2)

IF localcart(cartpid,i) = "" THEN

localcart(cartpid,i) = productid

localcart(cartpname,i) = productname

localcart(cartpprice,i) = productprice

localcart(cartpquantity,i) = 1

EXIT FOR

END IF

NEXT

END IF

END IF

 

'Atualiza Carrinho

IF Request("updateQ") <> "" THEN

FOR i=0 to Ubound (localcart,2)

newQ = TRIM(Request("pq" & localcart(cartpid,i) ) )

deleteproduct = TRIM(Request.QueryString("productid") )

IF newQ = "" or newQ = "0" or deleteproduct <> "" THEN

IF deleteproduct = localcart(cartpid,i) THEN

localcart(cartpid,i) = ""

END IF

ELSE

IF isNumeric(newQ) THEN

localcart (cartpquantity,i) = newQ

END IF

END IF

NEXT

END IF

 

 

'Update Sesssion Carrinho

Session("cart") = localcart

 

%>

<center>

<FORM method="post" action="carrinho.asp" Name="form">

<input name="updateQ" type="hidden" value="1">

<TABLE width="100%" BORDER=0>

<TR>

<TD>

<TABLE width="100%" Border=1>

<TR>

<TD Align="center"><b>Produto</b></TD>

<TD Align="center"><b>Preço</b></TD>

<TD Align="center"><b>Quantidade</b></TD>

</TR>

<% total = 0 %>

<% FOR i=0 TO Ubound(localcart,2) %>

<% IF localcart(cartpid,i) <> "" THEN %>

<% total = total + localcart(cartpprice,i)*localcart(cartpquantity,i)%>

<TR>

<TD><%=localcart(cartpname,i)%></TD>

<TD><%=localcart(cartpprice,i)%></TD>

<TD><INPUT TYPE="TEXT" Size="1" Value="<%=localcart(cartpquantity,i)%>" Name="pq<%=localcart(cartpid,i)%>"> <a href="carrinho.asp?updateQ=1&productid=<%=localcart(cartpid,i)%>"><IMG SRC="delete.gif" Border=0></a></TD>

</TR>

 

<% END IF %>

<% NEXT %>

</TABLE>

</TD></TR>

<TR>

<TD Align="right">

<TABLE BORDER=1>

<TR>

<TD>Total:</TD>

<TD>R$<%=Total%></TD>

</TR>

</TABLE>

 

</TD></TR>

</TABLE>

<br>

<INPUT TYPE="Submit" Value="Atualizar">

<label>

<a href="fecha_pedido.asp">Fecha Pedido</a>

</label>

<label>

<a href="Default.asp">Continuar Comprando</a>

</label>

</FORM>

<a href="default.asp">voltar</a></center>

 

--------------------------------------------------------------------------------------------------

Como eu faço para jogar os itens do carrinho ( Sessão ) na tabela pedido ?

Obrigado a todos

Alguém pode me ajudar por favor ?

[Shison 0]

Opa,você tem todos seus dados na sua sessão correto?Então ná há mistério.Abra uma conexão com seu Banco de Dados e persista os dados da sua sessão no banco através de uma sentença SQL.Se você não sabe como trabalhar com um BD, é melhor você parar de programar sua loja e estudar esta parte, pois não conseguirá prosseguir..boa sorte.até mais