Jump to content
Fórum Script Brasil

cyberalexxx

Membros
  • Posts

    2500
  • Joined

  • Last visited

Everything posted by cyberalexxx

  1. faça o insert com ponto usando replace replace(request.form("campo"),",",".")
  2. tenta assim: data = Cdate(request("data")) ano=year(data) mês=month(data) dia=day(data) Session.LCID=1033 sql = "Insert into tabela (data) values (" #" & DateSerial(ano,mês,dia) & "#)" set rs = conexao.execute(sql) Session.LCID=1046
  3. Um pequeno exemplo: <!-- #include file = "conecta.asp" --> <% codigo = "" nome = "" endereco = "" if len(request("codigo")) > 0 then sql = "Select * from tabela where id=" & request("codigo") set rs = conexao.execute(sql) if not rs.eof then codigo = request("codigo") nome = rs("nome") endereco = rs("endereco") end if end if %> <form name="clientes" action="<%=request.servervariables("script_name")%>" method="post"> Código <input type="text" name="codigo" value="<%=codigo%>" onchange="document.clientes.submit()" /> Nome: <input type="text" name="nome" value="<%=nome%>" /> Endereço: <input type="text" name="endereço" value="<%=endereco%>" /> </form> </body> </html>
  4. No flash, insira um action no ultimo frame do filme abrindo a url desejada, exemplo: getURL("http://www.suapagina.com.br");
  5. Com ASP "puro" vai ter que atualizar a tela, pode ser?? Caso não queira da pra fazer com AJAX. Que forma você quer? já te aviso que pra fazer em AJAX você vai precisar ter um bom conhecimento de Javascript.
  6. Aqui voce tem um exemplo de redimensionamento que eu fiz para uma Loja virtual, no exemplo a largura não pode ser superior a 80: caminho = ".\produtos" Set Jpeg = Server.CreateObject("Persits.Jpeg") Jpeg.Open trim(server.mappath(caminho)) & "\" & mid(trim(nome_foto),2,100) largura = Jpeg.OriginalWidth if largura > 80 then indice = largura/80 Jpeg.Width = Jpeg.OriginalWidth / indice Jpeg.Height = Jpeg.OriginalHeight / indice end if Jpeg.Save trim(server.mappath(caminho)) & "\mini_" & mid(trim(nome_foto),2,100) Jpeg.close
  7. Realmente quando se submete um formulário usando ENCTYPE="multipart/form-data" o request não funciona, no entanto todos os componentes de upload oferecem uma propriedade do objeto criado que resgata os valores dos campos, no seu caso tente assim: <HTML> <BODY> <% Set upl = Server.CreateObject("SoftArtisans.FileUp") upl.Path = "e:\home\linguageral1\Web\site\images\autores" upl.Save%> Total de Bytes Enviados: <%=upl.TotalBytes%> <% nome = upl.Form("nome") telefone = upl.Form("telefone") Response.Write(nome &" / "&telefone) Set upl = Nothing %> </BODY> </HTML>
  8. na verdade o código da andreia sera mais uma SUB do que uma função pois ela executa uma tarefa e não devolve um valor (function) tenta assim: <% function Mensagem Mensagem = "ola, esta é uma mensagem" end function %> <a href="#" onclick="alert('<%= Mensagem() %>')">link</a>
  9. Não entendi muito bem! Para criar arquivos .DOC no asp voce faz o seguinte: Response.ContentType = "application/msword" Response.AddHeader "Content-Disposition", "attachment;filename=arquivo.doc"
  10. tenta assim: for each campo in request.form response.write "Nome do Campo: " & campo & "<br>" response.write "Valor do campo: " & request.form(campo) & "<br><br>" next
  11. cyberalexxx

    Combobox Em Asp

    Da uma observada no script que o Principe postou, mais especificamente no evento OnChange do Combo que é justamente o que voce quer.
  12. Vou mover esse tópico para AJAX / Javascript que é o lugar ideal para sua duvida.
  13. para exibir 50 caracteres left(rs("campo"), 50)
  14. cyberalexxx

    Split E Array

    já fiz rotinas de envio de emails dentro de laços (While) e funcionaram sem problema, voce só deve atentar para a quantidade de mensagens que serão enviadas pois se for muita coisa alguns servidores tem limitaçãoes. []'s
  15. De um response.write na variavel SrtSQl sem executá-la para ver como esta ficando a instrução. O request dele esta correto, pois ele está o utilizando método get e não post no formulário
  16. cyberalexxx

    Split E Array

    Para não repetir o registro: <% strpalavrachave = "flamengo, palmeiras" MyArray = Split(strpalavrachave, ",") palavras = 0 For I = LBound(MyArray) to Ubound(MyArray) if palavras = 0 then sql = "SELECT * FROM 1ALERTA WHERE palavrachave LIKE '%" & LCase(Trim(MyArray (I))) & "%' " else sql = sql & " or palavrachave LIKE '%" & LCase(Trim(MyArray (I))) & "%' " end if palavras = palavras + 1 next Set palavrachave = Server.CreateObject("ADODB.Recordset") palavrachave.Open sql, Conexao If palavrachave.EOF Then response.write "Não foi encontrado nenhum alerta para esta PALAVRA-CHAVE" Else while Not palavrachave.EOF strNome = palavrachave("nome") strEmail = palavrachave("email") response.write strEmail &"<br><br><br>" palavrachave.MoveNext wend End If palavrachave.Close Set palavrachave = Nothing %>
  17. cyberalexxx

    Duvida Sql

    Não conheço nenhuma instrução SQL que aponte isso, mais da pra fazer um script que te informe isso, olha um exemplo que fiz agora: <!--#include file="conecta.asp" --> <% sql = "Select distinct produto from produtos" set rs = conexao.execute(sql) Do while not rs.eof sql2 = "Select count(produto) as soma from produtos where produto='" & rs("produto") & "'" set rs2 = conexao.execute(sql2) if not rs.eof then if Cint(rs2("soma")) > 1 then Response.write "Produto: " & rs("produto") & " com " & rs2("soma") & " ocorrencias" end if end if rs.MoveNext Loop %>
  18. Não arrisque seu PC com essas fontes genericas!!! compre uma Huntkey 450 ou dependendo da grana uma Zalman ou Enermax, acho que até uma Seventeam de 350 aguenta bem a sua config, mais pela relação custo/beneficio seria melhor a Huntkey.
  19. Eu acho muito, apesar de que na referencia abaixo a temperatura máxima suportada pelo seu processador é de 78ºC, de uma olhada como esta a configuração do FAN. Tabela de Temperatura de processadores: http://users.erols.com/chare/elec.htm
  20. Pode fazer sim, na pior das hipóteses na hora que voce reiniciar a resolução pode estar baixa, mais tudo será resolvido quando voce instalar o novo driver.
  21. Duas opções: Como Montar uma Rede Sem Fio Usando um Roteador de Banda Larga Como Montar uma Rede Sem Fio sem Usar um Roteador de Banda Larga
  22. já Comprou??? Se já, posta o config pra gente ver como ficou! (tomara que não apareça um E6600 numa MB PCCHIPS P23G) Se não comprou ainda, explica melhor a finalidade do micro e quanto voce quer gastar ai fica mais facil pra indicar.
  23. cyberalexxx

    Erro 80004005

    Da uma olhada se ajuda: http://support.microsoft.com/kb/306518/pt-br
  24. Voce abre o RS2 mais manda exibir dados do RS da uma olhada no código abaixo:
  25. Não entendi, olhei o link que voce passou e só tem duas colunas. explica melhor ai!
×
×
  • Create New...