marvi

Olá pessoal, Alguém sabe porque minha tabela não exibe em ordem alfabética correta? Veja que o nome Leonardo de Araújo repete duas vezes, repetindo o nome na última linha. Abaixo tem o link da figura: http://www.metalvox.com.br/tabela.jpg Veja o código: <table border="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber14"> <% dim conexao Call abre_conexao Set rsPrincipal = conexao.Execute("select * from profissional order by profissional") arrConvenio = rsPrincipal.GetRows rsPrincipal.Close conexao.Close Set rsPrincipal = Nothing Set conexao = Nothing qtdColunas = 1 qtdRegistros = UBound(arrConvenio, 2) qtdLinhas = CInt(qtdRegistros / (qtdColunas + 1)) registroAtual = 0 For Linha = 0 To qtdLinhas registroAtual = Linha Response.Write("<tr>") For Coluna = 0 To qtdColunas If registroAtual <= qtdRegistros Then l= arrConvenio(1, registroAtual) ids= arrConvenio(2, registroAtual) End If %> <td> <a href="#void(0);" onClick="MM_openBrWindow('dtclinica.asp?id=<%=ids%>','janelax','width=610,height=500')" style="text-decoration: none"> <font color="#5C5C5C" face="Arial" style="font-size: 10pt">&nbsp;<%=l%></font></a> </font> <a href="#void(0);" onClick="MM_openBrWindow('dtclinica.asp?id=<%=ids%>','janelax','width=610,height=500')" style="text-decoration: none"> <font face="Arial" style="font-size: 10pt" color="#B33C1F">[ veja detalhes + ]</font></a> </td> <% registroAtual = registroAtual + (qtdLinhas + 1) Next Response.Write("</tr>") Next %> </table>

Isso! mesmo! Acho que resolvi colocando o Session.LCID = 1046 Para ficar padrão no Brasil, obrigado!

Olá, Não sei o que está acontecendo. Tenho um campo data onde tem as seguintes datas, por exemplo: 31/3/2010 4/1/2010 Mas ele não fica na ordem decrescente Minha SQL está: SELECT * FROM noticias order by datar desc, codigo desc Aí funciona normal o mês 3 31/3/2010 - certo 30/03/2010 - certo 4/1/2010 - errado, ele deveria ser o primeiro já que é mês 4 Por que ocorre isso? Como faço para manter na ordem decrescente quando aparecer o novo mês? O campo está como datatime e uso SQL Server 2000

Ok, obrigado! Resolvido!

Olá pessoal, acho que fecharam o tópico, mas não resolvi a questão: http://scriptbrasil.com.br/forum/index.php?showtopic=148406

Eu fiz seguinte arquivo global.asa e coloquei na raiz do site, mas não mudou nada: <script language=vbscript runat=server> SUB Application_OnStart Session.TimeOut = 1440 Application.Lock Application("Usuarios_Ativos") = 0 Application.UnLock END SUB SUB Application_OnEnd END SUB SUB Session_OnStart Application.Lock Application("Usuarios_Ativos")=Application("Usuarios_Ativos")+1 Application.UnLock END SUB SUB Session_OnEnd Application.Lock Application("Usuarios_Ativos")=Application("Usuarios_Ativos")-1 Application.UnLock END SUB </script>

Eu tenho que colocar ondem? COloquei na INDEX.asp do painel: <% Session.TimeOut = 1440 If session("nivel_acesso") = "" or session("nivel_acesso") <> 3 Then Response.Write "<font color=""#000000"" face=""Arial"" size=""2"">Você não está logado. Provavelmente você não se logou ou passou muito tempo inativo. Por medida de segurança volte a logar.</font>" Response.Write "<font color=""#000000"" face=""Arial"" size=""2""><a href=""../default.asp"">Clique aqui</a></font>" else if session("nivel_id") <> "adm" then response.write("Proibido acesso. Você não é administrador.") response.end end if

Pessoal, como faço para aumentar o tempo do usuário logado? Pois quando dar 5 minutos ele volta de novo e pedi login. Disseram que era o servidor, mas no servidor é 1 hora o tempo de logar Coloquei isso na página: Session.TimeOut = 1440 A session pelo menos teoricamente só expira se ficar este tempo todo na mesma pagina, se continuar navegando o contador sempre é zerado. O problema é como faço para ele poder ficar o tempo todo parado na mesma página e não expirar? Uso banco SQL Server 2000

Pessoal, como faça paginação com abecedário? Uso o banco SQL Server 2000. O código abaixo faz paginação usando o "próximo e voltar", mas queria que você com o alfabeto, tipo: A, B, C... e se a pessoa clica em A aparece a lista com inicias A Como faz? <% Set rsbusca = server.CreateObject("ADODB.RecordSet") rsbusca.CursorLocation = 3 sql = "SELECT * FROM noticias order by datar desc, codigo desc" rsbusca.PageSize = 24 IF rsbusca.EOF then Response.Write "nenhum registro encontrado. <a href=""index.asp"">CLique aqui para voltar</a>" Response.End 'paramos o programa ELSE IF Request.QueryString("pagina")="" then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))<1 then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))> rsbusca.PageCount then intpagina=rsbusca.PageCount ELSE intpagina=Request.QueryString("pagina") END IF END IF END IF END IF rsbusca.AbsolutePage=intpagina intrec=0 %>

Ninguém?

Certo, obrigado! Funcionou!

Como faço para criar 3 linhas horizontais em ordem alfabética horizontal e não vertical? Tipo: A b c D e f Usei esse código, mas não funciona: <table border="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber14"> <% Dim objConn, rsPrincipal, arrConvenio Dim qtdColunas, qtdRegistros, qtdLinhas, registroAtual Dim Linha, Coluna Set objConn = Server.CreateObject("ADODB.Connection") Set rsPrincipal = Server.CreateObject("ADODB.RecordSet") ' objConn.Open "DRIVER={SQL Server};SERVER=MARCELO;DATABASE=labanalise;Uid=sa;PWD=vidanova" objConn.Open "DRIVER={SQL Server};SERVER=70.87.132.122,7654;DATABASE=LABANALISE;Uid=LABANALISE;PWD=123qweasdzxc" SQLprincipale = "SELECT * FROM contato" Set rsprincipale = objConn.Execute(SQLprincipale) email=rsprincipale("email") endereco=rsprincipale("endereco") Set rsPrincipal = objConn.Execute("Select * From Convenios order by convenios asc ") arrConvenio = rsPrincipal.GetRows rsPrincipal.Close objConn.Close Set rsPrincipal = Nothing Set objConn = Nothing qtdColunas = 3 qtdRegistros = UBound(arrConvenio, 2) qtdLinhas = CInt(qtdRegistros / (qtdColunas + 1)) registroAtual = 0 For Linha = 0 To qtdLinhas registroAtual = Linha Response.Write("<tr>") For Coluna = 0 To qtdColunas %> <td> <font face="Arial" color="#696969" size="2" > <% If registroAtual <= qtdRegistros Then Response.Write(arrConvenio(1, registroAtual)) Else Response.Write("&nbsp;") End If %> </font> </td> <% registroAtual = registroAtual + (qtdLinhas + 1) Next Response.Write("</tr>") Next %> </table> </p></font></td> </tr> </table>

Mas isso não faz descobrir se a variavel VariavelE = "teste@teste.com" possui um arroba, entende? O valor é teste@teste.com, por exemplo, e nesse teste@teste.com, preciso achar o arroba, @. Poderia ser joao@uol.com.br e assim tenho que achar o arroba também

Olá pessoal, tenho uma dúvida. Eu queria saber se tenho como pegar o valor especifico de uma variável? Tipo: VariavelE="teste@teste.com" Existe como eu saber se essa variável, VariavelE, acima possue um arroba, @, antes que eu possa imprimir ela? Queria fazer algo assim VariavelE="teste@teste.com" if VariavelE = @ then Algo que diga que se VariavelE possue um arroba, @, faça tal coisa, mas para isso preciso de uma função antes que possa identificar se tal variável leva o "@", entendem? Tem como?

Mas dar um problema, tem uma tabela que precisa da data e outra não tem esse campo data e fica assim: SELECT titulo, data FROM Noticias WHERE titulo LIKE '%taurus%' UNION SELECT titulo FROM Cds WHERE titulo LIKE '%taurus%' mas dar um erro: All queries in an SQL statement containing a UNION operator must have an equal number of expressions in their target lists. E no loop terá <%=rsbusca("titulo")%> e <%=rsbusca("data")%>, acredito que data para Cds vai dar problemas.

Pessoal, não sei como fazer a seguinte: Tenho duas tabelas distintas: tabela Noticias com campos: titulo, conteudo e a tabela Cds com campos: titulo, conteudo e etc. Vamos dizer que na tabela noticias tem: titulo: João e Maria conteudo: se casaram hoje joão e maria. Na tabela Cds tem: Titulo: João e seus sucessos Conteudo: As melhores músicas de joão. Terei o campo que ao pesquisar o nome João deverá ter uma query que pesquise pelo campo titulo o nome joão, mas deve pesquisar tanto da tabela noticias e da tabela cds, já que há o nome joão nas duas e exbibir na busca, tipo: Resultado da busca: João e seus sucessos -------------------- João e Maria ------------------- Se caso só tenha o nome pesquisado, joão, na tabela Cds, ficaria: -------------- João e seus sucessos -------------- Como fazer uma query assim? seria uma subquery com Where? Qual a melhor solução? Pode ser pelo ASP mesmo ou SQL? Uso o SQL server 2000

Pessoal, não sei como fazer a seguinte: Tenho duas tabelas distintas: tabela Noticias com campos: titulo, conteudo e a tabela Cds com campos: titulo, conteudo e etc. Vamos dizer que na tabela noticias tem: titulo: João e Maria conteudo: se casaram hoje joão e maria. Na tabela Cds tem: Titulo: João e seus sucessos Conteudo: As melhores músicas de joão. Terei o campo que ao pesquisar o nome João deverá ter uma query que pesquise pelo campo titulo o nome joão, mas deve pesquisar tanto da tabela noticias e da tabela cds, já que há o nome joão nas duas e exbibir na busca, tipo: Resultado da busca: João e seus sucessos -------------------- João e Maria ------------------- Se caso só tenha o nome pesquisado, joão, na tabela Cds, ficaria: -------------- João e seus sucessos -------------- Como fazer uma query assim? seria uma subquery com Where? Qual a melhor solução? Pode ser pelo ASP mesmo ou SQL? Uso o SQL server 2000

Pode deixar pessoal, já resolvi!

Deixa eu ver se explico melhor: Há um banco: Campo nome | Campo ordem Figura.jpg | 1 Figuranova.jpg | 2 Assim, no loop a imagem figura.jpg vai ser a primeira se exibir, pois no campo ordem ela está como 1 e quando derem um refresh, atualizar, será exibida a figuranova.jpg que tem no campo ordem o número 2. Uma é primeira e a outra é segunda e assim posso mudar a ordem, fazendo a figura.jpg ser a segunda se caso eu mude, no campo ordem, o numero 1 para 2 Só que quando ela chegar no numero 2 e for o último número, ela volta para 1 e assim vai. É como se fosse um banner.

Olá pessoal, gostaria de saber como mudar sequenciado uma imagem. Tentei esse método, mas este está fazendo visualizar as imagens que tem número de visialização mais baixa e quero que essas imagens fiquem sequenciado independente de quantidade de visualização. MAS, elas não podem se repetir até todas serem visualizadas e iniciar tudo de novo, entenderam? vtipo=1 sql = "select * from publicidade where ativo = 1 and tipo = " & vtipo & " order by visualizacoes asc" set rs = Conexao.Execute(sql) if not rs.eof then vizua = CStr(rs("visualizacoes")) + 1 sql = "update publicidade set visualizacoes = " & vizua & " where codigo = " & rs("codigo") Conexao.Execute(sql) if rs("ext") = "swf" then%> <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="728" height="90"> <param name="movie" value="<% = rs("nome") %>" > <param name="quality" value="high"> <embed src="<% = rs("nome") %>" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="728" height="90"></embed></object> <% else vlink=rs("link") vlink=replace(vlink,"http://","") %> <a href="http://<% = vlink%>" target="_blank"> <img border="0" src="<% = rs("nome") %>" width="728" ></a><% end if end if %>

Ok, funcionou! Obrigado!

Olá pessoal, Toda vez que coloco a data atual 13/03/2010 ou data futura dar esse erro: Microsoft OLE DB Provider for ODBC Drivers error '80040e07' [Microsoft][ODBC SQL Server Driver] [SQL Server]The conversion of a char data type to a datetime data type resulted in an out-of-range datetime value. /painel/inserirnoticiasnovas.asp, line 37 Mas se coloco data antiga, um dia atrás, tipo 12/03/2010 ele insere normal, por que esse erro? Minha SQL: vdata=request.form("data") dia = day(vdata) mes = month(vdata) ano = year(vdata) data_sql = dia & "-" & mes & "-" & ano executar = "insert into noticias (conteudo, data, fonte, titulo, datar) values ('"& VarDesc &"','"& vdata &"','"& vfonte &"','"& vtitulo &"','"& data_sql &"')" O que deve ser? O campo datar está como datatime Linha 37: Set rsbusca=Conexao.Execute(executar)

Agora o problema está no DESC, pois no campo há 3/1/2010 28/2/2010 E quando faço o SQL fazendo decrescente SELECT * FROM noticias order by datar desc, codigo desc A tabela fica assim: 28/2/2010 3/1/2010 Mas o certo é o 28/2/2010 ficar por último, pois é data mais antiga, como resolver? Pois ao digitar no campo foi 01/03/2010 e la no banco fica 3/1/2010 e sendo assim o SQL não coloca na ordem decrescente Pode deixar, eu mudei a ordem data_sql = dia & "-" & mes & "-" & ano E o DESC entendeu e ficou como eu queria! Obrigado!

Mas onde fica me variavel vdata aí? Essa vdata é uma variavel que pega os dados digitado do formulário. A pessoa digita a data, faço um vdata = request.form("campodata") e insiro no banco

Certo, eu coloquei as strings, parou o erro, mas a data fica no banco 1/1/1900 Para resolver isso preciso fazer uma função para a variável '"& vdata &"', isso? Poderia me dar um exemplo como uso as funções funcoes Year(), Month() e Day() na minha variável para colocar no banco sem que fique com a data 1/1/1900?