<% fonte = application("fonte") corfundo = application("corfundo") cor1 = application("cor1") cor2 = application("cor2") cor3 = application("cor3") cor4= application("cor4") cor5= application("cor5") fontebranca = application("fontebranca") fontepreta = application("fontepreta") corborda = application("corborda") '##### COMPRAS 'Sub ComprasASP() If Request("acaba") = "sim" Then Session("adm_descprod") = "" Session("adm_email") = "" End If Select Case strAcao Case "vert" strTextoHtml = strTextoHtml & " Ver todas as Compras
" strTextoHtml = strTextoHtml & "
" finalera = Request.QueryString("final") pag = Request.QueryString("itens") pesss = Trim(Request.QueryString("pesq")) pagdxx = Request.QueryString("pagina") pesqsa = Request.QueryString("pesqsa") catege = Request("cat") Mes = CStr(Trim(Request("mes"))) If Mes = "1" Or Mes = "01" Then Mes = "janeiro" End If If Mes = "2" Or Mes = "02" Then Mes = "fevereiro" End If If Mes = "3" Or Mes = "03" Then Mes = "março" End If If Mes = "4" Or Mes = "04" Then Mes = "abril" End If If Mes = "5" Or Mes = "05" Then Mes = "maio" End If If Mes = "6" Or Mes = "06" Then Mes = "junho" End If If Mes = "7" Or Mes = "07" Then Mes = "julho" End If If Mes = "8" Or Mes = "08" Then Mes = "agosto" End If If Mes = "9" Or Mes = "09" Then Mes = "setembro" End If If Mes = "10" Then Mes = "outubro" End If If Mes = "11" Then Mes = "novembro" End If If Mes = "12" Then Mes = "dezembro" End If If pesss = "" Then pesss = "-" palavra = Split(Trim("asdfghjklçqwertyuiopzxcvbnm"), " ") Else pesss = pesss palavra = Split(Trim(Request.QueryString("pesq")), " ") End If If pag = "" Then inicial = 0 final = 20 Else inicial = pag final = 20 End If If pesqsa = "" Then restinho = "" catege = "todos" Else If catege = "todos" Or catege = "xxx" Or catege = "" Then resto = "" Else resto = "idsessao = '" & catege & "' and" End If palavraz = Split(Trim(pesqsa), " ") restinho = "WHERE " & resto & " nome LIKE '%" & palavraz(0) & "%'" End If If VersaoDb = 1 then Set rs = conexao.Execute("select * from compras where status <> 'Compra em Aberto' LIMIT " & inicial & "," & final & ";") else set rs = createobject("adodb.recordset") set rs.activeconnection = conexao rs.cursortype = 3 rs.pagesize = final rs.open "select * from compras where status <> 'Compra em Aberto'" end if If rs.EOF Or rs.bof Then strTextoHtml = strTextoHtml & "Compra(s) efetuada(s) na loja: 0" & totalreg & "
" strTextoHtml = strTextoHtml & "
" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "



Nenhuma compra referente a este dia foi encontrada na base de dados da loja.



" strTextoHtml = strTextoHtml & "
" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "
" strTextoHtml = strTextoHtml & "
" strTextoHtml = strTextoHtml & " Página(s): 1

Voltar para Página Inicial
" Else Set rs2 = conexao.Execute("SELECT count(pedido) AS total FROM compras WHERE status <> 'Compra em Aberto'") totalreg = rs2("total") rs2.Close Set rs2 = Nothing numiz = Request("pagina") & "0" numiz = CInt(numiz) * 2 iz = iz + numiz strTextoHtml = strTextoHtml & "Compra(s) efetuada(s) na loja: " & totalreg & "
" strTextoHtml = strTextoHtml & "
" If Request("status") = "sucesso" Then strTextoHtml = strTextoHtml & "
COMPRA EXCLUÍDA COM SUCESSO!

" Else End If strTextoHtml = strTextoHtml & "" If VersaoDb = 1 then While Not rs.EOF iz = iz + 1 Select Case rs("estadoentrega") Case "AC" estadoz = "Acre" Case "AL" estadoz = "Alagoas" Case "AP" estadoz = "Amapá" Case "AM" estadoz = "Amazonas" Case "BA" estadoz = "Bahia" Case "CE" estadoz = "Ceará" Case "DF" estadoz = "Distrito Federal" Case "ES" estadoz = "Espirito Santo" Case "GO" estadoz = "Goiás" Case "MA" estadoz = "Maranhão" Case "MT" estadoz = "Mato Grosso" Case "MS" estadoz = "Mato Grosso do Sul" Case "MG" estadoz = "Minas Gerais" Case "PA" estadoz = "Pará" Case "PB" estadoz = "Paraiba" Case "PR" estadoz = "Parana" Case "PE" estadoz = "Pernambuco" Case "PI" estadoz = "Piauí" Case "RJ" estadoz = "Rio de Janeiro" Case "RN" estadoz = "Rio Grande do Norte" Case "RS" estadoz = "Rio Grande do Sul" Case "RO" estadoz = "Rondônia" Case "RR" estadoz = "Roraima" Case "SC" estadoz = "Santa Catarina" Case "SP" estadoz = "São Paulo" Case "SE" estadoz = "Sergipe" Case "TO" estadoz = "Tocantins" End Select on error resume next Set rs3 = conexao.Execute("select * from clientes where email='" & rs("clienteid") & "';") If rs("status")= "0" Then estatus_cliente = "Aguardando confirmação de pagamento" End If If rs("status") = "1" Then estatus_cliente = "Pagamento confirmado e Processar Compra" End If If rs("status") = "2" Then estatus_cliente = "Compra enviada, com envio de email informando ao cliente" End If If rs("status") = "3" Then estatus_cliente = "Compra já entregue" End If If rs("status") = "4" Then estatus_cliente = "Pagamento cancelado, com envio de email confirmando ao cliente" End If If rs("status") = "5" Then estatus_cliente = "Pagamento Negada, com envio de email informando ao cliente" End If If rs("status") = "6" Then estatus_cliente = "Pagamento cancelado, com envio de email informando ao cliente para entrar em contato" End If strTextoHtml = strTextoHtml & "
" & vbNewLine strTextoHtml = strTextoHtml & "" & vbNewLine strTextoHtml = strTextoHtml & "
" & iz & ") Compra feita por: " & UCase(Cripto(rs3("nome"),false)) & "
      Frete para: " & estadoz & "    Total da compra: R$ " & FormatNumber(-1 + Cripto(rs("totalcompra"),false) + Cripto(rs("frete"),false) + 1, 2) & "
      Status: " & estatus_cliente & "		Ação: Ver | Excluir 
" rs.movenext pagn = inicial + 20 Wend paga = pagn - 40 If totalreg Mod 20 <> 0 Then valor = 1 Else valor = 0 End If pagina = Fix(totalreg / 20) + valor pagina = Replace(pagina, ",", "") pagdxx = pagdxx + 1 pagdxx = Replace(pagdxx, ",", "") pagdxx2 = pagdxx - 2 pagdxx2 = Replace(pagdxx2, ",", "") paga = Replace(paga, ",", "") pagn = Replace(pagn, ",", "") If pagdxx = "" Then pagdxx = 1 If pagina = "0" Then pagina = "1" strTextoHtml = strTextoHtml & "
" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "
" strTextoHtml = strTextoHtml & "
" If paga < 0 Then paga = 0 Else strTextoHtml = strTextoHtml & "Página Anterior  " End If If totalreg < final Or totalreg = 20 Or pagdxx = pagina Then totalreg = "" npc = 1 totalp = 1 Else variavel1 = CStr(pagdxx + 1) variavel2 = CStr(pagina) variavel1 = Replace(variavel1, ",", "") variavel2 = Replace(variavel2, ",", "") strTextoHtml = strTextoHtml & "  Próxima página" End If strTextoHtml = strTextoHtml & "
" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "
" strTextoHtml = strTextoHtml & "
Página " & pagdxx & " de " & pagina & "" If pagina = 1 Then finalera = "sim" End If If pagina <> 1 Then For i = 1 To pagina - 1 i = Replace(i, ",", "") i2 = i - 1 i2 = Replace(i2, ",", "") fator = 20 totalfator = fator * i - 20 totalfator = Replace(totalfator, ",", "") paginadem = pagdxx paginadem = Replace(paginadem, ",", "") strTextoHtml = strTextoHtml & " " If paginadem = i Then strTextoHtml = strTextoHtml & "" End If strTextoHtml = strTextoHtml & Replace(i, ",", "") & " ·" Next End If pagina2 = pagina * 20 - 20 pagina2 = Replace(pagina2, ",", "") pagina3 = pagina - 1 pagina3 = Replace(pagina3, ",", "") strTextoHtml = strTextoHtml & " " If finalera = "sim" Then strTextoHtml = strTextoHtml & "" End If strTextoHtml = strTextoHtml & pagina & "

Voltar para Página Inicial

" else pag = request.querystring("pagina") if pag = "" Then pag = 1 end if contador = 0 rs.absolutepage = pag while not rs.eof and contador < rs.pagesize contador = contador +1 iz = iz + 1 Select Case rs("estadoentrega") Case "AC" estadoz = "Acre" Case "AL" estadoz = "Alagoas" Case "AP" estadoz = "Amapá" Case "AM" estadoz = "Amazonas" Case "BA" estadoz = "Bahia" Case "CE" estadoz = "Ceará" Case "DF" estadoz = "Distrito Federal" Case "ES" estadoz = "Espirito Santo" Case "GO" estadoz = "Goiás" Case "MA" estadoz = "Maranhão" Case "MT" estadoz = "Mato Grosso" Case "MS" estadoz = "Mato Grosso do Sul" Case "MG" estadoz = "Minas Gerais" Case "PA" estadoz = "Pará" Case "PB" estadoz = "Paraiba" Case "PR" estadoz = "Parana" Case "PE" estadoz = "Pernambuco" Case "PI" estadoz = "Piauí" Case "RJ" estadoz = "Rio de Janeiro" Case "RN" estadoz = "Rio Grande do Norte" Case "RS" estadoz = "Rio Grande do Sul" Case "RO" estadoz = "Rondônia" Case "RR" estadoz = "Roraima" Case "SC" estadoz = "Santa Catarina" Case "SP" estadoz = "São Paulo" Case "SE" estadoz = "Sergipe" Case "TO" estadoz = "Tocantins" End Select on error resume next Set rs3 = conexao.Execute("select * from clientes where email='" & rs("clienteid") & "';") If rs("status")= "0" Then estatus_cliente = "Aguardando confirmação de pagamento" End If If rs("status") = "1" Then estatus_cliente = "Pagamento confirmado e Processar Compra" End If If rs("status") = "2" Then estatus_cliente = "Compra enviada, com envio de email informando ao cliente" End If If rs("status") = "3" Then estatus_cliente = "Compra já entregue" End If If rs("status") = "4" Then estatus_cliente = "Pagamento cancelado, com envio de email confirmando ao cliente" End If If rs("status") = "5" Then estatus_cliente = "Pagamento Negada, com envio de email informando ao cliente" End If If rs("status") = "6" Then estatus_cliente = "Pagamento cancelado, com envio de email informando ao cliente para entrar em contato" End If strTextoHtml = strTextoHtml & "" & vbNewLine strTextoHtml = strTextoHtml & "" & vbNewLine strTextoHtml = strTextoHtml & "
" & iz & ") Compra feita por: " & UCase(Cripto(rs3("nome"),false)) & "
      Frete para: " & estadoz & "    Total da compra: R$ " & FormatNumber(-1 + Cripto(rs("totalcompra"),false) + Cripto(rs("frete"),false) + 1, 2) & "
      Status: " & estatus_cliente & "		Ação: Ver | Excluir 
" rs.movenext wend strTextoHtml = strTextoHtml & "

" strTextoHtml = strTextoHtml & "
" strTextoHtml = strTextoHtml & "
" strTextoHtml = strTextoHtml & "Página(s):  " for i = 1 to rs.pagecount if i = cint(pag) then strTextoHtml = strTextoHtml & "" & i & " " else strTextoHtml = strTextoHtml & "" & i & " " end if next strTextoHtml = strTextoHtml & "
" end if rs.Close Set rs = Nothing End If '))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) '))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) Case "ver" strTextoHtml = strTextoHtml & " Administrar compras efetuadas na loja
" strTextoHtml = strTextoHtml & "
" Call CalendarioASP strTextoHtml = strTextoHtml & "
>> Datas em VERMELHO indicam compras efetudadas no dia<<
" finalera = Request.QueryString("final") pag = Request.QueryString("itens") pesss = Trim(Request.QueryString("pesq")) pagdxx = Request.QueryString("pagina") pesqsa = Request.QueryString("pesqsa") catege = Request("cat") Mes = CStr(Trim(Request("mes"))) If Mes = "1" Or Mes = "01" Then Mes = "janeiro" End If If Mes = "2" Or Mes = "02" Then Mes = "fevereiro" End If If Mes = "3" Or Mes = "03" Then Mes = "março" End If If Mes = "4" Or Mes = "04" Then Mes = "abril" End If If Mes = "5" Or Mes = "05" Then Mes = "maio" End If If Mes = "6" Or Mes = "06" Then Mes = "junho" End If If Mes = "7" Or Mes = "07" Then Mes = "julho" End If If Mes = "8" Or Mes = "08" Then Mes = "agosto" End If If Mes = "9" Or Mes = "09" Then Mes = "setembro" End If If Mes = "10" Then Mes = "outubro" End If If Mes = "11" Then Mes = "novembro" End If If Mes = "12" Then Mes = "dezembro" End If If pesss = "" Then pesss = "-" palavra = Split(Trim("asdfghjklçqwertyuiopzxcvbnm"), " ") Else pesss = pesss palavra = Split(Trim(Request.QueryString("pesq")), " ") End If If pag = "" Then inicial = 0 final = 20 Else inicial = pag final = 20 End If If pesqsa = "" Then restinho = "" catege = "todos" Else If catege = "todos" Or catege = "xxx" Or catege = "" Then resto = "" Else resto = "idsessao = '" & catege & "' and" End If palavraz = Split(Trim(pesqsa), " ") restinho = "WHERE " & resto & " nome LIKE '%" & palavraz(0) & "%'" End If If VersaoDb = 1 then Set rs = conexao.Execute("select * from compras where datacompra='" & Request("data") & "' AND status <> 'Compra em Aberto' LIMIT " & inicial & "," & final & ";") else set rs = createobject("adodb.recordset") set rs.activeconnection = conexao rs.cursortype = 3 rs.pagesize = final rs.open "select * from compras where datacompra='" & Request("data") & "' AND status <> 'Compra em Aberto'" end if If rs.EOF Or rs.bof Then if Request("data")<>"" then strTextoHtml = strTextoHtml & "Compra(s) efetuada(s) em " & Request("dia") & " de " & Mes & " de " & Request("ano") & ": 0" & totalreg & "
" strTextoHtml = strTextoHtml & "
" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "



Nenhuma compra referente a este dia foi encontrada na base de dados da loja.



" strTextoHtml = strTextoHtml & "
" end if strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "
" strTextoHtml = strTextoHtml & "
" strTextoHtml = strTextoHtml & " Página(s): 1

Voltar para Página Inicial
" Else Set rs2 = conexao.Execute("SELECT count(pedido) AS total FROM compras WHERE datacompra='" & Request("data") & "' AND status <> 'Compra em Aberto'") totalreg = rs2("total") rs2.Close Set rs2 = Nothing numiz = Request("pagina") & "0" numiz = CInt(numiz) * 2 iz = iz + numiz strTextoHtml = strTextoHtml & "Compra(s) efetuada(s) em " & Request("dia") & " de " & Mes & " de " & Request("ano") & ": " & totalreg & "
" strTextoHtml = strTextoHtml & "
" If Request("status") = "sucesso" Then strTextoHtml = strTextoHtml & "
COMPRA EXCLUÍDA COM SUCESSO!

" Else End If strTextoHtml = strTextoHtml & "" If VersaoDb = 1 then While Not rs.EOF iz = iz + 1 Select Case rs("estadoentrega") Case "AC" estadoz = "Acre" Case "AL" estadoz = "Alagoas" Case "AP" estadoz = "Amapá" Case "AM" estadoz = "Amazonas" Case "BA" estadoz = "Bahia" Case "CE" estadoz = "Ceará" Case "DF" estadoz = "Distrito Federal" Case "ES" estadoz = "Espirito Santo" Case "GO" estadoz = "Goiás" Case "MA" estadoz = "Maranhão" Case "MT" estadoz = "Mato Grosso" Case "MS" estadoz = "Mato Grosso do Sul" Case "MG" estadoz = "Minas Gerais" Case "PA" estadoz = "Pará" Case "PB" estadoz = "Paraiba" Case "PR" estadoz = "Parana" Case "PE" estadoz = "Pernambuco" Case "PI" estadoz = "Piauí" Case "RJ" estadoz = "Rio de Janeiro" Case "RN" estadoz = "Rio Grande do Norte" Case "RS" estadoz = "Rio Grande do Sul" Case "RO" estadoz = "Rondônia" Case "RR" estadoz = "Roraima" Case "SC" estadoz = "Santa Catarina" Case "SP" estadoz = "São Paulo" Case "SE" estadoz = "Sergipe" Case "TO" estadoz = "Tocantins" End Select on error resume next Set rs3 = conexao.Execute("select * from clientes where email='" & rs("clienteid") & "';") strTextoHtml = strTextoHtml & "
" & vbNewLine strTextoHtml = strTextoHtml & "" & vbNewLine strTextoHtml = strTextoHtml & "
" & iz & ") Compra #"&rs("idcompra")&" feita por: " & UCase(Cripto(rs3("nome"),false)) & "
      Frete para: " & estadoz & "    Total da compra: R$ " & FormatNumber(-1 + Cripto(rs("totalcompra"),false) + Cripto(rs("frete"),false) + 1, 2) & "		Ação: Ver | Excluir 
" rs.movenext pagn = inicial + 20 Wend paga = pagn - 40 If totalreg Mod 20 <> 0 Then valor = 1 Else valor = 0 End If pagina = Fix(totalreg / 20) + valor pagina = Replace(pagina, ",", "") pagdxx = pagdxx + 1 pagdxx = Replace(pagdxx, ",", "") pagdxx2 = pagdxx - 2 pagdxx2 = Replace(pagdxx2, ",", "") paga = Replace(paga, ",", "") pagn = Replace(pagn, ",", "") If pagdxx = "" Then pagdxx = 1 If pagina = "0" Then pagina = "1" strTextoHtml = strTextoHtml & "
" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "
" strTextoHtml = strTextoHtml & "
" If paga < 0 Then paga = 0 Else strTextoHtml = strTextoHtml & "Página Anterior  " End If If totalreg < final Or totalreg = 20 Or pagdxx = pagina Then totalreg = "" npc = 1 totalp = 1 Else variavel1 = CStr(pagdxx + 1) variavel2 = CStr(pagina) variavel1 = Replace(variavel1, ",", "") variavel2 = Replace(variavel2, ",", "") strTextoHtml = strTextoHtml & "  Próxima página" End If strTextoHtml = strTextoHtml & "
" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "
" strTextoHtml = strTextoHtml & "
Página " & pagdxx & " de " & pagina & "" If pagina = 1 Then finalera = "sim" End If If pagina <> 1 Then For i = 1 To pagina - 1 i = Replace(i, ",", "") i2 = i - 1 i2 = Replace(i2, ",", "") fator = 20 totalfator = fator * i - 20 totalfator = Replace(totalfator, ",", "") paginadem = pagdxx paginadem = Replace(paginadem, ",", "") strTextoHtml = strTextoHtml & " " If paginadem = i Then strTextoHtml = strTextoHtml & "" End If strTextoHtml = strTextoHtml & Replace(i, ",", "") & " ·" Next End If pagina2 = pagina * 20 - 20 pagina2 = Replace(pagina2, ",", "") pagina3 = pagina - 1 pagina3 = Replace(pagina3, ",", "") strTextoHtml = strTextoHtml & " " If finalera = "sim" Then strTextoHtml = strTextoHtml & "" End If strTextoHtml = strTextoHtml & pagina & "

Voltar para Página Inicial

" else pag = request.querystring("pagina") if pag = "" Then pag = 1 end if contador = 0 rs.absolutepage = pag while not rs.eof and contador < rs.pagesize contador = contador +1 iz = iz + 1 Select Case rs("estadoentrega") Case "AC" estadoz = "Acre" Case "AL" estadoz = "Alagoas" Case "AP" estadoz = "Amapá" Case "AM" estadoz = "Amazonas" Case "BA" estadoz = "Bahia" Case "CE" estadoz = "Ceará" Case "DF" estadoz = "Distrito Federal" Case "ES" estadoz = "Espirito Santo" Case "GO" estadoz = "Goiás" Case "MA" estadoz = "Maranhão" Case "MT" estadoz = "Mato Grosso" Case "MS" estadoz = "Mato Grosso do Sul" Case "MG" estadoz = "Minas Gerais" Case "PA" estadoz = "Pará" Case "PB" estadoz = "Paraiba" Case "PR" estadoz = "Parana" Case "PE" estadoz = "Pernambuco" Case "PI" estadoz = "Piauí" Case "RJ" estadoz = "Rio de Janeiro" Case "RN" estadoz = "Rio Grande do Norte" Case "RS" estadoz = "Rio Grande do Sul" Case "RO" estadoz = "Rondônia" Case "RR" estadoz = "Roraima" Case "SC" estadoz = "Santa Catarina" Case "SP" estadoz = "São Paulo" Case "SE" estadoz = "Sergipe" Case "TO" estadoz = "Tocantins" End Select on error resume next Set rs3 = conexao.Execute("select * from clientes where email='" & rs("clienteid") & "';") If rs("status")= "0" Then estatus_cliente = "Aguardando confirmação de pagamento" End If If rs("status") = "1" Then estatus_cliente = "Pagamento confirmado e Processar Compra" End If If rs("status") = "2" Then estatus_cliente = "Compra enviada, com envio de email informando ao cliente" End If If rs("status") = "3" Then estatus_cliente = "Compra já entregue" End If If rs("status") = "4" Then estatus_cliente = "Pagamento cancelado, com envio de email confirmando ao cliente" End If If rs("status") = "5" Then estatus_cliente = "Pagamento Negada, com envio de email informando ao cliente" End If If rs("status") = "6" Then estatus_cliente = "Pagamento cancelado, com envio de email informando ao cliente para entrar em contato" End If strTextoHtml = strTextoHtml & "" & vbNewLine strTextoHtml = strTextoHtml & "" & vbNewLine strTextoHtml = strTextoHtml & "
" & iz & ") Compra #"&rs("pedido")&" feita por: " & UCase(Cripto(rs3("nome"),false)) & "
      Frete para: " & estadoz & "    Total da compra: R$ " & FormatNumber(-1 + Cripto(rs("totalcompra"),false) + Cripto(rs("frete"),false) + 1, 2) & "
      Status: " & estatus_cliente & "		Ação: Ver | Excluir 
" rs.movenext wend strTextoHtml = strTextoHtml & "

" strTextoHtml = strTextoHtml & "
" strTextoHtml = strTextoHtml & "
" strTextoHtml = strTextoHtml & "Página(s):  " for i = 1 to rs.pagecount if i = cint(pag) then strTextoHtml = strTextoHtml & "" & i & " " else strTextoHtml = strTextoHtml & "" & i & " " end if next strTextoHtml = strTextoHtml & "
" end if rs.Close Set rs = Nothing End If Case "excluir" notz = Request.QueryString("compra") Set exc_compras = conexao.Execute("delete * from compras where idcompra=" & notz & ";") 'Sem esta rotina, aparece "carrinhos-fantasmas" ... Set exc_pedidos = conexao.Execute("delete * from pedidos where idcompra='" & notz & "';") Response.Redirect "?link=compras&acao=ver&ano=" & Request("ano") & "&data=" & Request("data") & "&mes=" & Request("mes") & "&dia=" & Request("dia") & "&status=sucesso" Case "olhar" If VersaoDb = 1 then Set rs = conexao.Execute("select * from compras where idcompra='" & Request("compra") & "';") Set rs3 = conexao.Execute("select clienteid, nome, email from clientes where email='" & rs("clienteid") & "';") else Set rs = conexao.Execute("select * from compras where idcompra=" & Request("compra")) Set rs3 = conexao.Execute("select * from clientes where email='" & rs("clienteid") & "'") end if strTextoHtml = strTextoHtml & " Ver detalhes da compra efetuada na loja
" strTextoHtml = strTextoHtml & "
" strTextoHtml = strTextoHtml & "
Voltar e ver mais compras
" strTextoHtml = strTextoHtml & "
" strTextoHtml = strTextoHtml & "
" strTextoHtml = strTextoHtml & "Compra efetuada pelo cliente: " & Cripto(rs3("nome"),False) & "
" strTextoHtml = strTextoHtml & "Pedido no : #" & rs("pedido") & "

" Select Case rs("estadoentrega") Case "AC" estadoz = "Acre" Case "AL" estadoz = "Alagoas" Case "AP" estadoz = "Amapá" Case "AM" estadoz = "Amazonas" Case "BA" estadoz = "Bahia" Case "CE" estadoz = "Ceará" Case "DF" estadoz = "Distrito Federal" Case "ES" estadoz = "Espirito Santo" Case "GO" estadoz = "Goiás" Case "MA" estadoz = "Maranhão" Case "MT" estadoz = "Mato Grosso" Case "MS" estadoz = "Mato Grosso do Sul" Case "MG" estadoz = "Minas Gerais" Case "PA" estadoz = "Pará" Case "PB" estadoz = "Paraiba" Case "PR" estadoz = "Parana" Case "PE" estadoz = "Pernambuco" Case "PI" estadoz = "Piauí" Case "RJ" estadoz = "Rio de Janeiro" Case "RN" estadoz = "Rio Grande do Norte" Case "RS" estadoz = "Rio Grande do Sul" Case "RO" estadoz = "Rondônia" Case "RR" estadoz = "Roraima" Case "SC" estadoz = "Santa Catarina" Case "SP" estadoz = "São Paulo" Case "SE" estadoz = "Sergipe" Case "TO" estadoz = "Tocantins" End Select strTextoHtml = strTextoHtml & "STATUS DA COMPRA EFETUADA:
" strTextoHtml = strTextoHtml & "
Status da compra:
" strTextoHtml = strTextoHtml & "
DADOS PARA ENTREGA DO PEDIDO:
" strTextoHtml = strTextoHtml & "" estimativa = CDate(rs("datacompra")) + 10 If Mid(estimativa, 2, 1) = "/" Then estimativa = "0" & estimativa Else estimativa = estimativa End If If Mid(estimativa, 5, 1) = "/" Then estimativa = Mid(estimativa, 1, 3) & "0" & Mid(estimativa, 4, 99) Else estimativa = estimativa End If strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "
Data da compra: " & rs("datacompra") & "
Estimativa para entrega: " & estimativa & "
Endereço: " & Cripto(rs("endentrega"),false) & "
Bairro: " & Cripto(rs("bairroentrega"),false) & "
Cidade: " & Cripto(rs("cidadeentrega"),false) & "
Estado: " & estadoz & "
País: Brasil
CEP: " & Cripto(rs("cepentrega"),false) & "
Telefone: " & Cripto(rs("telentrega"),false) & "
" if Cstr(rs("presente")) = Cstr("Sim") then strTextoHtml = strTextoHtml & "
" strTextoHtml = strTextoHtml & "MENSAGEM NO CARTÃO PRESENTE:
" strTextoHtml = strTextoHtml & "
Mensagem:" & rs("msgpresente") & "
" end if strTextoHtml = strTextoHtml & "
DADOS DA COMPRA E PAGAMENTO:
" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" Set rs10 = conexao.execute("SELECT * FROM pedidos WHERE idcompra = '" & Request("compra") & "';") If rs10.EOF Then Else While Not rs10.EOF Set prod = conexao.Execute("select * from produtos where idprod = " & rs10("idprod") & ";") If prod.bof Or prod.EOF Then strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" End if rs10.movenext Wend rs10.Close End If totalcompra = Cripto(rs("totalcompra"),false) totalfrete = Cripto(rs("frete"),false) Status = rs("status") pagamento = rs("pagamentovia") intcomprasz = totalcompra + 1 + totalfrete - 1 comprasz = intcomprasz comprasz = Replace(comprasz, "-", "") data = rs("datacompra") Select Case pagamento Case "0" ver = "Cartão de Crédito - Visa" Case "1" ver = "Cartão de Crédito - Mastercard" Case "2" ver = "Cartão de Crédito - Dinners" Case "3" ver = "Cartão de Crédito - American Express" Case "4" ver = "SEDEX à cobrar" Case "5" ver = "Depósito Bancário" Case "6" ver = "Transferência Eletrônica" Case "7" ver = "Boleto Bancário" End Select If Status = "0" Then estatus = "Aguardando confirmação de pagamento" If pagamento = "0" or pagamento = "1" or pagamento = "2" or pagamento = "3" or pagamento = "4" Then ver2 = "Aguardando confirmação com a operadora do cartão de credito" Else ver2 = "Aguardando confirmação de pagamento" End If End If If Status = "1" Then estatus = "Pagamento confirmado e Compra em processamento" If pagamento = "0" or pagamento = "1" or pagamento = "2" or pagamento = "3" or pagamento = "4" Then ver2 = "Pagamento confirmado com a operadora do cartão de credito, com envio de email informando ao cliente" Else ver2 = "Pagamento confirmado, com envio de email informando ao cliente" End If End If If Status = "2" Then estatus = "Compra já enviada ao cliente" ver2 = "Compra enviada, com envio de email informando ao cliente" End If If Status = "3" Then estatus = "Compra já Entregue" ver2 = "Compra já entregue" End If If Status = "4" Then estatus = "Compra Cancelada" ver2 = "Pagamento cancelado, com envio de email confirmando ao cliente" End If If Status = "5" Then estatus = "Compra Negada" ver2 = "Pagamento cancelado, com envio de email informando ao cliente" End If If Status = "6" Then estatus = "Outras - Contate o Atendimento" ver2 = "Pagamento ou Compra com problemas, com envio de email informando ao cliente para entrar em contato" End If comprazw = FormatNumber(comprasz, 2) totalfretezw = FormatNumber(totalfrete, 2) totalcomprazw = FormatNumber(totalcompra, 2) select case pagamento case 0,1,2,3 strInf = "" strInf = strInf & "" strInf = strInf & "" strInf = strInf & "" case else strInf = "" end select strTextoHtml = strTextoHtml & "
 Cód. Produto Quant. Valor Unit. Valor Total
#O produto comprado não estão mais presente na loja" Else codigo = prod("idprod") prodnome = prod("nome") preconormal = prod("preco") quantidade = rs10("quantidade") subpreco = FormatNumber(preconormal, 2) totpreco = FormatNumber((quantidade * preconormal), 2) strTextoHtml = strTextoHtml & "
" & codigo & "" & prodnome & "" & quantidade & "R$ " & subpreco & "R$ " & totpreco & "
Número do Cartão" & Cripto(rs("numero"),false) & "
Código de Segurança" & Cripto(rs("codigo_seguranca"),false) & "
Vencimento" & Cripto(rs("vencimento"),false) & "
Titular do Cartão" & Cripto(rs("titular"),false) & "
" strTextoHtml = strTextoHtml & "
Sub-totalR$ " & totalcomprazw & "
" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "
FreteR$ " & totalfretezw & "
Valor total da compraR$ " & comprazw & "
" & strInf strTextoHtml = strTextoHtml & "
Forma de Pagamento" & ver & "
Status Visível p/ o Cliente" & ver2 & "
" strTextoHtml = strTextoHtml & "

Voltar para página inicial

" Case "modificar" notz = Request.QueryString("compra") Status = Request.QueryString("status") Set dados = conexao.Execute("UPDATE compras SET status = '" & Status & "' WHERE idcompra = " & notz & ";") 'Chama os dados da compra set compra = conexao.Execute("SELECT compras.*,clientes.nome from compras,clientes WHERE compras.clienteid=clientes.email and compras.idcompra="¬z&"") If compra.EOF Then Else strEndereco = Cripto(compra("endentrega"),false) strBairro = Cripto(compra("bairroentrega"),false) strCidade = Cripto(compra("cidadeentrega"),false) strEstado = compra("estadoentrega") strCep = Cripto(compra("cepentrega"),false) strPais = compra("paisentrega") strFone = Cripto(compra("telentrega"),false) strNome = Cripto(compra("clienteid"),false) strDataCompra = compra("datacompra") strCompra = compra("pedido") strNomeCompleto = Cripto(compra("nome"),false) end if compra.close set compra = nothing select case Status Case "1" '*** Inicio da Msg especifica de Pedido em processamento conteudo_strMensagem = "
Obrigado por comprar na" conteudo_strMensagem = conteudo_strMensagem & " "&nomeloja&"!
Seu pagamento foi confirmado e o seu pedido de No. #"&strCompra&"" conteudo_strMensagem = conteudo_strMensagem & " está sendo processado. Estaremos despachando prontamente todos os itens disponíveis em estoque. Assim que o seu pedido sair para entrega, você receberá um outro email nosso avisando que está sendo enviado o seu pedido.
" titulo_strMensagem = "Confirmação de Pagamento e Processamento de pedido na "&nomeloja&"" '*** Fim da Msg especifica de Pedido em processamento Case "2" '*** Inicio da Msg especifica de Compra já enviada ao cliente conteudo_strMensagem = "
Obrigado por comprar na" conteudo_strMensagem = conteudo_strMensagem & " "&nomeloja&"!
Esta é a confirmação de remessa do seu pedido de No. #"&strCompra&"" conteudo_strMensagem = conteudo_strMensagem & " .

É com satisfação que informamos que estarão sendo entregues o(s) produto(s) mencionado(s) abaixo. O(s) mesmo(s) deverá(ão) ser entregue(s) em um prazo que varia normalmente de 1 a 2 dias úteis.
" titulo_strMensagem = "Confirmação de Envio do seu pedido na "&nomeloja&"" '*** Fim da Msg especifica de Compra já enviada ao cliente Case "4" '*** Inicio da Msg especifica de Compra Cancelada conteudo_strMensagem = "
A sua Compra foi Cancelada na" conteudo_strMensagem = conteudo_strMensagem & " "&nomeloja&"

Por motivos administrativos, o seu pedido de No. #"&strCompra&"" conteudo_strMensagem = conteudo_strMensagem & " foi cancelado.

Entre em contato conosco para sanar quaisquer dúvidas referente ao seu pedido.
" titulo_strMensagem = "Referente a sua compra cancelada na "&nomeloja&"" '*** Fim da Msg especifica de Compra Cancelada Case "5" '*** Inicio da Msg especifica de Compra Negada conteudo_strMensagem = "
A sua Compra foi recusada na" conteudo_strMensagem = conteudo_strMensagem & " "&nomeloja&"

Por motivos administrativos, o seu pedido de No. #"&strCompra&"" conteudo_strMensagem = conteudo_strMensagem & " foi recusado.

Entre em contato conosco para sanar quaisquer dúvidas referente ao seu pedido.
" titulo_strMensagem = "Referente a sua compra na "&nomeloja&"" '*** Fim da Msg especifica de Compra Negada Case "6" '*** Inicio da Msg especifica de Outras - Contate o Atendimento conteudo_strMensagem = "
Referente a sua Compra na " conteudo_strMensagem = conteudo_strMensagem & " "&nomeloja&"!

Prezado Cliente, por motivos administrativos, solicitamos que entre em contato conosco, referente ao seu pedido de No. #"&strCompra&"" conteudo_strMensagem = conteudo_strMensagem & " .

Aguardamos o seu breve contato.
" titulo_strMensagem = "Referente ao seu pedido na "&nomeloja&"" '*** Fim da Msg especifica de Outras - Contate o Atendimento end select if Status = "1" or Status = "2" or Status = "4" or Status = "5" or Status = "6" then '*** Cabeçalho do Email para avisar o cliente da mudança de Status cabecalho_strMensagem = "" cabecalho_strMensagem = cabecalho_strMensagem & "" cabecalho_strMensagem = cabecalho_strMensagem & "" cabecalho_strMensagem = cabecalho_strMensagem & "" cabecalho_strMensagem = cabecalho_strMensagem & "" cabecalho_strMensagem = cabecalho_strMensagem & "
" cabecalho_strMensagem = cabecalho_strMensagem & "" cabecalho_strMensagem = cabecalho_strMensagem & " " cabecalho_strMensagem = cabecalho_strMensagem & " " cabecalho_strMensagem = cabecalho_strMensagem & " " cabecalho_strMensagem = cabecalho_strMensagem & " " cabecalho_strMensagem = cabecalho_strMensagem & " " cabecalho_strMensagem = cabecalho_strMensagem & " " cabecalho_strMensagem = cabecalho_strMensagem & " " cabecalho_strMensagem = cabecalho_strMensagem & " " cabecalho_strMensagem = cabecalho_strMensagem & " " rodape_strMensagem = rodape_strMensagem & " " rodape_strMensagem = rodape_strMensagem & " " rodape_strMensagem = rodape_strMensagem & " " rodape_strMensagem = rodape_strMensagem & "" rodape_strMensagem = rodape_strMensagem & " " rodape_strMensagem = rodape_strMensagem & " " rodape_strMensagem = rodape_strMensagem & " " rodape_strMensagem = rodape_strMensagem & " " rodape_strMensagem = rodape_strMensagem & " " 'Chama os produtos comprados set pedidos = conexao.Execute("SELECT idprod, quantidade FROM pedidos WHERE idcompra='"¬z&"'") while not pedidos.EOF idprod = pedidos("idprod") quantidade = pedidos("quantidade") set produtos = conexao.Execute("SELECT preco, nome, peso FROM produtos WHERE idprod="&idprod&"") preco = produtos("preco") peso = produtos("peso") nome = produtos("nome") intProdID = idprod strProdNome = nome pesoz = peso intProdPric = preco intQuant = quantidade prodvalor = formatNumber(intProdPric,2) prodvalort = formatNumber((intQuant * intProdPric),2) rodape_strMensagem = rodape_strMensagem & " " rodape_strMensagem = rodape_strMensagem & " " rodape_strMensagem = rodape_strMensagem & " " rodape_strMensagem = rodape_strMensagem & " " rodape_strMensagem = rodape_strMensagem & " " pedidos.MoveNext wend pedidos.Close set pedidos = Nothing produtos.Close set produtos = Nothing rodape_strMensagem = rodape_strMensagem & " " rodape_strMensagem = rodape_strMensagem & " " 'rodape_strMensagem = rodape_strMensagem & " " 'rodape_strMensagem = rodape_strMensagem & " " rodape_strMensagem = rodape_strMensagem & " " rodape_strMensagem = rodape_strMensagem & " " rodape_strMensagem = rodape_strMensagem & " " rodape_strMensagem = rodape_strMensagem & " " rodape_strMensagem = rodape_strMensagem & " " rodape_strMensagem = rodape_strMensagem & "
" cabecalho_strMensagem = cabecalho_strMensagem & "
"&nomeloja&"
"&endereco11&" - "&bairro11&"
"&cidade11&"/"&estado11&" - "&pais11&" - "&emailloja&"
" cabecalho_strMensagem = cabecalho_strMensagem & "
" cabecalho_strMensagem = cabecalho_strMensagem & "
Compra de "&strNomeCompleto&"" cabecalho_strMensagem = cabecalho_strMensagem & " " cabecalho_strMensagem = cabecalho_strMensagem & " Data: "&strDataCompra&" " cabecalho_strMensagem = cabecalho_strMensagem & "
" cabecalho_strMensagem = cabecalho_strMensagem & "
" cabecalho_strMensagem = cabecalho_strMensagem & "
" cabecalho_strMensagem = cabecalho_strMensagem & "
" '*** Rodape do Email para avisar o cliente da mudança de Status rodape_strMensagem = "
" rodape_strMensagem = rodape_strMensagem & "
" rodape_strMensagem = rodape_strMensagem & "  
" rodape_strMensagem = rodape_strMensagem & "
 
" rodape_strMensagem = rodape_strMensagem & "
Seu" rodape_strMensagem = rodape_strMensagem & " Pedido

Endereço:" rodape_strMensagem = rodape_strMensagem & " "&strEndereco&"
Bairro: "&strBairro&" " rodape_strMensagem = rodape_strMensagem & "
Local: "&strCidade&"-"&strEstado&" 		CEP:" rodape_strMensagem = rodape_strMensagem & " "&strCep&"
País: "&strPais&"
Telefone: "&strFone&" " rodape_strMensagem = rodape_strMensagem & "

QuantidadeProdutoPreço " rodape_strMensagem = rodape_strMensagem & " UnitárioPreço" rodape_strMensagem = rodape_strMensagem & " Total
"&intQuant&"  "&strProdNome&" " & strLgMoeda & " " & prodvalor&" " & strLgMoeda & " " &prodvalort&"
" 'rodape_strMensagem = rodape_strMensagem & "
 
" rodape_strMensagem = rodape_strMensagem & "
" 'rodape_strMensagem = rodape_strMensagem & "
" rodape_strMensagem = rodape_strMensagem & "  
" 'rodape_strMensagem = rodape_strMensagem & "
 
" rodape_strMensagem = rodape_strMensagem & "
Atenciosamente,
Atendimento ao" rodape_strMensagem = rodape_strMensagem & " Cliente
" rodape_strMensagem = rodape_strMensagem & "
" rodape_strMensagem = rodape_strMensagem & "
Equipe" rodape_strMensagem = rodape_strMensagem & " "&nomeloja&"
"&urlloja&"
"&emailloja&"
" 'Monta e envia o e-mail strMensagem=cabecalho_strMensagem & conteudo_strMensagem & rodape_strMensagem '*** Em caso de testes para visualizar a msg enviado ao cliente (desabilite o comando EnviaEmail ) 'response.write "
HostLoja :"&Application("HostLoja") 'response.write "
ComponenteLoja :"&Application("ComponenteLoja") 'response.write "
emailloja :"&emailloja 'response.write "
strNome :"&strNome 'response.write "
titulo_strMensagem :"&titulo_strMensagem 'response.write "
strMensagem :"&strMensagem 'response.end EnviaEmail Application("HostLoja"), Application("ComponenteLoja"), emailloja, "", strNome, titulo_strMensagem , strMensagem '*** Fim do Envio de Email para avisar o cliente da mudança de Status end if Response.Redirect "?link=compras&acao=olhar&compra=" & notz & "&data=" & Request("data") & "&ano=" & Request("ano") & "&dia=" & Request("dia") & "&mes=" & Request("mes") Case Else Response.Redirect "?acaba=sim" End Select 'End Sub %>