felipefrancesco

hehehe...Vinicius...para valores numéricos eu uso o velho cInt com zero à esquerda, assim: var = cInt(0&var)

Será q esse campo "graunst" realmente tem algum valor, para fins de depuração, faz isso: graunst = rs("graunst") & "X" <%response.write graunst%> Se escrever só o "X", então a variável já vem nula.

Pode sim!!

Opa...assim: I = 1 If I Mod 2 = 0 then response.write "Par" Else response.write "Ímpar" End if

Tá feito!!

Função que faz o inverso da server.htmlEncode, ou seja, substitui os caracteres codificados pelos seus respectivos caracteres. Private Function HTMLDecode(byVal encodedstring) Dim tmp, i tmp = encodedstring tmp = Replace( tmp, "%20", " " ) tmp = Replace( tmp, "%22","""" ) tmp = Replace( tmp, "&quot;", chr(34) ) tmp = Replace( tmp, "&lt;" , chr(60) ) tmp = Replace( tmp, "&gt;" , chr(62) ) tmp = Replace( tmp, "&amp;" , chr(38) ) tmp = Replace( tmp, "&nbsp;", chr(32) ) For i = 1 to 255 tmp = Replace( tmp, "&#" & i & ";", chr( i ) ) Next HTMLDecode = tmp End Function

Corrigindo melhor ainda, faltou o %: sql ="select * from TABELA where NOME Like '"&valor&"%'"

Não fertel, a função urlEncode serve para transformar uma string em uma q contenha os caracteres para URL, sacou?? Mas eu já resolvi o problema valeu, pra quem quiser achei essa função: Private Function HTMLDecode(byVal encodedstring) Dim tmp, i tmp = encodedstring tmp = Replace( tmp, "%20", " " ) tmp = Replace( tmp, "%22","""" ) tmp = Replace( tmp, "&quot;", chr(34) ) tmp = Replace( tmp, "&lt;" , chr(60) ) tmp = Replace( tmp, "&gt;" , chr(62) ) tmp = Replace( tmp, "&amp;" , chr(38) ) tmp = Replace( tmp, "&nbsp;", chr(32) ) For i = 1 to 255 tmp = Replace( tmp, "&#" & i & ";", chr( i ) ) Next HTMLDecode = tmp End Function Chefes, podem fechar o tópico!!

Pessoal, Alguém sabe como inverter uma string q foi transformada com HTMLEncode??

Vinicius, você tá chamando a função?? (Já respondendo a pergunta do nosso Guest), Veja se isso resorve: <% 'pede os dados do formulário Data = Request.Form("Data") %> <% 'formatando a data para gravar no BD function formataDataRapido(Data) Dim strRetorno if isDate(Data) then strRetorno = Year(Data) & "-" & Month(Data) & "-" & Day(Data) else strRetorno = "" end if formataDataRapido = strRetorno end function %> <% If (Data = "") then Response.write("Você deve digitar a data para continuar") Else set rs = objConnection.execute("INSERT INTO TABELA (data) Values('"&formataDataRapido(Data)&"'")

Isso? Dim intContador intContador = 0 While intContador <= 200 intContador = intContador + 1 Wend

É o LIKE SELECT * FROM Tabela WHERE Nome LIKE 'jo%'

Usa a função do MySql mesmo, CURDATE e CURTIME...olha só: INSERT INTO TABELA (Dia,Hora,....) Values(CURDATE(),CURTIME(),...)

Pessoal, é o seguinte: Quando você carrega uma página com várias funções, todas são colocadas em buffer, ou seja, em memória, já q o ASP não é compilado e cada arquivo é considerado um módulo. Isso não pesa muito, já q processamento não é um fator complicador no que tange a desempenho, mas nunca é demais você deixá-las em separado, além de organizar melhor as coisas, você melhora um pouco o processamento, e não detona a memória . Com relação à pergunta do fertel, só vale a página HTML pois é esse o fluxo de transferência do servidor para o usuário. O código ASP é somente processado no servidor, e até onde eu saiba não tem quota de processamento, até porque no Windows isso é difícil de ser medido.

Vinicius, isso acontece porque o formato de hora padrão do MySql é esse YYYY-mm-dd, então quando você manda gravar ele não entende como data e grava o valor padrão do campo. Pois bem, ai vão duas funções que transformam uma data em ASP para o formato do MySql, uma transforma só em data a outra em data/hora: '::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: function formataDataHora(dtValor) Dim strRetorno strRetorno = Year(dtValor) & "-" & Month(dtValor) & "-" & Day(dtValor) & _ chr(32) & Hour(dtValor) & ":" & Minute(dtValor) & ":" & Second(dtValor) formataDataHora = strRetorno end function '::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: function formataDataRapido(dtValor) Dim strRetorno if isDate(dtValor) then strRetorno = Year(dtValor) & "-" & Month(dtValor) & "-" & Day(dtValor) else strRetorno = "" end if formataDataRapido = strRetorno end function '::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: Para extrair as datas depois no formato adequado, use a função DATE_FORMAT do MySql, assim: SELECT DATE_FORMAT(data, '%d/%m/%Y') FROM tabela

Ao invés de dar o response.write no final da função, atribui como valor da função, veja: function criptografia(palavra) senha(0) = "0" senha(1) = "1" senha(2) = "2" senha(3) = "3" senha(4) = "4" senha(5) = "5" senha(6) = "6" senha(7) = "7" senha(8) = "8" senha(9) = "9" senha(10) = "a" senha(11) = "b" senha(12) = "c" senha(13) = "d" senha(14) = "e" senha(15) = "f" senha(16) = "g" senha(17) = "h" senha(18) = "i" senha(19) = "j" senha(20) = "l" senha(21) = "m" senha(22) = "n" senha(23) = "o" senha(24) = "p" senha(25) = "q" senha(26) = "r" senha(27) = "s" senha(28) = "t" senha(29) = "u" senha(30) = "v" senha(31) = "x" senha(32) = "y" senha(33) = "z" senha(34) = "w" senha(35) = "k" senha2(0) = "5" senha2(1) = "w" senha2(2) = "c" senha2(3) = "o" senha2(4) = "e" senha2(5) = "3" senha2(6) = "q" senha2(7) = "y" senha2(8) = "u" senha2(9) = "9" senha2(10) = "l" senha2(11) = "r" senha2(12) = "4" senha2(13) = "d" senha2(14) = "v" senha2(15) = "p" senha2(16) = "8" senha2(17) = "x" senha2(18) = "g" senha2(19) = "n" senha2(20) = "t" senha2(21) = "z" senha2(22) = "a" senha2(23) = "k" senha2(24) = "0" senha2(25) = "f" senha2(26) = "j" senha2(27) = "2" senha2(28) = "s" senha2(29) = "i" senha2(30) = "m" senha2(31) = "6" senha2(32) = "l" senha2(33) = "b" senha2(34) = "h" senha2(35) = "7" FOR I=1 TO len(palavra) texto = right(left(palavra,I),1) FOR X = 0 TO UBOUND(senha) if senha(x) = texto then y = x end if next texto2 = replace(texto,senha(y),senha2(y)) final = final & texto2 NEXT criptografia = final end function

Pessoal, vou dar meu pitaco: Primeiro, creio q faculdade para webdesigner não seja uma faculdade de informática, e sim designer gráfico, desenho industrial ou até publicidade. Eu não acho que para você se intitular de uma certa profissão você tenha q ter uma formação acadêmica ou técnica. Acho que conhecimento e experiência já bastam para você se dizer webdesigner ou programador. O q não significa q a faculdade não é importante. A faculdade te dá uma base muito importante, no caso de designer, o profissional não vai fazer uma coisa só porque é bonitinho ou tem bom gosto, e sim baseado em técnicas e proporções matemáticas, além de ter uma noção conceitual de mercade e da sociedade em geral, o q sem dúvida é extremamente importante para um trabalho de grande porte. O mesmo vale para programação, a faculdade da uma base conceitual e faz com q você se desenvolva de uma forma muito importante e com base forte, até porque não há um foco na programação em nenhuma faculdade, e só alguém com muita experiência q pode se dizer Analista de Sistemas, ou engenheiro, ou exercer cargos de gerência na área sem faculdade. Por fim, o preço a ser cobrado é uma questão contratual, se os dois lados aceitam tá valendo, só q é natural q se eu tivesse uma empresa de médio porte, cuja publicidade e funcionalidade de um site são importantes, eu não daria para uma pessoa só, ou para autônomos fazerem, independente se moleques ou formando. Eu faria com uma empresa q tem experiência no mercado e uma estrutura q proporcionam qualidades q uma ação individual não consegue fornecer.

Bom...pressupondo q o arquivo está sendo incluído, tira a tag de style, não precisa dela e tira também o comentário HTML <!--. Aproveita e coloca todos os ponto-e-vírgula e vê o q acontece...

Hiero o problema é o seguinte: O servidor vai realmente sempre incluir um arquivo, porque isso é a primeira coisa q ele faz. O if (ou select case) só funciona como um separador de blocos, mas no buffer do servidor o arquivo é incluído de qualquer maneiro. Então, você não pode declarar variáveis com o mesmo nome em um arquivo incluído, e outras coisas q não seriam permitidas dentro de uma mesma página, sacou??

fertel, Overflow é um estouro de memória...é quando uma variável ultrapassa a quantidade de bytes atribuídas pra ela. Nesse seu caso eu acho q podem ser 2 coisas: 1 - O valor numérico é muito grande, então tenta: cDbl(SESSION("USUARIO_ID")) 2 - Pode ser q esta session esteja com valor nulo, então faça assim:cInt("0"&SESSION("USUARIO_ID")) Vê se te ajuda...

Assim: <% function funcao() funcao = "executou" end function %> Depois pra chamar é só atribui-la a uma variável ou simplesmente escrevê-la: <% Dim a a = funcao() response.write funcao() %> É isso??

Esse é o instanciamento desse objeto activeX, com sintaxe em Javascript mas dá para usar em ASP. Esse objeto te dá acesso a comandos de prompt.

Então o iif tem só no VB, mas você pode fazer uma função em ASP também...até porque a função é muito boa pra facilitar.

Vinicius, o problema tá acontecendo porque essa conexão está criando um array de recordsets...Eu nunca vi isso antes, e achei q funcionaria, mas pelo q eu estou vendo ta meio estranho.... Eu simplifiquei o código, veja se isso funciona melhor p/ vc. Aproveitei e comentei ele bastante pra dar uma explicadinho no código.... <% Dim objConnection ' *** Declara um objeto de conexão Dim objRS ' *** Objeto Recordset Const adStateOpen = &H00000001 'Constante da verificação do estado do objeto ADO Sub Connect() ' ::: Atribui a string de conexão Dim strConnString strConnString = "driver=Mysql;server=200.152.241.200;uid=LOGIN;pwd=SENHA;database=BANCO" ' ::: Instancia o objeto de conexão Set objConnection = Server.CreateObject("ADODB.Connection") With objConnection .ConnectionString = strConnString ' ::: Atribui a string de conexão .Open ' ::: Abre a conexão End With End Sub Sub GeraRs (ByVal strSql) Set objRs = Server.CreateObject("ADODB.Recordset") ' ::: Instancia o objeto rs objRs.Open strSql, objConnection ' ::: Atribui ao rs o conteúdo da string strSql End Sub Sub Disconnect() ' ::: Se o rs tá aberto, fecha-o. if objRs.State = adStateOpen Then objRsTmp.Close ' ::: Destrói o obj recordset if isObject(objRs) then set objRS = nothing ' ::: O mesmo para a conexão If objConnection.State = adStateOpen Then objConnection.Close Set objConnection = Nothing End Sub %>

Bom...em JS você pode colocar no onLoad do body... <body onLoad="parent.location.href='pagina.asp'">