Ir para conteúdo
Fórum Script Brasil

.Andreia.

Veteranos
 Perfil  Explorar Conteúdo

  • Total de itens

    5.686

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que .Andreia. postou

  1. .Andreia.
    Sql não encontrou resultado e gera erro, você tem que fazer um tratamento caso não tenha valores a retornar, tenta assim: Set RS_Max = Server.CreateObject("ADODB.Recordset") RS_Max.CursorType = adOpenKeyset RS_Max.Open "SELECT * FROM prod where Codigodesenho= '"&recnum&"' ", Conn if rs_max.eof then response.write "busca retornou sem resultados" else while not rs_max.eof . . rs_max.movenext wend end if end if Tenta ae, e fica calmo ;)
  2. .Andreia.
    Use a função Replace, na hora de gravar no BD: mensagem = replace(request.form("mensagem"),chr(13),"<br>")
  3. .Andreia.
    você pode colocar o action do form pro mesmo arquivo e fazer um IF pra saber se o usuario submeteu o form ou não: <%Response.Buffer = True%> <html> <head> <title>Gravar</title> </head> <body bgcolor="#FFFFFF" text="#000000"> <% if Request.ServerVariables("REQUEST_METHOD") <> "POST" then strCookie ="cadastro" numero1 = Request.Form("numero") recnum = Request.Cookies("strCookie") ("num") Response.Cookies("strCookie").Expires = DateAdd("s", 60, now) Response.Cookies("strCookie").Path = "/" Response.Cookies("strCookie") ("num") = numero1 %> <form name="form1" method="post" action="teste.asp"> <div align="center">Numero: <input type="text" name="numero"> <input type="submit" name="Submit" value="OK"> </div> </form> </body> </html> <% else Set Conn = Server.CreateObject("ADODB.Connection") Conn.connectionstring = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" _ & Server.Mappath("Db/producao.mdb") & ";User Id=;Password=;" Conn.Open recnum = Request.Cookies("strCookie") ("num") Set RS_Max = Server.CreateObject("ADODB.Recordset") RS_Max.CursorType = adOpenKeyset RS_Max.Open "SELECT * FROM prod where Codigodesenho= '"&recnum&"' ", Conn end if %> essa eu não entendi
  4. .Andreia.

    Formulario

    pergunta respondeu ao konras de .Andreia. em ASP

    blza konras ;)
  5. .Andreia.
    não deu pra visualizar muito sua aplicação, mas o problema do redirect é que ele não carrega as variaveis do form (a menos q você incluia no link). você pode gravar os cookies no começo da pagina seguinte, apos o submit, e abaixo colocar a rotina normal. Esse cookies são baseados no form anterior? ou de outra página?
  6. .Andreia.
    tá pedindo senha....
  7. .Andreia.
    ficou bem legal mesmo. Mas para expressar minha opiniao.. -na pagina inicial acho que ficou muito vazio.. pelo menos um texto ficou faltando -as fotos podiam ter uma moldura, porque dependendo da foto.. se mistura com o fundo preto. não sei se a sua intenção foi essa. -livro de visitas e contato... tá muito preto. Sem definição dos campos, não gostei mas parabéns ;)
  8. .Andreia.
    hauhauhauaha aeeee Dark!!
  9. .Andreia.
    utilize IFRAME, você viu se tem algo nos scripts? acredito que tenha...
  10. .Andreia.

    Global.asa

    pergunta respondeu ao konras de .Andreia. em ASP

    http://scriptbrasil.com.br/forum/index.php?showtopic=47068
  11. .Andreia.
    Tem, utilize FSO, um exemplo: http://site.locaweb.com.br/suporte/faq/Mos...oCategoria=4748
  12. .Andreia.

    Include Ta Dando Erro!

    pergunta respondeu ao Davis Tome de .Andreia. em ASP

  13. .Andreia.

    Formulario

    pergunta respondeu ao konras de .Andreia. em ASP

    você tem certeza que seu servidor tem ASPMAIL? porque existe ASPEMAIL.. você pode verificar os componentes instalados, atraves deste código, rodando no servidor. Neste tópico tem exemplo de varios componentes.
  14. .Andreia.

    Caixa De Texto Para Data

    uma questão respondeu .Andreia. em ASP

    http://scriptbrasil.com.br/forum/index.php...ndpost&p=323596
  15. .Andreia.
    Se você tem um formulario antes e nessa tela você tem que resgatar o valor: var = request.form("var") agora já é variavel, na consulta: RS_Max.Open "SELECT * FROM prod where Codigodesenho= "& var &" ", Conn se for do tipo texto a variavel: RS_Max.Open "SELECT * FROM prod where Codigodesenho= '"& var &"' ", Conn
  16. .Andreia.
    hahahahahah otima explicação! então nosso forum deve ser abençado pois é o único que este usuário divino aparece. Qual será o santo que protege os foruns dos spams e floods? :huh:
  17. .Andreia.

    Select Com Data

    pergunta respondeu ao ratocuiara de .Andreia. em ASP

    mesmo usando LCID... o formato pode estar errado na SQL, por isso que falei pra tu imprimi a consulta <_< <_<
  18. .Andreia.

    Formulario

    pergunta respondeu ao konras de .Andreia. em ASP

    não testei, mas ve se funciona: <% 'Armazenando dados digitados nos campos do formulário Rnome=Request.Form("nome") Remail=Request.Form("email") Rtelefone=Request.Form("telefone") Rmensagem=Request.Form("mensagem") Rhora=time() Rdata=date() 'Definindo o que será enviado msg="Nome: "&Rnome&"<br>" msg=msg&"Email: "&Remail&"<br>" msg=msg&"Telefone: "&Rtelefone&"<br>" msg=msg&"Data: "&Rdata&"<br>" msg=msg&"Hora: "&Rhora&"<br><br>" msg=msg&"Mensagem : "&Rmensagem&"<br>" Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = "Seu_Nome" Mailer.FromAddress= "seuemail@email.com.br" Mailer.RemoteHost = "localhost" 'ou endereço IP servidor Mailer.AddRecipient Remail Mailer.Subject = "Assunto do Email" Mailer.BodyText = msg e=mailer.sendmail if Mailer.SendMail then 'mensagem de envio de ok Response.Write("<script>alert('Sua Mensagem foi enviada corretamente!');location.replace('contatos.asp')</script>") else Response.Write mailer.response end if set conexao=nothing %>
  19. .Andreia.

    Asp E Excel

    uma questão respondeu .Andreia. em ASP

    não entendi muito bem a sua duvida, mas é só você colocar : Response.ContentType = "application/vnd.ms-excel" no começo do codigo e montar a tabela conforme você quer que seja no excel
  20. .Andreia.

    Select Com Data

    pergunta respondeu ao ratocuiara de .Andreia. em ASP

    você imprimiu a consulta?? No banco, o campo é do tipo Data?
  21. .Andreia.

    Formulario

    pergunta respondeu ao konras de .Andreia. em ASP

    Particularmene não gosto do CDONTS, mas ai vai um exemplo de cada: CDONTS: em negrito são as variaveis ASPMAIL: Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = "Seu_Nome" Mailer.FromAddress= "seu_nome@seudominio.com.br" Mailer.RemoteHost = "IP" 'ou localhosta Mailer.AddRecipient "teste", request.form("para") Mailer.Subject = request.form("assunto") Mailer.BodyText = request.form("mensagem") e=mailer.sendmail if Mailer.SendMail then Response.Write "E-MAIL ENVIADO COM SUCESSO!" else Response.Write mailer.response end if
  22. .Andreia.

    Select Com Data

    pergunta respondeu ao ratocuiara de .Andreia. em ASP

    imprime a consulta, pode ser que esteja saindo no formato mm/dd/aaaa
  23. .Andreia.
    poste o código e o erro que está aparecendo
  24. .Andreia.

    Formulario

    pergunta respondeu ao konras de .Andreia. em ASP

    mas qual o erro? seja mais especifico
  25. .Andreia.

    Funcionamento 100%

    pergunta respondeu ao Nesh de .Andreia. em MySQL

    Nesh, eu utilizo ASP e Mysql, sem mysql front. Acredito que isso seja detalhe, você precisa do conector ODBC. Eu utilizei o 3.51: http://dev.mysql.com/downloads/connector/odbc/3.51.html você executa (instala) depois vai no painel de controle/ferramentas administrativas/Fontes de dados Na guia Fontes de dados de usuario, clique em adicionar e selecione o Mysql (geralmente é o ultimo da lista). Configure-o, bom não lembro de cor mas tente assim: Espero que funcione ai, aqui foi bem tranquilo. Apesar que eu instalei o Phpmyadmin, não sei se irá fazer falta. Boa sorte ;)
×
×
  • Criar Novo...