alonciu

Olá, eu dei uma olhada ai onde voce falou, mas não entendi muito bem...bom..de qualquer jeito eu achei um outro tutorial que quase deu certo! aparece somente um video por pagina e na primeira pagina aparece escrito, 'Proximo', mas quando eu clico em proximo, não muda o video e some o proximo e não aparece anterior...eu não to conseguindo entender o por que desses erros... vou postar o codigo novo aqui: Primeira parte: <% Set Conn = Server.CreateObject("AdoDb.Connection") Conn.Open = "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=projetotrixx;User=root;Password=alezinhh" Dim Conexao,rs,strSQL Dim video,nome_video,data,varCodigo Function ConverterDataBanco(ConDataBanco) ConDataBanco = Year(ConDataBanco) &"-"& Right("0"&Month(ConDataBanco),2) &"-"& Right("0"&Day(ConDataBanco),2) ConverterDataBanco = ConDataBanco End Function data = ConverterDataBanco(Date()) Set RS = Server.CreateObject("adodb.recordset") RS.PageSize = 1 strSQL = "select * from videos order by codigo desc" RS.Open strSQL,Conn,3,3 IF RS.EOF then Response.Write "nenhum registro encontrado" Response.End ELSE IF Request.QueryString("pagina")="" then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))<1 then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))> RS.PageCount then intpagina=RS.PageCount ELSE intpagina=Request.QueryString("pagina") END IF END IF END IF END IF intrec=0 %> Segunda parte(aqui é onde eu peço para aparecer o video, o proximo e tudo mais): <table width="559" border="0"> <tr> <td colspan="2"><p><b>Selecione abaixo o video que deseja ver:</b></p> <p>Último video adicionado: <b><% =rs("data_de_inclusao") %></b></p></td> </tr> <% While intrec < RS.PageSize and not RS.EOF varCodigo = rs("codigo") %> <tr> <td width="248"><b><% =rs("nome_do_video") %></b> - <% =rs("data_de_inclusao") %></td> <td width="301">&nbsp;</td> </tr> <tr> <td rowspan="2"><object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,0,0" name="player" width="250" height="200" align="middle" id="player"> <param name="movie" value="player.swf?file=<%=rs("video")%>&size=false&aplay=false&autorew=false&title=" /> <param name="menu" value="false" /> <param name="quality" value="high" /> <param name="bgcolor" value="#FFFFFF" /><param name="SCALE" value="noborder"> <embed src="player.swf?file=<%=rs("video")%>&size=false&aplay=false&autorew=false&title=" width="320" height="240" align="middle" menu="false" quality="high" bgcolor="#FFFFFF" name="player" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" scale="noborder" /> </object></td> <td height="174" align="left"> <% =rs("descricao") %> </td> </tr> <tr> <td align="left"><a href="visu.asp?varCodigo=<%=varCodigo%>">Visualizar em tamanho real</a> </td> </tr> <tr> <td colspan="2">_______________________________________________________________________________</td> </tr> <tr> <td colspan="2">&nbsp;</td> </tr> <% rs.MoveNext intrec=intrec+1 IF RS.EOF then response.write " " END IF Wend IF intpagina > 1 then %> <a href="videos.asp?pagina=<%=intpagina-1%>">Anterior</a> <% End if iF strcomp(intpagina,RS.PageCount) <> 0 then %> <a href="videos.asp?pagina=<%=intpagina + 1%>">Próxima</a> <% End if %> <tr><td><a href="java script:history.go(-1)">Voltar</a></td></tr> </table> alguém me mostra o que está errado por favor! Obrigado!

Perdão, eu atualizei a página denovo e apareceu o seguinte erro : "O conjunto de registros atual não oferece suporte para indicadores. Isso pode ser uma limitação do provedor ou do tipo de cursor selecionado.", engraçado que eu nem mudei nada! Mas continua apontando para a mesma linha!

Ae boa noite galera, estava tentando fazer uma paginação pro site do meu grupo de dança, só que na hora que eu fui rodar, deu esse erro : "Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito." nesta linha -> RS.AbsolutePage=intpagina vou colocar essa parte do codigo: <% IF RS.EOF then Response.Write "nenhum registro encontrado" Response.End ELSE IF Request.QueryString("pagina")="" then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))<1 then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))> RS.PageCount then intpagina=RS.PageCount ELSE intpagina=Request.QueryString("pagina") END IF END IF END IF END IF RS.AbsolutePage=intpagina intrec=0 While intrec < RS.PageSize and not RS.EOF varCodigo = rs("codigo") %> poxa..to me ralando a algum tempo para fazer isso, pois faz um tempo que eu não mexia com programação web...voltei umas semanas atrás e não estou conseguindo fazer isso...se alguém puder me ajudar, agradeço MUITO mesmo viu! Obrigado e boa noite!

Gente eu não sei se é aqui mesmo que eu tenho que perguntar sobre isso ... masssssss.... tem um programinha que meu pai fez no exel, e ele fez um esquema que ele analiza como que andaum as ações e tudo mais...ai ele pediu pra mim criar alguma coisa que, as açoes que estaum lá no ´programa dele se atualizem automaticamente...tipo assim.. está escrito lá numa tabelinha mais ou menos assim: Nome da ação: Valor: ABCE4 12,05 ai tem como quando em algum site o valor mudar de 12,05, o programinha do meu pai se atualiza automaticamente puxando as informações desse site?! agradeço desde já! =)