Jump to content
Fórum Script Brasil

smez

Membros
  • Posts

    328
  • Joined

  • Last visited

Everything posted by smez

  1. smez

    registro repetidos

    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. smez

    registro repetidos

    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. smez

    HORARIO

    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. fiz corretamento como o exemplo do Ted K' mas esta dando o seguinte erro depois que o facebook retorna para o meu site Microsoft VBScript runtime error '800a0009' Subscript out of range: '[number: 0]' /login.asp, line 121 splitvar = split(request("signed_request"), ".") linha 121 encoded_sig = splitvar(0) playload = splitvar(1)
  5. smez

    ASPJpeg

    sim, mas como que eu faço para aplicar na foto sem precisar salvar no servidor?
  6. smez

    ASPJpeg

    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???
  7. smez

    Sistema de Administrador

    beleza e muito simles fazer. me add no MSN que te dou umas dicas [email protected]
  8. smez

    dias da semana

    galera como que eu faço para criar automaticamente dos dias da semana quero criar assim segunda terça quarta quinta sexta sabado domingo quero criar dinamicamente. alguém poderia me ajudar???
  9. smez

    Usuario Online

    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
  10. smez

    Usuario Online

    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.
  11. smez

    Site Mobile

    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.
  12. pessoal estou tentando fazer o seguinte em no meu banco de dados gravado o seguinte endereço http://www.youtube.com/watch?v=gxQiWc7Nids do youtube como que eu faço para mostrar pra mim somente o que esta depois do ?v= que seria "gxQiWc7Nids" estou tentando trazer somente o gxQiWc7Nids do registro do banco mas não estou conseguinto
  13. smez

    asp + xml

    onde eu colocaria?
  14. smez

    asp + xml

    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
  15. 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>
  16. 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?
  17. 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á
  18. smez

    Microsoft.XMLHTTP

    como que eu faria em expressão regular?
  19. smez

    Microsoft.XMLHTTP

    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)
  20. smez

    Microsoft.XMLHTTP

    não esta em frame não tem como pegar uma parte especifica do site?
  21. smez

    Microsoft.XMLHTTP

    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) %>
  22. 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
  23. pessoal eu tenho uma enquete no site de um cliente, mas o cliente que enquete com múltiplas respostas como que eu faço
  24. smez

    Soma da errado

    bareta fiz desse jeito que você passou, mas continua o mesmo problema, na primeira tentativa ele funciona normal, já segunda em diante já não funciona
×
×
  • Create New...