-
Total de itens
328 -
Registro em
-
Última visita
Posts postados por smez
-
-
help
-
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 %>
-
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??
-
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) -
-
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%>"> <%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???
-
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
-
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???
-
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
-
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.
-
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.
-
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
-
-
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
-
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>
-
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?
-
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á
-
como que eu faria em expressão regular?
-
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.
-
não esta em frame
não tem como pegar uma parte especifica do site?
-
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) %>
-
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
-
pessoal eu tenho uma enquete no site de um cliente, mas o cliente que enquete com múltiplas respostas como que eu faço
-
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
registro repetidos
em ASP
Postado
Resolvido
SELECT 1
depois do loop fiz assim
e no SELECT 2
fiz assim