Ir para conteúdo
Fórum CódigoFonte.net

SAMUELSKY741

Membros
  • Total de itens

    2
  • Registro em

  • Última visita

  1. <!--#include file="conecta_mysql.asp"--> <% Session.LCID = 1046 Server.ScriptTimeOut = 500 'FUNÇÃO PARA GERAR CÓDIGO CUPOM DESCONTO Function cupom(quantidade) Dim Senha(9) Senha(0) = "a" Senha(1) = "b" Senha(2) = "c" Senha(3) = "d" Senha(4) = "e" Senha(5) = "1" Senha(6) = "2" Senha(7) = "3" Senha(8) = "4" Senha(9) = "5" Randomize do while len(chave) < quantidade num = Senha(Int(9 * Rnd )) chave = chave + num loop cupom = Trim(chave) end function 'FUNÇÃO PARA CALCULAR O TAMANHO DE ARQUIVOS DO ADMINISTRADOR Function Tamanho(givenSize) If (givenSize < 1024) Then Tamanho = givenSize & " Bytes" ElseIf (givenSize < 1024*1024) Then Tamanho = FormatNumber(givenSize/1024,2) & " KB" ElseIf (givenSize < 1024*1024*1024) Then Tamanho = FormatNumber(givenSize/(1024*1024),2) & " MB" Else Tamanho = FormatNumber(givenSize/(1024*1024*1024),2) & " GB" End If IF inStr(Tamanho, ",00") <> 0 THEN Tamanho = Replace(Tamanho, ",00", "") End Function 'FUNÇÃO PARA ENVIAR EMAIL Function enviar(de, para, assunto, mensagem) Select Case loja("componente_email") Case "ASPMAIL" On Error Resume Next Set objEmail = Server.CreateObject("SMTPsvg.Mailer") objEmail.FromName = de objEmail.FromAddress = de objEmail.RemoteHost = loja("host_email") objEmail.AddRecipient "", para objEmail.Subject = assunto objEmail.ContentType = "text/html" objEmail.BodyText = mensagem objEmail.SendMail Set objEmail = Nothing Case "ASPEMAIL" On Error Resume Next Set objEmail = Server.CreateObject("Persits.MailSender") objEmail.Host = loja("host_email") objEmail.From = de objEmail.FromName = de objEmail.AddAddress para objEmail.Subject = assunto objEmail.isHTML = True objEmail.Body = Mensagem objEmail.Send Set objEmail = Nothing Case "ASPQMAIL" On Error Resume Next Set objEmail = Server.CreateObject("SMTPsvg.Mailer") objEmail.QMessage = 1 objEmail.FromName = de objEmail.FromAddress = de objEmail.RemoteHost = loja("host_email") objEmail.AddRecipient "", para objEmail.Subject = assunto objEmail.BodyText = mensagem objEmail.SendMail Set objEmail = Nothing Case "CDONTS" On Error Resume Next Set objEmail = Server.CreateObject("CDONTS.NewMail") objEmail.to = para objEmail.from = de objEmail.subject = assunto objEmail.Importance = 1 objEmail.BodyFormat = 0 objEmail.MailFormat = 0 objEmail.body = mensagem objEmail.send Set objEmail = Nothing End Select end function 'FUNÇÃO PARA CRIPTOGRAFIA DA LOJA EMAIL Function hash(texto) Dim cripta cripta = "" For i = 1 To Len(texto) If cripta = "" Or i > Len("0123456789") Then x = 1 Else x = x + 1 cripta = cripta & Chr(255 - (Asc(Mid(texto, i, 1))) + Int(Mid("0123456789",x,1)) ) Next hash = cripta End Function 'FUNÇÃO PARA FECHAR BANCO DE DADOS Function fecha_banco set brpay = nothing set boleto = nothing set deposito = nothing set visa = nothing set master = nothing conexao.close set conexao = nothing end function if request("especial") = "sair" then session.Abandon() response.redirect "default.asp" end if FUNCTION parcela(valor_total,qntparcelas, minima) if valor_total/12 >= 1 + minima - 1 and qntparcelas >=12 then texto = "12x de R$ " & formatnumber((valor_total/12),2) elseif valor_total/11 >= 1 + minima - 1 and qntparcelas >=11 then texto = "11x de R$ " & formatnumber((valor_total/11),2) elseif valor_total/10 >= 1 + minima - 1 and qntparcelas >=10 then texto = "10x de R$ " & formatnumber((valor_total/10),2) elseif valor_total/9 >= 1 + minima - 1 and qntparcelas >=9 then texto = "9x de R$ " & formatnumber((valor_total/9),2) elseif valor_total/8 >= 1 + minima - 1 and qntparcelas >=8 then texto = "8x de R$ " & formatnumber((valor_total/8),2) elseif valor_total/7 >= 1 + minima - 1 and qntparcelas >=7 then texto = "7x de R$ " & formatnumber((valor_total/7),2) elseif valor_total/6 >= 1 + minima - 1 and qntparcelas >=6 then texto = "6x de R$ " & formatnumber((valor_total/6),2) elseif valor_total/5 >= 1 + minima - 1 and qntparcelas >=5 then texto = "5x de R$ " & formatnumber((valor_total/5),2) elseif valor_total/4 >= 1 + minima - 1 and qntparcelas >=4 then texto = "4x de R$ " & formatnumber((valor_total/4),2) elseif valor_total/3 >= 1 + minima - 1 and qntparcelas >=3 then texto = "3x de R$ " & formatnumber((valor_total/3),2) elseif valor_total/2 >= 1 + minima - 1 and qntparcelas >=2 then texto = "2x de R$ " & formatnumber((valor_total/2),2) end if if texto <> "" then mensagem = "<tr><td align=""center""> ou em <span style=""color:#CC0000""><strong>"&texto&"</strong> no <strong>"&cartao&"</strong> </span>sem juros </td></tr>" response.write mensagem end if END FUNCTION FUNCTION parcelase(valor_total,qntparcelas, minima) if valor_total/12 >= 1 + minima - 1 and qntparcelas >=12 then texto = "12x de R$ " & formatnumber((valor_total/12),2) elseif valor_total/11 >= 1 + minima - 1 and qntparcelas >=11 then texto = "11x de R$ " & formatnumber((valor_total/11),2) elseif valor_total/10 >= 1 + minima - 1 and qntparcelas >=10 then texto = "10x de R$ " & formatnumber((valor_total/10),2) elseif valor_total/9 >= 1 + minima - 1 and qntparcelas >=9 then texto = "9x de R$ " & formatnumber((valor_total/9),2) elseif valor_total/8 >= 1 + minima - 1 and qntparcelas >=8 then texto = "8x de R$ " & formatnumber((valor_total/8),2) elseif valor_total/7 >= 1 + minima - 1 and qntparcelas >=7 then texto = "7x de R$ " & formatnumber((valor_total/7),2) elseif valor_total/6 >= 1 + minima - 1 and qntparcelas >=6 then texto = "6x de R$ " & formatnumber((valor_total/6),2) elseif valor_total/5 >= 1 + minima - 1 and qntparcelas >=5 then texto = "5x de R$ " & formatnumber((valor_total/5),2) elseif valor_total/4 >= 1 + minima - 1 and qntparcelas >=4 then texto = "4x de R$ " & formatnumber((valor_total/4),2) elseif valor_total/3 >= 1 + minima - 1 and qntparcelas >=3 then texto = "3x de R$ " & formatnumber((valor_total/3),2) elseif valor_total/2 >= 1 + minima - 1 and qntparcelas >=2 then texto = "2x de R$ " & formatnumber((valor_total/2),2) end if if texto <> "" then mensagem = "ou em <span style=""color:#CC0000""><strong>"&texto&"</strong> no <strong>"&cartao&"</strong> </span>sem juros" response.write mensagem end if END FUNCTION %>
  2. ESTOU COM O MESMO PROBLEMA DO AMIGO ACIMA, TENHO UMA LOJA ASP,,,,,,,HOSPEDEI NO UOLHOST E ELA NÃO MANDA E-MAIL....PODE ME AJUDAR ???
×
×
  • Criar Novo...