<% 'WWW.BRASITES.COM.BR - HOSPEDAGEM COM LOJA VIRTUAL GRÁTIS. 'INICIO DO HTML '----------------------------------------------------------------------------------------------------- response.Write ""&VBCRlf &_ ""&VBCRlf &_ ""&VBCRlf &_ ""&VBCRlf &_ ""&VBCRlf &_ ""&VBCRlf &_ ""&VBCRlf &_ ""&VBCRlf &_ ""&VBCRlf 'Personaliza os links do menu se o cliente estiver efetuando a compra if session("usuario") = "" then link = "fechapedido.asp?compra=login" else link = "fechapedido.asp?compra=ok" end if '----------------------------------------------------------------------------------------------------- if session("ende1") = "" then link = link else link = "formaspagamento.asp" end if '----------------------------------------------------------------------------------------------------- response.Write ""&VBCRlf &_ ""&VBCRlf &_ "

"&VBCRlf &_ ""&VBCRlf &_ ""&VBCRlf response.write " "&VBCRlf &_ " "&VBCRlf if Banner_AdMentor="Nao" then response.Write ""&VBCRlf elseif Banner_Fixo<>"" then response.Write ""&VBCRlf end if response.Write ""&VBCrlf &_ ""&VBCrlf &_ " "&VBCRlf &_ AdMentor_GetAdASP("F=0&Z=0&N=1") &VBCRlf &_ " "&VBCRlf &_ ""&VBCRlf &_ ""&VBCRlf &_ ""&VBCRlf &_ ""&VBCrlf &_ ""&VBCrlf &_ " "&VBCRlf '----------------------------------------------------------------------------------------------------- '#### INICIO DO 1º IF 'Cria o carrinho de compras no topo superior da loja if cstr(Session("orderID")) = "" then 'Chama o nome do cliente da tabela clientes Set dados = abredb.Execute("SELECT email,nome FROM clientes WHERE email='"&Cripto(session("usuario"),true)&"';") 'Faz aparecer somento o primeiro nome do cliente if dados.eof then nomez = "" else nomeq = Cripto(dados("nome"),false) numeroz = Instr(1,nomeq," ") var5000 = Left(nomeq,numeroz) if var5000 = "" then var5000 = nomeq else var5000 = Left(nomeq,numeroz) end if nomez = " "&var5000 end if 'Fecha tabela clientes dados.Close set dados = Nothing response.Write ""&VBCrlf &_ " "&VBCrlf &_ ""&VBCrlf &_ " "&VBCrlf &_ ""&VBCrlf &_ " "&VBCrlf %> <% response.Write " "&VBCrlf &_ " "&VBCrlf end if '#### TÉRMINO DO 1º IF Response.Write " "&VBCrlf &_ " "&VBCrlf '----------------------------------------------------------------------------------------------------- set rs = abredb.execute("SELECT nome FROM clientes where email='" & Cripto(Session("usuario"),true) & "'") '----------------------------------------------------------------------------------------------------- if rs.eof then strNome = strLg264 else nomeq = Cripto(rs("nome"),false) numeroz = Instr(1,nomeq," ") var5000 = Left(nomeq,numeroz) if var5000 = "" then var5000 = nomeq else var5000 = Left(nomeq,numeroz) end if strNome = Trim(var5000) strNome2 = Trim(Cripto(rs("nome"),false)) end if rs.close set rs = nothing 'Personaliza o menu se o cliente estiver logado %>