smez

Membros
  • Content Count

    339
  • Joined

  • Last visited

Community Reputation

0 Neutro

About smez

  • Birthday 12/29/1983

Contatos

Perfil

  • Gender
    Male
  • Location
    Votorantim
  • Interests
    ASP, C#.Net, Ajax e SilverLight
  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