Carlos Rocha

Mano, muito obrigado, agora consegui o que queria, so redirecionei o link para um action fora do bloco e deu certo. Muito Obrigado.

Cara descobri onde esta o erro, Preciso fazer o codigo abaixo: response.write "<script>if (confirm('Já existe esta pergunta cadastrada em outro módulo. Prosegue?')){</script>" strSQlInsert = "INSERT INTO tbFaq(DfModulo, DfPergunta, DfMemo, DfAutor) values('"&DfModulo_f&"' , '"&Replace(DfPergunta_f,"'","''")&"', '"&Replace(DfMemo_f,"'","''")&"' , '"&trim(Nome_usu)&"')" Set Rs_FaqInsert = Conn.EXECUTE(strSQlInsert) if Err.Number = 0 then response.write "<script>alert('Inclusão efetuada com sucessoooo!'); document.location='faq.asp?action=incluir'</script>" else response.write "<script>alert('Erro. Tente de Novo!'); document.location='faq.asp?action=incluir'</script>" end if response.write "<script>} else {document.location.href='faq.asp?action=incluir'}</script>" Funcionar da seguinte forma: response.write "<script>if (confirm('Já existe esta pergunta cadastrada em outro módulo. Prosegue?')){INSTRUÇÃO .ASP, VEJA ELA NO CODIGO ACIMA} else {document.location.href='faq.asp?action=incluir'}</script>" Ou seja, tertei que por um código asp dentro de um JavaScript. Tentei do geito que esta mas ele não executa o Confirm() por que o codigo JavaScript num ta todo, tem como contornar essa situação? Ou se for o caso, na instrução JavaScript abaixo: response.write "<script>if (confirm('Já existe esta pergunta cadastrada em outro módulo. Prosegue?')){document.location.href='faq.asp?action2=gravarvalores&DfModulo_f="&DfModulo_f&"DfPergunta_f="&DfPergunta_f&"DfMemo_f="&DfMemo_f&"'} else {document.location.href='faq.asp?action=incluir'}</script>" a forma que estou enviando parametros com variaveis asp ta certo? document.location.href='faq.asp?action2=gravarvalores&DfModulo_f="&DfModulo_f&"... Porque quando chega no faq.asp?action2=gravarvalores, ele diz que os dados de entrada não chegam, e agora? Olha a forma como to recuperando: <% if Request.QueryString("action2") = "gravarvalores" then strSQlInsert = "INSERT INTO tbFaq(DfModulo, DfPergunta, DfMemo, DfAutor) values('"&Request.QueryString(DfModulo_f)&"' , '"&Request.QueryString(Replace(DfPergunta_f,"'","''"))&"', '"&Request.QueryString(Replace(DfMemo_f,"'","''"))&"' , '"&trim(Nome_usu)&"')" Set Rs_FaqInsert = Conn.EXECUTE(strSQlInsert) if Err.Number = 0 then response.write "<script>alert('Inclusão efetuada com sucesso!'); document.location='faq.asp?action=incluir'</script>" else response.write "<script>alert('Erro. Tente de Novo!'); document.location='faq.asp?action=incluir'</script>" end if end if %> Ta certo Isso?

Cara descobri onde esta o erro, Preciso fazer o codigo abaixo: response.write "<script>if (confirm('Já existe esta pergunta cadastrada em outro módulo. Prosegue?')){</script>" strSQlInsert = "INSERT INTO tbFaq(DfModulo, DfPergunta, DfMemo, DfAutor) values('"&DfModulo_f&"' , '"&Replace(DfPergunta_f,"'","''")&"', '"&Replace(DfMemo_f,"'","''")&"' , '"&trim(Nome_usu)&"')" Set Rs_FaqInsert = Conn.EXECUTE(strSQlInsert) if Err.Number = 0 then response.write "<script>alert('Inclusão efetuada com sucessoooo!'); document.location='faq.asp?action=incluir'</script>" else response.write "<script>alert('Erro. Tente de Novo!'); document.location='faq.asp?action=incluir'</script>" end if response.write "<script>} else {document.location.href='faq.asp?action=incluir'}</script>" Funcionar da seguinte forma: response.write "<script>if (confirm('Já existe esta pergunta cadastrada em outro módulo. Prosegue?')){INSTRUÇÃO .ASP, VEJA ELA NO CODIGO ACIMA} else {document.location.href='faq.asp?action=incluir'}</script>" Ou seja, tertei que por um código asp dentro de um JavaScript. Tentei do geito que esta mas ele não executa o Confirm() por que o codigo JavaScript num ta todo, tem como contornar essa situação? Ou se for o caso, na instrução JavaScript abaixo: response.write "<script>if (confirm('Já existe esta pergunta cadastrada em outro módulo. Prosegue?')){document.location.href='faq.asp?action2=gravarvalores&DfModulo_f="&DfModulo_f&"DfPergunta_f="&DfPergunta_f&"DfMemo_f="&DfMemo_f&"'} else {document.location.href='faq.asp?action=incluir'}</script>" a forma que estou enviando parametros com variaveis asp ta certo? document.location.href='faq.asp?action2=gravarvalores&DfModulo_f="&DfModulo_f&"... Porque quando chega no faq.asp?action2=gravarvalores, ele diz que os dados de entrada não chegam, e agora? Olha a forma como to recuperando: <% if Request.QueryString("action2") = "gravarvalores" then strSQlInsert = "INSERT INTO tbFaq(DfModulo, DfPergunta, DfMemo, DfAutor) values('"&Request.QueryString(DfModulo_f)&"' , '"&Request.QueryString(Replace(DfPergunta_f,"'","''"))&"', '"&Request.QueryString(Replace(DfMemo_f,"'","''"))&"' , '"&trim(Nome_usu)&"')" Set Rs_FaqInsert = Conn.EXECUTE(strSQlInsert) if Err.Number = 0 then response.write "<script>alert('Inclusão efetuada com sucesso!'); document.location='faq.asp?action=incluir'</script>" else response.write "<script>alert('Erro. Tente de Novo!'); document.location='faq.asp?action=incluir'</script>" end if end if %> Ta certo Isso?

Nos testes que fiz, puz uma variavel asp DfModulo_f num codigo javascript Confirm, e percebi que ate ali a variavel vai bem, só que eu preciso dela é na segunda parte do javascript como segue o código: response.write "<script>if (confirm('Já existe esta pergunta cadastrada em outro módulo. Prosegue "&DfModulo_f&"?')){document.location.href='faq.asp?action=gravarinclusao&action2=gravarvalores&DfModulo_f="&DfModulo_f&"&DfPergunta_f="&DfPergunta_f&"&DfMemo_f="&DfMemo_f&"'} else {document.location.href='faq.asp?action=incluir'}</script>" E agora, como fazer a variavel asp chegar na 2ª parte do JavaScript

Nos testes que fiz, puz uma variavel asp DfModulo_f num codigo javascript Confirm, e percebi que ate ali a variavel vai bem, só que eu preciso dela é na segunda parte do javascript como segue o código: response.write "<script>if (confirm('Já existe esta pergunta cadastrada em outro módulo. Prosegue "&DfModulo_f&"?')){document.location.href='faq.asp?action=gravarinclusao&action2=gravarvalores&DfModulo_f="&DfModulo_f&"&DfPergunta_f="&DfPergunta_f&"&DfMemo_f="&DfMemo_f&"'} else {document.location.href='faq.asp?action=incluir'}</script>" E agora, como fazer a variavel asp chegar na 2ª parte do JavaScript

Sim

Algun bom de código me ajuda nessa!

Kara deu certo assim, mas ficou ainda um problema, dai postei um novo tópico, se puder me dar uma força.

Tenho uma FAQ no meu site. To fazendo um sistema de busca que sera feita da seguinte forma: No campo de busca a pessoa digita uma frase que é a sua duvida, dai, é feita uma busca nos campos pergunta e resposta da tabela, porem tem que ser uma busca por aproximação, para que a pessoa não seja obriogada a descobrir exatamente como estão digitadas as perguntas e respostas no nosso banco certo? Porem, eu tive a ideia de dividir a frase numa matriz em que cada palavra da frase sera uma opção de busca, dai vem as minhas dificudades, Se a pessoa digitar uma frase em que uma mesma palavra é escrita duas vezes, por exemplo -- Como fazer como o João Fez?(temos que imaginar o usuario fazendo de tudo, certo?) Nesse caso, a palavra como gerará uma consulta em duplicvidade e por conseguinte uma impressão em duplicidade do mesmo tópico. E é isso que quero resolver. Abaixo, segue meu código, se tiver tempo e puder me ajudar nessa, desde já estou agradecendo. Foi o que eu consegui. <% If REQUEST.QUERYSTRING("action") = "consultar" then Dim busca, onde, pesq, sql, x, strSQL, Rs_SELECT, bg, DfId, DesenharTabela, cor, Rs_FaqSelectModulo, ModuloNome 'Declara as variaveis. Dim laco, buscadas, considera, palavra, palavra2, pergunta 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="DfPergunta like '%"&palavra&"%' or DfMemo like '%"&palavra&"%' " 'String Sql busca letra por letra ' onde="DfPergunta like '"&pesq&"' or DfMemo like '"&pesq&"' " 'String Sql busca palavra por palavra 'Cria o Select strSQL = "select * from tbFaq where " & onde & "" Set Rs_SELECT = server.createobject("ADODB.Recordset") Rs_SELECT.Open strSQl,Conn , 3, 3 if not Rs_SELECT.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>Visualizar</b></fonte></td>" response.Write "</tr>" DesenharTabela = True End if dim faq_id, faq_modulo, faq_autor, faq_pergunta Do Until Rs_Select.EOF = True faq_id = Rs_SELECT("DfId") faq_modulo = Rs_SELECT("DfModulo") faq_autor = Rs_SELECT("DfAutor") faq_pergunta = Rs_SELECT("DfPergunta") if (cor = 1) then bg = "#E8ECEE" cor = 2 else bg = "#d3dbde" cor = 1 end if strSQl = "select * from tbModulo where DfId = '"&faq_modulo&"'" Set Rs_FaqSelectModulo = server.createobject("ADODB.Recordset") Rs_FaqSelectModulo.Open strSQl,Conn , 3, 3 ModuloNome = Rs_FaqSelectModulo("DfNome") 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>"&faq_autor&"</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>" rs_Select.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 %>

Ola pessoal, to cum seguinte problema, quando o código chega na linha if action2 = "gravarvalores" then acionada pela instrução javascript document.location.href da linha anterior, na hora de fazer o insert into faq, ele não recebe os campos vindos do formulario. Como posso resolver esse problema? <% ' ############################# Inclusão ########################### If Request.QueryString("action") = "gravarinclusao" then ' campos vindos do formulario DfId_f = request.Form("FormId") DfModulo_f = request.Form("FormModulo") DfPergunta_f = request.Form("FormPergunta") DfMemo_f = request.Form("FormTexto") strSQl = "select * from tbFaq where DfPergunta= '"&DfPergunta_f&"'" Set Rs_FaqPerguntasVerifica = Conn.EXECUTE(strSQl) if not Rs_FaqPerguntasVerifica.eof then if Rs_FaqPerguntasVerifica("DfModulo") = DfModulo_f then response.write "<script>alert('Já existe esta pergunta cadastrda, por favor altere-a!'); document.location='faq.asp?action=editar'</script>" else response.write "<script>if (confirm('Já existe esta pergunta cadastrda em outro módulo. Prosegue?')){document.location.href='faq.asp?action=gravarinclusao&action2=incluivalores'} else {document.location.href='faq.asp?action=incluir'}</script>" if action2 = "gravarvalores" then strSQlInsert = "INSERT INTO tbFaq(DfModulo, DfPergunta, DfMemo, DfAutor) values('"&DfModulo_f&"' , '"&Replace(DfPergunta_f,"'","''")&"', '"&Replace(DfMemo_f,"'","''")&"' , '"&trim(Nome_usu)&"')" Set Rs_FaqInsert = Conn.EXECUTE(strSQlInsert) if Err.Number = 0 then response.write "<script>alert('Inclusão efetuada com sucesso!'); document.location='faq.asp?action=incluir'</script>" else response.write "<script>alert('Erro. Tente de Novo!'); document.location='faq.asp?action=incluir'</script>" end if end if end if else strSQlInsert = "INSERT INTO tbFaq(DfModulo, DfPergunta, DfMemo, DfAutor) values('"&DfModulo_f&"' , '"&Replace(DfPergunta_f,"'","''")&"', '"&Replace(DfMemo_f,"'","''")&"' , '"&trim(Nome_usu)&"')" Set Rs_FaqInsert = Conn.EXECUTE(strSQlInsert) if Err.Number = 0 then response.write "<script>alert('Inclusão efetuada com suscesso!'); document.location='faq.asp?action=incluir'</script>" else response.write "<script>alert('Erro. Tente de Novo!'); document.location='faq.asp?action=incluir'</script>" end if end if end if ' ############################# Fim da Inclusão ########################### %>

Tem como colocar uma instrução asp dentro de um bloco de codigos javascript? Exemplo: response.write "<script>if (confirm('Já existe esta pergunta cadastrda em outro módulo. Prosegue?')); else document.location.href='faq.asp?action=incluir'</script>" Explicando como quero... <script>if (confirm('Já existe esta pergunta cadastrda em outro módulo. Prosegue?')); Se a resposta for sim, executa esta instrução asp strSQlInsert = "INSERT INTO tbFaq(DfModulo, DfPergunta, DfMemo, DfAutor) values('"&DfModulo_f&"' , '"&Replace(DfPergunta_f,"'","''")&"', '"&Replace(DfMemo_f,"'","''")&"' , '"&trim(Nome_usu)&"')" Set Rs_FaqInsert = Conn.EXECUTE(strSQlInsert) if Err.Number = 0 then response.write "<script>alert('Inclusão efetuada com suscesso!'); document.location='faq.asp?action=incluir'</script>" else response.write "<script>alert('Erro. Tente de Novo!'); document.location='faq.asp?action=incluir'</script>" end if response.write "<script>else document.location.href='faq.asp?action=incluir'</script>" E se a resposta for não, a execução para e redireciona para outra pagina. else document.location.href='faq.asp?action=incluir'</script> Sera que tem geito Asp dentro de JavaScript

Tem como colocar uma instrução asp dentro de um bloco de codigos javascript? Exemplo: response.write "<script>if (confirm('Já existe esta pergunta cadastrda em outro módulo. Prosegue?')); else document.location.href='faq.asp?action=incluir'</script>" Explicando como quero... <script>if (confirm('Já existe esta pergunta cadastrda em outro módulo. Prosegue?')); Se a resposta for sim, executa esta instrução asp strSQlInsert = "INSERT INTO tbFaq(DfModulo, DfPergunta, DfMemo, DfAutor) values('"&DfModulo_f&"' , '"&Replace(DfPergunta_f,"'","''")&"', '"&Replace(DfMemo_f,"'","''")&"' , '"&trim(Nome_usu)&"')" Set Rs_FaqInsert = Conn.EXECUTE(strSQlInsert) if Err.Number = 0 then response.write "<script>alert('Inclusão efetuada com suscesso!'); document.location='faq.asp?action=incluir'</script>" else response.write "<script>alert('Erro. Tente de Novo!'); document.location='faq.asp?action=incluir'</script>" end if response.write "<script>else document.location.href='faq.asp?action=incluir'</script>" E se a resposta for não, a execução para e redireciona para outra pagina. else document.location.href='faq.asp?action=incluir'</script> Sera que tem geito

Sera que tem jeito de fazer assim: Tirar o codigo asp de debaixo do javascripr e colocar ele dentro da condição de se o usuario clikar no sim.(ou seja,instrução asp dentro de uma instrução javascript) Sera que tem jeito isso???

Meu código é este com um codigo que eu achei pesquizando: <% ' ############################# Inclusão ########################### If Request.QueryString("action") = "gravarinclusao" then DfId_f = request.Form("FormId") DfModulo_f = request.Form("FormModulo") DfPergunta_f = request.Form("FormPergunta") DfMemo_f = request.Form("FormTexto") strSQl = "select * from tbFaq where DfPergunta= '"&DfPergunta_f&"'" Set Rs_FaqPerguntasVerifica = Conn.EXECUTE(strSQl) if not Rs_FaqPerguntasVerifica.eof then if Rs_FaqPerguntasVerifica("DfModulo") = DfModulo_f then response.write "<script>alert('Já existe esta pergunta cadastrda, por favor escolha outra!'); document.location='faq.asp?action=incluir'</script>" else response.write"<script language=javascript>"&_ "if (confirm('Já existe esta pergunta cadastrda em outro módulo. Prosegue?')) {"&_ "instruções caso o usuário clique em sim;"&_ "}else{"&_ "document.location.href='página_de_perguntas.asp"&_ "}"&_ "</script>" strSQlInsert = "INSERT INTO tbFaq(DfModulo, DfPergunta, DfMemo, DfAutor) values('"&DfModulo_f&"' , '"&Replace(DfPergunta_f,"'","''")&"', '"&Replace(DfMemo_f,"'","''")&"' , '"&trim(Nome_usu)&"')" Set Rs_FaqInsert = Conn.EXECUTE(strSQlInsert) if Err.Number = 0 then response.write "<script>alert('Inclusão efetuada com suscesso!'); document.location='faq.asp?action=incluir'</script>" else response.write "<script>alert('Erro. Tente de Novo!'); document.location='faq.asp?action=incluir'</script>" end if end if else strSQlInsert = "INSERT INTO tbFaq(DfModulo, DfPergunta, DfMemo, DfAutor) values('"&DfModulo_f&"' , '"&Replace(DfPergunta_f,"'","''")&"', '"&Replace(DfMemo_f,"'","''")&"' , '"&trim(Nome_usu)&"')" Set Rs_FaqInsert = Conn.EXECUTE(strSQlInsert) if Err.Number = 0 then response.write "<script>alert('Inclusão efetuada com suscesso!'); document.location='faq.asp?action=incluir'</script>" else response.write "<script>alert('Erro. Tente de Novo!'); document.location='faq.asp?action=incluir'</script>" end if end if end if ' ############################# Fim da Inclusão ########################### %> Acontece que na linha depois do codigo do javascript, tem um insert que roda mesmo se eu clikar em não no javascript, e o que eu preciso é quie caso se clike na opção não do javascript, o insert não seja realizado. Tem geito?

Ola pessoal, Eu programo eu asp mas derepente, me deparei com um problema de javascript. Tenho um Response.write(" ") do asp, e preciso imprimir nele uma confirmação de operação dizendo o seguinte: Já existe esta pergunta cadastrda em outro módulo. Prosegue? Caso a pessoa clikar em não, preciso redirecionala para o formulario no campo de pergunta, tem como?

Tambem num deu,o problema é que ele faz o redirect certo mas como tem uma linha de codigo abaixo ele executa tambem e isso nuim pode acontece. E agora?

Desculpe a primeira linha é assim: response.write "<script>if (confirm('Já existe esta pergunta cadastrda em outro módulo. Prosegue?')) alert('Prosseguindo'); else document.location='faq.asp?action=incluir'</script>"

Meu código é esse: response.write "<script>if (confirm('Já existe esta pergunta cadastrda em outro módulo. Prosegue?')); else document.location='faq.asp?action=incluir'</script>" strSQlInsert = "INSERT INTO tbFaq(DfModulo, DfPergunta, DfMemo, DfAutor) values('"&DfModulo_f&"' , '"&Replace(DfPergunta_f,"'","''") &"', '"&Replace(DfMemo_f,"'","''")&"' , '"&trim(Nome_usu)&"')" Set Rs_FaqInsert = Conn.EXECUTE(strSQlInsert) if Err.Number = 0 then response.write "<script>alert('Inclusão efetuada com suscesso!'); document.location='faq.asp?action=incluir'</script>" else response.write "<script>alert('Erro. Tente de Novo!'); document.location='faq.asp?action=incluir'</script>" end if Acontece que quando cliko na opção Não do confirme, preciso que ele pare de efetuar quaisquer operações e redirecione pro formulariiio., mas ta continuando a execução, o que ta de errado nesse codigo?

Ola pessoal, Eu programo eu asp mas derepente, me deparei com um problema de javascript. Tenho um Response.write(" ") do asp, e preciso imprimir nele uma confirmação de operação dizendo o seguinte: Já existe esta pergunta cadastrda em outro módulo. Prosegue? Caso a pessoa clikar em não, preciso redirecionala para o formulario no campo de pergunta, tem como?

Valeu gente deu certo. Muito obrigado mesmo

alguém me ajude

Não, mas a fonte de pesquiza -- um texto, tem palavras que tem em varios campos da tabela que alimenta a pergunta. segue o código <% If REQUEST.QUERYSTRING("action") = "consultar" then Dim busca, onde, pesq, sql, x, strSQL, Rs_SELECT, bg, DfId, DesenharTabela, cor, Rs_FaqSelectModulo, ModuloNome 'Declara as variaveis. DesenharTabela = False busca=trim(request.form("chave")) 'Retira os espa&ccedil;os da direita e da esquerda da frase. busca=split(busca,chr(32)) 'Cria um array e separa cada palavra da strig cor = 1 for x = 0 to Ubound(busca) 'Cria um la&ccedil;o que conta quantas palavras separadas pesq=busca(x) 'Entrega à variavel pesq, cada uma das palavras em separado para fazer a busca pesq = replace(pesq,"a","[a,á,à,ã,â,ä,A]") 'Trata as palavras acentuadas como que sem acento ou com acenmto pesq = replace(pesq,"e","[e,é,è,ê,ë,E]") pesq = replace(pesq,"i","[i,í,ì,î,ï,I]") pesq = replace(pesq,"o","[o,ó,ò,õ,ô,ö,O]") pesq = replace(pesq,"u","[u,ú,ù,û,ü,U]") pesq = replace(pesq,"c","[c,ç]") onde="DfPergunta like '%"&pesq&"%' or DfMemo like '%"&pesq&"%' " 'String Sql busca letra por letra ' onde="DfPergunta like '"&pesq&"' or DfMemo like '"&pesq&"' " 'String Sql busca palavra por palavra 'Cria o Select strSQL = "select * from tbFaq where " & onde & "" Set Rs_SELECT = server.createobject("ADODB.Recordset") Rs_SELECT.Open strSQl,Conn , 3, 3 if not Rs_SELECT.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>Visualizar</b></fonte></td>" response.Write "</tr>" DesenharTabela = True End if dim faq_id, faq_modulo, faq_autor, faq_pergunta Do Until Rs_Select.EOF = True faq_id = Rs_SELECT("DfId") faq_modulo = Rs_SELECT("DfModulo") faq_autor = Rs_SELECT("DfAutor") faq_pergunta = Rs_SELECT("DfPergunta") if (cor = 1) then bg = "#E8ECEE" cor = 2 else bg = "#d3dbde" cor = 1 end if strSQl = "select * from tbModulo where DfId = '"&faq_modulo&"'" Set Rs_FaqSelectModulo = server.createobject("ADODB.Recordset") Rs_FaqSelectModulo.Open strSQl,Conn , 3, 3 ModuloNome = Rs_FaqSelectModulo("DfNome") ' Aqui eu preciso fazer o seguinte: 'Se uma determinada "&faq_pergunta&" já foi exibida então 'passa a exibir a proxima para evitar repetição 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>"&faq_autor&"</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>" 'fim do se rs_Select.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 %>

Registros repetidos, como excluí-los? Galera boa de programação, to cum seguinte problema pra resolver e precioso de uma força. É o seguinte. Tenho a query abaixo strSQl = "Select * from TbPerguta where DfPerguta = '"&Request.Form("FormPerghunta")&"' or DfResposta = '"&Request.Form("FormResposta")&"' " Set Rs = server.createobject("ADODB.Recordset") Rs.Open strSQl,Conn , 3, 3 Quando na caixa de dialogo dfo formulario, a pessoa digita uma palavra que tem tanto na pergunta quanto na resposta, o resultado da query, me dara a mesma pergunta mais de uma vez. Por isso, eu preciso por uma condição assim Se Rs("Pergunta") já foi mostrada então mostrar proxima pergunta. Response.Write Rs.___("DfPegunta") Response.Write "<p>" Response.Write Rs.___("DfResposta") Fim do Se Como fazer isso?

Ola a todos. To cum problema com asp e checkbox do html. Eu tenho um formulario de altetação de dados. Quando o usuario acessa o formulário, eu faço uma query e já mostro nos campos do formulario de alteração, os dados que estão no banco no momento da alteração. O problema é que um dos campos é uma checkbox, aquela caixinha de marcar e desmarcar. Como eu faço para que, quando o resultado do banco de dados vier Sim, a caixinha aparece marcada e quando o resultado do banco de dados vier Não, a caixinha aparece desmarcada? Estou fazendo assim.. <TR> <TD vAlign=center width=65 align=right>Nome:</TD> <TD><INPUT type=text size=50 name=FormNome value="<%=nome%>"></TD> </TR> <TR> ' No INPUT type=text consegui jogar o resultado do banco legal <TD vAlign=center width=65 align=right>Super Usuário:</TD> <TD><input type="checkbox" name="FormSuperUsuario" value="S"> Sim&nbsp;&nbsp;&nbsp;&nbsp; </td> </TR> ' Mas noINPUT type=checkbox..................... Como fazer?

Tenho uma string: "Como faço, como eu não sou rico" Eu quero eliminar os caracteres repetido criando a string: "Como faço, eu não sou rico" Que função devo usar?