Ir para conteúdo
Fórum Script Brasil

mike

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    6

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que mike postou

  1. mike
    Alex, Como Pop up isso não é possível... Geralmente em alguns portais eles desenvolvem anúncios, que parecem Pop ups, mas na verdade são Layers... Tente trabalhar com layers... De repente é isso que você ta procurando... Mike
  2. mike
    Sales, Não conheço uma maneira de se fazer isso direto com o html, porém você pode fazer isso por ASP, da uma olhada no item ASP do Scriptbrasil, la existem até exemplos prontos. Espero ter ajudado. Abraços, Mike
  3. mike
    Quote, Desculpe a minha intromissão... Mas me interessou essa solução, como você aplica isso no .htm? De qualquer forma valeu! Abraços, Mike
  4. mike

    Acentuação No Asp / Flash

    pergunta respondeu ao mike de mike em ASP

    Urso, É sempre bom agente ter mais de uma opção... já anotei na minha caderneta de cabeceira... hehehe... Valeu!!!
  5. mike

    Acentuação No Asp / Flash

    pergunta respondeu ao mike de mike em ASP

    Urso, Consegui corrigir este erro aplicando o seguinte código no primeiro frame do meu flash: System.useCodePage=true; De qualquer forma Valeu! Mike
  6. mike
    Não sei o que pode estar acontecendo... Tenho um arquivo em flash que envia dados para um arquivo ASP que grava em um .mdb as informações digitadas. Porém vejam como fica o que a pessoa digitou: "Oiê!!!! Puxa...ficou show a página!" Abaixo seguem os comandos do Flash e da página ASP: Declaro as variáveis: nome = ""; email = ""; msg = ""; E envio: on (release) { loadVariables("flash/geral.asp", "_root", "POST"); // onde "_root" é o caminho onde serão carregadas as variáveis. play(); } Página que recebe as variáveis: <% Dim nome, msg, email nome = request.form("nome") msg = request.form("msg") email = request.form("email") Set wm = Server.CreateObject("ADODB.Connection") wm.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("contatos.mdb") Set rs = Server.CreateObject("ADODB.Recordset") Comando = "INSERT INTO geral (nome, email, msg, data)" & "VALUES('" & nome & "','" & email & "','" & msg & "', '" & date & "')" wm.Execute(Comando) Seleciona="SELECT nome, email, msg FROM geral WHERE nome like '%" & nome &"%'" rs.open Seleciona,wm Dim strTo, strSubject, strBody Dim objCDOMail strTo = "eu@eu.com.br" strSubject = "Contato" strBody = Request.Form("msg") Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = "contato@eu.com.br" objCDOMail.To = strTo objCDOMail.Subject = strSubject MsgBody = "<html>" _ & "<head>" _ & "</head>" _ & "<body bgcolor=""#FFFFFF"">" _ & "<p align=""left""><font face=""Verdana"" size=""2""><b>Contato</b> <br><br> <b>Nome: </b>" & nome & " <br> <b> Email: </b>" & email & "<br><br><b> Mensagem: </b><br>" & msg & "</p>" _ & "</body>" _ & "</html>" objCDOMail.Body = MsgBody objCDOMail.Importance = 1 objCDOMail.BodyFormat = 0 objCDOMail.MailFormat = 0 objCDOMail.Send Set objCDOMail = Nothing response.write("resultado=ok&") response.write("nome="&rs("nome")&"&") %> Alguém tem alguma sugestão? Obrigado, Mike
×
×
  • Criar Novo...