<% %> <% 'Chama os dados da compra pag = request.querystring("itens") pagdxx = request.querystring("pagina") if pag = "" then inicial = 0 final = 3 else inicial = pag final = 3 end if set rs = abredb.Execute("SELECT idcompra,pedido,datacompra,frete,totalcompra,status FROM compras WHERE clienteid='"&Cripto(session("usuario"),true)&"' and status <> 'Compra em Aberto' ORDER by datacompra desc") if rs.eof or rs.bof then %>

<%=strLg4%> » <%=strLg10%> > <%=strLg204%> <%=nomeloja%>! > :: <%=strLg41%> ::

<% response.end else 'Chama as compras do usuario username=session("usuario") %>

<%=strLg4%> » <%=strLg10%> > <% 'Verifica o numero do pedido e o nome do cliente Set dados = abredb.Execute("SELECT email,nome FROM clientes WHERE email='"&Cripto(session("usuario"),true)&"';") if dados.EOF then nomez = "" else nomez = Cripto(dados("nome"),false) end if dados.Close set dados = Nothing rs.close set rs = nothing %> <%=strLg119%>  <%=nomez%> <% set compras = abredb.Execute("SELECT pedido, clienteid, idcompra, datacompra, frete, totalcompra FROM compras WHERE clienteid='" & Cripto(Session("usuario"),true) & "' AND status <> 'Compra em Aberto' order by pedido desc") if not compras.eof then do while not compras.eof%>    Compra # <%= compras("pedido")%>  Compra Efetuada na Data: <%= compras("datacompra")%> Total da Compra: <%= strLgMoeda & " " &Cripto(compras("totalcompra"),false)%> Total do Frete: <%= strLgMoeda & " " &Cripto(compras("frete"),false)%> > > <% compras.movenext loop compras.close set compras = nothing end if end if %> > :: <%=strLg4%> ::