Ir para conteúdo
Fórum Script Brasil

smez

Membros
  • Total de itens

    328
  • Registro em

  • Última visita

Posts postados por smez

  1. Resolvido

    SELECT 1

    depois do loop fiz assim

    idNoticiasDestaque ="" 
    while not rsDestaque.eof and conte < 4 
    
    
    idNoticiasDestaque = idNoticiasDestaque&" CdNoticia <> "&rsDestaque("CdNoticia")&" AND"

    e no SELECT 2

    fiz assim

    strSQL = "SELECT *, concat(DtCadastro, ' ', HrCadastro) as dthr FROM Noticia WHERE "&idNoticiasDestaque&" CdCaderno = "&rsCaderno("CdCaderno")&" AND Ativo = 'sim' ORDER BY dthr DESC"
  2. estou desnvolvendo este site http://jornalderoraima.com/caderno/poder mas estou tendo uma dificuldade

    tenho 3 noticias que fica em destaque no site e as outras demais que não são destaque

    as que não são destaque esta dublicando as noticias destaques tenho os 2 select abaixo, como que eu faço para que as noticias que tiver aparecendo no SELECT 1 não aparece no SELECT 2

    
    SELECT 1
    
    <%
    strSQL5 = "SELECT *, concat(DtCadastro, ' ', HrCadastro) as dthr FROM Noticia WHERE Foto <> '""' AND CdCaderno = "&rsCaderno("CdCaderno")&" AND Bigode <> '""' AND Ativo = 'sim' ORDER BY dthr DESC"
    set rsDestaque = abredb.execute(strSQL5)
    conte = 1
    		
    if not rsDestaque.eof then
    %>
    <div id="noticia_caderno">
            	
            <%
    	while not rsDestaque.eof and conte < 4					
    	strSQL5_1 = "SELECT * FROM Noticia_categoria WHERE CdCategoria = "&rsDestaque("CdCategoria")&""
    			set rsDestaqueCat = abredb.execute(strSQL5_1)
    			%>
                <div id="caderno<%=conte%>">
                	<div id="caderno_titulo">
    				<%If rsDestaque("Bigode") <> "" Then%>
    					<%=correcao(rsDestaque("Bigode"))%>
                        <%Else%>
                        <%=rsDestaqueCat("Categoria")%>
                        <%End If%>
                    </div>
                  <div id="caderno_foto">
                  <a href="<%=UrlAmigavel%>noticia/<%=rsDestaque("CdNoticia")%>/<%=RemoveCaracteresEspeciais(TirarAcento(rsDestaque("Titulo")))%>">
                   	<div id="caderno_foto_texto"><span><%=correcao(rsDestaque("Titulo"))%></span></div>
                      <img src="<%=UrlAmigavel%>imagensDinamica/noticia/<%=rsDestaque("Foto")%>" height="160" border="0">
                    </div></a>
                </div>
                <%
    			conte = conte+1
    			rsDestaque.movenext
    			wend
    			%>
            </div>
            <%
    		end if
    		rsDestaque.close
    		set rsDestaque = nothing
    		%>
    
    

    SELECT 2

    <%
    			strSQL = "SELECT *, concat(DtCadastro, ' ', HrCadastro) as dthr FROM Noticia WHERE CdCaderno = "&rsCaderno("CdCaderno")&" AND Ativo = 'sim' ORDER BY dthr DESC"
    			set rsLstNews = abredb.execute(strSQL)
    					
    			contador = 0
    			
    			if not rsLstNews.eof then
    			
    			while not rsLstNews.eof and contador < 5
    			
    			strSQL2 = "SELECT * FROM Noticia_categoria WHERE CdCategoria = "&rsLstNews("CdCategoria")&""
    			set rsCat = abredb.execute(strSQL2)
    			%>
            	<div id="lista_noticia">
                	<%If rsLstNews("Foto") <> "" Then%>
                	<div id="noticia_lista">                	
                        <div id="capa_noticia_foto">
                        <a href="<%=UrlAmigavel%>noticia/<%=rsLstNews("CdNoticia")%>/<%=RemoveCaracteresEspeciais(TirarAcento(rsLstNews("Titulo")))%>">
                        <img src="<%=UrlAmigavel%>imagensDinamica/noticia/<%=rsLstNews("Foto")%>" width="165"  border="0"></a></div>
                        <a href="<%=UrlAmigavel%>noticia/<%=rsLstNews("CdNoticia")%>/<%=RemoveCaracteresEspeciais(TirarAcento(rsLstNews("Titulo")))%>">
                        <div id="noticia_lista_categoria">
    					<%If rsLstNews("Bigode") <> "" Then%>
    					<%=correcao(rsLstNews("Bigode"))%>
                        <%Else%>
                        <%=rsCat("Categoria")%>
                        <%End If%>
                        </div>
                        <div id="noticia_lista_titulo"><%=correcao(rsLstNews("Titulo"))%></div>
                        <!--<div id="noticia_lista_legenda"><%'=correcao(rsLstNews("Legenda"))%></div>-->
                        </a>
                    </div>
                    <%Else%>
                    <div id="noticia_lista">                	
                        <a href="<%=UrlAmigavel%>noticia/<%=rsLstNews("CdNoticia")%>/<%=RemoveCaracteresEspeciais(TirarAcento(rsLstNews("Titulo")))%>">
                        <div id="noticia_lista_categoria2">
                        <%If rsLstNews("Bigode") <> "" Then%>
    					<%=correcao(rsLstNews("Bigode"))%>
                        <%Else%>
                        <%=rsCat("Categoria")%>
                        <%End If%>
                        </div>
                        <div id="noticia_lista_titulo2"><%=correcao(rsLstNews("Titulo"))%></div>
                        <div id="noticia_lista_legenda2"><%=correcao(rsLstNews("Legenda"))%></div>
                        </a>
                    </div>
                    <%End If%>
                </div>
                <%
    			contador = contador +1
    			rsLstNews.movenext
    			wend
    			
    			end if
    			rsLstNews.close
    			set rsLstNews = nothing
    			%>
    
  3. Estou desenvolvendo um portal de notícia para o norte do Brasil, estou tendo problema com a hora

    porque no norte e 1 hora a menos que em brasilia e quando tem horario de verão fica 2 horas de diferença

    estou fazendo o seguinte na hora de cadastrar uma noticia

    HrCadastro = now() -1

    mas para cadastrar no banco a noticia com 1 hora a menos até ai funciona tudo bem, mas quando esta com horario de verão não da certo porque da 2 horas de diferença dai terei que mexer no codigo

    como que eu faço para usar em ASP Classic TIMEZONE para pegar o GMT de Manaus??

  4. Salve salve galera, estou quebrando a cabeça aqui no seguinte

    tenho uma pagina no meu site que lista todos os usuarios cadastrados com foto

    queria fazer o seguinte, exibir a foto do usuario em preto e branco com o componente ASPJpeg mas sem salvar a foto em preto e branco

    somente exibir, porque quando clicar na foto vai para o perfil do usuario com a foto colorida

    como poderei fazer isso

    estou tentando fazer assim, mas não funciona

    <%
              strSQL = "SELECT * FROM membro WHERE Aprovado = 's' AND Foto <> '' ORDER BY Rand()"
              set rsMembro = server.CreateObject("adodb.recordset")
              rsMembro.open strSQL,abredb
              %>
                <%while not rsMembro.eof and counter < 18
                set rsContaFoto = abredb.execute("select Count(*) AS Total from album WHERE CdMembro = "&rsMembro("CdMembro")&"")
                    
                    if rsMembro("Foto") <> "" Then
                        foto2 = "imagensDinamicas/Membro/"&rsMembro("Foto")&""
                    else
                        foto2 = "imagens/semFoto.jpg"
                    end if
                    
                    if counter <> "" then
                        classMenbro = "membros"
                        tamanhoFoto = "126"
                        tamanhoImg = "membros_img"
                        NomeFoto = "membros_nome"
                    else
                        classMenbro = "membros_destaque"
                        tamanhoFoto = "254"
                        tamanhoImg = "membros_imgDestaque"
                        NomeFoto = "membros_nomeDesatque"
                    end if
                    
                    Set Jpeg = Server.CreateObject("Persits.Jpeg")
                    Jpeg.Open Server.MapPath(foto2)
                    Jpeg.Sepia 50, 1.4
                %>
                    <div id="<%=classMenbro%>">
                        <div id="<%=tamanhoImg%>">
                        <div id="<%=NomeFoto%>">&nbsp;
                        <%If rsMembro("Apelido") <> "" then%>
                            <%
                            if Len(rsMembro("Apelido")) > "15" Then
                                Response.Write mid(rsMembro("Apelido"),1,15)&"..."
                            else
                                Response.Write rsMembro("Apelido")
                            end if
                        Else
                            if Len(rsMembro("Nome")) > "15" Then
                                Response.Write mid(rsMembro("Nome"),1,15)&"..."
                            else
                                Response.Write rsMembro("Nome")
                            end if
                        End If%>
                        </div>
                        <%If rsMembro("DtNascimento") <> "" Then%>
                        <div id="membros_idade"><%=idade(cdate(rsMembro("DtNascimento")))%></div>
                        <%End If%>
                        <img src="<%=foto2%>" width="<%=tamanhoFoto%>" border="0" />
                        <%Jpeg.SendBinary%>
                        </div>
                        
                        
                    </div>
                <%
                counter = counter + 1
                rsMembro.movenext
                wend
                %>

    mas não funciona, como poderei fazer???

  5. Bom Dia a Todos

    Gostaria de dizer o quanto o site é excelente para meus desenvolvimentos.

    A muito tempo venho tentando algo prático e funcional mas meu conhecimento não me permite.

    Eu preciso de um sisteminha simples onde a partir de um administrador no site, seja possível enviar as fotos e colocar as descrições.

    Como referência tenho um site exatamente como eu sonho em ter.

    Segue o link abaixo:

    http://www.mmveiculos.com.br/mmveiculos/index.aspx

    No Link "Estoque" ele lista os veículos os quais estão disponíveis e ao clicar no logotipo da marca ele apenas lista na marca clicada.

    E todo conteudo é inserido a partir de um administrador.

    Alguém poderia me ajudar, muitos me disseram que tem varios sisteminhas já prontos na Internet, mas sinceridade eu já revirei e não achei desta forma.

    Peço encarecidamente ajuda de vocês.

    Luiz Gustavo.

    Obs.: Sou Iniciante na linguagem de ASP mas consigo trabalhar bem, porém todos me dizem que em PHP tem esse sistema mais fácil.

    Fico ansiosamente no aguardo... muito obrigado.

    beleza e muito simles fazer.

    me add no MSN que te dou umas dicas sergio_cacique@hotmail.com

  6. eu criei uma pagina de login no meu site queria fazer o seguinte, quando a pessoa se loga ele faz um update no banco alterando o status do usuario para ONLINE, mas muitos usuario sai do site em fazer o logoff e ele continua ONLINE, como que eu faço para que quando o usuario sair do site ou fechar o browser ele executear uma funcão em ASP para fazer o update no banco e mudar o status para OFFLINE.

    galera conseguir fazer em jquery, esta aqui o script para quem precisar.

    <script type="text/javascript">

    $(window).unload(function() {

    $.ajax( {

    url: "sair.asp"

    });

    });

    </script>

    abraço

  7. eu criei uma pagina de login no meu site queria fazer o seguinte, quando a pessoa se loga ele faz um update no banco alterando o status do usuario para ONLINE, mas muitos usuario sai do site em fazer o logoff e ele continua ONLINE, como que eu faço para que quando o usuario sair do site ou fechar o browser ele executear uma funcão em ASP para fazer o update no banco e mudar o status para OFFLINE.

  8. Estou quebrando a cabeça e não estou conseguindo achar uma solução

    estou tentando fazer o seguinte, quando acessar o meu site pelo computador ele abre normal, mas quando acessa o mesmo site pelo celular ele redirecionar para uma versao do site para mobile.

    como faria isso em ASP?

    estou tentando fazer com

    request.servervariables("http_user_agent")

    mas não consegui fazer nada.

  9. tenho esse script em asp que lê um xml

    mas como que eu faço para mostrar o ultimo registro, ele esta mostrando o primeiro, queria que mostrasse o ultimo registro.

    url2 = "http://pedronunes.mypodcast.com/rss.xml"
    Set xml = Server.CreateObject("MSXML2.DOMDocument.3.0")
    xml.async = False
    xml.SetProperty "ServerHTTPRequest", True
    xml.ValidateOnParse = False
    xml.PreserveWhiteSpace = False
    
    If Not xml.Load(url2) Then
      Response.Write "Nenhuma disponivel no momento."
    Else
      Set nodeList = xml.getElementsByTagName("item")
      For Each objNode In nodeList
        For Each objNode2 In objNode.childNodes
          Select Case objNode2.nodeName
            Case "title" : title = objNode2.lastChild.nodevalue
            Case "guid"  : guid  = objNode2.lastChild.nodevalue
            Case "enclosure" : enclosure  = objNode2.attributes.GetNamedItem("url").Text
          End Select
        Next
        'Response.Write "<a href='"& guid &"' target='_blank'>"& url &"</a>" & VbCrLf
        'Response.Write "<hr size='1'>" & VbCrLf
        titulo_post = title
        mp3_post = enclosure
      Next
      Set nodeList = Nothing
    End If
    
    Set xml = Nothing

  10. Pessoal como que eu faço para mostrar os video de meu canla no youtube, pelo que andei vendo na net o youtube disponiviliza um xml, mas não achei como visualizar o xml do meu canal.

    como faria isso??

    aqui vai o script para quem precisar

    ' Script ASP Para leitura de arquivos de RSS.
    url = "http://gdata.youtube.com/feeds/videos?max-results=1&alt=rss&lr=pt&orderby=published&author=pedronunestv" 'Aqui vai o endereço do arquivo RSS, ou do arquivo "gerador"
    
    ' Criando Objeto XML
    Set objXML = Server.CreateObject("msxml2.DOMDocument.3.0") 
    objXML.async = false 
    objXML.setProperty "ServerHTTPRequest", True 
    
    ' Não validar o arquivo
    objXML.validateOnParse =false' true 
    
    ' Retirar espaços 
    objXML.preserveWhiteSpace = false 
    
    blnLoaded = objXML.Load(url) 
    If Not blnLoaded Then 
        Response.write "Nenhum notícia na fonte!" 
    Else
        set objNodeList = objXML.getElementsByTagName("video_details") 
    
        Set objNodeList = objXML.getElementsByTagName("item") 
        For Each objNode In objNodeList 
            For Each objNode2 In objNode.childNodes 
                Select Case objNode2.nodeName 
                Case "link" 
                    strURL = objNode2.firstChild.nodevalue 
               End Select 
            Next 
    
            html = html &""& strURL &""
        Next 
    
        set objNodeList = Nothing 
    End if 
    
    youtubeurl = replace(html,"watch?v=","v/")
    
    <object width="390" height="289">
                    <param name="movie" value="<%=youtubeurl%>&hl=pt_BR&fs=1&"></param>
                    <param name="allowFullScreen" value="true"></param>
                    <param name="allowscriptaccess" value="always"></param>
                    <embed src="<%=youtubeurl%>&hl=pt_BR&fs=1&" type="application/x-shockwave-flash" allowscriptaccess="always" allowfullscreen="true" width="390" height="289"></embed>
                    </object>

  11. se você tem um numero fixo de registros a exibir use um (select top 99 *), ou também com um if verificando a quantia de registros...

    não tem um numero fixo de registro

    Bareta seria isso

    sql="select top 1 * from tabela order by id desc"
    set rs=conn.execute(sql)
    if not rs.eof then
    
    uid=rs("id")
    
    end if
    rs.close
    set rs=nothing
    
    sql="select * from tabela where id<>"&uid&" order by id desc"
    set rs=conn.execute(sql)
    ....

    que eu achei em um forum que você postou, mas aqui ele so não exibe o ultimo, como que eu faço para que ele não exibe os 2 ultimos registro?

  12. como que eu faço no asp para mostrar pra mim apartir do terceiro registro, tipo assim tenho 50 cadastro, ele não pode mostrar os 2 ultimos cadastro sempre do 3º em diante se cadastrar mais 2 registro dae esse 2 que não estava aparecendo aparecera e os 2 ultimos cadastrado não aparecerá

  13. certo, mas tem como eu pegar somente uma parte especifica do site, tipo assim baixo o site todo em asp

    veja o script abaixo, esse script traz o site todo, mas queria pegar somente uma parte do site, mesmo trazendo o site todo, teria como fazer um tratamento para esconder o que eu não quero de deixar a mostra somente o que eu quero.

    Function BinaryToString(xBinary)
    
    Dim Binary
    Dim RS, LBinary
    
    If VarType(xBinary)=8 Then Binary = MultiByteToBinary(xBinary) Else Binary = xBinary
    Const adLongVarChar = 201
    Set RS = CreateObject("ADODB.Recordset")
    LBinary = LenB(Binary)
    
    If LBinary>0 Then
    RS.Fields.Append "mBinary", adLongVarChar, LBinary
    RS.Open
    RS.AddNew
    RS("mBinary").AppendChunk Binary 
    RS.Update
    BinaryToString = RS("mBinary")
    Else
    BinaryToString = ""
    End If
    
    Set RS=Nothing
    
    End Function
    Function MultiByteToBinary(MultiByte)
    
    Dim RS, LMultiByte, Binary
    Const adLongVarBinary = 205
    
    Set RS = CreateObject("ADODB.Recordset")
    LMultiByte = LenB(MultiByte)
    
    If LMultiByte>0 Then
    RS.Fields.Append "mBinary", adLongVarBinary, LMultiByte
    RS.Open
    RS.AddNew
    RS("mBinary").AppendChunk MultiByte & ChrB(0)
    RS.Update
    Binary = RS("mBinary").GetChunk(LMultiByte)
    End If
    
    Set RS = Nothing
    MultiByteToBinary = Binary
    
    End Function
    
    dim objXMLHTTP
    Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
    Url = "http://www.gradualinvestimentos.com.br/portal/home.aspx"
    objXMLHTTP.Open "GET", URL, FALSE
    objXMLHTTP.Send
    sai=objXMLHTTP.responsebody
    set objXMLHTTP=nothing
    response.write BinaryToString(sai)

    Não, você só pode baixar a página inteira. Nesse caso, o melhor a fazer é achar um padrão para limitar as informações recebidas do site.

    Infelizmente o fato de baixar a página inteira vai deixar o processamento mais lento, mas não há outra opção.

  14. pessoal estou com esse script aqui abaixo, mas estou tendo uma dificuldade, como que eu faço para trazer somente a tabela de bolsa do canto direto do site?

    ele esta trazendo o site todo.

    <%
    Function BinaryToString(xBinary)
    
    Dim Binary
    Dim RS, LBinary
    
    If VarType(xBinary)=8 Then Binary = MultiByteToBinary(xBinary) Else Binary = xBinary
    Const adLongVarChar = 201
    Set RS = CreateObject("ADODB.Recordset")
    LBinary = LenB(Binary)
    
    If LBinary>0 Then
    RS.Fields.Append "mBinary", adLongVarChar, LBinary
    RS.Open
    RS.AddNew
    RS("mBinary").AppendChunk Binary 
    RS.Update
    BinaryToString = RS("mBinary")
    Else
    BinaryToString = ""
    End If
    
    Set RS=Nothing
    
    End Function
    Function MultiByteToBinary(MultiByte)
    
    Dim RS, LMultiByte, Binary
    Const adLongVarBinary = 205
    
    Set RS = CreateObject("ADODB.Recordset")
    LMultiByte = LenB(MultiByte)
    
    If LMultiByte>0 Then
    RS.Fields.Append "mBinary", adLongVarBinary, LMultiByte
    RS.Open
    RS.AddNew
    RS("mBinary").AppendChunk MultiByte & ChrB(0)
    RS.Update
    Binary = RS("mBinary").GetChunk(LMultiByte)
    End If
    
    Set RS = Nothing
    MultiByteToBinary = Binary
    
    End Function
    
    dim objXMLHTTP
    Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
    Url = "http://www.gradualinvestimentos.com.br/portal/home.aspx"
    objXMLHTTP.Open "GET", URL, FALSE
    objXMLHTTP.Send
    sai=objXMLHTTP.responsebody
    set objXMLHTTP=nothing
    response.write BinaryToString(sai)
    %>

  15. Pessoal já solucionei, veja abaixo o script

    <input type="checkbox" value="<%=resposta("CdResposta")%>" name="CdResposta" id="CdResposta" />
    CdResposta = Request("CdResposta")
    if CdResposta <> "" Then
    set rs = createobject("adodb.recordset")
    set rs.activeconnection = abredb
    SQL = "SELECT * FROM Resposta WHERE CdResposta IN ("&CdResposta&")"
    rs.open sql
    end if

×
×
  • Criar Novo...