' Constantes Genéricas para Aplicações Web
Const NUMERO_NACIONAL       = "AAA"
' Tratamento de Direcionamento do Browser
Const bwSoHTML              = "BAA"
Const bwBrowser             = "BAB"
Const bwJava                = "BAC"
Const bwVersao              = "BAD"
Const bwWidth               = "BAE"
Const bwHeight              = "BAF"
Const stdWidth              = "BAG"
' Constantes ADOVB
'---- CursorTypeEnum Values ----
Const adOpenForwardOnly     = 0
Const adOpenKeyset          = 1
Const adOpenDynamic         = 2
Const adOpenStatic          = 3
'---- LockTypeEnum Values ----
Const adLockReadOnly        = 1
Const adLockPessimistic     = 2
Const adLockOptimistic      = 3
Const adLockBatchOptimistic = 4
'---- CommandTypeEnum Values ----
Const adCmdUnknown          = &H0008
Const adCmdText             = &H0001
Const adCmdTable            = &H0002
Const adCmdStoredProc       = &H0004
Const adCmdFile             = &H0100
Const adCmdTableDirect      = &H0200

Const POSICAO_IN    = 41
Const LIMITE_PESQ   = 11 '24
Const VALOR_TAXAOUT = "2,6"


Sub ADOAbreConexao(ByRef ConnectionTrabalho, ByVal szConexao, ByVal szUser, ByVal szPassword)
   Set ConnectionTrabalho = Server.CreateObject("ADODB.Connection")   
  ConnectionTrabalho.Open = "DRIVER=SQL SERVER;SERVER=SQLSERVER01.UNIVERSIDADEDOINGLES.COM;UID=curriculocomtalento;PWD=cretino2803;DATABASE=Curriculocomtalento"
End Sub

Sub ADOFechaConexao(ByRef ConnectionTrabalho)
   Call ConnectionTrabalho.Close
End Sub


Sub ADOExecutaSelect(ByRef ConnectionTrabalho, ByRef objRS, ByVal szSQL, ByVal iCursor, ByVal iLock)
   Set  objRS = Server.CreateObject("ADODB.Recordset")
   ConnectionTrabalho.CommandTimeout = 444
'call response.write(szSQL)
'call response.end
   Call objRS.Open(szSQL, ConnectionTrabalho, iCursor, iLock)
End Sub

Function CookieNumerico(ByVal szClasse, ByVal szChave)
   Dim szRetorno

   szRetorno = Request.Cookies(szClasse)(szChave)
   If szRetorno = "" Or Not IsNumeric(szRetorno) Then
      szRetorno = ""
   End If
   CookieNumerico = szRetorno
End Function

Sub CookieSalvar(ByVal szClasse, ByVal szChave, ByVal szValor, ByVal dtExpiracao)
   If dtExpiracao = "" Then
      dtExpiracao = #04/04/2034#
   End If
   Response.Cookies(szClasse)(szChave) = CStr(szValor)
   Response.Cookies(szClasse).Expires  = dtExpiracao
End Sub

Function DataDiferenca(ByVal dtDataInicio, ByVal dtDataFim, ByVal szFormato)
   Dim szRetorno, vetAreaS, vetAreaP, vetBase, varDescr, iIndiceA, iApoio
   Dim dtTrocaTr, dtTroca,  bMenor,   iBaseVet

if dtDataFim = "31/12/1910" then
   'dtDataFim =dtDataFim & " 23:59:59"
   dtDataFim = "1/1/2020 23:59:59"
end if
'call response.write("Ini: " & dtDataInicio & "<BR>")
'call response.write("Fim: " & dtDataFim & "<BR>")
'call response.end
   vetAreaS = Application(VET_DATA_TRAB_SNGL)
   vetAreaP = Application(VET_DATA_TRAB_PLRL)
   vetBase  = Application(VET_DATA_TRAB_INTV)
   iBaseVet = UBound(vetBase)
   ReDim vetResult(iBaseVet), vetInicio(iBaseVet), vetFim(iBaseVet), vetRst(iBaseVet)
   If dtDataInicio > dtDataFim Then
      dtTroca = dtDataInicio
      dtDataInicio = dtDataFim
      dtDataFim = dtTroca
      bMenor = True
   Else
      bMenor = False
   End If
   For iIndiceA = 0 To UBound(vetBase)
      vetInicio(iIndiceA) = CInt(DatePart(vetBase(iIndiceA), dtDataInicio))
      vetFim(iIndiceA) = CInt(DatePart(vetBase(iIndiceA), dtDataFim))
   Next
   For iIndiceA = 0 To UBound(vetBase)
      While vetFim(iIndiceA) < vetInicio(iIndiceA)
         Select Case iIndiceA
            Case 0, 1
               vetFim(iIndiceA) = vetFim(iIndiceA) + 60
            Case 2, 4
               vetFim(iIndiceA) = vetFim(iIndiceA) + 48 / iIndiceA
            Case 3
               If vetFim(3) = 0 Then
                  vetFim(3) = 1
                  vetInicio(3) = vetInicio(3) + 1
               End If
               If vetFim(4) = 0 Then
                  vetFim(4) = 1
                  vetInicio(4) = vetInicio(4) + 1
               End If
               iApoio = 0
               While Not IsDate(vetFim(5) & "/" & vetFim(4) & "/" & vetFim(3))
                  vetFim(3) = vetFim(3) - 1
                  iApoio    = iApoio + 1
               WEnd
               dtTroca = CDate(vetFim(5) & "/" & vetFim(4) & "/" & vetFim(3))
               dtTrocaTr = DateAdd("d", iApoio, DateAdd("m", -1, dtTroca))
               vetFim(iIndiceA) = vetFim(iIndiceA) + DateDiff("y", dtTrocaTr, dtTroca)
         End Select
         vetFim(iIndiceA + 1) = vetFim(iIndiceA + 1) - 1
      Wend
      vetRst(iIndiceA) = vetFim(iIndiceA) - vetInicio(iIndiceA)
      If vetRst(iIndiceA) = 0 Then
         vetRst(iIndiceA) = ""
      Else
         If vetRst(iIndiceA) = 1 Then
            vetRst(iIndiceA) = vetRst(iIndiceA) & " " & vetAreaS(iIndiceA)
         Else
            vetRst(iIndiceA) = vetRst(iIndiceA) & " " & vetAreaP(iIndiceA)
         End If
      End If
   Next
   Select Case szFormato
      Case "Normal2"
         varDescr  = " e "
         szRetorno = ""
         For iIndiceA = 0 To UBound(vetBase)
            If vetRst(iIndiceA) <> "" Then
               szRetorno = varDescr & vetRst(iIndiceA) & szRetorno
               varDescr  = ", "
            End If
         Next
         szRetorno = Mid(Trim(szRetorno), 3)
      Case "Normal"
         varDescr  = " "
         szRetorno = ""
         For iIndiceA = 1 To UBound(vetBase)
            If vetRst(iIndiceA) <> "" Then
               szRetorno = varDescr & vetRst(iIndiceA) & szRetorno
               varDescr  = " "
            End If
         Next
         'szRetorno = Mid(Trim(szRetorno), 3)
   End Select
   DataDiferenca = szRetorno
End Function

Function DataDiferencaAntiga200312(ByVal dtDataInicio, ByVal dtDataFim, ByVal szFormato)
   Dim szRetorno, vetAreaS, vetAreaP, vetBase, varDescr, iIndiceA
   Dim dtTrocaTr, dtTroca,  bMenor,   iBaseVet

   vetAreaS = Application(VET_DATA_TRAB_SNGL)
   vetAreaP = Application(VET_DATA_TRAB_PLRL)
   vetBase  = Application(VET_DATA_TRAB_INTV)
   iBaseVet = UBound(vetBase)
   ReDim vetResult(iBaseVet), vetInicio(iBaseVet), vetFim(iBaseVet), vetRst(iBaseVet)
   If dtDataInicio > dtDataFim Then
      dtTroca = dtDataInicio
      dtDataInicio = dtDataFim
      dtDataFim = dtTroca
      bMenor = True
   Else
      bMenor = False
   End If
   For iIndiceA = 0 To UBound(vetBase)
      vetInicio(iIndiceA) = CInt(DatePart(vetBase(iIndiceA), dtDataInicio))
      vetFim(iIndiceA) = CInt(DatePart(vetBase(iIndiceA), dtDataFim))
   Next
   For iIndiceA = 0 To UBound(vetBase)
      While vetFim(iIndiceA) < vetInicio(iIndiceA)
         Select Case iIndiceA
            Case 0, 1
               vetFim(iIndiceA) = vetFim(iIndiceA) + 60
            Case 2, 4
               vetFim(iIndiceA) = vetFim(iIndiceA) + 48 / iIndiceA
            Case 3
               If vetFim(3) = 0 Then
                  vetFim(3) = 1
                  vetInicio(3) = vetInicio(3) + 1
               End If
               If vetFim(4) = 0 Then
                  vetFim(4) = 1
                  vetInicio(4) = vetInicio(4) + 1
               End If
               dtTroca = CDate(vetFim(5) & "/" & vetFim(4) & "/" & vetFim(3))
               dtTrocaTr = DateAdd("m", -1, dtTroca)
               vetFim(iIndiceA) = vetFim(iIndiceA) + DateDiff("y", dtTrocaTr, dtTroca)
         End Select
         vetFim(iIndiceA + 1) = vetFim(iIndiceA + 1) - 1
      Wend
      vetRst(iIndiceA) = vetFim(iIndiceA) - vetInicio(iIndiceA)
      If vetRst(iIndiceA) = 0 Then
         vetRst(iIndiceA) = ""
      Else
         If vetRst(iIndiceA) = 1 Then
            vetRst(iIndiceA) = vetRst(iIndiceA) & " " & vetAreaS(iIndiceA)
         Else
            vetRst(iIndiceA) = vetRst(iIndiceA) & " " & vetAreaP(iIndiceA)
         End If
      End If
   Next
   Select Case szFormato
      Case "Normal"
         varDescr  = " e "
         szRetorno = ""
         For iIndiceA = 0 To UBound(vetBase)
            If vetRst(iIndiceA) <> "" Then
               szRetorno = varDescr & vetRst(iIndiceA) & szRetorno
               varDescr  = ", "
            End If
         Next
         szRetorno = Mid(Trim(szRetorno), 3)
   End Select
   DataDiferenca = szRetorno
End Function

Function ExpandeEspecial(ByVal szEntra)
   Dim szRetorno, vetDelimitador, iIndice, szCaracter, iPosicao, iInicio

   szRetorno = szEntra
   vetDelimitador = Array("""", "'")
   For iIndice = 0 To UBound(vetDelimitador)
      szCaracter = vetDelimitador(iIndice)
      If InStr(szEntra, szCaracter) > 0 Then
         szEntra    = szRetorno
         iInicio    = 1
         szRetorno  = ""
         Do
            iPosicao  = iInicio
            iInicio   = InStr(iPosicao, szEntra, szCaracter)
            If iInicio = 0 Then
               iInicio    = Len(szEntra)
               szCaracter = ""
            End If
            iInicio   = iInicio + 1
            szRetorno = szRetorno & Mid(szEntra, iPosicao, iInicio - iPosicao) & szCaracter
         Loop Until iInicio > Len(szEntra)
      End If
   Next
   ExpandeEspecial = szRetorno
End Function

Function FormataData(ByVal varData, ByVal iFormato)
   Select Case iFormato
      Case 0
	      varData = FormataNumeroZeros(Day(varData), 2)    & "/"   & _
	                FormataNumeroZeros(Month(varData), 2)  & "/"   & _
	                FormataNumero(Year(varData), 0, True)  & " - " & _
	                FormataNumeroZeros(Hour(VarData), 2)   & ":"   & _
	                FormataNumeroZeros(Minute(VarData), 2) & ":"   & _
	                FormataNumeroZeros(Second(VarData), 2)
      Case 1
	      varData = FormataNumeroZeros(Day(varData), 2)   & "/" & _
	                FormataNumeroZeros(Month(varData), 2) & "/" & _
	                FormataNumero(Year(varData), 0, True)
      Case 2
	      varData = FormataNumeroZeros(Month(varData), 2) & "/" & _
	                FormataNumero(Year(varData), 0, True)
	   Case 3
	      varData = FormataNumeroZeros(Day(varData), 2)   & "/" & _
	                FormataNumeroZeros(Month(varData), 2)
	   Case 4
	      varData = Application(VET_DIA_SEMANA)(WeekDay(varData) - 1) & ", " & _
	                FormataNumeroZeros(Day(varData), 2) & " de " & _
                   Application(VET_MES_PORTUGUES)(Month(varData) - 1) & " de " & _
	                FormataNumero(Year(varData), 0, True)
	   Case 5
	      varData = FormataNumeroZeros(Month(varData), 2)  & "/"   & _
	                FormataNumeroZeros(Day(varData), 2)    & "/"   & _
	                FormataNumeroZeros(Year(varData), 4)   & " " & _
	                FormataNumeroZeros(Hour(VarData), 2)   & ":"   & _
	                FormataNumeroZeros(Minute(VarData), 2)
	   Case 6
	      varData = FormataNumeroZeros(Day(varData), 2)    & "/"   & _
	                FormataNumeroZeros(Month(varData), 2)  & "/"   & _
	                FormataNumeroZeros(Year(varData), 4)   & " " & _
	                FormataNumeroZeros(Hour(VarData), 2)   & ":"   & _
	                FormataNumeroZeros(Minute(VarData), 2)
	   Case 7
	      varData = FormataNumeroZeros(Hour(VarData), 2)   & ":"   & _
	                FormataNumeroZeros(Minute(VarData), 2) & ":"   & _
	                FormataNumeroZeros(Second(VarData), 2)
	   Case 8
	      varData = FormataNumeroZeros(Month(varData), 2)  & "/"   & _
	                FormataNumeroZeros(Day(varData), 2)    & "/"   & _
	                FormataNumeroZeros(Year(varData), 4)
	   Case 9
	      varData = FormataNumeroZeros(Year(varData), 4)  & "/"   & _
	                FormataNumeroZeros(Month(varData), 2) & "/"   & _
	                FormataNumeroZeros(Day(varData), 2)
      Case 10
	      varData = FormataNumeroZeros(Day(varData), 2)   & "/" & _
	                FormataNumeroZeros(Month(varData), 2) & "/" & _
	                FormataNumeroZeros(Year(varData), 4)
	End Select
	FormataData = varData
End Function

Function FormataNumero(ByVal szNumero, ByVal iDecimais, ByVal iIncluiPonto)
   Dim szRetorno, iPosicao

   szRetorno = FormatNumber(szNumero, iDecimais, True, , iIncluiPonto)
   If CBool(Application(NUMERO_NACIONAL) & "") And iIncluiPonto Then
      iPosicao = InStr(szRetorno, ".")
      If iPosicao > 0 Then
         szRetorno = Left(szRetorno, iPosicao - 1) & "#" & Mid(szRetorno, iPosicao + 1)
      End If
      iPosicao = InStr(szRetorno, ",")
      While iPosicao > 0
         szRetorno = Left(szRetorno, iPosicao - 1) & "." & Mid(szRetorno, iPosicao + 1)
         iPosicao = InStr(szRetorno, ",")
      WEnd
      iPosicao = InStr(szRetorno, "#")
      If iPosicao > 0 Then
         szRetorno = Left(szRetorno, iPosicao - 1) & "," & Mid(szRetorno, iPosicao + 1)
      End If
   End If
   FormataNumero = szRetorno
End Function

Function FormataNumeroZeros(ByVal szValor, ByVal iZeros)
   If Len(szValor) < iZeros Then
      szValor = Right(String(iZeros, "0") & szValor, iZeros)
   End If
   FormataNumeroZeros = szValor
End Function

Sub PadraoCabecalho()
   With Response
      .Buffer          = True
      .CacheControl    = "Private"
      .Expires         = 0
      .ExpiresAbsolute = #01/01/1988#
   End With
End Sub

Sub PadraoTermino()
   Session(AREA_TRANSFERENCIA) = "0"
   Call Response.Flush
End Sub

Function VerificaAlfaNumerico(ByVal szValor)
   VerificaAlfaNumerico = "'" & ExpandeEspecial(szValor) & "'"
End Function

Function VerificaAlfaNumericoDefault(ByVal szValor, ByVal szDefault)
   If Trim(szValor) = "" Then
      VerificaAlfaNumericoDefault = "'" & szDefault & "'"
   Else
      VerificaAlfaNumericoDefault = "'" & ExpandeEspecial(szValor) & "'"
   End If
End Function

Function VerificaLike(ByVal szValor)
   Dim szRetorno

   szRetorno = "="
   If InStr(szValor, "%") > 0 Then
      szRetorno = "Like"
   ElseIf InStr(szValor, "[") > 0 And InStr(szValor, "]") > 0 Then
      szRetorno = "Like"
   ElseIf InStr(szValor, "_") > 0 Then
      szRetorno = "Like"
   End If
   VerificaLike = szRetorno
End Function

Function VerificaValidoNumerico(ByVal szVariavel, ByVal szDefault, ByRef szVariavelTrab, ByVal szVariavelNome)
   Dim szRetorno

   szRetorno = Request.QueryString(szVariavel)
   If szRetorno = "" Then
      szRetorno = Request.Form(szVariavel)
   End If
   If Not (szRetorno <> -1 And szRetorno <> "" And IsNumeric(szRetorno)) Then
      szRetorno      = szDefault
   Else
      szVariavelTrab = szVariavelNome
   End If
   VerificaValidoNumerico = CDbl(szRetorno)
End Function

Function TrocaPonto(ByVal szValor)
   Dim iIndiceA, szRetorno

   szRetorno = ""
   For iIndiceA = 1 To Len(szValor)
      Select Case Mid(szValor, iIndiceA, 1)
         Case "."
         Case ","
            szRetorno = szRetorno & "."
         Case Else
            szRetorno = szRetorno & Mid(szValor, iIndiceA, 1)
      End Select
   Next
   TrocaPonto = szRetorno
End Function

Function VBCriaArray(vArea)
   Dim iIndiceA, iIndiceB, vetRetorno

   If IsArray(vArea) Then
      VBCriaArray = Array(vArea)
   Else
      iIndiceA = 1
      iIndiceB = 0
      ReDim vetRetorno(0)
      While vArea <> ""
         ReDim Preserve vetRetorno(iIndiceB)
         iIndiceA = InStr(vArea, "þ")
         If iIndiceA = 0 Then _
            iIndiceA = Len(vArea) + 1
         vetRetorno(iIndiceB) = Left(vArea, iIndiceA - 1)
         iIndiceB = iIndiceB + 1
         vArea = Mid(vArea, iIndiceA + 1)
      WEnd
      VBCriaArray = vetRetorno
   End If
End Function
Sub ValidaUsuario(ByRef ConnectionTrabalho, ByVal szLogIn, ByVal szSenha)
   Call ValidaUsuarioG(ConnectionTrabalho, szLogIn, szSenha, "sp_SLogIn")
End Sub

Sub ValidaUsuarioB(ByRef ConnectionTrabalho, ByVal szLogIn, ByVal szSenha)
   Call ValidaUsuarioG(ConnectionTrabalho, szLogIn, szSenha, "sp_SLogInB")
End Sub

Sub ValidaUsuarioAdm(ByRef ConnectionTrabalho, ByVal szLogIn, ByVal szSenha)
   Call ValidaUsuarioG(ConnectionTrabalho, szLogIn, szSenha, "sp_SUsuAdm")
End Sub

Sub ValidaUsuarioG(ByRef ConnectionTrabalho, ByVal szLogIn, ByVal szSenha, ByVal szQuery)
   Dim szSQL, rsTrabalho, iRet, szNome

   iRet   = -1
   szNome = ""
   szSQL = szQuery & " '" & szLogIn & "'"
'   Call Response.Write(szSQL)
 '  Call Response.End
   Call ADOExecutaSelect(ConnectionTrabalho, rsTrabalho, szSQL, adOpenForwardOnly, adLockReadOnly)
   If Not rsTrabalho.Eof Then      
      If szSenha = rsTrabalho("Participante_Senha") Then
         iRet   = rsTrabalho("Participante_ID")
         szNome = rsTrabalho("Participante_Nome") & " "
         szNome = Mid(szNome, 1, Instr(szNome, " ") - 1)        
      End If
   End If
   Call rsTrabalho.Close
   Session("IDUsu") = iRet
   Session("NomeUsu") = szNome
   Call CookieSalvar("MPP", "UsuID", iRet, "")
   Call CookieSalvar("MPP", "UsuNome", szNome, "")
   'ValidaUsuario = iRet
'   Call Response.Write(iRet)
'   Call Response.End
End Sub

Sub FechaUsuario()
   Session("IDUsu")      = -1
   Session("VALLANCE")   = -1
   Session("IDConfProd") = -1 
End Sub

Function GeraNumeroRND(ByRef ConnectionTrabalho, Byval iQtde)
   Dim szSQL, rsTrabalho
   Dim iCont
   Dim szLista
   Dim intRnd
   Dim iCo(100) 
   Dim iSE    

   For iCont = 0 To iQtde - 1
      iCo(iCont) = -1
   Next
   iSE = 0
   szSQL = "Select Produto_ID From Produto Where Now BetWeen Produto_Inicio And Produto_Final"
   Set rsTrabalho = Server.CreateObject("ADODB.Recordset")
   Call rsTrabalho.Open(szSQL, ConnectionTrabalho, 3, , adCmdText)
'   Call ADOExecutaSelect(ConnectionTrabalho, rsTrabalho, szSQL, adOpenStatic, adCmdText)
   If rsTrabalho.RecordCount > 0 then
      If rsTrabalho.RecordCount <= iQtde Then
         While Not rsTrabalho.Eof
            iCo(iSE) = rsTrabalho("Produto_ID")
            iSE = iSE + 1
            Call rsTrabalho.movenext
         Wend
      Else
         iCont = 1
         While iCont <= iQtde
            iCont = iCont + 1
            Do
   		      Randomize Timer
	   	      intRnd = (Int(RND * rsTrabalho.RecordCount))
            Loop While InStr(szLista, intRnd) > 0
            szLista = szLista & "-" & intRnd
      		Call rsTrabalho.Move(intRnd)
            iCo(iSE) = rsTrabalho("Produto_ID")
            iSE = iSE + 1
      		Call rsTrabalho.Move(-intRnd)
         Wend
      End if
   End If
   Call rsTrabalho.Close
'   Set rsTrabalho = Nothing
   GeraNumeroRND = iCo
End Function

Sub FechaLeilao(ByRef ConnectionTrabalho)
   Dim szSQL, rsTrabalho, rsTrabalho2, szTexto, szProdutoDesc, szEmailP, szEnd

   szEnd = SITE_END
   szSQL = "sp_SVerProdVencido"
   Call ADOExecutaSelect(ConnectionTrabalho, rsTrabalho, szSQL, adOpenForwardOnly, adLockReadOnly)
   While Not rsTrabalho.EOF
'      szProdutoDesc = rsTrabalho("Produto_Nome") & " " & rsTrabalho("Cor_Descricao") & " " & rsTrabalho("Marca_Descricao") & " " & rsTrabalho("Produto_Tamanho") & " - [" & rsTrabalho("Produto_Codigo") &  "/" & rsTrabalho("Produto_ID") &"]"

      szProdutoDesc =  "[" & rsTrabalho("Produto_Codigo") &  "/" & rsTrabalho("Produto_ID") &"] - R$ " & FormatNumber("0" & rsTrabalho("Produto_VlUltLance"), 2) & " " & rsTrabalho("Produto_Nome") & " " & rsTrabalho("Cor_Descricao") & " " & rsTrabalho("Marca_Descricao") & " " & rsTrabalho("Produto_Tamanho") & "]"

      
      If CInt("0" & rsTrabalho("Participante_ID")) = 0 Then
         'Produto nao vendido
         szSQL = "sp_SListaADM"
         Call ADOExecutaSelect(ConnectionTrabalho, rsTrabalho2, szSQL, adOpenForwardOnly, adLockReadOnly)
         While Not rsTrabalho2.EOF
            szEmailP = rsTrabalho2("Participante_Email")
            szTexto = EmailCorpoProdutoSLance(szProdutoDesc)
            'Call CDOEnviaMensagemSimplesExt(SITE_EMAILFLEILAO, szEmailP, "O " & szProdutoDesc & " não obteve lance.", szTexto, "0", "0")
            Call rsTrabalho2.MoveNext
         WEnd
         Call rsTrabalho2.Close
      Else
         szSQL = "sp_UProdutoVendEstoque 'V', " & rsTrabalho("Produto_ID")
         Call ADOExecutaSelect(ConnectionTrabalho, rsTrabalho2, szSQL, adOpenForwardOnly, adLockReadOnly)

         szTexto = EmailCorpoEfetCompra(rsTrabalho("Participante_Nome"), rsTrabalho("Produto_ID"), szProdutoDesc, szEnd, "0" & rsTrabalho("Participante_CEP"))
         szSQL = "sp_SListaADM"
         Call ADOExecutaSelect(ConnectionTrabalho, rsTrabalho2, szSQL, adOpenForwardOnly, adLockReadOnly)
         While Not rsTrabalho2.EOF
            szEmailP = rsTrabalho2("Participante_Email")
            Call CDOEnviaMensagemSimplesExt(SITE_EMAILFLEILAO, szEmailP, "O " & szProdutoDesc & " obteve lance.", szTexto, "0", "0")
            Call rsTrabalho2.MoveNext
         WEnd
         Call rsTrabalho2.Close
         szEmailP = rsTrabalho("Participante_Email")
         Call CDOEnviaMensagemSimplesExtOld(SITE_EMAILFLEILAO, szEmailP, "Parabéns... ", szTexto, "0", "0")
         If rsTrabalho("ProcLeilao_LOculto") <> 0 Then             
            szSQL = "sp_SPegaMaiorValor " & rsTrabalho("Produto_ID")
 '              Call Response.Write(szSQL)
'               Call Response.End
            Call ADOExecutaSelect(ConnectionTrabalho, rsTrabalho2, szSQL, adOpenForwardOnly, adLockReadOnly)
            bOculto = rsTrabalho2.EOF 
            If Not bOculto Then
               sValorN = rsTrabalho2("Valor")
            End If
            Call rsTrabalho2.Close
            If Not bOculto Then
               szSQL = "sp_UProcLeilao " & Replace(Replace(sValorN, ".", ""), ",", ".") & ", " & rsTrabalho("Participante_ID") & ", " & rsTrabalho("Produto_ID") & ", " & rsTrabalho("ProcLeilao_ID") 
'               Call Response.Write(szSQL)
'               Call Response.End
               Call ADOExecutaSelect(ConnectionTrabalho, rsTrabalho2, szSQL, adOpenForwardOnly, adLockReadOnly)
            End If
            szSQL = "sp_UProdutoValNovo " & Replace(Replace(sValorN, ".", ""), ",", ".") & ", " & rsTrabalho("Produto_ID")
            Call ADOExecutaSelect(ConnectionTrabalho, rsTrabalho2, szSQL, adOpenForwardOnly, adLockReadOnly)
         End If
'         = rsTrabalho("Produto_ID") 
'         = rsTrabalho("Produto_Final") 
'         = rsTrabalho("Produto_IdentPgto") 
'         = rsTrabalho("ProcLeilao_ID") 
'         = rsTrabalho("ProcLeilao_LOculto") 
'         = rsTrabalho("Produto_PrMinimo") 
'         = rsTrabalho("Participante_ID") 
'         = rsTrabalho("Participante_Email") 
'         = rsTrabalho("Produto_Nome")
'         = rsTrabalho("Produto_Tamanho")
'         = rsTrabalho("Cor_Descricao")
'         = rsTrabalho("Marca_Descricao")
      End If
      Call rsTrabalho.MoveNext
   WEnd
   Call rsTrabalho.Close
   szSQL = "sp_UVerProdVencidoLimpa"
   Call ADOExecutaSelect(ConnectionTrabalho, rsTrabalho2, szSQL, adOpenForwardOnly, adLockReadOnly)   
'   Call Response.Write("Operação Concluída!!!")
End Sub

Sub EnviaMsgLance(ByRef ConnectionTrabalho, Byval iProduto, Byval iUsu, Byval sLance, Byval dtLance, Byval szOculto)
   Dim szSQL, rsTrabalho
   Dim szSQL2, rsTrabalho2
   Dim szNomeP, szEmailP, szEmailP2
   Dim szProdutoDesc, szDtFim, iTotLance
   Dim szTexto, szEnd
   Dim iCont

   szEnd = SITE_END
'sp_SDParticipante 'Dados da Pessoa que Fez o Lance
   szSQL = "sp_SDParticipante " & iUsu
   Call ADOExecutaSelect(ConnectionTrabalho, rsTrabalho, szSQL, adOpenForwardOnly, adLockReadOnly)
   If Not rsTrabalho.EOF Then
      szNomeP  = rsTrabalho("Participante_Nome")
      szEmailP = rsTrabalho("Participante_Email")
   End If
   Call rsTrabalho.Close

'sp_SDProdutoN3    'Dados do Produto
   szSQL = "sp_SDProdutoN3 " & iProduto
   Call ADOExecutaSelect(ConnectionTrabalho, rsTrabalho, szSQL, adOpenForwardOnly, adLockReadOnly)
   If Not rsTrabalho.EOF Then
      szProdutoDesc = rsTrabalho("Produto_Nome") & " " & rsTrabalho("Cor_Descricao") & " " & rsTrabalho("Marca_Descricao") & " " & rsTrabalho("Produto_Tamanho") & " - [" & rsTrabalho("Produto_Codigo") &  "/" & rsTrabalho("Produto_ID") & "]"
      szDtFim       = rsTrabalho("Produto_Final")
      iTotLance     = rsTrabalho("TotalLance")
   End If
   Call rsTrabalho.Close
   szTexto = EmailCorpoLance(szNomeP, szProdutoDesc, FormatNumber(sLance, 2), dtLance, szOculto, szEnd)   
   Call CDOEnviaMensagemSimplesExt(SITE_EMAILLANCE, szEmailP, "Seu Lance de " & szProdutoDesc & " Foi Efetivado em " & dtLance, szTexto, "0", "0")


      szSQL2 = "sp_SListaADM"
      Call ADOExecutaSelect(ConnectionTrabalho, rsTrabalho2, szSQL2, adOpenForwardOnly, adLockReadOnly)
      While Not rsTrabalho2.EOF
         szEmailP2 = rsTrabalho2("Participante_Email")
   Call CDOEnviaMensagemSimplesExt(SITE_EMAILLANCE, szEmailP2, "Seu Lance de " & szProdutoDesc & " Foi Efetivado em " & dtLance, szTexto, "0", "0")
         Call rsTrabalho2.MoveNext
      WEnd
      Call rsTrabalho2.Close




'sp_SPartLanceP2   'Dados dos Outros participantes que deram o Lance
   szSQL = "sp_SPartLanceP2 " & iProduto & ", " & iUsu
   Call ADOExecutaSelect(ConnectionTrabalho, rsTrabalho, szSQL, adOpenForwardOnly, adLockReadOnly)
   iCont = 1
   While Not rsTrabalho.EOF And iCont <= 2 
      iCont = iCont + 1
      szTexto = EmailCorpoLanceOut(rsTrabalho("Participante_Nome"), szProdutoDesc, szEnd & "/Index.ASP?TP=L&ID=" & iProduto)
      szEmailP = rsTrabalho("Participante_Email")
      Call CDOEnviaMensagemSimplesExt(SITE_EMAILLANCE, szEmailP, "Lance de " & szProdutoDesc & " Foi Dado", szTexto, "0", "0")


      szSQL2 = "sp_SListaADM"
      Call ADOExecutaSelect(ConnectionTrabalho, rsTrabalho2, szSQL2, adOpenForwardOnly, adLockReadOnly)
      While Not rsTrabalho2.EOF
         szEmailP2 = rsTrabalho2("Participante_Email")
         Call CDOEnviaMensagemSimplesExt(SITE_EMAILLANCE, szEmailP2, "Lance de " & szProdutoDesc & " Foi Dado Adm", szTexto, "0", "0")
         Call rsTrabalho2.MoveNext
      WEnd
      Call rsTrabalho2.Close



'      rsTrabalho("Participante_Email")
'      rsTrabalho("Participante_Nome")
'      rsTrabalho("Participante_ID")
'      rsTrabalho("ProcLeilao_Lance")
'      rsTrabalho("ProcLeilao_Data")
      Call rsTrabalho.MoveNext
   WEnd
   Call rsTrabalho.Close


End Sub

Function EmailCorpoLance(Byval szNomeUsu, Byval szProdDescr, Byval szValor, Byval szData, Byval szOculto, Byval szEnd)
   Dim szTexto

   szTexto = "<html>" & vbCrlf
   szTexto = szTexto & "<head>" & vbCrlf
   szTexto = szTexto & "<title>::: Muito Por Pouco :::</title>" & vbCrlf
   szTexto = szTexto & "</head>" & vbCrlf
   szTexto = szTexto & "<Style Type='text/css'>" & vbCrlf
   szTexto = szTexto & "A:Link, A:Visited, A:Active{Font-Family: Arial, Tahoma, Verdana;Text-decoration : none;Font-size : 8pt; color: #000066;}" & vbCrlf
   szTexto = szTexto & "A:Hover{Font-Family : Arial, Tahoma, Verdana; Text-decoration : none;Font-size : 8pt;  color : #FF9900; }" & vbCrlf
   szTexto = szTexto & "   .TxLinkBs {Font-Family: 'Trebuchet MS', Arial, Verdana; Font-Style: Normal; Font-Size: 9Pt;}" & vbCrlf
   szTexto = szTexto & "</Style>" & vbCrlf
   szTexto = szTexto & "<body bgcolor='#FFD5D5'>" & vbCrlf
   szTexto = szTexto & "<table width='100%'  border='0' cellspacing='1' cellpadding='1'>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td colspan='2' class='TxLinkBs'>Caro(a) <strong>" & szNomeUsu & "</strong></td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td colspan='2' class='TxLinkBs'>O Lance do produto <strong>" & szProdDescr & "</strong>, foi efetivado</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td colspan='2' class='TxLinkBs'>Dados do Lance: </td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr class='TxLinkBs'>" & vbCrlf
   szTexto = szTexto & "      <td width='19%' class='TxLinkBs'><div align='right'>Valor:</div></td>" & vbCrlf
   szTexto = szTexto & "      <td width='81%'><strong>" & szValor & "</strong></td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr class='TxLinkBs'>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'><div align='right'>Data:</div></td>" & vbCrlf
   szTexto = szTexto & "      <td><strong>" & szData & "</strong></td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
'   szTexto = szTexto & "   <tr class='TxLinkBs'>" & vbCrlf
'   szTexto = szTexto & "      <td class='TxLinkBs'><div align='right'>Oculto:</div></td>" & vbCrlf
'   szTexto = szTexto & "      <td><strong>" & szOculto & "</strong></td>" & vbCrlf
'   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs' colspan='2'><div align='center'>Para Maiores informa&ccedil;&otilde;es acesse <a href='" & szEnd & "' target='_blank'><strong>www.muitoporpouco.com.br</strong></a></div></td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs' colspan='2'>Obrigado.&nbsp;</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs' colspan='2'>Muito por Pouco.&nbsp;</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "</table>" & vbCrlf
   szTexto = szTexto & "</body>" & vbCrlf
   szTexto = szTexto & "</html>" & vbCrlf
   EmailCorpoLance = szTexto
End Function

Function EmailCorpoLanceOut(Byval szNomeUsu, Byval szProdDescr, Byval szEnd)
   Dim szTexto

   szTexto = "<html>" & vbCrlf
   szTexto = szTexto & "<head>" & vbCrlf
   szTexto = szTexto & "<title>::: Muito Por Pouco :::</title>" & vbCrlf
   szTexto = szTexto & "</head>" & vbCrlf
   szTexto = szTexto & "<Style Type='text/css'>" & vbCrlf
   szTexto = szTexto & "	 A:Link, A:Visited, A:Active{Font-Family: Arial, Tahoma, Verdana;Text-decoration : none;Font-size : 8pt; color: #000066;}" & vbCrlf
   szTexto = szTexto & "     A:Hover{Font-Family : Arial, Tahoma, Verdana; Text-decoration : none;Font-size : 8pt;  color : #FF9900; }" & vbCrlf
   szTexto = szTexto & "	.TxLinkBs {Font-Family: 'Trebuchet MS', Arial, Verdana; Font-Style: Normal; Font-Size: 9Pt;}" & vbCrlf
   szTexto = szTexto & "</Style>" & vbCrlf
   szTexto = szTexto & "<body bgcolor='#FFD5D5'>" & vbCrlf
   szTexto = szTexto & "<table width='100%'  border='0' cellspacing='1' cellpadding='1'>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td width='100%' class='TxLinkBs'>Caro(a) <strong>" & szNomeUsu & "</strong></td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>Foi dado um Lance do produto <strong>" & szProdDescr & "</strong>.</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>Para cobrir esse lance clique em <a href='" & szEnd & "' target='_blank'><strong>www.muitoporpouco.com.br</strong></a></td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>Obrigado.&nbsp;</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>Muito por Pouco.&nbsp;</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "</table>" & vbCrlf
   szTexto = szTexto & "</body>" & vbCrlf
   szTexto = szTexto & "</html>" & vbCrlf
   EmailCorpoLanceOut = szTexto
End Function


Function EmailCorpoEfetCompra(Byval szNomeUsu, Byval szProdID, Byval szProdDescr, Byval szEnd, Byval szCEP)
   Dim szTexto, szCEPP1

   szCEPP1 = CLng(Mid(szCEP, 1, 6))
   szTexto = "<html>" & vbCrlf
   szTexto = szTexto & "<head>" & vbCrlf
   szTexto = szTexto & "<title>::: Muito Por Pouco :::</title>" & vbCrlf
   szTexto = szTexto & "</head>" & vbCrlf
   szTexto = szTexto & "<Style Type='text/css'>" & vbCrlf
   szTexto = szTexto & "	 A:Link, A:Visited, A:Active{Font-Family: Arial, Tahoma, Verdana;Text-decoration : none;Font-size : 8pt; color: #000066;}" & vbCrlf
   szTexto = szTexto & "     A:Hover{Font-Family : Arial, Tahoma, Verdana; Text-decoration : none;Font-size : 8pt;  color : #FF9900; }" & vbCrlf
   szTexto = szTexto & "   .TxLinkBs {Font-Family: 'Trebuchet MS', Arial, Verdana; Font-Style: Normal; Font-Size: 9Pt;}" & vbCrlf
   szTexto = szTexto & "</Style>" & vbCrlf
   szTexto = szTexto & "<body bgcolor='#FFD5D5'>" & vbCrlf
   szTexto = szTexto & "<table width='100%'  border='0' cellspacing='1' cellpadding='1'>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td width='100%' class='TxLinkBs'>Parab&eacute;ns <strong>" & szNomeUsu & "</strong></td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf


   If szCEPP1 => 1000 And szCEPP1 <= 5999 Then
      szTexto = szTexto & "      <td class='TxLinkBs'>Você acaba de vencer o leilão e adquirir o produto " & szProdDescr & " clique <a href='" & szEnd & "/Index.ASP?TP=D&ID=" & szProdID & "'>AQUI</a> para providenciar a sua forma de pagamento e de entrega</td>" & vbCrlf
   else
      szTexto = szTexto & "      <td class='TxLinkBs'>Você acaba de vencer o leilão e adquirir o produto " & szProdDescr & "   faça uma das opções  abaixo:</td></tr>" & vbCrlf

      szTexto = szTexto & "      <tr><td class='TxLinkBs'><BR>Opção  A - Clique <a href='" & szEnd & "/Index.ASP?TP=D&ID=" & szProdID & "'>AQUI</a> para providenciar a sua forma de pagamento e de entrega  imediata ou,  </td></tr><tr><td class='TxLinkBs'><BR>Opção   B - Clique <a href='" & szEnd & "/Index.ASP?TP=D1&ID=" & szProdID & "'>AQUI</a> para acumular essa compra para posteriormente ser enviado com outros produtos  vencedores de  leilões. O  acumulo  de  varios  pedidos em  uma  unica  remessa  reduz  muito  o  custo do  frete SEDEX.    (ATENÇÃO : essa retenção é feita somente durante 7 dias desta data, enquanto voce  aguarda resultado de outros leilões que  estiver  participando, caso termine  esse prazo o(s) produto(s) serão enviados).<BR></td>" & vbCrlf
   end if
   szTexto = szTexto & "   </tr>" & vbCrlf

'   szTexto = szTexto & "   <tr>" & vbCrlf
'   szTexto = szTexto & "      <td class='TxLinkBs'>A compra deve ser confirmada no prazo de 7 dias, caso contrário os produtos voltarão para o site.&nbsp;</td>" & vbCrlf
'   szTexto = szTexto & "   </tr>" & vbCrlf



   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>Caso você não agende sua entrega (em até 3 dias após recebimento deste e-mail) ela será efetuada em dia determinado pelo site, e o pagamento deverá ser feito ao moto boy na entrega.<BR>Se as datas oferecidas para agendamento não lhe forem convenientes entre em contato conosco por e-mail. &nbsp;</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf






   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>Obrigado.&nbsp;</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>Muito por Pouco.&nbsp;</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "</table>" & vbCrlf
   szTexto = szTexto & "</body>" & vbCrlf
   szTexto = szTexto & "</html>" & vbCrlf
   EmailCorpoEfetCompra = szTexto
End Function

Function EmailCorpoProdutoSLance(Byval szProdDescr)
   Dim szTexto

   szTexto = "<html>" & vbCrlf
   szTexto = szTexto & "<head>" & vbCrlf
   szTexto = szTexto & "<title>::: Muito Por Pouco :::</title>" & vbCrlf
   szTexto = szTexto & "</head>" & vbCrlf
   szTexto = szTexto & "<Style Type='text/css'>" & vbCrlf
   szTexto = szTexto & "	 A:Link, A:Visited, A:Active{Font-Family: Arial, Tahoma, Verdana;Text-decoration : none;Font-size : 8pt; color: #000066;}" & vbCrlf
   szTexto = szTexto & "    A:Hover{Font-Family : Arial, Tahoma, Verdana; Text-decoration : none;Font-size : 8pt;  color : #FF9900; }" & vbCrlf
   szTexto = szTexto & "   .TxLinkBs {Font-Family: 'Trebuchet MS', Arial, Verdana; Font-Style: Normal; Font-Size: 9Pt;}" & vbCrlf
   szTexto = szTexto & "</Style>" & vbCrlf
   szTexto = szTexto & "<body bgcolor='#FFD5D5'>" & vbCrlf
   szTexto = szTexto & "<table width='100%'  border='0' cellspacing='1' cellpadding='1'>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td width='100%' class='TxLinkBs'>Administrador...<strong></strong></td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>O produto " & szProdDescr & "; n&atilde;o obteve nenhum lance.</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>Muito por Pouco.&nbsp;</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "</table>" & vbCrlf
   szTexto = szTexto & "</body>" & vbCrlf
   szTexto = szTexto & "</html>" & vbCrlf
   EmailCorpoProdutoSLance = szTexto
End Function

Function EmailCorpoConfirmaPgto(ByVal ConnectionDado, ByVal iIDUsu, ByVal iIDProd, ByVal szOpt)
   Dim szProdutoDesc, szTexto

   szSQL = "sp_SDadosCompra " & iIDUsu & ", " & iIDProd
'Call Response.Write(szSQL)
'Call Response.End
   Call ADOExecutaSelect(ConnectionDado, rsTrabalho, szSQL, adOpenForwardOnly, adLockReadOnly)
   If Not rsTrabalho.EOF Then
      szProdutoDesc = rsTrabalho("Produto_Nome") & " " & rsTrabalho("Cor_Descricao") & " " & rsTrabalho("Marca_Descricao") & " " & rsTrabalho("Produto_Tamanho") & " - [" & rsTrabalho("Produto_Codigo") &  "/" & rsTrabalho("Produto_ID") &"]"
      szLogIn   = rsTrabalho("Participante_LogIn") & ""
      szPartN   = rsTrabalho("Participante_Nome") & ""
      szPartEm  = rsTrabalho("Participante_Email") & ""
      szPartEnd = rsTrabalho("Participante_Endereco") & ""
      szPartBai = rsTrabalho("Participante_Bairro") & ""
      szPartCid = rsTrabalho("Participante_Cidade") & ""
      szPartEst = rsTrabalho("Participante_Estado") & ""
      szPartCEP = rsTrabalho("Participante_CEP") & ""
      szPartCPF = rsTrabalho("Participante_CPF") & ""
      sValLance = FormatNumber(rsTrabalho("Produto_VlUltLance") & "", 2)
      dtLance   = rsTrabalho("Produto_DtUltLance") & ""

      szData    = rsTrabalho("Produto_DtPgto") & ""
      szFPgto   = rsTrabalho("LocalPgto_Nome") & ""
      szTpEntr  = rsTrabalho("TipoEntrega_Nome") & ""
      sFrete    = rsTrabalho("Produto_ValorFrete") & ""
      szDocto   = rsTrabalho("Produto_IdentPgto") & ""
      szFreteT  = sFrete

      sOutDesp  = rsTrabalho("Produto_ValorPgOutDesp") & ""
      sBonus    = rsTrabalho("Produto_ValorPgBonus") & ""


      szDtEntr  = rsTrabalho("Produto_DtEntr") & ""
      szPer     = rsTrabalho("Produto_Periodo") & ""
      If szPer = "M" then
         szPer = "Manhã"
      ElseIf szPer = "T" then
         szPer = "Tarde"
      End If
   End If
   Call rsTrabalho.Close

   szTexto = "<html>" & vbCrlf
   szTexto = szTexto & "<head>" & vbCrlf
   szTexto = szTexto & "<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>" & vbCrlf
   szTexto = szTexto & "<title>Untitled Document</title>" & vbCrlf
   szTexto = szTexto & "</head>" & vbCrlf

   szTexto = szTexto & "<Style Type='text/css'>" & vbCrlf
   szTexto = szTexto & "	 A:Link, A:Visited, A:Active{Font-Family: Arial, Tahoma, Verdana;Text-decoration : none;Font-size : 8pt; color: #000066;}" & vbCrlf
   szTexto = szTexto & "     A:Hover{Font-Family : Arial, Tahoma, Verdana; Text-decoration : none;Font-size : 8pt;  color : #FF9900; }" & vbCrlf
   szTexto = szTexto & "	.TxLinkBs {Font-Family: 'Trebuchet MS', Arial, Verdana; Font-Style: Normal; Font-Size: 9Pt;}" & vbCrlf
   szTexto = szTexto & "</Style>" & vbCrlf

   
   szTexto = szTexto & "<body bgcolor='#FFD5D5'>" & vbCrlf
   szTexto = szTexto & "<table width='100%' border='0' cellspacing='1' cellpadding='1'>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td colspan='2' class='TxLinkBs'>Efetivação da Compra</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
if len(szOpt) > 0 then
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td colspan='2' class='TxLinkBs'>" & szOpt & "</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
end if
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td colspan='2' class='TxLinkBs'>Dados do Cliente</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td width='12%' class='TxLinkBs'><div align='right'>Nome:</div></td>" & vbCrlf
   szTexto = szTexto & "<td width='88%' class='TxLinkBs'>" & szPartN & "</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'><div align='right'>Email:</div></td>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>" & szPartEm & "</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'><div align='right'>Endere&ccedil;o:</div></td>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>" & szPartEnd & "</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'><div align='right'>Bairro:</div></td>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>" & szPartBai & "</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'><div align='right'>Cidade:</div></td>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>" & szPartCid & "</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'><div align='right'>Estado:</div></td>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>" & szPartEst & "</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'><div align='right'>CEP:</div></td>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>" & szPartCEP & "</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
'   szTexto = szTexto & "   <tr>" & vbCrlf
'   szTexto = szTexto & "      <td class='TxLinkBs'><div align='right'>CPF:</div></td>" & vbCrlf
'   szTexto = szTexto & "      <td class='TxLinkBs'>" & szPartCPF & "</td>" & vbCrlf
'   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs' colspan='2'><div align='left'>Dados do Produto</div></td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'><div align='right'>Nome:</div></td>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>" & szProdutoDesc & "</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & VbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'><div align='right'>Valor do Lance:</div></td>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>" & sValLance & "</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'><div align='right'>Data do Lance:</div></td>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>" & dtLance & "</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs' colspan='2'><div align='left'>Dados do Pagamento </div></td>" & vbCrlf
   szTexto = szTexto & "   </tr>	" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td colspan='2' class='TxLinkBs'>Tipo de Entrega: " & szTpEntr & "</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   If szPer <> "" Then
      szTexto = szTexto & "   <tr>" & vbCrlf
      szTexto = szTexto & "      <td colspan='2' class='TxLinkBs'>Data de Entrega: " & szDtEntr & " preferencialmente de " & szPer & "</td>" & vbCrlf
      szTexto = szTexto & "   </tr>" & vbCrlf
   End If
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'><div align='right'>Valor do Frete:</div></td>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>" & FormatNumber(szFreteT, 2) & "</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf

   If sOutDesp > 0 Then
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'><div align='right'>Outras Despesas:</div></td>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>" & FormatNumber(sOutDesp, 2) & "</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   End If

   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'><div align='right'>Valor Total:</div></td>" & vbCrlf

'Call Response.Write("'" & sValLance & "'<BR>")
'Call Response.Write("'" & sFrete & "'<BR>")
'sValLT = CSng(sValLance) + CSng(sFrete)
'Call Response.Write("'" & sValLT & "'<BR>")
'Call Response.END

   szTexto = szTexto & "      <td class='TxLinkBs'>" & FormatNumber(CSng(sValLance) + CSng(sFrete) + CSng(sOutDesp), 2) & "</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf

   If sBonus > 0 Then
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'><div align='right'>Bônus:</div></td>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>" & FormatNumber(sBonus, 2) & "</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'><div align='right'>Valor a Pagar:</div></td>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>" & FormatNumber(CSng(sValLance) + CSng(sFrete) + CSng(sOutDesp) - CSng(sBonus), 2) & "</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   End If
      
   
   
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td colspan='2' class='TxLinkBs'>Forma de Pagamento: " & szFPgto & "</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
'   szTexto = szTexto & "   <tr>" & vbCrlf
'   szTexto = szTexto & "      <td class='TxLinkBs' col>Documento:</td>" & vbCrlf
'   szTexto = szTexto & "      <td class='TxLinkBs'>" & szDocto & "</td>" & vbCrlf
'   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs' col>Data:</td>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>" & szData & "</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "</table>" & vbCrlf
   szTexto = szTexto & "</body>" & vbCrlf
   szTexto = szTexto & "</html>" & vbCrlf
   EmailCorpoConfirmaPgto = szTexto
End Function


Sub EnviaMsgConfCompra(ByRef ConnectionTrabalho, Byval iIDUsu, Byval iIDProd, ByVal szEmailP)
   Dim szTexto, szEnd

   szEnd = SITE_END
   szTexto = EmailCorpoConfirmaPgto(ConnectionTrabalho, iIDUsu, iIDProd, "")
   Call CDOEnviaMensagemSimplesExt(SITE_EMAILCOMPRA, szEmailP, "Confirmação da Compra", szTexto, "0", "0")
End Sub

Sub EnviaMsgConfCompraCarrinho(ByRef ConnectionTrabalho, Byval iIDCMP, ByVal szEmailP)
   Dim szTexto, szEnd

   szEnd = SITE_END
   szTexto = EmailCorpoConfirmaPgtoCarrinho(ConnectionTrabalho, iIDCMP, "")
   'Call CDOEnviaMensagemSimplesExt(SITE_EMAILCOMPRA, szEmailP, "Confirmação da Compra", szTexto, "0", "0")
   Call CDOEnviaMensagemSimplesExtOLD(SITE_EMAILCOMPRA, szEmailP, "Confirmação da Compra", szTexto, "0", "0")
End Sub


Sub EnviaMsgConfCompraAutCard(ByRef ConnectionTrabalho, Byval iIDUsu, Byval iIDProd, ByVal szEmailP, ByVal szOpcoes)
   Dim szTexto, szEnd

   szEnd = SITE_END
   szTexto = EmailCorpoConfirmaPgto(ConnectionTrabalho, iIDUsu, iIDProd, szOpcoes)
   Call CDOEnviaMensagemSimplesExt(SITE_EMAILCOMPRA, szEmailP, "Confirmação da Compra", szTexto, "0", "0")
End Sub

Sub EnviaMsgConfCompraCarrinhoAutCard(ByRef ConnectionTrabalho, Byval iIDCMP, ByVal szEmailP, ByVal szOpcoes)
   Dim szTexto, szEnd

   szEnd = SITE_END
   szTexto = EmailCorpoConfirmaPgtoCarrinho(ConnectionTrabalho, iIDCMP, szOpcoes)
   'Call CDOEnviaMensagemSimplesExt(SITE_EMAILCOMPRA, szEmailP, "Confirmação da Compra", szTexto, "0", "0")
   Call CDOEnviaMensagemSimplesExtOLD(SITE_EMAILCOMPRA, szEmailP, "Confirmação da Compra", szTexto, "0", "0")
End Sub


Function EnviaMsgConfCompraDir(ByRef ConnectionTrabalho, Byval iIDUsu, Byval iIDProd, ByVal szEmailP)
   Dim szTexto, szEnd

   szEnd = SITE_END
   szTexto = EmailCorpoConfirmaPgtoDir(ConnectionTrabalho, iIDUsu, iIDProd)
   'call response.write(szTexto)
   'call response.end
   Call CDOEnviaMensagemSimplesExt(SITE_EMAILCOMPRA, szEmailP, "Confirmação da Compra", szTexto, "0", "0")
   EnviaMsgConfCompraDir = szTexto
End Function

Function EmailCorpoFaleConosco(Byval szNome, Byval szEmail, Byval szTpInf, Byval szMsg, Byval szDtEnv)
   Dim szTexto

   szTexto = "<html>" & vbCrlf
   szTexto = szTexto & "<head>" & vbCrlf
   szTexto = szTexto & "<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>" & vbCrlf
   szTexto = szTexto & "<title>::: Muito Por Pouco :::</title>" & vbCrlf
   szTexto = szTexto & "</head>" & vbCrlf
   szTexto = szTexto & "<Style Type='text/css'>" & vbCrlf
   szTexto = szTexto & "	 A:Link, A:Visited, A:Active{Font-Family: Arial, Tahoma, Verdana;Text-decoration : none;Font-size : 8pt; color: #000066; font-weight: bold; text-decoration: underline;}" & vbCrlf
   szTexto = szTexto & "     A:Hover{Font-Family : Arial, Tahoma, Verdana; Text-decoration : none;Font-size : 8pt;  color : RED; font-weight: bold; text-decoration: underline;}	" & vbCrlf
   szTexto = szTexto & "</style>  " & vbCrlf
   szTexto = szTexto & "<link href='CtrStyle.CSS' rel='stylesheet' type='text/css'>" & vbCrlf
   szTexto = szTexto & "<body topmargin='1' leftmargin='0' bottommargin='0' rightmargin='0' bgcolor='#FFD5D5'>" & vbCrlf
   szTexto = szTexto & "<table border='1' cellspacing='0' cellpadding='0' align='center' bordercolor='#ff0066' width='100%'>" & vbCrlf
   szTexto = szTexto & "   <TR><TD>" & vbCrlf
   szTexto = szTexto & "<table width='100%' border='0' cellspacing='0' cellpadding='0' bgcolor='#FFCCCC' align='center'>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td colspan='2' class='txtTexto' align='center'><div align='left'>Fale Conosco mensagem enviada em : " & szDtEnv & "</div></td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td width='26%' align='right' class='txtTexto3'>Nome:&nbsp;</td>" & vbCrlf
   szTexto = szTexto & "      <td width='74%' align='left' class='txtTexto3'>" & szNome & "</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td align='right' class='txtTexto3'>E-Mail:&nbsp;</div></td>" & vbCrlf
   szTexto = szTexto & "      <td align='left' class='txtTexto3'>" & szEmail & "</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td align='right' class='txtTexto3'>Tipo de Informa&ccedil;&atilde;o :&nbsp;</div></td>" & vbCrlf
   szTexto = szTexto & "      <td align='left' class='txtTexto3'>" & szTpInf & "</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td align='right' class='txtTexto3'>Mensagem:&nbsp;</div></td>" & vbCrlf
   szTexto = szTexto & "      <td align='left' class='txtTexto3'>" & szMsg & "</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "</table>" & vbCrlf
   szTexto = szTexto & "</TD></TR></TABLE>" & vbCrlf
   szTexto = szTexto & "   <BR>" & vbCrlf
   szTexto = szTexto & "   <BR>" & vbCrlf
   szTexto = szTexto & "   <BR>" & vbCrlf
   szTexto = szTexto & "   </td>" & vbCrlf
   szTexto = szTexto & "   <BR>" & vbCrlf
   szTexto = szTexto & "</body>" & vbCrlf
   szTexto = szTexto & "</html>" & vbCrlf

   EmailCorpoFaleConosco = szTexto
End Function 


Function EmailCorpoEsqSenha(Byval szNomeUsu, Byval szUsuario, Byval szSenha)
   Dim szTexto

   szTexto = "<html>" & vbCrlf
   szTexto = szTexto & "<head>" & vbCrlf
   szTexto = szTexto & "<title>::: Muito Por Pouco :::</title>" & vbCrlf
   szTexto = szTexto & "</head>" & vbCrlf
   szTexto = szTexto & "<Style Type='text/css'>" & vbCrlf
   szTexto = szTexto & "	 A:Link, A:Visited, A:Active{Font-Family: Arial, Tahoma, Verdana;Text-decoration : none;Font-size : 8pt; color: #000066;}" & vbCrlf
   szTexto = szTexto & "     A:Hover{Font-Family : Arial, Tahoma, Verdana; Text-decoration : none;Font-size : 8pt;  color : #FF9900; }" & vbCrlf
   szTexto = szTexto & "   .TxLinkBs {Font-Family: 'Trebuchet MS', Arial, Verdana; Font-Style: Normal; Font-Size: 9Pt;}" & vbCrlf
   szTexto = szTexto & "</Style>" & vbCrlf
   szTexto = szTexto & "<body bgcolor='#FFD5D5'>" & vbCrlf
   szTexto = szTexto & "<table width='100%'  border='0' cellspacing='1' cellpadding='1'>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td width='100%' class='TxLinkBs'>Caro(a): <strong>" & szNomeUsu & "</strong></td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>Reenvio de Senha, <BR>LogIn: <B>" & szUsuario & " </B><BR>Senha: <B>" & szSenha & "</B></td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>Obrigado.&nbsp;</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>Muito por Pouco.&nbsp;</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "</table>" & vbCrlf
   szTexto = szTexto & "</body>" & vbCrlf
   szTexto = szTexto & "</html>" & vbCrlf
   EmailCorpoEsqSenha = szTexto
End Function

Function EnviaMsgEsqSenha(ByRef ConnectionTrabalho, Byval szLogIn)
   Dim szTexto, szEnd
   Dim szSQL, rsTrabalho, iRet

   iRet = -1
   szSQL = "sp_SLogIn '" & szLogIn & "'"
   Call ADOExecutaSelect(ConnectionTrabalho, rsTrabalho, szSQL, adOpenForwardOnly, adLockReadOnly)
   If Not rsTrabalho.Eof Then      
      iRet = rsTrabalho("Participante_ID")
      szEnd = SITE_END
      szTexto = EmailCorpoEsqSenha(rsTrabalho("Participante_Nome"), rsTrabalho("Participante_LogIn"), rsTrabalho("Participante_Senha"))
      Call CDOEnviaMensagemSimplesExt(SITE_EMAILCOMPRA, rsTrabalho("Participante_Email"), "Reenvio de Senha", szTexto, "0", "0")
   End If
   Call rsTrabalho.Close
   EnviaMsgEsqSenha = iRet
End Function



Function EmailCorpoIndAmigo(Byval szSeuNome, Byval szSeuEmail, Byval szAmigoNome, Byval szAmigoEmail, Byval szMSG)
   Dim szTexto

   szTexto = "<html>" & vbCrlf
   szTexto = szTexto & "<head>" & vbCrlf
   szTexto = szTexto & "<title>::: Muito Por Pouco :::</title>" & vbCrlf
   szTexto = szTexto & "</head>" & vbCrlf
   szTexto = szTexto & "<Style Type='text/css'>" & vbCrlf
   szTexto = szTexto & "	 A:Link, A:Visited, A:Active{Font-Family: Arial, Tahoma, Verdana;Text-decoration : none;Font-size : 8pt; color: #000066;}" & vbCrlf
   szTexto = szTexto & "     A:Hover{Font-Family : Arial, Tahoma, Verdana; Text-decoration : none;Font-size : 8pt;  color : #FF9900; }" & vbCrlf
   szTexto = szTexto & "   .TxLinkBs {Font-Family: 'Trebuchet MS', Arial, Verdana; Font-Style: Normal; Font-Size: 9Pt;}" & vbCrlf
   szTexto = szTexto & "</Style>" & vbCrlf
   szTexto = szTexto & "<body bgcolor='#FFD5D5'>" & vbCrlf
   szTexto = szTexto & "<table width='100%'  border='0' cellspacing='1' cellpadding='1'>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td width='100%' class='TxLinkBs'>Caro(a): <strong>" & szAmigoNome & " - [" & szAmigoNome & "]" & "</strong></td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>Olá o seu amigo, <B>" & szSeuNome & " - [" & szSeuEmail & "]</B>, lhe indicou o Site, MuitoPorPouco.com.br, o melhor site de leilões de produtos de grife, entre e confira.<BR>Acesse <a href='http://www.muitoporpouco.com.br'>www.muitoporpouco.com.br</a>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>Mensagem: " & szMSG & "</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf      
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>Obrigado.&nbsp;</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>Muito por Pouco.&nbsp;</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "</table>" & vbCrlf
   szTexto = szTexto & "</body>" & vbCrlf
   szTexto = szTexto & "</html>" & vbCrlf
   EmailCorpoIndAmigo = szTexto
End Function

Sub EnviaMsgIndAmigo(Byval szSeuNome, Byval szSeuEmail, Byval szAmigoNome, Byval szAmigoEmail, Byval szMSG)
   Dim szTexto
   
   szTexto = EmailCorpoIndAmigo(szSeuNome, szSeuEmail, szAmigoNome, szAmigoEmail, szMSG)
   Call CDOEnviaMensagemSimplesExt(SITE_EMAILCOMPRA, szAmigoEmail, "Indicação do Site.", szTexto, "0", "0")
End Sub

Function GeraMetaTag()
   Dim szTexto

   szTexto = "<TITLE>Muito por Pouco</TITLE>" & vbCrlf
   szTexto = szTexto & "<META NAME='Description' CONTENT='Brechó em forma de leilão de roupas e acessórios nacionais e importados usados, seminovos ou nunca usados. Grifes e marcas famosas para quem quer comprar on-line com qualidade e preço baixo.'>" & vbCrlf
   szTexto = szTexto & "<META NAME='Keywords' CONTENT='grifes, marcas, marcas famosas, qualidade, ofertas, ofertas de qualidade, infantil, brechó, leilão, fashion, nacionais, importados, roupas, acessórios, seminovos, usados, bolsas, moda, economia, barato, entrega, fendi, lv, dkny, adidas, nike, gap, ellus, le, lee, li, blanc, les, filos, zara, mng, vr, disney, victorias, secret, gucci, spezzato, tenis, sapatos, blusas, blusa, casacos, calças, calvin klein, bob, store nk'>" & vbCrlf
   szTexto = szTexto & "<META NAME='Language' CONTENT='PT-BR'>" & vbCrlf
   szTexto = szTexto & "<META NAME='Generator' CONTENT='Cadastra - http://www.cadastra.com.br'>" & vbCrlf
   GeraMetaTag = szTexto
End Function


Function EmailCorpoBonus(Byval szUsuNome, Byval sValor)
   Dim szTexto

   szTexto = "<HTML>"
   szTexto = szTexto & "<head>" & vbCrlf
   szTexto = szTexto & "<title>::: Muito Por Pouco :::</title>" & vbCrlf
   szTexto = szTexto & "</head>" & vbCrlf
   szTexto = szTexto & "<Style Type='text/css'>" & vbCrlf
   szTexto = szTexto & "	 A:Link, A:Visited, A:Active{Font-Family: Arial, Tahoma, Verdana;Text-decoration : none;Font-size : 10pt; color: #000066;}" & vbCrlf
   szTexto = szTexto & "	  A:Hover{Font-Family : Arial, Tahoma, Verdana; Text-decoration : none;Font-size : 10pt;  color : #FF9900; }" & vbCrlf
   szTexto = szTexto & "	.TxLinkBs {Font-Family: 'Trebuchet MS', Arial, Verdana; Font-Style: Normal; Font-Size: 9Pt;}" & vbCrlf
   szTexto = szTexto & "	.style1 {Font-Family: 'Trebuchet MS', Arial, Verdana; Font-Style: Normal; Font-Size: 9Pt; font-weight: bold; }" & vbCrlf
   szTexto = szTexto & "	.style6 {Font-Family: 'Trebuchet MS', Arial, Verdana; Font-Style: Normal; Font-Size: 12pt; font-weight: bold; }" & vbCrlf
   szTexto = szTexto & "</Style>" & vbCrlf
   szTexto = szTexto & "<BODY bottomMargin=0 bgColor=#ffcccc leftMargin=0 topMargin=0 rightMargin=0>" & vbCrlf
   szTexto = szTexto & "<DIV class='style1'>Caro(a) " & szUsuNome & ",</DIV>" & vbCrlf
   szTexto = szTexto & "<DIV class='TxLinkBs'>O MUITO POR POUCO te oferece um " & vbCrlf
   szTexto = szTexto & "bônus de <strong>R$ " & sValor & " </strong>, para ser gasto no site quando quiser.</DIV>" & vbCrlf
   szTexto = szTexto & "<DIV>&nbsp;</DIV>" & vbCrlf
   szTexto = szTexto & "<DIV><A href='http://www.muitoporpouco.com.br'><strong>www.muitoporpouco.com.br</strong></A><BR><span class='style6'>BRECHÓ ON " & vbCrlf
   szTexto = szTexto & "LINE</span></DIV>" & vbCrlf
   szTexto = szTexto & "</BODY></HTML>" & vbCrlf

   EmailCorpoBonus = szTexto
End Function

Sub EnviaEmailBonus(Byval szUsuNome, Byval sValor, Byval szEmail)
   Dim szTexto
   szTexto = EmailCorpoBonus(szUsuNome, sValor)
   Call CDOEnviaMensagemSimplesExt(SITE_EMAIL, szEmail, "Voce ganhou!", szTexto, "0", "0")
End Sub

Sub RegistraLOG(ByVal szDescr, Byval szOutInf)
   Dim szSQL, ConnectionDado, rsTrabalho

   Call ADOAbreConexao(ConnectionDado, L_CONEXAO_CTRLLOG, L_CONEXAO_CTRLUsuLOG, L_CONEXAO_CTRLPassLOG)   
   szSQL = "sp_ILog " & szDescr & ", '" & Request.ServerVariables("REMOTE_ADDR") & "', 'MID:" & request.cookies("MPP")("ID") & " " & szOutInf & "'" 
   Call ADOExecutaSelect(ConnectionDado, rsTrabalho, szSQL, adOpenForwardOnly, adLockReadOnly)
   Call ConnectionDado.Close
End Sub

Function EmailCorpoAvisoNPgto(Byval szNomePart, ByVal szProdDescr, ByVal iProdID, ByVal sVal)
   Dim szTexto

   szTexto = "<html>" & vbCrlf
   szTexto = szTexto & "<head>" & vbCrlf
   szTexto = szTexto & "<title>::: Muito Por Pouco :::</title>" & vbCrlf
   szTexto = szTexto & "</head>" & vbCrlf
   szTexto = szTexto & "<Style Type='text/css'>" & vbCrlf
   szTexto = szTexto & "	 A:Link, A:Visited, A:Active{Font-Family: Arial, Tahoma, Verdana;Text-decoration : none;Font-size : 8pt; color: #000066;}" & vbCrlf
   szTexto = szTexto & "     A:Hover{Font-Family : Arial, Tahoma, Verdana; Text-decoration : none;Font-size : 8pt;  color : #FF9900; }" & vbCrlf
   szTexto = szTexto & "   .TxLinkBs {Font-Family: 'Trebuchet MS', Arial, Verdana; Font-Style: Normal; Font-Size: 9Pt;}" & vbCrlf
   szTexto = szTexto & "</Style>" & vbCrlf
   szTexto = szTexto & "<body bgcolor='#FFD5D5'>" & vbCrlf
   szTexto = szTexto & "<table width='100%'  border='0' cellspacing='1' cellpadding='1'>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td width='100%' class='TxLinkBs'>Caro(a): <strong>" & szNomePart & "</strong></td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf

 '  szTexto = szTexto & "   <tr>" & vbCrlf
'   szTexto = szTexto & "      <td class='TxLinkBs'>Verificamos a n&atilde;o confirma&ccedil;&atilde;o de pagamento do produto: <strong>" & szProdDescr & "</strong>, por favor, clique <a href='" & SITE_END & "/Index.ASP?TP=D&ID=" & iProdID& "'>AQUI</a> para confirmar a sua compra, caso contr&aacute;rio voc&ecirc; poder&aacute; perder esse produto. </td>" & vbCrlf
   'szTexto = szTexto & "   </tr>" & vbCrlf


   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>Voce adquiriu através de lance a mercadoria <strong>" & szProdDescr & "</strong>, com lance de <B>R$ " & FormatNumber(sVal, 2) & "</B>, clique <a href='" & SITE_END & "/Index.ASP?TP=D&ID=" & iProdID& "'>AQUI</a> para escolher sua forma de pagamento e entrega. </td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf

   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>Parabens pela aquisição qualquer dúvida escreva-nos ou telefone para 0XX-11- 8276-0876.</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf

   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>Obrigado.&nbsp;</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>Muito por Pouco.&nbsp;</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "</table>" & vbCrlf
   szTexto = szTexto & "</body>" & vbCrlf
   szTexto = szTexto & "</html>" & vbCrlf


    
    
    EmailCorpoAvisoNPgto = szTexto
End Function


Function ServidorBuscaDados(ByVal stringURL, ByVal stringMetodo, ByVal stringParametro, ByVal stringRetornoTipo)
   Dim XMLHTTPTrabalho
   Dim stringRetorno
   Dim arrayParametro
   Dim arrayRetorno
   Dim i, j, arrayTrab

'   Set XMLHTTPTrabalho = Server.CreateObject("Microsoft.XMLHTTP")
   Set XMLHTTPTrabalho = Server.CreateObject("MSXML2.ServerXMLHTTP")
   stringRetorno       = ""

   With XMLHTTPTrabalho
      Call .Open(stringMetodo, stringURL, False)
      If UCase(stringMetodo) = "POST" Then
         Call .SetRequestHeader("Content-type", "application/x-www-form-urlencoded")
         If stringParametro <> "" Then
            arrayParametro = Split(stringParametro, "&")
            ReDim arrayRetorno(UBound(arrayParametro))

            j = 0
            For i = 0 To UBound(arrayParametro)
               If arrayParametro(i) <> "" Then
                  j               = j + 1
		            arrayTrab       = Split(arrayParametro(i), "=")
	               arrayRetorno(j) = arrayTrab(0) & "=" & arrayTrab(1)
               End If
            Next
            stringParametro = Join(arrayRetorno, "&")
            If Left(stringParametro, 1) = "&" Then _
               stringParametro = Mid(stringParametro, 2)
         End If
      Else
         stringParametro = ""
      End If
      Call .Send(stringParametro)
      Select Case UCase(stringRetornoTipo)
         Case "TEXT"
            stringRetorno = .responseText
         Case "XML"
            stringRetorno = .responseXML.xml + ""
      End Select
   End With
   Set XMLHTTPTrabalho = Nothing
   ServidorBuscaDados  = stringRetorno
End Function


Function RetInfItau(Byval iIDPed)
   Dim sCrip, sCrip2
   Dim DOMDocumentProduto
   Dim szParans(9)
   Dim szValues(11)
   Dim szSQL, ConnectionDado, rsTrabalho

   Set DOMDocumentProduto = Server.CreateObject("MSXML2.DOMDocument")
   sCrip = ServidorBuscaDados(SITEPROC & "/Cripto.ASP", "post", "ID=" & iIDPed & "&", "text")
   'Call Response.Write(sCrip)
'   Call Response.END
   sCrip2 = ServidorBuscaDados("https://shopline.itau.com.br/shopline/consulta.asp", "post", "DC=" & sCrip & "&", "text")
'   Call Response.Write(sCrip2)
'   Call Response.END
   With (DOMDocumentProduto)
      Call .SetProperty("ServerHTTPRequest", True)
      stringSQL = sCrip2
      'sCrip2 = Mid(sCrip2, POSICAO_IN)
      If .loadXML(stringSQL) Then
         If .selectSingleNode("//consulta/PARAMETER").childNodes.length <> 0 Then         
            szParans(0) = "CodEmp"
            szParans(1) = "Pedido"
            szParans(2) = "Valor"
            szParans(3) = "tipPag"
            szParans(4) = "sitPag"
            szParans(5) = "dtPag"
            szParans(6) = "codAut"
            szParans(7) = "numId"
            szParans(8) = "compVend"
            szParans(9) = "tipCart"
            For iCont = 0 To 9
               Set Node = .selectSingleNode("//consulta/PARAMETER/PARAM[@ID = '" & szParans(iCont) & "']").attributes
               If Not Node Is Nothing Then
                  szValues(iCont) = Node.getNamedItem("VALUE").value
               End If
            Next
         End If
      End If
   End With
   Set Node = Nothing
   If szValues(3) <> "" and szValues(4) <> "" Then
      Call ADOAbreConexao(ConnectionDado, L_CONEXAO_CTRL, L_CONEXAO_CTRLUsu, L_CONEXAO_CTRLPass)   
      szSQL = "sp_SITAUDescr '" & szValues(3) & "', '" & szValues(4) & "'" 
      Call ADOExecutaSelect(ConnectionDado, rsTrabalho, szSQL, adOpenForwardOnly, adLockReadOnly)
      If Not rsTrabalho.EOF then
         szValues(10) = rsTrabalho("DescricaoTP") & ": " & rsTrabalho("Descricao")
         szValues(11) = rsTrabalho("Acao")         
      End If
      Call rsTrabalho.Close
      Call ConnectionDado.Close
   End If
   RetInfItau = szValues
End Function


Sub MandaEmailDiversos(Byval ConnectionTrabalho)
   Dim szTexto

   szTexto = "<html>" & vbCrlf
   szTexto = szTexto & "<head>" & vbCrlf
   szTexto = szTexto & "<title>::: Muito Por Pouco :::</title>" & vbCrlf
   szTexto = szTexto & "</head>" & vbCrlf
   szTexto = szTexto & "<Style Type='text/css'>" & vbCrlf
   szTexto = szTexto & "	 A:Link, A:Visited, A:Active{Font-Family: Arial, Tahoma, Verdana;Text-decoration : none;Font-size : 8pt; color: #000066;}" & vbCrlf
   szTexto = szTexto & "     A:Hover{Font-Family : Arial, Tahoma, Verdana; Text-decoration : none;Font-size : 8pt;  color : #FF9900; }" & vbCrlf
   szTexto = szTexto & "   .TxLinkBs {Font-Family: 'Trebuchet MS', Arial, Verdana; Font-Style: Normal; Font-Size: 9Pt;}" & vbCrlf
   szTexto = szTexto & "</Style>" & vbCrlf
   szTexto = szTexto & "<body bgcolor='#FFD5D5'>" & vbCrlf
   szTexto = szTexto & "<table width='100%'  border='0' cellspacing='1' cellpadding='1'>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td width='100%' class='TxLinkBs'>Caro(a): <strong>Zagabunga</strong></td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>&nbsp;</td>" & vbCrlf
   szTexto = szTexto & "   </tr>	" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>Por problemas no provedor/embratel o site ficou inoperante das 20hs do dia 12/07 à 1hs do dia 13/07, para não prejudicar o andamento do leilão estamos protelando a data de vencimento  dos leilões do dia 12/07 para 14/07 nos horários originais.</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>&nbsp;</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>Caso tenha recebido um e-mail de confirmação por favor desconsidere.</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>&nbsp;</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>Os lances ofertados anteriormente continuam válidos para o dia 14/07, desculpe o transtorno porém esse problema não depende de nossa operação.&nbsp;</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>Muito por Pouco.&nbsp;</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "</table>" & vbCrlf
   szTexto = szTexto & "</body>" & vbCrlf
   szTexto = szTexto & "</html>" & vbCrlf

   szEnd = "administracao@muitoporpouco.com.br"
   szSQL = "ZArrumaData2"
   Call ADOExecutaSelect(ConnectionTrabalho, rsTrabalho, szSQL, adOpenForwardOnly, adLockReadOnly)
   While Not rsTrabalho.EOF      
      szTexto2 = Replace(szTexto, "Zagabunga", rsTrabalho("Participante_Nome"))
      Call CDOEnviaMensagemSimplesExt(szEnd, rsTrabalho("Participante_Email"), "Problemas no Site.", szTexto2, "0", "0")

      szSQL = "sp_SListaADM"
      Call ADOExecutaSelect(ConnectionTrabalho, rsTrabalho2, szSQL, adOpenForwardOnly, adLockReadOnly)
      While Not rsTrabalho2.EOF
         szEmailP = rsTrabalho2("Participante_Email")
         Call CDOEnviaMensagemSimplesExt(szEnd, szEmailP, "Problemas no Site.", szTexto2, "0", "0")
         Call rsTrabalho2.MoveNext
      WEnd
      Call rsTrabalho2.Close


      Call rsTrabalho.MoveNext
   Wend
   Call rsTrabalho.Close
End Sub

Function CorpoEmailAcumVenda(Byval szUsuNome, Byval szProdNome, Byval szData)
   Dim szTexto

   szTexto = "<html>" & vbCrlf
   szTexto = szTexto & "<head>" & vbCrlf
   szTexto = szTexto & "<title>::: Muito Por Pouco :::</title>" & vbCrlf
   szTexto = szTexto & "</head>" & vbCrlf
   szTexto = szTexto & "<Style Type='text/css'>" & vbCrlf
   szTexto = szTexto & "	 A:Link, A:Visited, A:Active{Font-Family: Arial, Tahoma, Verdana;Text-decoration : none;Font-size : 8pt; color: #000066;}" & vbCrlf
   szTexto = szTexto & "     A:Hover{Font-Family : Arial, Tahoma, Verdana; Text-decoration : none;Font-size : 8pt;  color : #FF9900; }" & vbCrlf
   szTexto = szTexto & "   .TxLinkBs {Font-Family: 'Trebuchet MS', Arial, Verdana; Font-Style: Normal; Font-Size: 9Pt;}" & vbCrlf
   szTexto = szTexto & "</Style>" & vbCrlf
   szTexto = szTexto & "</head>" & vbCrlf

   szTexto = szTexto & "<body bgcolor='#FFCCCC'>" & vbCrlf
   szTexto = szTexto & "<span class='TxLinkBs'>Caro(a) <strong>" & szUsuNome & vbCrlf
   szTexto = szTexto & "</strong></span><br>" & vbCrlf
   szTexto = szTexto & "<br>" & vbCrlf
   szTexto = szTexto & "<span class='TxLinkBs'>A Compra do produto <strong>" & szProdNome & "</strong> foi acumulado para ser mandado junto a outros produtos. <br>" & vbCrlf
   szTexto = szTexto & "Data de confirma&ccedil;&atilde;o: <strong>" & szData & vbCrlf
   szTexto = szTexto & "</strong><br>" & vbCrlf
   szTexto = szTexto & "<br>" & vbCrlf
   szTexto = szTexto & "<strong>Atenção: esse acumulo só vale durante 7 (sete) dias, após este prazo será feito o envio dos produtos, caso queira que suas compras sejam enviadas antes de 7 dias envie um email solicitando o envio</strong><br>" & vbCrlf
   szTexto = szTexto & "<br>" & vbCrlf
   szTexto = szTexto & "Obrigado" & vbCrlf
   szTexto = szTexto & "<br>" & vbCrlf
   szTexto = szTexto & "<br>" & vbCrlf
   szTexto = szTexto & "www.muitoporpouco.com.br" & vbCrlf
   szTexto = szTexto & "</span>" & vbCrlf
   szTexto = szTexto & "</body>" & vbCrlf
   szTexto = szTexto & "</html>" & vbCrlf

   CorpoEmailAcumVenda = szTexto
End Function

Sub EnviaEmailAcumVenda(Byval ConnectionTrabalho, Byval iUsu, Byval iProd)
   szEnd = SITE_EMAIL
   szSQL = "sp_SDParticipante " & iUsu
   Call ADOExecutaSelect(ConnectionTrabalho, rsTrabalho, szSQL, adOpenForwardOnly, adLockReadOnly)
   If Not rsTrabalho.EOF Then
      szNomePart  = rsTrabalho("Participante_Nome")
      szEmailPart = rsTrabalho("Participante_Email")
   End If
   Call rsTrabalho.Close

   szSQL = "sp_SDProdutoN6 " & iProd
   Call ADOExecutaSelect(ConnectionTrabalho, rsTrabalho, szSQL, adOpenForwardOnly, adLockReadOnly)
   If Not rsTrabalho.EOF Then
      szProdutoDesc = rsTrabalho("Produto_Nome") & " " & rsTrabalho("Cor_Descricao") & " " & rsTrabalho("Marca_Descricao") & " " & rsTrabalho("Produto_Tamanho") & " - [" & rsTrabalho("Produto_Codigo") &  "/" & rsTrabalho("Produto_ID") &"]"
      szData = rsTrabalho("ProdAcum_DtEsc")
   End If
   Call rsTrabalho.Close
   szTexto2 = CorpoEmailAcumVenda(szNomePart, szProdutoDesc, szData)
   Call CDOEnviaMensagemSimplesExt(szEnd, szEmailPart, "Acumulo de Produto.", szTexto2, "0", "0")

   szSQL = "sp_SListaADM"
   Call ADOExecutaSelect(ConnectionTrabalho, rsTrabalho2, szSQL, adOpenForwardOnly, adLockReadOnly)
   While Not rsTrabalho2.EOF
      szEmailP = rsTrabalho2("Participante_Email")
      Call CDOEnviaMensagemSimplesExt(szEnd, szEmailP, "Acumulo de Produto.", szTexto2, "0", "0")
      Call rsTrabalho2.MoveNext
   WEnd
   Call rsTrabalho2.Close

   
End Sub


Function EmailCorpoCustom(Byval szNomePart, ByVal szIncCaro, ByVal szTextoEmail, ByVal szIncObr)
   Dim szTexto

   szTexto = "<html>" & vbCrlf
   szTexto = szTexto & "<head>" & vbCrlf
   szTexto = szTexto & "<title>::: Muito Por Pouco :::</title>" & vbCrlf
   szTexto = szTexto & "</head>" & vbCrlf
   szTexto = szTexto & "<Style Type='text/css'>" & vbCrlf
   szTexto = szTexto & "	 A:Link, A:Visited, A:Active{Font-Family: Arial, Tahoma, Verdana;Text-decoration : none;Font-size : 8pt; color: #000066;}" & vbCrlf
   szTexto = szTexto & "     A:Hover{Font-Family : Arial, Tahoma, Verdana; Text-decoration : none;Font-size : 8pt;  color : #FF9900; }" & vbCrlf
   szTexto = szTexto & "   .TxLinkBs {Font-Family: 'Trebuchet MS', Arial, Verdana; Font-Style: Normal; Font-Size: 9Pt;}" & vbCrlf
   szTexto = szTexto & "</Style>" & vbCrlf
   szTexto = szTexto & "<body bgcolor='#FFD5D5'>" & vbCrlf
   szTexto = szTexto & "<table width='100%'  border='0' cellspacing='1' cellpadding='1'>" & vbCrlf
 
   
   If szIncCaro = "S" Then
      szTexto = szTexto & "   <tr>" & vbCrlf
      szTexto = szTexto & "      <td width='100%' class='TxLinkBs'>Caro(a): <strong>" & szNomePart & "</strong></td>" & vbCrlf
      szTexto = szTexto & "   </tr>" & vbCrlf
      szTexto = szTexto & "   <tr>" & vbCrlf
      szTexto = szTexto & "      <td width='100%' class='TxLinkBs'>&nbsp;</td>" & vbCrlf
      szTexto = szTexto & "   </tr>" & vbCrlf
   End If

   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>" & szTextoEmail & "</td>"
   szTexto = szTexto & "   </tr>" & vbCrlf

   If szIncObr = "S" Then
      szTexto = szTexto & "   <tr>" & vbCrlf
      szTexto = szTexto & "      <td width='100%' class='TxLinkBs'>&nbsp;</td>" & vbCrlf
      szTexto = szTexto & "   </tr>" & vbCrlf
      szTexto = szTexto & "   <tr>" & vbCrlf
      szTexto = szTexto & "      <td class='TxLinkBs' colspan='2'><B>Obrigado.&nbsp;</B></td>" & vbCrlf
      szTexto = szTexto & "   </tr>" & vbCrlf
      szTexto = szTexto & "   <tr>" & vbCrlf
      szTexto = szTexto & "      <td class='TxLinkBs' colspan='2'><B>Muito por Pouco.&nbsp;</B></td>" & vbCrlf
      szTexto = szTexto & "   </tr>" & vbCrlf
   End If    

   szTexto = szTexto & "</table>" & vbCrlf
   szTexto = szTexto & "</body>" & vbCrlf
   szTexto = szTexto & "</html>" & vbCrlf
   
    EmailCorpoCustom = szTexto
End Function


Function GeraNumeroRNDFoto(ByRef ConnectionTrabalho, Byval iQtde)
   Dim szSQL, rsTrabalho
   Dim iCont
   Dim szLista
   Dim intRnd
   Dim iCo(100) 
   Dim iSE    
   Dim iTotRegAff
   Dim sInfIDs

   For iCont = 0 To iQtde - 1
      iCo(iCont) = -1
   Next
   iSE = 0
   szSQL = "sp_SProdTPPrinc"
 '  Set rsTrabalho = Server.CreateObject("ADODB.Recordset")
 '  Call rsTrabalho.Open(szSQL, ConnectionTrabalho, 3, , adCmdText)
   Call ADOExecutaSelect(ConnectionTrabalho, rsTrabalho, szSQL, adOpenStatic, adCmdText)
   iTotRegAff = rsTrabalho("Tot")
   set rsTrabalho = rsTrabalho.nextrecordset
   sInfIDs = rsTrabalho.getRows
 'call response.write(iTotRegAff)
 'call response.end
   If iTotRegAff > 0 then
      If iTotRegAff <= iQtde Then
         While Not rsTrabalho.Eof
            iCo(iSE) = rsTrabalho("Produto_ID")
            iSE = iSE + 1
            Call rsTrabalho.movenext
         Wend
      Else
         iCont = 1
         While iCont <= iQtde
            iCont = iCont + 1
            Do
   		      Randomize Timer
	   	      intRnd = (Int(RND * iTotRegAff))
'call response.write("B: " & szLista & "<BR>")
            Loop While InStr(szLista, intRnd) > 0
            szLista = szLista & "-" & intRnd
      		'Call rsTrabalho.Move(intRnd)
            iCo(iSE) = sInfIDs(0, intRnd) 'rsTrabalho("Produto_ID")
'call response.write("B: " & szLista & "<BR>")
'call response.write("A: " & iCo(iSE) & "<BR>")
            iSE = iSE + 1
'      		Call rsTrabalho.Move(-intRnd)
         Wend
      End if
   End If
   Call rsTrabalho.Close
'   Set rsTrabalho = Nothing
' call response.write(iCo(0))
' call response.end
   GeraNumeroRNDFoto = iCo
End Function


Sub EnviaEmailCadPromoBrinde(ByVal szCliNome, ByVal iCliID, ByVal szIncCaro, ByVal szIncObr, ByVal szEmail)
   Dim szTexto

   szTexto = "<html>" & vbCrlf
   szTexto = szTexto & "<head>" & vbCrlf
   szTexto = szTexto & "<title>::: Muito Por Pouco :::</title>" & vbCrlf
   szTexto = szTexto & "</head>" & vbCrlf
   szTexto = szTexto & "<Style Type='text/css'>" & vbCrlf
   szTexto = szTexto & "	 A:Link, A:Visited, A:Active{Font-Family: Arial, Tahoma, Verdana;Text-decoration : none;Font-size : 12pt; color: #000066;}" & vbCrlf
   szTexto = szTexto & "     A:Hover{Font-Family : Arial, Tahoma, Verdana; Text-decoration : none;Font-size : 12pt;  color : #FF9900; }" & vbCrlf
   szTexto = szTexto & "   .TxLinkBs {Font-Family: 'Trebuchet MS', Arial, Verdana; Font-Style: Normal; Font-Size: 11Pt;}" & vbCrlf
   szTexto = szTexto & "</Style>" & vbCrlf
   szTexto = szTexto & "<body bgcolor='#FFD5D5'>" & vbCrlf
   szTexto = szTexto & "<table width='100%'  border='0' cellspacing='1' cellpadding='1'>" & vbCrlf
 
  
   If szIncCaro = "S" Then
      szTexto = szTexto & "   <tr>" & vbCrlf
      szTexto = szTexto & "      <td width='100%' class='TxLinkBs'>Prezado(a) Cliente: <strong>" & szCliNome & "</strong></td>" & vbCrlf
      szTexto = szTexto & "   </tr>" & vbCrlf
      szTexto = szTexto & "   <tr>" & vbCrlf
      szTexto = szTexto & "      <td width='100%' class='TxLinkBs'>&nbsp;</td>" & vbCrlf
      szTexto = szTexto & "   </tr>" & vbCrlf
   End If
   
   
   szTextoEmail =  "Estamos iniciando uma promoção para novos clientes,  e você vai ganhar com isso, indique um ou mais amigo(s) para se cadastrar em nosso site. Para cada novo cadastro e uma compra de cada novo cliente voce ganhará de nosso site um **Brinde Surpresa** de produtos do nosso estoque, basta clicar <a href='" & SITE_END & "/Index.ASP?TP=INDAm&ID=" & iCliID & "'> AQUI </a> e você entrará em nosso site para preencher os nomes e emails das pessoas que você quer indicar"

   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>" & szTextoEmail & "</td>"
   szTexto = szTexto & "   </tr>" & vbCrlf

   If szIncObr = "S" Then
      szTexto = szTexto & "   <tr>" & vbCrlf
      szTexto = szTexto & "      <td width='100%' class='TxLinkBs'>&nbsp;</td>" & vbCrlf
      szTexto = szTexto & "   </tr>" & vbCrlf
      szTexto = szTexto & "   <tr>" & vbCrlf
      szTexto = szTexto & "      <td class='TxLinkBs' colspan='2'><B>Obrigado.&nbsp;</B></td>" & vbCrlf
      szTexto = szTexto & "   </tr>" & vbCrlf
      szTexto = szTexto & "   <tr>" & vbCrlf
      szTexto = szTexto & "      <td class='TxLinkBs' colspan='2'><B>Muito por Pouco.&nbsp;</B></td>" & vbCrlf
      szTexto = szTexto & "   </tr>" & vbCrlf
   End If    

   szTexto = szTexto & "</table>" & vbCrlf


   szTexto = szTexto & "<BR><BR><BR><table width='100%' border='0' cellpadding='0' cellspacing='0'><tr><td align='center' class='TxLinkBs'><strong>Esta Mensagem é enviada com a complacência da nova legislação sobre correio eletrônico,<BR>Seção 301,<BR>Parágrafo (a) (2) c) Decreto S. 1618, Título Terceiro aprovado pelo ""105 Congresso<BR>Base das Normativas Internacionais sobre o SPAM"".<BR>Este E-mail não poderá ser considerado SPAM porque inclui a forma de ser removido.<BR>Para remover seu e-mail basta enviar uma mensagem com o título REMOVER</strong></td></tr></table>"


   szTexto = szTexto & "</body>" & vbCrlf
   szTexto = szTexto & "</html>" & vbCrlf

   Call CDOEnviaMensagemSimplesExt(SITE_EMAILPROMO, szEmail, "Indique um Amigo!!!", szTexto, "0", "0")
   Call CDOEnviaMensagemSimplesExt(SITE_EMAILPROMO, SITE_EMAILPROMO, "Indique um Amigo!!!", szTexto, "0", "0")
End Sub



Sub EnviaEmailCadPromoBrindeEnvio(ByVal szCliNome, Byval szCliEmail, ByVal szIndNome, Byval szIndEmail, ByVal iChavePromo)
   Dim szTexto

   szTexto = "<html>" & vbCrlf
   szTexto = szTexto & "<head>" & vbCrlf
   szTexto = szTexto & "<title>::: Muito Por Pouco :::</title>" & vbCrlf
   szTexto = szTexto & "</head>" & vbCrlf
   szTexto = szTexto & "<Style Type='text/css'>" & vbCrlf
   szTexto = szTexto & "	 A:Link, A:Visited, A:Active{Font-Family: Arial, Tahoma, Verdana;Text-decoration : none;Font-size : 8pt; color: #000066;}" & vbCrlf
   szTexto = szTexto & "     A:Hover{Font-Family : Arial, Tahoma, Verdana; Text-decoration : none;Font-size : 8pt;  color : #FF9900; }" & vbCrlf
   szTexto = szTexto & "   .TxLinkBs {Font-Family: 'Trebuchet MS', Arial, Verdana; Font-Style: Normal; Font-Size: 11Pt;}" & vbCrlf
   szTexto = szTexto & "</Style>" & vbCrlf
   szTexto = szTexto & "<body bgcolor='#FFD5D5'>" & vbCrlf
   szTexto = szTexto & "<table width='100%'  border='0' cellspacing='1' cellpadding='1'>" & vbCrlf
 
  
   szTextoEmail =  "SR.(a) <B>" & szIndNome & "</B> seu(sua) amigo(a) SR(a) <B>" & szCliNome & "</B> indicou-o(a) para participar de nosso site, gostariamos que preliminarmente você visitasse nosso site clicando <a href='" & SITE_END & "'>AQUI</a>, quando você se cadastrar e efetuar sua primeira compra seu amigo(a) que o indicou receberá de nosso site um brinde 'surpresa' de produtos de nosso estoque.<BR><BR>Se você quiser participar desta promoção por favor <a href='" & SITE_END & "'>CLIQUE AQUI</a><BR><BR><B>*Atenção ao se cadastrar mencione no campo Código Promocional, o código " & iChavePromo & ", pois com ele podemos conceder o brinde ao amigo que lhe indicou.</B><BR><BR><BR>Agradecemos  sua  atenção."

   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>" & szTextoEmail & "</td>"
   szTexto = szTexto & "   </tr>" & vbCrlf

   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td width='100%' class='TxLinkBs'>&nbsp;</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs' colspan='2'><B>Obrigado.&nbsp;</B></td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs' colspan='2'><B>Muito por Pouco.&nbsp;</B></td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf

   szTexto = szTexto & "</table>" & vbCrlf

   szTexto = szTexto & "<BR><BR><BR><table width='100%' border='0' cellpadding='0' cellspacing='0'><tr><td align='center' class='TxLinkBs'><strong>Esta Mensagem é enviada com a complacência da nova legislação sobre correio eletrônico,<BR>Seção 301,<BR>Parágrafo (a) (2) c) Decreto S. 1618, Título Terceiro aprovado pelo ""105 Congresso<BR>Base das Normativas Internacionais sobre o SPAM"".<BR>Este E-mail não poderá ser considerado SPAM porque inclui a forma de ser removido.<BR>Para remover seu e-mail basta enviar uma mensagem com o título REMOVER</strong></td></tr></table>"

   szTexto = szTexto & "</body>" & vbCrlf
   szTexto = szTexto & "</html>" & vbCrlf

   Call CDOEnviaMensagemSimplesExt(SITE_EMAILPROMO, szIndEmail, "Parabéns, seu amigo(a) & " & szCliNome & " lhe indicou!", szTexto, "0", "0")
   Call CDOEnviaMensagemSimplesExt(SITE_EMAILPROMO, SITE_EMAILPROMO, "Parabéns, seu amigo(a) " & szCliNome & " lhe indicou!", szTexto, "0", "0")
End Sub



Sub EnviaEmailCadPromoBrindeCadInd(ByVal szCliNome, Byval szCliEmail, ByVal szIndNome, Byval szIndEmail)
   Dim szTexto

   szTexto = "<html>" & vbCrlf
   szTexto = szTexto & "<head>" & vbCrlf
   szTexto = szTexto & "<title>::: Muito Por Pouco :::</title>" & vbCrlf
   szTexto = szTexto & "</head>" & vbCrlf
   szTexto = szTexto & "<Style Type='text/css'>" & vbCrlf
   szTexto = szTexto & "	 A:Link, A:Visited, A:Active{Font-Family: Arial, Tahoma, Verdana;Text-decoration : none;Font-size : 8pt; color: #000066;}" & vbCrlf
   szTexto = szTexto & "     A:Hover{Font-Family : Arial, Tahoma, Verdana; Text-decoration : none;Font-size : 8pt;  color : #FF9900; }" & vbCrlf
   szTexto = szTexto & "   .TxLinkBs {Font-Family: 'Trebuchet MS', Arial, Verdana; Font-Style: Normal; Font-Size: 11Pt;}" & vbCrlf
   szTexto = szTexto & "</Style>" & vbCrlf
   szTexto = szTexto & "<body bgcolor='#FFD5D5'>" & vbCrlf
   szTexto = szTexto & "<table width='100%'  border='0' cellspacing='1' cellpadding='1'>" & vbCrlf
 
   szTextoEmail =  "Caro(a) cliente <B>" & szCliNome & "</B> seu amigo indicado <B>" & szIndNome & "[" & szIndEmail & "]</B> efetuou o cadastramento em nosso site, agora vamos aguardar sua 1º compra para lhe enviarmos seu brinde surpresa conforme nossa  promoção  de  novos  clientes."

   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>" & szTextoEmail & "</td>"
   szTexto = szTexto & "   </tr>" & vbCrlf

   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td width='100%' class='TxLinkBs'>&nbsp;</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs' colspan='2'><B>Obrigado.&nbsp;</B></td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs' colspan='2'><B>Muito por Pouco.&nbsp;</B></td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf

   szTexto = szTexto & "</table>" & vbCrlf

   szTexto = szTexto & "<BR><BR><BR><table width='100%' border='0' cellpadding='0' cellspacing='0'><tr><td align='center' class='TxLinkBs'><strong>Esta Mensagem é enviada com a complacência da nova legislação sobre correio eletrônico,<BR>Seção 301,<BR>Parágrafo (a) (2) c) Decreto S. 1618, Título Terceiro aprovado pelo ""105 Congresso<BR>Base das Normativas Internacionais sobre o SPAM"".<BR>Este E-mail não poderá ser considerado SPAM porque inclui a forma de ser removido.<BR>Para remover seu e-mail basta enviar uma mensagem com o título REMOVER</strong></td></tr></table>"

   szTexto = szTexto & "</body>" & vbCrlf
   szTexto = szTexto & "</html>" & vbCrlf

   Call CDOEnviaMensagemSimplesExt(SITE_EMAILPROMO, szCliEmail, "Parabéns, o seu amigo se cadastrou", szTexto, "0", "0")
   Call CDOEnviaMensagemSimplesExt(SITE_EMAILPROMO, SITE_EMAILPROMO, "Parabéns, o seu amigo se cadastrou", szTexto, "0", "0")
End Sub


Sub EnviaEmailCadPromoBrindeEfetCompra(ByVal szCliNome, Byval szCliEmail, Byval szAmigoNome)
   Dim szTexto

   szTexto = "<html>" & vbCrlf
   szTexto = szTexto & "<head>" & vbCrlf
   szTexto = szTexto & "<title>::: Muito Por Pouco :::</title>" & vbCrlf
   szTexto = szTexto & "</head>" & vbCrlf
   szTexto = szTexto & "<Style Type='text/css'>" & vbCrlf
   szTexto = szTexto & "	 A:Link, A:Visited, A:Active{Font-Family: Arial, Tahoma, Verdana;Text-decoration : none;Font-size : 8pt; color: #000066;}" & vbCrlf
   szTexto = szTexto & "     A:Hover{Font-Family : Arial, Tahoma, Verdana; Text-decoration : none;Font-size : 8pt;  color : #FF9900; }" & vbCrlf
   szTexto = szTexto & "   .TxLinkBs {Font-Family: 'Trebuchet MS', Arial, Verdana; Font-Style: Normal; Font-Size: 11Pt;}" & vbCrlf
   szTexto = szTexto & "</Style>" & vbCrlf
   szTexto = szTexto & "<body bgcolor='#FFD5D5'>" & vbCrlf
   szTexto = szTexto & "<table width='100%'  border='0' cellspacing='1' cellpadding='1'>" & vbCrlf
 

   szTextoEmail =  "Caro(a) cliente <B>" & szCliNome & "</B> seu amigo [" & szAmigoNome & "] indicado efetuou nesta data sua primeira compra em nosso site conforme promoção de novos clientes e estaremos lhe enviando junto com sua próxima compra seu brinde."

   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>" & szTextoEmail & "</td>"
   szTexto = szTexto & "   </tr>" & vbCrlf

   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td width='100%' class='TxLinkBs'>&nbsp;</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs' colspan='2'><B>Obrigado.&nbsp;</B></td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs' colspan='2'><B>Muito por Pouco.&nbsp;</B></td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf

   szTexto = szTexto & "</table>" & vbCrlf

   szTexto = szTexto & "<BR><BR><BR><table width='100%' border='0' cellpadding='0' cellspacing='0'><tr><td align='center' class='TxLinkBs'><strong>Esta Mensagem é enviada com a complacência da nova legislação sobre correio eletrônico,<BR>Seção 301,<BR>Parágrafo (a) (2) c) Decreto S. 1618, Título Terceiro aprovado pelo ""105 Congresso<BR>Base das Normativas Internacionais sobre o SPAM"".<BR>Este E-mail não poderá ser considerado SPAM porque inclui a forma de ser removido.<BR>Para remover seu e-mail basta enviar uma mensagem com o título REMOVER</strong></td></tr></table>"

   szTexto = szTexto & "</body>" & vbCrlf
   szTexto = szTexto & "</html>" & vbCrlf

   'szCliEmail = SITE_EMAILPROMO
   Call CDOEnviaMensagemSimplesExt(SITE_EMAILPROMO, SITE_EMAILPROMO, "Parabéns, seu amigo comprou.", szTexto, "0", "0")
End Sub



Function EmailCorpoConfirmaPgtoDir(ByVal ConnectionDado, ByVal iIDUsu, ByVal iIDProd)
   Dim szProdutoDesc, szTexto

   szSQL = "sp_SDadosCompra " & iIDUsu & ", " & iIDProd
'Call Response.Write(szSQL)
'Call Response.End
   Call ADOExecutaSelect(ConnectionDado, rsTrabalho, szSQL, adOpenForwardOnly, adLockReadOnly)
   If Not rsTrabalho.EOF Then
      szProdutoDesc = rsTrabalho("Produto_Nome") & " " & rsTrabalho("Cor_Descricao") & " " & rsTrabalho("Marca_Descricao") & " " & rsTrabalho("Produto_Tamanho") & " - [" & rsTrabalho("Produto_Codigo") &  "/" & rsTrabalho("Produto_ID") &"]"
      szLogIn   = rsTrabalho("Participante_LogIn") & ""
      szPartN   = rsTrabalho("Participante_Nome") & ""
      szPartEm  = rsTrabalho("Participante_Email") & ""
      szPartEnd = rsTrabalho("Participante_Endereco") & ""
      szPartBai = rsTrabalho("Participante_Bairro") & ""
      szPartCid = rsTrabalho("Participante_Cidade") & ""
      szPartEst = rsTrabalho("Participante_Estado") & ""
      szPartCEP = rsTrabalho("Participante_CEP") & ""
      szPartCPF = rsTrabalho("Participante_CPF") & ""
      sValLance = FormatNumber(rsTrabalho("Produto_VlUltLance") & "", 2)
      dtLance   = rsTrabalho("Produto_DtUltLance") & ""

      szData    = rsTrabalho("Produto_DtPgto") & ""
      szFPgto   = rsTrabalho("LocalPgto_Nome") & ""
      szTpEntr  = rsTrabalho("TipoEntrega_Nome") & ""
      sFrete    = rsTrabalho("Produto_ValorFrete") & ""
      szDocto   = rsTrabalho("Produto_IdentPgto") & ""
      szFreteT  = sFrete

      sOutDesp  = rsTrabalho("Produto_ValorPgOutDesp") & ""
      sBonus    = rsTrabalho("Produto_ValorPgBonus") & ""


      szDtEntr  = rsTrabalho("Produto_DtEntr") & ""
      szPer     = rsTrabalho("Produto_Periodo") & ""
      If szPer = "M" then
         szPer = "Manhã"
      ElseIf szPer = "T" then
         szPer = "Tarde"
      End If
   End If
   Call rsTrabalho.Close

   szTexto = "<html>" & vbCrlf
   szTexto = szTexto & "<head>" & vbCrlf
   szTexto = szTexto & "<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>" & vbCrlf
   szTexto = szTexto & "<title>Untitled Document</title>" & vbCrlf
   szTexto = szTexto & "</head>" & vbCrlf

   szTexto = szTexto & "<Style Type='text/css'>" & vbCrlf
   szTexto = szTexto & "	 A:Link, A:Visited, A:Active{Font-Family: Arial, Tahoma, Verdana;Text-decoration : none;Font-size : 8pt; color: #000066;}" & vbCrlf
   szTexto = szTexto & "     A:Hover{Font-Family : Arial, Tahoma, Verdana; Text-decoration : none;Font-size : 8pt;  color : #FF9900; }" & vbCrlf
   szTexto = szTexto & "	.TxLinkBs {Font-Family: 'Trebuchet MS', Arial, Verdana; Font-Style: Normal; Font-Size: 9Pt;}" & vbCrlf
   szTexto = szTexto & "</Style>" & vbCrlf

   
   szTexto = szTexto & "<body bgcolor='#FFD5D5'>" & vbCrlf
   szTexto = szTexto & "<table width='100%' border='0' cellspacing='1' cellpadding='1'>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td colspan='2' class='TxLinkBs'>Efetivação da Compra Imediata</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td colspan='2' class='TxLinkBs'>Dados do Cliente</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td width='12%' class='TxLinkBs'><div align='right'>Nome:</div></td>" & vbCrlf
   szTexto = szTexto & "<td width='88%' class='TxLinkBs'>" & szPartN & "</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'><div align='right'>Email:</div></td>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>" & szPartEm & "</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'><div align='right'>Endere&ccedil;o:</div></td>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>" & szPartEnd & "</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'><div align='right'>Bairro:</div></td>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>" & szPartBai & "</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'><div align='right'>Cidade:</div></td>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>" & szPartCid & "</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'><div align='right'>Estado:</div></td>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>" & szPartEst & "</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'><div align='right'>CEP:</div></td>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>" & szPartCEP & "</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
'   szTexto = szTexto & "   <tr>" & vbCrlf
'   szTexto = szTexto & "      <td class='TxLinkBs'><div align='right'>CPF:</div></td>" & vbCrlf
'   szTexto = szTexto & "      <td class='TxLinkBs'>" & szPartCPF & "</td>" & vbCrlf
'   szTexto = szTexto & "   </tr>" & vbCrlf



   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs' colspan='2'><div align='left'>Você acabou de comprar o produto " & szProdutoDesc & " no valor de R$ " & sValLance & "</div></td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf

   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs' colspan='2'><div align='left'>acrescido do frete (" & szTpEntr & ") R$ " & FormatNumber(szFreteT, 2) & "</div></td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf


   If sBonus > 0 Then
      szTexto = szTexto & "   <tr>" & vbCrlf
      szTexto = szTexto & "      <td class='TxLinkBs'><div align='right'>Bônus:</div></td>" & vbCrlf
      szTexto = szTexto & "      <td class='TxLinkBs'>" & FormatNumber(sBonus, 2) & "</td>" & vbCrlf
      szTexto = szTexto & "   </tr>" & vbCrlf
      szTexto = szTexto & "   <tr>" & vbCrlf
      szTexto = szTexto & "      <td class='TxLinkBs' colspan='2'><div align='left'>Valor total a depositar em 24 hs - R$ </div>" & vbCrlf
      szTexto = szTexto & "      " & FormatNumber(CSng(sValLance) + CSng(sFrete) + CSng(sOutDesp) - CSng(sBonus), 2) & "</td>" & vbCrlf
      szTexto = szTexto & "   </tr>" & vbCrlf
   else
      szTexto = szTexto & "   <tr>" & vbCrlf   
      szTexto = szTexto & "      <td class='TxLinkBs' colspan='2'><div align='left'>Valor total a depositar em 24 hs - R$ "
      szTexto = szTexto & "      " & FormatNumber(CSng(sValLance) + CSng(sFrete) + CSng(sOutDesp), 2) & "</div></td>" & vbCrlf
      szTexto = szTexto & "   </tr>" & vbCrlf   
   End If
 

   If szPer <> "" Then
      szTexto = szTexto & "   <tr>" & vbCrlf
      szTexto = szTexto & "      <td colspan='2' class='TxLinkBs'>Data de Entrega: " & szDtEntr & " preferencialmente de " & szPer & "</td>" & vbCrlf
      szTexto = szTexto & "   </tr>" & vbCrlf
   End If 


   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs' colspan='2'><div align='left'>O PRAZO PARA PAGAMENTO É DE 24 HORAS , CASO NÃO TENHA EFETUADO O PAGAMENTO NO PRAZO O PRODUTO RETORNARÁ PARA O LEILÃO, A FALTA DE PAGAMENTO DENTRO DO PRAZO ACARETARÁ EM UMA AVALIAÇÃO NEGATIVA DE SUA CONTA NA NET E PODERÁ ACARRETAR EM BLOQUEAMENTO NO SITE.</div></td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
 
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs' colspan='2'><div align='left'>DADOS PARA DEPÓSITO :</div></td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf

 
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs' colspan='2'><div align='left'>Banco: Itaú</div></td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf


   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs' colspan='2'><div align='left'>Agência: 0737</div></td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs' colspan='2'><div align='left'>Conta Corrente: 30563-1</div></td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs' colspan='2'><div align='left'>Nome:  sp armazens gerais ltda</div></td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf

   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs' colspan='2'><div align='left'>CNPJ: 60691896/0001-24</div></td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   

   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs' colspan='2'><div align='left'>Ou</div></td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf

   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs' colspan='2'><div align='left'>Banco: Bradesco</div></td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf

   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs' colspan='2'><div align='left'>Agência: 95-7</div></td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs' colspan='2'><div align='left'>Conta Corrente: 217548-7</div></td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs' colspan='2'><div align='left'>Nome:  sp armazens gerais</div></td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
  
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs' colspan='2'><div align='left'>CNPJ: 60691896/0001-24</div></td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf

   szTexto = szTexto & "</table>" & vbCrlf
   szTexto = szTexto & "</body>" & vbCrlf
   szTexto = szTexto & "</html>" & vbCrlf
   EmailCorpoConfirmaPgtoDir = szTexto
End Function


Function EmailCorpoCompraDirConf(Byval szNomePart, ByVal szProdDescr, ByVal iProdID, ByVal sVal, ByVal iTPEntr)
   Dim szTexto

   szTexto = "<html>" & vbCrlf
   szTexto = szTexto & "<head>" & vbCrlf
   szTexto = szTexto & "<title>::: Muito Por Pouco :::</title>" & vbCrlf
   szTexto = szTexto & "</head>" & vbCrlf
   szTexto = szTexto & "<Style Type='text/css'>" & vbCrlf
   szTexto = szTexto & "	 A:Link, A:Visited, A:Active{Font-Family: Arial, Tahoma, Verdana;Text-decoration : none;Font-size : 8pt; color: #000066;}" & vbCrlf
   szTexto = szTexto & "     A:Hover{Font-Family : Arial, Tahoma, Verdana; Text-decoration : none;Font-size : 8pt;  color : #FF9900; }" & vbCrlf
   szTexto = szTexto & "   .TxLinkBs {Font-Family: 'Trebuchet MS', Arial, Verdana; Font-Style: Normal; Font-Size: 9Pt;}" & vbCrlf
   szTexto = szTexto & "</Style>" & vbCrlf
   szTexto = szTexto & "<body bgcolor='#FFD5D5'>" & vbCrlf
   szTexto = szTexto & "<table width='100%'  border='0' cellspacing='1' cellpadding='1'>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td width='100%' class='TxLinkBs'>Caro(a): <strong>" & szNomePart & "</strong></td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf

   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>O pagamento do produto: <strong>" & szProdDescr & "</strong>, foi confirmado, em breve você estará recebendo seu produto.</td>" & vbCrlf
  'szTexto = szTexto & "   </tr>" & vbCrlf


   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>Parabéns pela aquisição qualquer dúvida escreva-nos ou telefone para 0XX-11- 8259-4999.</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf

   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>Obrigado e boa sorte em seus próximos lances!.&nbsp;</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "   <tr>" & vbCrlf
   szTexto = szTexto & "      <td class='TxLinkBs'>Muito por Pouco.&nbsp;</td>" & vbCrlf
   szTexto = szTexto & "   </tr>" & vbCrlf
   szTexto = szTexto & "</table>" & vbCrlf
   szTexto = szTexto & "</body>" & vbCrlf
   szTexto = szTexto & "</html>" & vbCrlf
  
    
    EmailCorpoCompraDirConf = szTexto
End Function



Function FormataData(dtData, szFormato, sUsaDelimi)
   Dim szRet, iCont
   Dim szPDataF(6), szPDataV(6)

   szRet = ""
   If Len(Trim(dtData)) = 0 Then
      If UCase(sUsaDelimi) = "S" Then
         szRet = "Null"
      End If
   Else
      szRet = szFormato
      szPDataV(0) = Right("0" & Day(dtData), 2)
      szPDataV(1) = Right("0" & Month(dtData), 2)
      szPDataV(2) = Year(dtData)
      szPDataV(3) = Right("0" & Hour(dtData), 2)
      szPDataV(4) = Right("0" & Minute(dtData), 2)
      szPDataV(5) = Right("0" & Second(dtData), 2)
      szPDataF(0) = "dd"
      szPDataF(1) = "mm"
      szPDataF(2) = "yyyy"
      szPDataF(3) = "hh"
      szPDataF(4) = "mi"
      szPDataF(5) = "ss"
      For iCont = 0 to 5
         szRet = Replace(szRet, szPDataF(iCont), szPDataV(iCont))
      Next
      If UCase(sUsaDelimi) = "S" Then
         szRet = "'" & szRet & "'"
      End If
   End If
   FormataData = szRet
End Function

Function RetDataPadrao(Byval dtUsada)
   Dim szRet
   
   if dtUsada = "" Then
      szRet = ""
   else
      szRet = Right("0" & Day(dtUsada), 2) & "/" & Right("0" & Month(dtUsada), 2) & "/" & Year(dtUsada)
   end if
   RetDataPadrao = szRet
End Function