Carlos Rocha

já com esse pequeno script pra testar deu certo:

Olha só:

Ta dano esse erro: Chamada de procedimento ou argumento inválido: 'right' /host/meta/admin/tt.asp, line 31

Mas se fizer isso, e depois por um response.write onde, ele num ta mostrando o loop. So se o response.write tiver dentro do loop. E agora?

Ainda não deu, o negócio é o seguinte. Da uma olhada no meu código:

Não, eu preciso é com caracters mesmo. O negócio é o seguinte: Tenho o loop:

Peciso de uma função que faça o seuintye: Var = "E o vento levou a folha" Preciso de uma função que me retorne como resultado duas substrings da string anterior, de tal forma que sobre o seguinte var = "E levou a folha" ou seja, ele deixe o primeiro caracter tire os 2 proximos caracteres e deixe os demais. Tem geito isso?

Certa ves postei uma duvida e recebi este script como resposta, mas encontrei outro mais facil e usei ele no inicio do meu arquivo, mas a duvida agora é outra, observe de novo minha pergunta e vera a diferença.

Olá pessoal! To fazendo uma busca da seguinte forma A pessoa digita por exemplo "O que o Mario que é legal gosta?" Eu separo as palavras repetidas e fica: "O que Mario é legal gosta" E jogo cada uma numa matriz e faço uma busca no banco de dados por cada palavra: 1 - Busco por "O" 2 - Busco por "Mario" 3 - Busco por "é" 4 - Busco por "legal" 5 - Busco por "gosta" Só que na hora de imprimir o resultado, nos resultados da busca por "Mario", repete resultado da busca por "O". E eu queria excluir, na verdade impedir que quando a busca chegar em "Mario", na hora de imprimir os resultados de "Mario", os que já extiverem sido mostrados nos resultados de "O", não sejam mostrados de novo, e assim suscessivamente com os resultados de "é", "legal" e "Gosta". Na verdade, to criando um sistema de peguntas frequentes e preciso evitar que a cada nova palavra digitada na frase chave, seja repetida a mesma pergunta. Vai aí o Código que to usando, tem uma observação no local do erro, se alguém puder me ajudar, desde já agradeço. <% If REQUEST.QUERYSTRING("action") = "consultar" then Dim busca, onde, pesq, x, bg, DfId, DesenharTabela, cor, ModuloNome 'Declara as variaveis. Dim laco, buscadas, considera, palavra, palavra2, pergunta, registro, NomeAutor, objRecordSetNomeAutor, objRecordSetNomeModulo DesenharTabela = False busca=trim(request.form("chave")) laco=split(busca,chr(32)) x = 0 considera = true buscadas = array() for each palavra in laco if x > 0 then for each palavra2 in buscadas if palavra = palavra2 then considera = false end if next if considera = true then redim preserve buscadas(Ubound(buscadas)+1) buscadas(Ubound(buscadas)) = palavra end if else redim preserve buscadas(Ubound(buscadas)+1) buscadas(Ubound(buscadas)) = palavra x = x + 1 end if considera = true next for each palavra in buscadas ' palavra=busca(x) 'Entrega à variavel palavra, cada uma das palavras em separado para fazer a busca palavra = replace(palavra,"a","[a,á,à,ã,â,ä,A]") 'Trata as palavras acentuadas como que sem acento ou com acenmto palavra = replace(palavra,"e","[e,é,è,ê,ë,E]") palavra = replace(palavra,"i","[i,í,ì,î,ï,I]") palavra = replace(palavra,"o","[o,ó,ò,õ,ô,ö,O]") palavra = replace(palavra,"u","[u,ú,ù,û,ü,U]") palavra = replace(palavra,"c","[c,ç]") onde="tbModulo.DfNomeModulo like '%"&palavra&"%' or tbfaq.DfPergunta like '%"&palavra&"%' or tbfaq.DfResposta like '%"&palavra&"%'" 'String Sql busca letra por letra 'onde="DfPergunta like '"&palavra&"' or DfResposta like '"&palavra&"' " 'String Sql busca palavra por palavra 'Cria o Select Conectar objConecta, objRecordSet, "SELECT tbFaq.DfIdFaq, tbModulo.DfNomeModulo, tbFaq.DfIdUsuario, tbFaq.DfPergunta, tbFaq.DfResposta, tbFaq.DfVersao FROM tbFaq INNER JOIN tbModulo ON tbfaq.DfidModulo = tbModulo.DfIdModulo where " & onde & "" if not objRecordSet.eof = true then 'Tem registros, cria o la&ccedil;o para impress&atilde;o no la&ccedil;o for if DesenharTabela = False then 'Criando desenho tabela response.Write "<br><p>" response.Write "<table border='0' width=95% align=center cellspacing='1', cellpading='2'>" response.Write "<tr bgcolor=#8193A7>" response.Write "<td width=50 align=center height=20><font color=#FFFFFF><b>ID</b></fonte></td>" response.Write "<td width=70 align=center height=20><font color=#FFFFFF><b>Modulo</b></fonte></td>" response.Write "<td width=320 align=center height=20><font color=#FFFFFF><b>Pergunta</b></fonte></td>" response.Write "<td width=100 align=center height=20><font color=#FFFFFF><b>Autor</b></fonte></td>" response.Write "<td width=100 align=center height=20><font color=#FFFFFF><b>Versao</b></fonte></td>" response.Write "<td width=100 align=center height=20><font color=#FFFFFF><b>Visualizar</b></fonte></td>" response.Write "</tr>" DesenharTabela = True End if dim faq_id, faq_modulo, faq_autor, faq_pergunta, faq_resposta, faq_versao Do Until objRecordSet.EOF = True faq_id = objRecordSet("DfIdFaq") faq_modulo = objRecordSet("DfNomeModulo") faq_autor = objRecordSet("DfIdUsuario") faq_pergunta = objRecordSet("DfPergunta") faq_versao = objRecordSet("DfVersao") ' If registro <> faq_id then (nesse momento preciso evitar a repetição. to usando esse algoritimo ma num ta dando. if (cor = 1) then bg = "#E8ECEE" cor = 2 else bg = "#d3dbde" cor = 1 end if Conectar objConecta, objRecordSetNomeAutor, "select * from tbUsuario where DfIdUsuario = '"&faq_autor&"'" NomeAutor = objRecordSetNomeAutor("DfNomeUsuario") response.Write "<tr bgcolor="&bg&">" response.Write "<td width=50 height=20>"&faq_id&"</td>" response.Write "<td width=70 height=20>"&faq_modulo&"</td>" response.Write "<td width=320 height=20>"&faq_pergunta&"</td>" response.Write "<td width=100 height=20>"&NomeAutor&"</td>" response.Write "<td width=100 height=20>"&faq_versao&"</td>" response.Write "<td width=100 height=20 align=center><a href=verfaq.asp?action=1&id="&faq_id&"><img src=../imagens/ver.ico width=25 border=0></a></td>" response.Write "</tr>" 'End if registro = faq_id objRecordSet.MoveNext Loop end if next 'Fim do la&ccedil;o for if DesenharTabela = False then response.Write "<table align=center width=200 height=50 border=2><tr><td>" response.Write "<center>Não há resultados</center>" response.Write "</td></tr></table>" else response.Write "</table>" END IF END IF %>

To usando o seguinte script e ta dando erro: 'Cria o Select Conectar objConecta, objRecordSet, "SELECT tbFaq.DfIdFaq, tbModulo.DfNomeModulo, tbFaq.DfIdUsuario, tbFaq.DfPergunta, tbFaq.DfResposta, tbFaq.DfVersao FROM tbFaq INNER JOIN tbModulo ON tbfaq.DfidModulo = tbModulo.DfIdModulo where DfPergunta like '%"&palavra&"%' or DfResposta like '%"&palavra&"%' " 'String Sql busca letra por letra 'onde="DfPergunta like '"&palavra&"' or DfResposta like '"&palavra&"' " E mandando imprimir assim: faq_id = objRecordSet("DfIdFaq") faq_modulo = objRecordSet("DfNomeModulo") faq_autor = objRecordSet("DfIdUsuario") faq_pergunta = objRecordSet("DfPergunta") faq_versao = objRecordSet("DfVersao") response.Write "<tr bgcolor="&bg&">" response.Write "<td width=50 height=20>"&faq_id&"</td>" response.Write "<td width=70 height=20>"&ModuloNome&"</td>" response.Write "<td width=320 height=20>"&faq_pergunta&"</td>" response.Write "<td width=100 height=20>"&NomeAutor&"</td>" response.Write "<td width=100 height=20>"&faq_versao&"</td>" response.Write "<td width=100 height=20 align=center><a href=verfaq.asp?action=1&id="&faq_id&"><img src=../imagens/ver.ico width=25 border=0></a></td>" response.Write "</tr>" e ta dando o seguinte erro: Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80040E07) [Microsoft][ODBC SQL Server Driver][SQL Server]Syntax error converting the varchar value 'DataCorp' to a column of data type int. /meta/Connections/conexao.asp, line 18 o que será?

Olá a todos Tenho um problemao Nessa consulta sql: Select * from tbFaq where DfIdModulo like '%"&palavra&"%' and DfPergunta like '%"&palavra&"%' or DfResposta like '%"&palavra&"%' acontece o seguinte: o campo DfidModulo recebe o campo DfIdModulo da tabela Modulo e no caso na hora de mostrar o resultado do select, ta mostrando o numero do id do modulo da tabela modulo e não o campo DfNomeModulo que é o nome do modulo. Como posso resolver esse problema sem atrapalhar o resto do select?

Olá a todos Tenho um problemao Nessa consulta sql: Select * from tbFaq where DfIdModulo like '%"&palavra&"%' and DfPergunta like '%"&palavra&"%' or DfResposta like '%"&palavra&"%' acontece o seguinte: o campo DfidModulo recebe o campo DfIdModulo da tabela Modulo e no caso na hora de mostrar o resultado do select, ta mostrando o numero do id do modulo da tabela modulo e não o campo DfNomeModulo que é o nome do modulo. Como posso resolver esse problema sem atrapalhar o resto do select?

Comparando os resultados no banco tipo. Voce garavoula no banco: Insert ... md5(Senha) certo? No formulario de conferencia da senha voce faz. Select * from tabela where .... and senha='"&md5(Senha)... Seria como se voce tivesse gravando de novo, quanmdo a senha chegar no banmco criptografada, vai conferir com a que foi gravada certo? Obs.: no MD5 não se discriptografa, dai a segurança da função. Um, ABRAÇO.

Na realidade o que eu quero é exibir um texto de 2 linhas centralizado em um comando JavaScript "Alert". Tem como?

Num deu não. Eu fui no texto, troquei a fonte pra fora do stylo e continua o negrito.

Voce copia o código e cria um arquivo com nome de md5.asp, e depois chama a função assim: md5(variavel) Observaçoes: 1_ Evite ter em seu código as variaveis que tem no md5.asp; 2_ Faça um include para o md5.asp no arquivo onde voce vai usar a função; 3 - É case sensitive, cuidado com a tecla caps look(observe no fim do aquivo) md5.asp <% ' ****************** ' Funcion MD5 para ASP ' ****************** Private Const BITS_TO_A_BYTE = 8 Private Const BYTES_TO_A_WORD = 4 Private Const BITS_TO_A_WORD = 32 Private m_lOnBits(30) Private m_l2Power(30) m_lOnBits(0) = CLng(1) m_lOnBits(1) = CLng(3) m_lOnBits(2) = CLng(7) m_lOnBits(3) = CLng(15) m_lOnBits(4) = CLng(31) m_lOnBits(5) = CLng(63) m_lOnBits(6) = CLng(127) m_lOnBits(7) = CLng(255) m_lOnBits(8) = CLng(511) m_lOnBits(9) = CLng(1023) m_lOnBits(10) = CLng(2047) m_lOnBits(11) = CLng(4095) m_lOnBits(12) = CLng(8191) m_lOnBits(13) = CLng(16383) m_lOnBits(14) = CLng(32767) m_lOnBits(15) = CLng(65535) m_lOnBits(16) = CLng(131071) m_lOnBits(17) = CLng(262143) m_lOnBits(18) = CLng(524287) m_lOnBits(19) = CLng(1048575) m_lOnBits(20) = CLng(2097151) m_lOnBits(21) = CLng(4194303) m_lOnBits(22) = CLng(8388607) m_lOnBits(23) = CLng(16777215) m_lOnBits(24) = CLng(33554431) m_lOnBits(25) = CLng(67108863) m_lOnBits(26) = CLng(134217727) m_lOnBits(27) = CLng(268435455) m_lOnBits(28) = CLng(536870911) m_lOnBits(29) = CLng(1073741823) m_lOnBits(30) = CLng(2147483647) m_l2Power(0) = CLng(1) m_l2Power(1) = CLng(2) m_l2Power(2) = CLng(4) m_l2Power(3) = CLng(8) m_l2Power(4) = CLng(16) m_l2Power(5) = CLng(32) m_l2Power(6) = CLng(64) m_l2Power(7) = CLng(128) m_l2Power(8) = CLng(256) m_l2Power(9) = CLng(512) m_l2Power(10) = CLng(1024) m_l2Power(11) = CLng(2048) m_l2Power(12) = CLng(4096) m_l2Power(13) = CLng(8192) m_l2Power(14) = CLng(16384) m_l2Power(15) = CLng(32768) m_l2Power(16) = CLng(65536) m_l2Power(17) = CLng(131072) m_l2Power(18) = CLng(262144) m_l2Power(19) = CLng(524288) m_l2Power(20) = CLng(1048576) m_l2Power(21) = CLng(2097152) m_l2Power(22) = CLng(4194304) m_l2Power(23) = CLng(8388608) m_l2Power(24) = CLng(16777216) m_l2Power(25) = CLng(33554432) m_l2Power(26) = CLng(67108864) m_l2Power(27) = CLng(134217728) m_l2Power(28) = CLng(268435456) m_l2Power(29) = CLng(536870912) m_l2Power(30) = CLng(1073741824) Private Function LShift(lValue, iShiftBits) If iShiftBits = 0 Then LShift = lValue Exit Function ElseIf iShiftBits = 31 Then If lValue And 1 Then LShift = &H80000000 Else LShift = 0 End If Exit Function ElseIf iShiftBits < 0 Or iShiftBits > 31 Then Err.Raise 6 End If If (lValue And m_l2Power(31 - iShiftBits)) Then LShift = ((lValue And m_lOnBits(31 - (iShiftBits + 1))) * m_l2Power(iShiftBits)) Or &H80000000 Else LShift = ((lValue And m_lOnBits(31 - iShiftBits)) * m_l2Power(iShiftBits)) End If End Function Private Function RShift(lValue, iShiftBits) If iShiftBits = 0 Then RShift = lValue Exit Function ElseIf iShiftBits = 31 Then If lValue And &H80000000 Then RShift = 1 Else RShift = 0 End If Exit Function ElseIf iShiftBits < 0 Or iShiftBits > 31 Then Err.Raise 6 End If RShift = (lValue And &H7FFFFFFE) \ m_l2Power(iShiftBits) If (lValue And &H80000000) Then RShift = (RShift Or (&H40000000 \ m_l2Power(iShiftBits - 1))) End If End Function Private Function RotateLeft(lValue, iShiftBits) RotateLeft = LShift(lValue, iShiftBits) Or RShift(lValue, (32 - iShiftBits)) End Function Private Function AddUnsigned(lX, lY) Dim lX4 Dim lY4 Dim lX8 Dim lY8 Dim lResult lX8 = lX And &H80000000 lY8 = lY And &H80000000 lX4 = lX And &H40000000 lY4 = lY And &H40000000 lResult = (lX And &H3FFFFFFF) + (lY And &H3FFFFFFF) If lX4 And lY4 Then lResult = lResult Xor &H80000000 Xor lX8 Xor lY8 ElseIf lX4 Or lY4 Then If lResult And &H40000000 Then lResult = lResult Xor &HC0000000 Xor lX8 Xor lY8 Else lResult = lResult Xor &H40000000 Xor lX8 Xor lY8 End If Else lResult = lResult Xor lX8 Xor lY8 End If AddUnsigned = lResult End Function Private Function F(x, y, z) F = (x And y) Or ((Not x) And z) End Function Private Function G(x, y, z) G = (x And z) Or (y And (Not z)) End Function Private Function H(x, y, z) H = (x Xor y Xor z) End Function Private Function I(x, y, z) I = (y Xor (x Or (Not z))) End Function Private Sub FF(a, b, c, d, x, s, ac) a = AddUnsigned(a, AddUnsigned(AddUnsigned(F(b, c, d), x), ac)) a = RotateLeft(a, s) a = AddUnsigned(a, B) End Sub Private Sub GG(a, b, c, d, x, s, ac) a = AddUnsigned(a, AddUnsigned(AddUnsigned(G(b, c, d), x), ac)) a = RotateLeft(a, s) a = AddUnsigned(a, B) End Sub Private Sub HH(a, b, c, d, x, s, ac) a = AddUnsigned(a, AddUnsigned(AddUnsigned(H(b, c, d), x), ac)) a = RotateLeft(a, s) a = AddUnsigned(a, B) End Sub Private Sub II(a, b, c, d, x, s, ac) a = AddUnsigned(a, AddUnsigned(AddUnsigned(I(b, c, d), x), ac)) a = RotateLeft(a, s) a = AddUnsigned(a, B) End Sub Private Function ConvertToWordArray(sMessage) Dim lMessageLength Dim lNumberOfWords Dim lWordArray() Dim lBytePosition Dim lByteCount Dim lWordCount Const MODULUS_BITS = 512 Const CONGRUENT_BITS = 448 lMessageLength = Len(sMessage) lNumberOfWords = (((lMessageLength + ((MODULUS_BITS - CONGRUENT_BITS) \ BITS_TO_A_BYTE)) \ (MODULUS_BITS \ BITS_TO_A_BYTE)) + 1) * (MODULUS_BITS \ BITS_TO_A_WORD) ReDim lWordArray(lNumberOfWords - 1) lBytePosition = 0 lByteCount = 0 Do Until lByteCount >= lMessageLength lWordCount = lByteCount \ BYTES_TO_A_WORD lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(Asc(Mid(sMessage, lByteCount + 1, 1)), lBytePosition) lByteCount = lByteCount + 1 Loop lWordCount = lByteCount \ BYTES_TO_A_WORD lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(&H80, lBytePosition) lWordArray(lNumberOfWords - 2) = LShift(lMessageLength, 3) lWordArray(lNumberOfWords - 1) = RShift(lMessageLength, 29) ConvertToWordArray = lWordArray End Function Private Function WordToHex(lValue) Dim lByte Dim lCount For lCount = 0 To 3 lByte = RShift(lValue, lCount * BITS_TO_A_BYTE) And m_lOnBits(BITS_TO_A_BYTE - 1) WordToHex = WordToHex & Right("0" & Hex(lByte), 2) Next End Function Public Function MD5(sMessage) Dim x Dim k Dim AA Dim BB Dim CC Dim DD Dim a Dim b Dim c Dim d Const S11 = 7 Const S12 = 12 Const S13 = 17 Const S14 = 22 Const S21 = 5 Const S22 = 9 Const S23 = 14 Const S24 = 20 Const S31 = 4 Const S32 = 11 Const S33 = 16 Const S34 = 23 Const S41 = 6 Const S42 = 10 Const S43 = 15 Const S44 = 21 x = ConvertToWordArray(sMessage) a = &H67452301 b = &HEFCDAB89 c = &H98BADCFE d = &H10325476 For k = 0 To UBound(x) Step 16 AA = a BB = b CC = c DD = d FF a, b, c, d, x(k + 0), S11, &HD76AA478 FF d, a, b, c, x(k + 1), S12, &HE8C7B756 FF c, d, a, b, x(k + 2), S13, &H242070DB FF b, c, d, a, x(k + 3), S14, &HC1BDCEEE FF a, b, c, d, x(k + 4), S11, &HF57C0FAF FF d, a, b, c, x(k + 5), S12, &H4787C62A FF c, d, a, b, x(k + 6), S13, &HA8304613 FF b, c, d, a, x(k + 7), S14, &HFD469501 FF a, b, c, d, x(k + 8), S11, &H698098D8 FF d, a, b, c, x(k + 9), S12, &H8B44F7AF FF c, d, a, b, x(k + 10), S13, &HFFFF5BB1 FF b, c, d, a, x(k + 11), S14, &H895CD7BE FF a, b, c, d, x(k + 12), S11, &H6B901122 FF d, a, b, c, x(k + 13), S12, &HFD987193 FF c, d, a, b, x(k + 14), S13, &HA679438E FF b, c, d, a, x(k + 15), S14, &H49B40821 GG a, b, c, d, x(k + 1), S21, &HF61E2562 GG d, a, b, c, x(k + 6), S22, &HC040B340 GG c, d, a, b, x(k + 11), S23, &H265E5A51 GG b, c, d, a, x(k + 0), S24, &HE9B6C7AA GG a, b, c, d, x(k + 5), S21, &HD62F105D GG d, a, b, c, x(k + 10), S22, &H2441453 GG c, d, a, b, x(k + 15), S23, &HD8A1E681 GG b, c, d, a, x(k + 4), S24, &HE7D3FBC8 GG a, b, c, d, x(k + 9), S21, &H21E1CDE6 GG d, a, b, c, x(k + 14), S22, &HC33707D6 GG c, d, a, b, x(k + 3), S23, &HF4D50D87 GG b, c, d, a, x(k + 8), S24, &H455A14ED GG a, b, c, d, x(k + 13), S21, &HA9E3E905 GG d, a, b, c, x(k + 2), S22, &HFCEFA3F8 GG c, d, a, b, x(k + 7), S23, &H676F02D9 GG b, c, d, a, x(k + 12), S24, &H8D2A4C8A HH a, b, c, d, x(k + 5), S31, &HFFFA3942 HH d, a, b, c, x(k + 8), S32, &H8771F681 HH c, d, a, b, x(k + 11), S33, &H6D9D6122 HH b, c, d, a, x(k + 14), S34, &HFDE5380C HH a, b, c, d, x(k + 1), S31, &HA4BEEA44 HH d, a, b, c, x(k + 4), S32, &H4BDECFA9 HH c, d, a, b, x(k + 7), S33, &HF6BB4B60 HH b, c, d, a, x(k + 10), S34, &HBEBFBC70 HH a, b, c, d, x(k + 13), S31, &H289B7EC6 HH d, a, b, c, x(k + 0), S32, &HEAA127FA HH c, d, a, b, x(k + 3), S33, &HD4EF3085 HH b, c, d, a, x(k + 6), S34, &H4881D05 HH a, b, c, d, x(k + 9), S31, &HD9D4D039 HH d, a, b, c, x(k + 12), S32, &HE6DB99E5 HH c, d, a, b, x(k + 15), S33, &H1FA27CF8 HH b, c, d, a, x(k + 2), S34, &HC4AC5665 II a, b, c, d, x(k + 0), S41, &HF4292244 II d, a, b, c, x(k + 7), S42, &H432AFF97 II c, d, a, b, x(k + 14), S43, &HAB9423A7 II b, c, d, a, x(k + 5), S44, &HFC93A039 II a, b, c, d, x(k + 12), S41, &H655B59C3 II d, a, b, c, x(k + 3), S42, &H8F0CCC92 II c, d, a, b, x(k + 10), S43, &HFFEFF47D II b, c, d, a, x(k + 1), S44, &H85845DD1 II a, b, c, d, x(k + 8), S41, &H6FA87E4F II d, a, b, c, x(k + 15), S42, &HFE2CE6E0 II c, d, a, b, x(k + 6), S43, &HA3014314 II b, c, d, a, x(k + 13), S44, &H4E0811A1 II a, b, c, d, x(k + 4), S41, &HF7537E82 II d, a, b, c, x(k + 11), S42, &HBD3AF235 II c, d, a, b, x(k + 2), S43, &H2AD7D2BB II b, c, d, a, x(k + 9), S44, &HEB86D391 a = AddUnsigned(a, AA) b = AddUnsigned(b, BB) c = AddUnsigned(c, CC) d = AddUnsigned(d, DD) Next MD5 = LCase(WordToHex(a) & WordToHex(B) & WordToHex© & WordToHex(d)) End Function %> Criptografia em asp usando o md5.

Como centralizar um texto dentro de tagz Javascript tipo: <script> TEXTO PARA \N CENTRALIZAR </SCRIPT>

To cum novo problema em criptografia. Achei um script em asp que criptografa em md5. So que pra criptografar, to fazendo assim: Criando um usuario Senha = '"&mdf5(senha_vinda_do_form)&"' ta criptografgando certinho, mas quando faço o contrario Autenticando um usuario Senha = '"&mdf5(senha_vinda_do_form)&"' ele numca confere. Porque sera? Criptografia

Mano, são todas as paginas que estao dando negrito, mas aí vai uma das paginas: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html><!-- InstanceBegin template="../Templates/popups.dwt" codeOutsideHTMLIsLocked="false" --> <head> <title>Soluções Meta</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <style type="text/css"> <!-- body { margin-left: 0px; margin-top: 0px; margin-right: 0px; margin-bottom: 0px; } .style4 {color: #0066CC} .style7 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; font-weight: bold; } --> </style> <style> A{ text-decoration: none; color: #FFFFFF }A:hover{ text-decoration: none; color: #003366 } .style9 {color: #FFFFFF} </style> </head> <body> <table width="538" border="0" cellspacing="0" cellpadding="0"> <tr> <th width="223" height="72" scope="col"><!-- InstanceBeginEditable name="Titulo" --><img src="../imagens/figuras_popup/log-dataativo.jpg" width="223" height="72"><!-- InstanceEndEditable --></th> <th width="149" scope="col"><img src="../imagens/pag-milk_r1_c3.jpg" width="149" height="72"></th> <th width="166" height="72" scope="col"><img name="pagmilk_r1_c4" src="../imagens/pag-milk_r1_c4.jpg" width="166" height="72" border="0" alt=""></th> </tr> <tr valign="top"> <td height="116" colspan="3"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr valign="top"> <th width="122" height="85" align="left" background="../imagens/pag-milk_r5_c1.jpg" scope="col"><table width="95%" border="0" cellspacing="0" cellpadding="0"> <tr> <th height="170" valign="top" scope="col"><!-- InstanceBeginEditable name="Caixas" --><img src="../imagens/figuras_popup/cx2.jpg" width="122" height="168"><!-- InstanceEndEditable --></th> </tr> <tr> <td height="20" bordercolor="#FFFFFF" background="../imagens/pag-milk_r4_c1_topo_menu.jpg" bgcolor="#FFFFFF"><div align="center"><span class="style7 style9">Conhe&ccedil;a Outros M&oacute;dulos : </span></div></td> </tr> <tr> <td height="20" background="../imagens/pag-milk_r4_c1.jpg"><span class="style7"><span class="style4">&gt;</span> <a href="meio-milk.asp">DataMilk</a></span></td> </tr> <tr> <td height="20" background="../imagens/pag-milk_r4_c1.jpg"><span class="style7"><span class="style4">&gt;</span> <a href="meio-lab.asp">DataLab</a></span></td> </tr> <tr> <td height="20" background="../imagens/pag-milk_r4_c1.jpg"><span class="style7"><span class="style4">&gt;</span> <a href="meio-prod.asp">DataProd</a></span></td> </tr> <tr> <td height="20" background="../imagens/pag-milk_r4_c1.jpg"><span class="style7"><span class="style4">&gt;</span> <a href="meio-price.asp">DataPrice</a></span></td> </tr> <tr> <td height="20" background="../imagens/pag-milk_r4_c1.jpg"><span class="style7"><span class="style4">&gt;</span> <a href="meio-comp.asp">DataComp</a></span></td> </tr> <tr> <td height="20" background="../imagens/pag-milk_r4_c1.jpg"><span class="style7"><span class="style4">&gt;</span> <a href="meio-call.asp">DataCall</a></span></td> </tr> <tr> <td height="20" background="../imagens/pag-milk_r4_c1.jpg"><span class="style7"><span class="style4">&gt;</span> <a href="meio-corp.asp">DataCorp</a></span></td> </tr> <tr> <td height="20" background="../imagens/pag-milk_r4_c1.jpg"><span class="style7"><span class="style4">&gt;</span> <a href="meio-logs.asp">DataLogs</a></span></td> </tr> <tr> <td height="20" background="../imagens/pag-milk_r4_c1.jpg"><span class="style7"><span class="style4">&gt;</span> <a href="meio-auto.asp">DataAuto</a></span></td> </tr> <tr> <td height="20" background="../imagens/pag-milk_r4_c1.jpg"><span class="style7"><span class="style4">&gt;</span> <a href="meio-shop.asp">DataShop</a></span></td> </tr> <tr> <td height="20" background="../imagens/pag-milk_r4_c1.jpg"><span class="style7"><span class="style4">&gt;</span> <a href="meio-seller.asp">DataSeller</a></span></td> </tr> <tr> <td height="20" background="../imagens/pag-milk_r4_c1.jpg"><span class="style7"><span class="style4">&gt;</span> <a href="meio-express.asp">DataExpress</a></span></td> </tr> <tr> <td height="20" background="../imagens/pag-milk_r4_c1.jpg"><span class="style7"><span class="style4">&gt;</span> <a href="meio-flow.asp">DataFlow</a></span></td> </tr> <tr> <td height="20" background="../imagens/pag-milk_r4_c1.jpg"><span class="style7"><span class="style4">&gt;</span> <a href="meio-cont.asp">DataCont</a></span></td> </tr> <tr> <td height="20" background="../imagens/pag-milk_r4_c1.jpg"><span class="style7"><span class="style4">&gt;</span> <a href="meio-fisc.asp">DataFisc</a></span></td> </tr> <tr> <td height="20" background="../imagens/pag-milk_r4_c1.jpg"><span class="style7"><span class="style4">&gt;</span> <a href="meio-work.asp">DataWork</a></span></td> </tr> <tr> <td height="20" background="../imagens/pag-milk_r4_c1.jpg"><span class="style7"><span class="style4">&gt;</span> <a href="meio-ativo.asp">DataAtivo</a></span></td> </tr> <tr> <td height="20" background="../imagens/pag-milk_r4_c1.jpg"><p class="style7">&nbsp;</p></td> </tr> <tr> <td>&nbsp;</td> </tr> </table></th> <th width="423" scope="col"><img src="../imagens/pag-milk_r2_c2.jpg" width="416" height="13"><br> <!-- InstanceBeginEditable name="Corpo" --> <table width="95%" border="0" cellspacing="2" cellpadding="2"> <tr> <th scope="col"><p align="justify" style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><br> Sistema respons&aacute;vel pelo controle patrimonial de empresas e escrit&oacute;rios cont&aacute;beis, tanto para fins fiscais como administrativos, realizando o c&aacute;lculo autom&aacute;tico das deprecia&ccedil;&otilde;es e da corre&ccedil;&atilde;o monet&aacute;ria, quando houver. Tamb&eacute;m possibilita a manuten&ccedil;&atilde;o e consulta de exerc&iacute;cios anteriores nas contas com substitui&ccedil;&atilde;o de materiais. E mais.<br> Manuten&ccedil;&atilde;o das tabelas de localiza&ccedil;&otilde;es, grupos e seguros dos bens.<br> Manuten&ccedil;&atilde;o das informa&ccedil;&otilde;es relativas aos fornecedores.<br> Cadastro detalhado dos bens.<br> Agrupamento dos bens por: centros de custos, localiza&ccedil;&atilde;o, &aacute;rea de seguro e grupo.<br> Permite a baixa, desativa&ccedil;&atilde;o e ativa&ccedil;&atilde;o de bens.<br> Gera&ccedil;&atilde;o da deprecia&ccedil;&atilde;o e corre&ccedil;&atilde;o.<br> Emiss&atilde;o de v&aacute;rios relat&oacute;rios.<br> Acompanhamento de toda a movimenta&ccedil;&atilde;o de um determinado bem.<br> Tratamento de qualquer &iacute;ndice ou moeda corrente.<br> Integrado a Contabilidade.<br> Emiss&atilde;o do resumo de bens por grupo.<br> Listagem da situa&ccedil;&atilde;o por grupo e centro de custo.<br> Listagem dos bens por localiza&ccedil;&atilde;o.<br> </p> </th> </tr> </table> <!-- InstanceEndEditable --></th> </tr> <tr> <th height="26" scope="col"><img src="../imagens/pag-milk_r6_c1.jpg" width="122" height="26"></th> <td height="26"><img src="../imagens/pag-milk_r6_c2.jpg" width="416" height="26"></td> </tr> </table></td> </tr> <tr> <td colspan="3"><img src="../imagens/pag-milk_r7_c1.jpg" width="538" height="11"></td> </tr> </table> </body> <!-- InstanceEnd --></html>

Falo, brigado.

Criptografia Como fazer em asp para criptografar a senha de um usuario antes de mandar pro banco de dados?

Criptografia Como fazer em asp para criptografar a senha de um usuario antes de mandar pro banco de dados?

Tenho observado, que todas as vezes que eu vou digitar um texto no DreamWeaver MX2004 as palavras saem negritadas, e o botão de negritar não funciona. A gente clika no botão mas não acontece nada, parece estar desabilitado. Como corrigir esse problema? Negrito indesejado