<% vmsg = request("mensagem") if vmsg <> "" then Response.Write("<" & "script>alert('" & "ATENÇÃO, \esse produto no momento encontra-se indisponível tanto para venda como importação, o produto NÃO será adicionado ao carrinho de compras : " & vmsg & "');") Response.Write("<" & "/script>") end if vcrm = year(date) & month(date) & day(date) & Hour(Now) & Minute(Now) & Second(Now) vemail = Session("email_carrinho") vsenha = Session("senha_carrinho") vipadress = Request.ServerVariables("remote_addr") ventrou = 0 IF trim(vemail) <> "" and trim(vsenha) <> "" then ventrou = 1 vfrete = 0 ' FAZ A VERIFICACAO DO NOME DO BANCO DE DADOS E SE O MESMO EXISTE set fs=Server.CreateObject("Scripting.FileSystemObject") vbanco =server.MapPath("/dados/banco.txt") 'If (fs.FileExists(vbanco)) Then ' set fich = fs.OpenTextFile(vbanco, 1,true) ' vodbc = fich.readAll() 'else ' vodbc = "SEM DESCRIÇÃO DE BANCO DE DADOS NO SERVIDOR" ' response.Write(vodbc) ' response.End() 'end if ' FIM BANCO DE DADOS 'Set OBJdbConnection = Server.CreateObject("ADODB.Connection") 'OBJdbConnection.Open vodbc Set OBJdbConnection = Server.CreateObject("ADODB.Connection") OBJdbConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/banco/okey.mdb") & ";Persist Security Info=False" IF Request("mode") = "delete" then SQL = "DELETE * FROM CARRINHO WHERE contareg=" & Request("ITEM") & " and email ='" & vemail & "' AND senha='" & vsenha & "'" Set rs=OBJdbConnection.Execute(SQL) end if IF Request("mode") = "updateItem" then SQL = "SELECT * FROM CARRINHO WHERE email ='" & vemail & "' AND senha='" & vsenha & "'" Set rs=OBJdbConnection.Execute(SQL) if not rs.EOF then Set RS = Server.CreateObject("ADODB.Recordset") RS.ActiveConnection = OBJdbConnection RS.CursorType = 1 RS.LockType = 3 RS.Source = SQL RS.Open vip = 1 rs.MoveFirst do while NOT RS.EOF RS("quantidade") = Request ("QUANTIDADE" & vip) RS("subtotal") = RS("valor") * Request ("QUANTIDADE" & vip) RS.Update RS.MoveNext vip= vip + 1 LOOP RS.Close SQL = "SELECT * FROM CARRINHO WHERE email ='" & vemail & "' AND senha='" & vsenha & "'" Set rs=OBJdbConnection.Execute(SQL) end if end if SQL = "SELECT * FROM CARRINHO WHERE email ='" & vemail & "' AND senha='" & vsenha & "'" Set rs=OBJdbConnection.Execute(SQL) if not rs.EOF then Set RS = Server.CreateObject("ADODB.Recordset") RS.ActiveConnection = OBJdbConnection RS.CursorType = 1 RS.LockType = 3 RS.Source = SQL RS.Open vip = 1 rs.MoveFirst vtotal = 0 do while NOT RS.EOF vtotal = vtotal + rs("subtotal") RS("ip") = vip RS.Update RS.MoveNext vip= vip + 1 LOOP rs.MoveFirst do while NOT RS.EOF RS("total") = vtotal RS.Update RS.MoveNext LOOP RS.Close SQL = "SELECT * FROM CARRINHO WHERE email ='" & vemail & "' AND senha='" & vsenha & "'" Set rs=OBJdbConnection.Execute(SQL) end if end if %>
OKEY SOLUTIONS   CARRINHO DE COMPRAS
Carrinho de compras da OKEY SOLUTIONS. Caso não consiga comprar por esse site ou por qualquer outro motivo, ou precise de algum produto que você não encontrou aqui, envie e-mail para vendas@okey.com.br. Para outros assuntos envie e-mail para sac@okey.com.br, ou visite o site www.okey.com.br
<% subt = 0 %> <% vitem = 1 %> <% if ventrou = 1 THEN %> <% do while not rs.eof %> <% vproduto_imagem = "pn-imagens/" & rs("codigo") & ".jpg" %> <% if fs.FileExists(Server.MapPath(vproduto_imagem))=true then %> <% else %> <% end if %> <% vq = rs("subtotal") %> <% if vq = 0 or isnull(vq)then %> <% vq = 1 %> <% end if %> <% rs.movenext %> <% vitem =vitem +1 %> <% loop %> <% subt = subt + vq %> <% ELSE %> <% END IF %>
Item Código Produto Nome do Produto Preço Unitário Qtd Excluir Valor Sub-total (R$)
IP : <%= vipadress%>
<% = rs("ip") %> <% = rs("codigo") %> >

<% = rs("descricao") %>

R$ <% = rs("valor") %> name=<%= "quantidade" & rs("ip") %>> " target="_self">DELETA ITEM DO CARRINHO R$ <% = FormatNumber(rs("subtotal"),2) %> <% subt = subt + vq %>
O CARRINHO ESTÁ VAZIO
Se a quantidade for alterada clique aqui :

No momento estamos aceitando pagamento apenas no boleto bancário ou depósito em conta BB, ITAÚ ou Bradesco. Se a opção for boleto bancário, você receberá o boleto no seu email após o fechamento do pedido. Temos a opção para pagamento no porta a porta direto à transportadora caso a sua compra for superior a R$ 300,00 e você estiver dentro da cidade de São Paulo.

Todas as Marcas referidas neste website são ou podem ser marcas comerciais registradas e protegidas por leis internacionais de copyright e propriedade industrial e pertencem aos seus respectivos fabricantes e proprietários.
Total <% = FormatNumber(subt ,2)%>
FRETE