Jump to content

Search the Community

Showing results for tags 'Asp'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Q&A Desenvolvimento
    • Perguntas e respostas rápidas
  • Desenvolvimento e Banco de Dados
    • HTML e CSS
    • Java
    • Javascript
    • .NET
    • PHP
    • Python
    • Ruby
    • Mobile
    • Ambientes de Desenvolvimento
    • Arquitetura e Métodos Ágeis
    • Banco de Dados
    • DevOps
    • Desenvolvimento de Games
    • E-Commerce e Pagamentos Online
    • SEO e Otimizações
    • WordPress
    • Algoritmos & Outras Tecnologias
  • Design e Produto
    • Fotografia
    • Photoshop
    • Design de interfaces e UX
    • Edição/Produção de Vídeos
    • Marketing Online
    • Desenho, Ilustração e 3D
  • Entretenimento e uso pessoal
    • Geral
    • Segurança & Malwares
    • Gadgets e wearable
    • Softwares e Apps
    • Entretenimento

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


Google+


Hangouts


Skype


Twitter


deviantART


Github


Flickr


LinkedIn


Pinterest


Facebook


Site Pessoal


Localização


Interesses

Found 120 results

  1. camisavp

    ASP Clássico, AJAX e Access

    Boa tarde. Estou com umas boas dificuldades aqui. Preciso que, em um formulário grande, eu ao digitar o numero do prontuário, caso já exista ele cadastrado, me retorne alguns campos preenchidos automaticamente. Estou tentando montar um formulário da seguinte maneira: form: input 1: - vai buscar a informação no banco de dados. se possível, com um autopreenchimento durante a digitação input 2: - caso já exista um prontuário, popular o input com os dados retirados do banco de dados input 3: - será preenchido manualmente input 4: - caso já exista um prontuário, popular o input com os dados retirados do banco de dados input 5: - caso já exista um prontuário, popular o input com os dados retirados do banco de dados input 6: - será preenchido manualmente input 7: - será preenchido manualmente ... mais uma série de inputs preenchidos manualmente /form. Não sou um estudioso e nem estou na minha área, pois sou engenheiro, haja visto que a aplicação é residencial e ainda em asp clássico com banco de dados access. kkkkkkkkkk Faço isso como hobby. Passei duas semanas já tentando achar uma solução, porém sem sucesso. Agradeço a ajuda de quem puder colaborar. Grato Marcelo Camisa
  2. Fala galera, boa tarde. Estou precisar criar uma página para recuperar algumas informações do PC. Achei um script, porém a informação não é visualizado na página. Segue script <% Set objShell = server.CreateObject("WScript.Shell") Set objExec = objShell.Exec("cmd /c powershell wmic cpu get loadpercentage") Set objStdOut = objExec.StdOut response.write "CPU:<BR>" While Not objStdOut.AtEndOfStream Response.write objStdOut.ReadLine &"<BR>" Wend objExec.StdIn.Close() %> Alguém tem alguma ideia do que está errado? Agradeço a atenção de todos!
  3. Bom dia, pessoal. A questão é que eu consigo acessar um endereço "dominio.com/modulo/id/titulo" e ele reescrever para "dominio.com/default.asp?link=artigo&id=123&titulo=teste", mas minha dúvida é se consigo fazer o processo reverso, ou seja, acessar "dominio.com/default.asp?link=artigo&id=123&titulo=teste" e ele alterar para "dominio.com/modulo/id/titulo". Códigos: WEB.CONFIG <?xml version="1.0" encoding="UTF-8"?> <system.webServer> <rewrite> <rules> <rule name="artigo" stopProcessing="true"> <match url="^artigo/?([a-zA-Z0-9_-]+)?/?([a-zA-Z0-9_-]+)?/?([a-zA-Z0-9_-]+)?$" /> <conditions> <add input="{REQUEST_FILENAME}" matchType="IsFile" negate="true" /> <add input="{REQUEST_FILENAME}" matchType="IsDirectory" negate="true" /> </conditions> <action type="Rewrite" url="default.asp?link={R:0}&id={R:1}&teste={R:2}" /> </rule> </rules> </rewrite> </system.webServer> ASP <!DOCTYPE html> <html lang="pt-br"> <head> <meta charset="utf-8"/> <title>Teste Isapi Rewrite</title> </head> <body> <p> Teste!<br> link: <%=request("link")%><br> id: <%=request("id")%><br> teste: <%=request("teste")%><br> </p> </body> </html> Desde já agradeço!
  4. fsanchez

    WebHook's API

    Olá Pessoal! Para auxilio de outros desenvolvedores que estão iniciando com WEBHOOK, segue algumas dicas que obtive desenvolvendo um webhook. Webhook de forma resumida: - Webhooks permitem criar integrações que comunicam eventos ocorridos nos documentos da plataforma da Clicksign. Quando um evento ocorre, a Clicksign notifica a sua aplicação imediatamente, através de uma requisição HTTP POST para a URL previamente cadastrada. Eventos dentro do webhook - Quando ocorrerem eventos nos documentos, uma requisição HTTP POST será disparada para a URL previamente cadastrada nas configurações da conta. Aqui que vem a dica: O servidor cliente faz uma requisição, e aguarda uma resposta da sua aplicação, informando se você recebeu a requisição: - Responda a requisição do Webhook com uma resposta HTTP 200 OK. Qualquer resposta fora do intervalo 2XX informará que você não recebeu seu webhook. exemplo em ASP : Response.ContentType = "application/json" Response.Status="HTTP/1.1 200 OK" Depois é só alegria, tratar dados recebidos. exemplo: ATRAVES DO SERVERVARIABLES CONSIGO OBERTER O RESULTADO DA REQUISIÇÃO cabecalho_completo = Request.ServerVariables("ALL_HTTP") content_type = Request.ServerVariables("CONTENT_TYPE") ...etc... Pra voce conseguir pegar o json, isso em ASP, será necessario converte - lo em Tipo Byte, depois em String para você se quiser obter alguma tag do JSON para algum tratamento. exemplo: Dim lngBytesCount lngBytesCount = Request.TotalBytes jsonstring = BytesToStr(Request.BinaryRead(lngBytesCount)) Function BytesToStr(bytes) Dim Stream Set Stream = Server.CreateObject("Adodb.Stream") Stream.Type = 1 'tipo de dados binarios Stream.Open Stream.Write bytes Stream.Position = 0 Stream.Type = 2 'tipo de dados texto Stream.Charset = "iso-8859-1" BytesToStr = Stream.ReadText Stream.Close Set Stream = Nothing End Function 'Instancio o obejto JSON' Set oJSON = New aspJSON 'Carrego a String JSON oJSON.loadJSON(jsonstring) 'Obter valor simples nome_tag = oJSON.data("tagJSON").item("tagJSON")
  5. Como Posso recuperar o retorno do JSON que foi enviado via POST de uma requisição Webhook em asp classic. Precisaria mais ou menos assim: POST / HTTP/1.1 Host: testecrm.requestcatcher.com Accept: */* Accept-Encoding: gzip, deflate Content-Hmac: sha256=fc9e789996bdd63c0f03dacccb1ef992310d8516d9e8673bce5b1d0825100cda Content-Length: 5363 Content-Type: application/json Event: add_signer User-Agent: rest-client/2.0.2 (linux-musl x86_64) ruby/2.6.3p62 X-Newrelic-Id: VQUDV1JXGwICU1RWBggDUg== X-Newrelic-Transaction: PxQHAAQGDldRU1lWVgUGAFIIFB8EBw8RVU4aUllaUQRXBA5ZBQAHUwIADkNKQQoKA1IAVwAEFTs=
  6. s3c0

    Webservice JSON + ASP

    Fala pessoal, estou com um probleminha com uma integração, onde preciso ler um resposta JSON em ASP Clássico. a resposta é {"id":1,"name":"PAC","price":"45.65","custom_price":"45.65","discount":"7.41","currency":"R$","delivery_time":8,"delivery_range":{"min":8,"max":8},"custom_delivery_time":8,"custom_delivery_range":{"min":8,"max":8},"packages":{"price":"45.65","discount":"7.41","format":"box","dimensions":{"height":20,"width":20,"length":20},"weight":"1.00","insurance_value":"1000.00","products":{"id":"teste1","quantity":1}},"additional_services":{"receipt":true,"own_hand":false,"collect":false},"company":{"id":1,"name":"Correios","picture":"https:\/\/sandbox.melhorenvio.com.br\/images\/shipping-companies\/correios.png"}},{"id":2,"name":"EXPRESSO","price":"68.51","custom_price":"68.51","discount":"11.95","currency":"R$","delivery_time":5,"delivery_range":{"min":5,"max":5},"custom_delivery_time":5,"custom_delivery_range":{"min":5,"max":5},"packages":{"price":"68.51","discount":"11.95","format":"box","dimensions":{"height":20,"width":20,"length":20},"weight":"1.00","insurance_value":"1000.00","products":{"id":"teste1","quantity":1}},"additional_services":{"receipt":true,"own_hand":false,"collect":false},"company":{"id":1,"name":"Correios","picture":"https:\/\/sandbox.melhorenvio.com.br\/images\/shipping-companies\/correios.png"}},{"id":3,"name":".Package","price":"33.51","custom_price":"33.51","discount":"15.58","currency":"R$","delivery_time":6,"delivery_range":{"min":5,"max":6},"custom_delivery_time":6,"custom_delivery_range":{"min":5,"max":6},"packages":{"format":"box","dimensions":{"height":20,"width":20,"length":20},"weight":"1.00","insurance_value":"1000.00","products":{"id":"teste1","quantity":1}},"additional_services":{"receipt":true,"own_hand":false,"collect":false},"company":{"id":2,"name":"JadLog","picture":"https:\/\/sandbox.melhorenvio.com.br\/images\/shipping-companies\/jadlog.png"}},{"id":4,"name":".Com","price":"32.63","custom_price":"32.63","discount":"26.48","currency":"R$","delivery_time":5,"delivery_range":{"min":4,"max":5},"custom_delivery_time":5,"custom_delivery_range":{"min":4,"max":5},"packages":{"format":"box","dimensions":{"height":20,"width":20,"length":20},"weight":"1.00","insurance_value":"1000.00","products":{"id":"teste1","quantity":1}},"additional_services":{"receipt":true,"own_hand":false,"collect":false},"company":{"id":2,"name":"JadLog","picture":"https:\/\/sandbox.melhorenvio.com.br\/images\/shipping-companies\/jadlog.png"}} Tenho a seguinte página para receber essa resposta <!--#include file="includes/json2.asp"--> <% Dim objXML, Result Set objXML = Server.CreateObject("Microsoft.XMLHTTP") On Error Resume Next For i = 1 To 3 objXML.Open "POST" , url, False , "", "" objXML.setRequestHeader "content-type", "application/json" objXML.setRequestHeader "accept", "application/json" objXML.setRequestHeader "authorization", "Bearer " & Bearer objXML.Send variavel_json If Err.Number = 0 Then Result = objXML.ResponseText end if Exit For Next Set objXML = Nothing Result = replace(replace(Result,"[",""),"]","") a=Split(Result,".png""}},") For Each x In a set x = JSON.parse(Result) Response.write(x.name & vbNewline) Response.write(x.price & vbNewline) Response.write(x.delivery_time & vbNewline) Response.write(x.company.name & vbNewline) Next %> O que ocorre, é que imprimi somente a última linha Print .Com 32.63 5 JadLog .Com 32.63 5 JadLog .Com 32.63 5 JadLog .Com 32.63 5 JadLog Alguém poderia me dizer onde estou errando? Agradeço a atenção de todos! Abraços
  7. Pessoal se alguém puder me ajudar com alguma dica,exemplo ou como fazer isso em asp clássico , quero colocar emojis nas metas title e description mais não acho nenhum exemplo bom para usar. Quero fazer igual este site no link abaixo, eles usam um plug Wordpress é possível fazer isso em asp ? https://searchenginewatch.com/2017/02/22/google-brings-emoji-back-to-the-serps Achei este site aqui http://www.amp-what.com/unicode/search/weather teria alguma forma de usar api para trazer estes ícones para meu site, desde já agradeço a colaboração de todos. Quando insiro o código no meu campo titulo o emoji aparece o problema está na exibição do código font que aparece como mostrado abaixo: Aparece assim: <title> &#128574; | Criação de sites para empresas em Alta Floresta D'Oeste </title> Desejo fazer aparecer assim <title> aparecer imagem do emoji aqui | Criação de sites para empresas em Alta Floresta D'Oeste </title>
  8. Boa noite galera, tudo bem? Por favor, preciso fazer uma função em ASP onde tenho um campo data_gravacao, pegar essa data e verificar se está expirando após 365 dias. Exemplo: Data_gravacao = 27/06/2019 quando estiver chegando proximo a 27/06/2020 mudar a cor, informar na tela que está inspirando. Poderiam me orientar de como posso fazer? Colocar um exemplo? Muito obrigado desde já.
  9. s3c0

    ASP + PDF

    Amigos, boa noite. Estou tentando gerar um simples documento em PDF, porém sempre retorna erro quando adiciono imagem. Utilizo o componente FPDF. Abaixo a página que é gerada o erro. <!--#include file="fpdf.asp"--> <% dim pdf Dim imagem '// criando o pdf set pdf=CreateJsObject("FPDF") '// aki poderemos adcionar várias funções como titulos padroes para todas as páginasm numeração de páginas e etc. '// montando o corpo do pdf, setando o tipo da folha, tipo de medida e o tamanho da folha pdf.CreatePDF "P","mm","A4" pdf.SetPath("fpdf/") pdf.Open() '// adcionando página pdf.AddPage() pdf.Image "arquivos/background1.jpg",0,0,200 pdf.Close() Alguém saberia me dizer onde está o erro?
  10. marcelocardoso

    limitar itens paginação...

    olá pessoal. Estou disponibilizando um script para paginação de noticias, ele funciona, porém, ao adaptar codigo usado da internet, não encontrei maneiras de LIMITAR os REGISTROS. Se alguém quiser contribuir, na parte da paginação, agradeço. preciso limitar os registros em 10 em 10 a paginação primeiro < 1 2 3 4 5 6 7 8 9 10 > ultimo <section class="container-fluid"> <div class="row mb-5"> <div class="col-xl-12 col-lg-12 col-md-12 col-sm-12 col-xs-12 mb-5"> <h1 class="text-center"> Informações e noticias </h1> <h3 class="text-center"> Atualizações diárias de conteúdos advocatícios e judiciais </h3> </div> <div class="col-xl-8 col-lg-8 col-md-8 col-sm-8 col-xs-12 mt-2 p-5" style="height: auto;"> <% IF IsEmpty(Request.QueryString("idnot")) OR IsNull(Request.QueryString("idnot")) THEN SQL1 = "SELECT * FROM dbluz_noticias ORDER BY id DESC LIMIT 1" ELSE SQL1 = "SELECT * FROM dbluz_noticias WHERE id = "& Request.QueryString("idnot") &" ORDER BY id DESC LIMIT 1" END IF SET strNoticias = Server.CreateObject("ADODB.Recordset") strNoticias.Open SQL1, conexao, 3, 3 IF strNoticias.EOF THEN %> <div class="col-xl-12 col-lg-12 col-md-12 col-sm-12 col-xs-12 text-center"> <h1>AVISO!</h1> <h4 style="color: green;"> Não existem noticias cadastradas no momento, <br> ou não existe registro para este ID informado. </h4> </div> <% ELSE DO WHILE NOT strNoticias.EOF %> <div class="box-noticias-data"> <%=strNoticias("dbluz_data")%> </div> <div class="box-noticias-subtitulo"> <%=strNoticias("dbluz_subtitulo")%> </div> <div class="box-noticias-titulo mt-4"> <%=strNoticias("dbluz_titulo")%> </div> <div class="box-noticias-descricao mt-5 text-justify"> <%=strNoticias("dbluz_descricao")%> </div> <div class="col-xl-12 col-lg-12 col-md-12 col-sm-12 col-xs-12 text-right box-noticias-fonte line-dotted-top mt-3 mb-5 p-2"> <span class="mb-5 mt-2 p-2 bg-success"> <a href="index.asp?idnot=<%=strNoticias("id")%>" role="button" class="btn btn-clean"> <span class="fa fa-print fa-1x font-color-var1"></span> </a> </span> </div> <% strNoticias.MoveNext Loop SET strNoticias = Nothing %> </div> <div class="col-xl-4 col-lg-4 col-md-4 col-sm-4 col-xs-12 mt-5 p-0"> <% SQL2 = "SELECT * FROM dbluz_noticias " SET strNoticiasBlocos = Server.CreateObject("ADODB.Recordset") strNoticiasBlocos.Open SQL2, conexao, 3, 3 IF strNoticiasBlocos.EOF THEN %> <div class="row"> <div class="col-xl-12 col-lg-12 col-md-12 col-sm-12 col-xs-12 text-center"> <h1>AVISO!</h1> <h4 style="color: green;">Não existem noticias cadastradas no momento, <br> ou não existe registro para este ID informado.</h4> </div> </div> <% ELSE ItensExibidos = 1 'Qtde de Itens' NumeroDaPagina = Request.QueryString("pg") IF NumeroDaPagina = "" THEN NumeroDaPagina = 1 TotalDeRegistros = UBound(strNoticiasBlocos.GetRows,2)+1 InicioDaPagina = ((ItensExibidos*NumeroDaPagina)-ItensExibidos) FinalDaPagina = ItensExibidos IF TotalDeRegistros <= ItensExibidos THEN PaginaTotal = 1 ELSEIF (TotalDeRegistros MOD ItensExibidos = 0) THEN PaginaTotal = (TotalDeRegistros/ItensExibidos) ELSE PaginaTotal = (TotalDeRegistros/ItensExibidos) + 1 PaginaTotal = Cint(PaginaTotal) END IF strNoticiasBlocos.close SQL3 = SQL2 & "WHERE id != (SELECT max(id) FROM dbluz_noticias) ORDER BY id DESC LIMIT "& InicioDaPagina &" , "& FinalDaPagina &"" strNoticiasBlocos.Open SQL3, conexao, 3, 3 %> <div class="row"> <div class="col-xl-12 col-lg-12 col-md-12 col-sm-12 col-xs-12 mb-2"> <% DO WHILE NOT strNoticiasBlocos.EOF %> <div class="box-noticias-data-min"><%= strNoticiasBlocos("dbluz_data")%></div> <div class="box-noticias-titulo-min mt-1 mb-1"> <a href="index.asp?idnot=<%=strNoticiasBlocos("id")%>" class=""> <%= strNoticiasBlocos("dbluz_titulo")%> </a> </div> <div class="box-noticias-descricao-min hidden-sm hidden-xs mb-4 line-dotted-top"> <%= LEFT(strNoticiasBlocos("dbluz_descricao"),200)%> </div> <% strNoticiasBlocos.MoveNext Loop %> </div> <% END IF END IF %> </div> <div class="col-xl-12 col-lg-12 col-md-12 col-md-12 col-xs-12"> <ul class="pagination pagination-sm"> <% IF Cint(NumeroDaPagina) = 1 THEN %> <li class="page-item disabled"> <a class="page-link fa fa-home" href="?pg=1" tabindex="-1"></a> </li> <li class="page-item disabled"> <a class="page-link" href="?pg=<%=NumeroDaPagina-1%>" tabindex="-1">Anterior</a> </li> <% ELSE %> <li class="page-item"> <a class="page-link fa fa-home" href="?pg=1" tabindex="-1"></a> </li> <li class="page-item"> <a class="page-link" href="?pg=<%=NumeroDaPagina-1%>" tabindex="-1">Anterior</a> </li> <% END IF %> <% FOR intID = 1 TO PaginaTotal IF intID = Cint(NumeroDaPagina) THEN %> <li class="page-item active"><a class="page-link" href="#"><b><%=intID%></b></a></li> <% ELSE %> <li class="page-item"> <a class="page-link" href="?pg=<%=intID%>"> <%=intID%> </a> </li> <% END IF NEXT %> <% IF Cint(NumeroDaPagina) = PaginaTotal THEN %> <li class="page-item disabled"> <a class="page-link" href="?pg=<%=NumeroDaPagina+1%>">Proxima</a> </li> <li class="page-item disabled"> <a class="page-link fa fa-arrow-circle-right" href="?pg=<%=PaginaTotal%>"></a> </li> <% ELSE %> <li class="page-item"> <a class="page-link" href="?pg=<%=NumeroDaPagina+1%>">Proxima</a> </li> <li class="page-item"> <a class="page-link fa fa-arrow-circle-right" href="?pg=<%=PaginaTotal%>"></a> </li> <% END IF %> </ul> </div> <div class="col-xl-12 col-lg-12 col-md-12 col-md-12 col-xs-12"> <div class="text-right p-1" style="font-size: 10px;"> Navegando na página <b id="barra_numero"><%= NumeroDaPagina %></b> de <b id="barra_total"><%= PaginaTotal %></b> </div> <div class="text-right p-1" style="font-size: 10px; color: dimgray;"> TOTAL DE <b id="barra_registro"><%= TotalDeRegistros %></b> REGISTROS </div> </div> </div> </div> </section> CODIGO DA PAGINACAO EXTRAIDO DA PARTE DE CIMA, a parte que preciso ajustar.... <ul class="pagination pagination-sm"> <% IF Cint(NumeroDaPagina) = 1 THEN %> <li class="page-item disabled"> <a class="page-link fa fa-home" href="?pg=1" tabindex="-1"></a> </li> <li class="page-item disabled"> <a class="page-link" href="?pg=<%=NumeroDaPagina-1%>" tabindex="-1">Anterior</a> </li> <% ELSE %> <li class="page-item"> <a class="page-link fa fa-home" href="?pg=1" tabindex="-1"></a> </li> <li class="page-item"> <a class="page-link" href="?pg=<%=NumeroDaPagina-1%>" tabindex="-1">Anterior</a> </li> <% END IF %> <% FOR intID = 1 TO PaginaTotal IF intID = Cint(NumeroDaPagina) THEN %> <li class="page-item active"><a class="page-link" href="#"><b><%=intID%></b></a></li> <% ELSE %> <li class="page-item"> <a class="page-link" href="?pg=<%=intID%>"> <%=intID%> </a> </li> <% END IF NEXT %> <% IF Cint(NumeroDaPagina) = PaginaTotal THEN %> <li class="page-item disabled"> <a class="page-link" href="?pg=<%=NumeroDaPagina+1%>">Proxima</a> </li> <li class="page-item disabled"> <a class="page-link fa fa-arrow-circle-right" href="?pg=<%=PaginaTotal%>"></a> </li> <% ELSE %> <li class="page-item"> <a class="page-link" href="?pg=<%=NumeroDaPagina+1%>">Proxima</a> </li> <li class="page-item"> <a class="page-link fa fa-arrow-circle-right" href="?pg=<%=PaginaTotal%>"></a> </li> <% END IF %> Desde já obrigado...
  11. Boa tarde pessoal, Sou nova por aqui e também sou nova na programação, e gostaria da ajuda de alguém, se possível. Eu montei uma pagina que cria questionários, onde o usuário pode criar perguntas com 4 tipos de respostas (Radio, Checkbox, Text e Number). Porém não sei como verificar se no questionário, foi criado pelo menos uma pergunta de cada tipo. Montei assim: <select name="tipoconsquestao" id="tipoconsquestao" style="color:#000000; font-size:9px; width:130px; "> <option value="1" selected >Única escolha</option> <option value="2">Múltipla escolha</option> <option value="3">Texto livre</option> <option value="4">Número livre</option> </select> Criei um bloco desses para cada tipo de pergunta: <%if (ArrayQuestions(6,i) = 1) then%> <td width="8%" align=center> <input name="<%=conta_grupo%>" data-sm-tipo="<%=ArrayQuestions(6,i)%>" data-sm-vrmaxquestao="<%=ArrayQuestions(11,i)%>" data-sm-questao-numero="<%=ArrayQuestions(2,i)%>" data-sm- alternativa="<%=ArrayQuestions(3,i)%>" data-sm-questao="<%=conta_grupo%>" id="<%=conta_Alternativa%>" type="radio" value="<%=ArrayQuestions(3,i) %>" <%if ArrayQuestions(4,i) = 1 then response.write "checked"%>/> </td> <td width="92%" >&nbsp;&nbsp;&nbsp;<b><%=ArrayQuestions(1,i)%><b></td> <% end if %> Recebo aqui: var arrayquestoes = []; var arrayalternativas = []; var questionarioRadio = []; var questionarioCheck = []; var questionarioText = []; var questionarioNum = []; for (var i = 1; i <= n_grupos; i++) { var countRadio = 0; var countCheck = 0; var countText = 0; var countVrText = 0; var countVariosVrText = 0; var countNum = 0; $("[data-sm-questao='" + i + "']").each(function (index, value) { var questao = $(this).attr("data-sm-questao-numero"); var alternativa = $(this).attr("data-sm-alternativa"); //alert(alternativa); var vralternativa = $(this).val(); var tipoalternativa = $(this).attr("data-sm-tipo"); vrmaxtotalizacao = $(this).attr("data-sm-vrmaxquestao"); arrayquestoes[i - 1] = questao; //============================================================================================================== // Verifica todos os campos tipo questão 1 (Radiobuttons) e carrega o array questionarioRadio com true ou false //============================================================================================================== if (eval(tipoalternativa) == 1) { if (this.checked) { questionarioRadio[countRadio] = true; if (textoalternativas == '') { textoalternativas = questao + '|' + alternativa + '|' + 1; } else { textoalternativas = textoalternativas + ';'+ questao + '|' + alternativa + '|' + 1; } } else { questionarioRadio[countRadio] = false; } countRadio = countRadio + 1; //console.log(cont); } Faço a validação aqui: for (var k = 0; k < questionarioRadio.length; k++) { if (questionarioRadio[k]) { if (!saidafinalRadio) { saidafinalRadio = true; } } } if (questionarioRadio.length == 1) { saidafinalRadio = true; } } if (!saidafinalRadio) { alert('Por favor responda todas as questões de única escolha.'); return; } E mando para o banco de dados.
  12. s3c0

    JSON + ASP

    Prezados, Estou precisando consumir um JSON em ASP Classic, porém nunca me deparei com um resultado JSON desta maneira. {"Generation":{"@attributes":{"version":"3.3.0","timestamp":"1554501899"}},"Options":{"@attributes":{"tempFormat":"c","byteFormat":"auto_binary","datetimeFormat":"utc","refresh":"60000","threshold":"90"}},"Vitals":{"@attributes":{"Hostname":"WIN2K","IPAddr":"127.0.0.1","Kernel":"6.1.7600 (64-bit)","Distro":"Microsoft Windows Server 2008 R2 Enterprise","Distroicon":"WinVista.png","Uptime":"381618","Users":"0","LoadAvg":"","CPULoad":"0","SysLang":"Portuguese - Brazil (1046)","CodePage":"windows-1252","Processes":"58","OS":"WINNT"}},"Network":{},"Hardware":{"@attributes":{"Name":"VMware, Inc. VMware Virtual Platform"},"PCI":{"Device":[{"@attributes":{"Name":"PCI standard PCI-to-PCI bridge","Count":"2"}},{"@attributes":{"Name":"PCI Express standard Root Port","Count":"32"}},{"@attributes":{"Name":"Standard AHCI 1.0 Serial ATA Controller","Manufacturer":"Standard AHCI 1.0 Serial ATA Controller"}},{"@attributes":{"Name":"Intel(R) PRO\/1000 MT Network Connection","Manufacturer":"Intel"}},{"@attributes":{"Name":"Intel(R) PRO\/1000 MT Network Connection #2","Manufacturer":"Intel"}},{"@attributes":{"Name":"Intel(R) PRO\/1000 MT Network Connection #3","Manufacturer":"Intel"}},{"@attributes":{"Name":"LSI Adapter, SAS 3000 series, 8-port with 1068","Manufacturer":"LSI"}},{"@attributes":{"Name":"Intel 82371AB\/EB PCI to ISA bridge (ISA mode)","Manufacturer":"Intel"}},{"@attributes":{"Name":"VMware SVGA 3D","Manufacturer":"VMware, Inc."}},{"@attributes":{"Name":"Intel(R) 82371AB\/EB PCI Bus Master IDE Controller","Manufacturer":"Intel"}},{"@attributes":{"Name":"VMware VMCI Bus Device","Manufacturer":"VMware, Inc."}},{"@attributes":{"Name":"Intel 82443BX Pentium(R) II Processor to PCI Bridge","Manufacturer":"Intel"}}]},"IDE":{"Device":{"@attributes":{"Name":"NECVMWar VMware SATA CD00 ATA Device"}}},"SCSI":{"Device":{"@attributes":{"Name":"VMware Virtual disk SCSI Disk Device","Capacity":"128849011200"}}},"CPU":{"CpuCore":[{"@attributes":{"Model":"Intel(R) Xeon(R) CPU E3-1231 v3 @ 3.40GHz","CpuSpeed":"3400","Cache":"0"}},{"@attributes":{"Model":"Intel(R) Xeon(R) CPU E3-1231 v3 @ 3.40GHz","CpuSpeed":"3400","Cache":"0"}},{"@attributes":{"Model":"Intel(R) Xeon(R) CPU E3-1231 v3 @ 3.40GHz","CpuSpeed":"3400","Cache":"0"}},{"@attributes":{"Model":"Intel(R) Xeon(R) CPU E3-1231 v3 @ 3.40GHz","CpuSpeed":"3400","Cache":"0"}}]}},"Memory":{"@attributes":{"Free":"1575329792","Used":"2719170560","Total":"4294500352","Percent":"63"},"Swap":{"@attributes":{"Free":"2833252352","Used":"900726784","Total":"3733979136","Percent":"24"},"Mount":{"@attributes":{"MountPointID":"1","FSType":"swap","Name":"SWAP","Free":"2833252352","Used":"900726784","Total":"3733979136","Percent":"24","MountPoint":"C:\\pagefile.sys"}}}},"FileSystem":{"Mount":[{"@attributes":{"MountPointID":"1","FSType":"","Name":"Removable Disk (3 1\/2 in.)","Free":"0","Used":"0","Total":"0","Percent":"0","MountPoint":"A:"}},{"@attributes":{"MountPointID":"2","FSType":"NTFS","Name":"Local Disk","Free":"16396288","Used":"128725663744","Total":"128742060032","Percent":"100","MountPoint":"C:"}},{"@attributes":{"MountPointID":"3","FSType":"","Name":"Compact Disc","Free":"0","Used":"0","Total":"0","Percent":"0","MountPoint":"D:"}}]},"MBInfo":{},"UPSInfo":{},"Plugins":{},"Errors":{}} Preciso pegar alguns valores desse resultado. Esses valores são CPULoad, Memory e Hard Disk. oJSON.loadJSON("http://127.0.0.1/xml.php?plugin=complete&json") 'Loop through collection For Each dados In oJSON.data("Vitals") Set this = oJSON.data("Vitals").item(dados) processador = this.item("CPULoad") Next For Each dados In oJSON.data("Memory") Set this = oJSON.data("Memory").item(dados) memoria = this.item("Total") Next For Each dados In oJSON.data("FileSystem") Set this = oJSON.data("FileSystem").item(dados) if this.item("MountPointID") = "2" then hd = this.item("Percent") end if Next Tentei de algumas formas, mas sem sucesso. Alguém teria alguma idéia de como posso pegar esses valores? Agradeço a atenção de todos.
  13. s3c0

    Ler XML ASP

    Prezados, boa noite. Estou precisando de um help! possuo um script que retorna o seguinte XML: <tns:phpsysinfo xmlns:tns="http://phpsysinfo.sourceforge.net/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://phpsysinfo.sourceforge.net/ phpsysinfo3.xsd"> <Generation version="3.3.0" timestamp="1554324372"/> <Options tempFormat="c" byteFormat="auto_binary" datetimeFormat="utc" refresh="60000" threshold="90"/> <Vitals Hostname="WIN" IPAddr="127.0.0.1" Kernel="6.1.7600 (64-bit)" Distro="Microsoft Windows Server 2008 R2 Enterprise" Distroicon="WinVista.png" Uptime="204091" Users="0" LoadAvg="" CPULoad="0" SysLang="Portuguese - Brazil (1046)" CodePage="windows-1252" Processes="56" OS="WINNT"/> <Network/> <Hardware Name="VMware, Inc. VMware Virtual Platform"> <PCI> <Device Name="PCI standard PCI-to-PCI bridge" Count="2"/> <Device Name="PCI Express standard Root Port" Count="32"/> <Device Name="Standard AHCI 1.0 Serial ATA Controller" Manufacturer="Standard AHCI 1.0 Serial ATA Controller"/> <Device Name="Intel(R) PRO/1000 MT Network Connection" Manufacturer="Intel"/> <Device Name="Intel(R) PRO/1000 MT Network Connection #2" Manufacturer="Intel"/> <Device Name="Intel(R) PRO/1000 MT Network Connection #3" Manufacturer="Intel"/> <Device Name="LSI Adapter, SAS 3000 series, 8-port with 1068" Manufacturer="LSI"/> <Device Name="Intel 82371AB/EB PCI to ISA bridge (ISA mode)" Manufacturer="Intel"/> <Device Name="VMware SVGA 3D" Manufacturer="VMware, Inc."/> <Device Name="Intel(R) 82371AB/EB PCI Bus Master IDE Controller" Manufacturer="Intel"/> <Device Name="VMware VMCI Bus Device" Manufacturer="VMware, Inc."/> <Device Name="Intel 82443BX Pentium(R) II Processor to PCI Bridge" Manufacturer="Intel"/> </PCI> <IDE> <Device Name="NECVMWar VMware SATA CD00 ATA Device"/> </IDE> <SCSI> <Device Name="VMware Virtual disk SCSI Disk Device" Capacity="128849011200"/> </SCSI> <CPU> <CpuCore Model="Intel(R) Xeon(R) CPU E3-1231 v3 @ 3.40GHz" CpuSpeed="3400" Cache="0"/> <CpuCore Model="Intel(R) Xeon(R) CPU E3-1231 v3 @ 3.40GHz" CpuSpeed="3400" Cache="0"/> <CpuCore Model="Intel(R) Xeon(R) CPU E3-1231 v3 @ 3.40GHz" CpuSpeed="3400" Cache="0"/> <CpuCore Model="Intel(R) Xeon(R) CPU E3-1231 v3 @ 3.40GHz" CpuSpeed="3400" Cache="0"/> </CPU> </Hardware> <Memory Free="1720385536" Used="2574114816" Total="4294500352" Percent="60"> <Swap Free="3048210432" Used="685768704" Total="3733979136" Percent="18"> <Mount MountPointID="1" FSType="swap" Name="SWAP" Free="3048210432" Used="685768704" Total="3733979136" Percent="18" MountPoint="C:\pagefile.sys"/> </Swap> </Memory> <FileSystem> <Mount MountPointID="1" FSType="" Name="Removable Disk (3 1/2 in.)" Free="0" Used="0" Total="0" Percent="0" MountPoint="A:"/> <Mount MountPointID="2" FSType="NTFS" Name="Local Disk" Free="732983296" Used="128009076736" Total="128742060032" Percent="99" MountPoint="C:"/> <Mount MountPointID="3" FSType="" Name="Compact Disc" Free="0" Used="0" Total="0" Percent="0" MountPoint="D:"/> </FileSystem> <MBInfo/> <UPSInfo/> <Plugins/> <Errors/> </tns:phpsysinfo> tenho o seguinte código em ASP: <% url_server = "http://127.0.0.1/xml.php?plugin=complete" Set xmlhttp = Server.CreateObject("Microsoft.XMLHTTP") Call xmlhttp.open("GET", url_server, false) Call xmlhttp.send() strRetorno = xmlhttp.responseText Set oXmlDom = Server.CreateObject("Msxml2.DOMDocument.3.0") oXmlDom.loadXML strRetorno Set oNodes = oXmlDom.selectNodes("tns:phpsysinfo/FileSystem/Mount") for each oNode in oNodes response.write "Cache " & oNode.selectSingleNode("Percent").Text next Set oXmlDom = Nothing %> ao tentar trazer alguns valores, sempre me retorna o seguinte erro: Erro de tempo de execução do Microsoft VBScript erro '800a01a8' Objeto necessário: 'oNode.selectSingleNode(...)' Preciso trazer os valores de: CPU Memory HD Alguém teria alguma dica de como consigo resolver? Agradeço a atenção de todos.
  14. laumello12

    Consumir web service c#

    Galera ajudinha Como faço para consumir um web service pronto em um projeto. Preciso só que ele busque no web service e traga na web HELP
  15. alecarnero

    Login obrigatorio em ASP classic

    Eu fiz uma pagina de login SiteMaster.asp trabalha com uma pagina verify.asp , coloque ela como documento padrao , problema que sim o usuario ja tem gravada alguma pagina de antes ele consegue accesar sem pasar pela login page http://localhost/teste/barra.asp quem souber o nome das paginas consegue acceso direito que tenho que agregar para somente accese qualquer pagina quem passo pelo login? Obrigado por qualquer orientaçao Alejandro
  16. mmalainho

    MySQL ODBC 5.3 ANSI DRIVER

    Tenho um site em ASP nas línguas Português, Espanhol e Romeno. O serviço de hospedagem alterou o MYSQL ODBC para a versão 5.3 ANSI e agora não consigo fazer o update de texto em romeno (por exemplo Lecția 8 - Îmbunătățirea confortului mișcării corpului - Amortizarea )na base dados através de um formulário HTML. Tenho uma conexão para listar tudo sem problemas em todas as línguas mas fazer o insert/update não funciona em nenhuma das línguas com palavras acentuadas. conn.ConnectionString="DRIVER={MySQL ODBC 5.3 ANSI Driver}; SERVER="&srv&"; DATABASE="&bd&"; UID="&uid&";PASSWORD="&pws&";PORT="&port&"; OPTION=3; charset=utf8; " Já experimentei retirar charset=utf8; e assim consigo inserir/atualizar em português e espanhol, mas Romeno não. conniu.ConnectionString="DRIVER={MySQL ODBC 5.3 ANSI Driver}; SERVER="&srv&"; DATABASE="&bd&"; UID="&uid&";PASSWORD="&pws&";PORT="&port&"; OPTION=3;" Versão do MySQL Versão do servidor: 5.1.73-community Charset: utf8_general_ci Tabela está também com utf8_general_ci Alguma sugestão ficaria muito grato
  17. Olá amigos, Preciso muito da ajuda de vocês, sou nova tanto aqui quanto nessa área e preciso de uma luz pra resolver esse pequeno probleminha. O código a seguir esta me dando este seguinte erro: erro '80020009' /smart/bridge/carne.asp, linha 106 Código: <% dim rsLancamento sql = "select * from vw_lancamento where id_parceiro="&request("id_parceiro")&" and tp_lancamento=1 and id_situacao_lancamento=1 order by dt_vencimento asc" set rsLancamento = GetRS(sql) dim rsParceiro sql = "select * from parceiro where id_parceiro="&request("id_parceiro") set rsParceiro = GetRS(sql) dim rsMatricula sql = "select * from matricula where id_aluno="&request("id_parceiro") set rsMatricula = GetRS(sql) dim rsCurso sql = "select * from curso where id_curso="&rsMatricula("id_curso") set rsCurso = GetRS(sql) %> </head> <body> <div style="width:80%; margin-left:10%;"><!--#include file = "topofixo.asp" --></div> <div id="CARNE"> <div id="print" align="center"><input type="button" name="imprimir" value="Imprimir" onClick="window.print();"></div> <div id="printable"> <DIV ID="TOPO"> <p>ALUNO: <%= rsParceiro("nome")%></p> <p>CPF: <%= rsParceiro("CPF")%></p> <p>ENDERE&Ccedil;O: <%= rsParceiro("endereco")%> </p> <p>BAIRRO: <%= rsParceiro("bairro")%> </p> <p>CURSO: <%= rsCurso("ds_curso")%></p> <p>ANO: <%=year(now)%></p> </DIV> <%if rsLancamento.eof then%> <p align="center">SEM LANÇAMENTOS CADASTRADOS</p> <%else%> <%dim cont%> <%do while not rsLancamento.eof%> <%cont = cont + 1%> <div id="c_1" style="BORDER-LEFT:dotted 1px #000;"> <p style="float:left; margin:0;">RECIBO DO CLIENTE</p> <p align="center" CLASS="PARCELA"><%=cont%></p> <p class="c_t">CLIENTE: <%= rsParceiro("respfinan")%></p> <p class="c_t">VENCIMENTO: <%=rsLancamento("dt_vencimento")%></p> <p class="c_t">VALOR A PAGAR: R$<%=formatnumber(rsLancamento("vr_curso"),2)%></p> <p class="c_t">VALOR PAGO: </p> <p class="c_t">AUTENTICA&Ccedil;&Atilde;O: <%=rsLancamento("id_lancamento")%></p> </div> <div id="c_1"> <p style="float:left; margin:0;">&nbsp;</p> <p align="center" CLASS="PARCELA"><%=cont%></p> <p class="c_t">CLIENTE: <%= rsParceiro("respfinan")%></p> <p class="c_t">VENCIMENTO: <%=rsLancamento("dt_vencimento")%></p> <p class="c_t">VALOR A PAGAR: R$<%=formatnumber(rsLancamento("vr_curso"),2)%></p> <p class="c_t">VALOR PAGO: </p> <p class="c_t">AUTENTICA&Ccedil;&Atilde;O: <%=rsLancamento("id_lancamento")%></p> </div> <%rsLancamento.movenext loop%> <%end if%></div> Se alguém puder ajudar ficarei eternamente grata.
  18. Bom dia pessoal. Estou desenvolvendo um script para cadastro de currículos e tenho uma dúvida. Em uma parte do meu formulário, a pessoa deverá cadastrar sua formação acadêmica, com 4 campos: curso, modalidade (bacharelado, mestrado, doutorado, etc), instituição e ano de conclusão. Ao clicar em um botão inserir, a mesma página deverá ser recarregada e as informações destes campos devem ser listadas logo abaixo desta parte do formulário (através de uma tabela). A pessoa poderá inserir quantas formações forem necessárias. A cada inserção, o script deverá considerar aquelas feitas anteriormente. Alguém tem algum script exemplo de como pode ser feito? Att. Giovanni Bohm Machado.
  19. Boa noite, estou em um projeto de Área de Membros que eu mesmo desenvolvi em ASP... É muito boa e está integrada com Hotmart. Agora, preciso mudar para PHP. Quem pode me ajudar nesta empreitada? Como pagamento, eu darei uma cópia desta Área de Membros como pagamento. O primeiro código é esse! CÓDIGO ASP... <% If Session("ADM_Email") <> "" Then Response.Cookies("LogosADM").item("EmailAdmin") = Session("ADM_Email") Response.Cookies("LogosADM").item("SenhaAdmin") = Session("ADM_Senha") Response.Cookies("LogosADM").Expires = DateAdd("d",7,Now) ' Se não for o primeiro acesso, recupera do cookie para a session ElseIf Session("ADM_Email") = "" Then Session("ADM_Email") = Request.Cookies("LogosADM").item("EmailAdmin") Session("ADM_Senha") = Request.Cookies("LogosADM").item("SenhaAdmin") 'Se for o primeiro acesso, cria a Session e também salva no cookie, para recuperar no próximo acesso. End If %> <% If Session("ADM_Email") = "" OR Session("ADM_Senha") = "" Then Response.Redirect("https://www.meusite1.com.br/gerenciador/login.asp") End If %> Como mudar para PHP? (Se você tiver interesse, acredito que em 1 semana, terei como migrar totalmente o sistema, pois desenvolvo em ASP.... Então, já tenho alguma noção de lógica... Só preciso do suporte, pois não tenho tempo suficiente para aprender a linguagem, e depois fazer a migração!) Farei todos os pedidos neste único tópico...
  20. Olá galera, Estou desenvolvendo uma página com um form disparado para um link externo, mas antes preciso salvar os dados em um banco de dados. Não manjo muito de Javascript, então sou grato pela ajuda de quem puder ajudar. O código está assim: Página do form: <form action="URL-pra-onde-vao-os-dados-do-form" method="post" onSubmit="javascript:return Valida(this)"> Na mesma página do Form: <script language="JavaScript"> function Valida(form) { var formulario = document.getElementById('id-do-form-aqui'); <% set BD=server.createobject("adodb.connection") BD.open MM_global_STRING Dim rsATV : Set rsATV = Server.CreateObject("adodb.recordset") rsATV.Open "usuarios",BD,3,3 'Tentativa de correção de acentuação no BD bem sucedida. 'Response.CharSet = "windows-1250" 'Session.LCID = 1046'PADRÃO BRASILEIRO rsATV.AddNew rsATV("us_nome_real") = Request.Form("FNAME") rsATV("us_email") = Request.Form("EMAIL") rsATV("us_nome") = Request.Form("USUARIO") rsATV("us_senha") = Request.Form("SENHA") rsATV("us_confirme_senha") = Request.Form("CONFIRMESENHA") rsATV.Update rsATV.Close %> formulario.submit(); return false }; end function </script> Os Form é enviado, o novo registro no banco é criado, mas sem os dados do form, ou seja, um registro em branco. Desde já agradeço a ajuda.
  21. Olá Pessoal, qual a forma mais segura de filtrar um upload asp de arquivos para somente imagens? Tentei reconhecer a extensão do arquivo e limitar apenas upload de arquivo .gif/.jpg e também filtrar pelo tipo de arquivo. Porém algum mal intencionado pode simplesmente renomear um arquivo malicioso para .gif, fazer o upload e depois acessar o arquivo para executa-lo. Alguém conhece ou recomenda algum filtro eficiente? Utilize os seguintes recursos: For Each File in Upload.Files If File.ContentType <> "image/gif" Then Resposta = "Arquivo enviado nao e um formato valido de imagem." File.Delete End If Next For Each File in Upload.Files If UCase(Right(File.Path, 3)) <> "gif" Then Resposta = "Arquivo enviado nao e um formato valido de imagem." File.Delete End If Next
  22. Quero obter e passar para uma outra página um valor da coluna do listView. Os campos do ListView: ID: 01; Nome: Daniel; Campo: campo; <%# Eval("campo").ToString() == "nada consta" ? "nada consta" : Eval("campo") + "<a href='Promocao.aspx'> ... + infos</a>"%> Quando usuário clicar em "... + infos" quero pegar o "ID" e o "Nome" e levar pra outra página.
  23. Boa tarde pessoal, possuo algumas dúvidas... Estou iniciando o desenvolvimento de uma aplicação que conecta a um Webservice, com header authentication, a empresa responsável forneceu o endereço do WSDL, usuario e senha para acesso... Tentei efetuar isso via PHP, porém acredito que não seja viável... A questão é...alguém indicaria uma melhor linguagem WEB para consumir esse Webservice, ou se não for abusar muito, um material para estudo...apostilas, videos e etc? Precisaria dessa parte de estudo devido a aprender sobre o negócio, não quero "mastigado" hehe. Muito obrigado pela atenção de todos, bom dia.
  24. Bom dia! Sou nova por aqui e para ser sincera não sou fera em programação. Mas estou quase terminando um acréscimo de um sistema para um amigo e na reta final dos relatórios me deparei com um probleminha que não consigo solucionar: Tenho um banco de dados em mysql, com a tabela tes_lan_contas_pagar. Nela vão descriminadas a contas que ele tem que pagar no mês, dentro dessa tabela eu tenho a coluna valor_pago. Ele precisa fazer uma busca por ano, mês e situação da conta (se paga, pendente ou recusada). Depois desse processo, preciso que seja somado o resultado da pesquisa, mas está dando erro. Meu código: <% sql="select sum(valor_pago) as total from tes_lan_contas_pagar WHERE MES=" & Request.FORM("mes") & " AND (ano=" & Request.FORM("ano") & ") AND (sit=" & Request.FORM("sit") & ") " set RS=conn.Execute(sql) %> <%=CDbl(Rs2("total")) %> O problema é que ele ignora os números depois da vírgula por exemplo: 111,89 aparece apenas 111. Já revirei inúmeros fóruns mas não consigo solucionar o problema. Podem me ajudar? Grata!
  25. marcelocardoso

    cdosys locaweb

    Fala galera. Não sei onde postar CDOSYS, então, postei aqui. Vamos lá... Quem já teve problemas para enviar email pelo CDOSYS no servidor LOCAWEB. Utilizo sempre o mesmo script para diversos trabalhos e clientes... mas sempre quando tem algum hospedado lá, o erro é sempre no CDOSYS. O script que fornecem, funciona em TEXTBODY, mas quando você coloca HTMLBODY, ele já não envia. Já entrei em contato com o suporte, mas não consegui ainda. No script, ele não dá erro, diz mensagem enviada, mas o email nunca chega... CODE: SET objCDOSYSMail = Server.CreateObject("CDO.Message") SET objCDOSYSCon = Server.CreateObject("CDO.Configuration") objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.teste.com.br" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "atendimento@teste.com.br" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "testesenha" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 objCDOSYSCon.Fields.Update cdoDE = campo_nome & " <"& campo_email &">" cdoPARA = campo_setor cdoASSUNTO = cdoASS cdoOCULTO = "teste@teste.com.br" cdoHTML = HTMLBODY SET objCDOSYSMail.Configuration = objCDOSYSCon 'objCDOSYSMail.BodyPart.Charset = "UTF-8" objCDOSYSMail.From = "atendimento@teste.com.br" objCDOSYSMail.ReplyTo = cdoDE objCDOSYSMail.To = cdoPARA objCDOSYSMail.Subject = cdoASSUNTO objCDOSYSMail.BCc = cdoOCULTO objCDOSYSMail.Cc = "" objCDOSYSMail.AddAttachment "" objCDOSYSMail.HtmlBody = cdoHTML objCDOSYSMail.Send ON ERROR RESUME NEXT IF NOT Err = "0" THEN Response.Write "Erro: " & Err ELSE Response.Write "Mensagem enviada com sucesso para: <strong>" & campo_email & "</strong>" END IF SET objCDOSYSMail = Nothing SET objCDOSYSCon = Nothing Alguém já teve problemas assim e resolver com HTMLBODY. Utilizo este em outros servidores autenticados, mas lá não vai... em outros sim.... Obrigado.
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.