Reluviari

cara é isso sim cara mais tudo bem criar a barra não é problema o problema é faze-la rolar automaticamentetenho esse codigo aqui

<script language=JavaScript>
<!--
var position = 0;
function scroller() {
if (position != 320) {
position++;
scroll(0,position);
clearTimeout(timer);
var timer = setTimeout("scroller()",3); timer;
}
else
{
location.replace("#");
}
}
//-->
</SCRIPT>

voce pode usar a Função Hint mais não aparece em baixo e sim em baixo(como no windows) se quiser tenho um modelo aqui


qualquer coisa é só falar lzzz

valeu cara era isso mesmo Foi um vacilo da minha parte não visualizar onde eu colocaria isso mais Obrigado mesmo cara

Eis aki o código completo(caso alguém tenha dúvida também)

<%

id=request.QueryString("cliente")
RS = ""

Set RS = Server.CreateObject("adodb.recordset")



RS.PageSize = 1


SQL = "select * From Clientesfone where cliente = '"& id &"' "

RS.Open SQL,Conn,3,3

IF RS.EOF then
Response.Write "nenhum registro encontrado"
Response.End 'paramos o programa
ELSE
'Definindo em qual pagina o visitante está
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



set RS2 = conn.execute("select * From Tipostelefone where Tipotelefone = ' "& RS("Tipotelefone") &" '")

%>
<LINK href="css/style.css" type=text/css rel=stylesheet>

<div id="Layer1" style="position:absolute; left:150px; top:114px; height:px; z-index:5">

<table width="98%">

<tr>
<td>
<a href="dadosgerais.asp?cliente=<%=request.QueryString("cliente")%>" class="Links"><img src="imagens/aba_dados.gif" border="0"></a>&nbsp;
<a href="enderecos.asp?cliente=<%=request.QueryString("cliente")%>" class="Links"><img src="imagens/aba_enderecos.gif" border="0"></a>&nbsp;
</td>

<td width="17%" align="right">
<a href="java script:history.go(-1)"><img src="imagens/aba_voltar.gif" border="0"></a>
</td>

</tr>
</table>

<table width="98%">

<tr>
<td align="center" bgcolor="#336699" height="16"><font color="#EFFF00" size="2" face="Verdana"><b>Telefones</b></font></td>
</tr>

</table>


<table width="98%">

<tr class="label">
<td>Tipo de Telefone</td>
</tr>

<tr class="dados">

<%do while not RS2.eof%>
<td>
<%response.write RS2("descricao")%>
</td>
</tr>
<%RS2.movenext
loop%>

</table>

<table width="98%">

<tr class="label">
<td>Ddd</td>
<td>Telefone</td>
<td>Ramal</td>
</tr>

<tr class="dados">
<td><%response.write RS("ddd")%></td>
<td><%response.write RS("telefone")%></td>
<td><%response.write RS("ramal")%></td>
</tr>
</table>

<table width="98%">

<tr class="label">
<td>Contato</td>
</tr>

<tr class="dados">
<td><%response.write RS("contato")%></td>
</tr>



<tr>

<td align="center">
</table>

</div>
</body>


<%

RS.MoveNext
' Acrescenta +1 ao contador
intrec=intrec+1
'Se for EOF (fim de arquivo), imprimir branco na tela
IF RS.EOF then
response.write " "
END IF
Wend 'fim do loop

'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”.
IF intpagina > 1 then
%>
<div id="Layer1" style="position:absolute; left:45%; top:280px; height:px; z-index:5">

<a class="linkmenuglobal" href="fones.asp?cliente=<%=request.querystring("cliente")%>&pagina=<%=intpagina-1%>"><< Anterior</a>
</div>

<%
END IF

'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página
IF strcomp(intpagina,RS.PageCount) <> 0 then
%>

<div id="Layer1" style="position:absolute; left:55%; top:280px; height:px; z-index:5">

<a class="linkmenuglobal" href="fones.asp?cliente=<%=request.querystring("cliente")%>&pagina=<%=intpagina + 1%>">Próxima >></a>
</div>

<%
END IF
%>

e ai camarão

como vc me disse o codigo é esse mais quero aprender como se faz também blzzz

obrigadom pela ajuda caras...


<%

id=request.QueryString("cliente")
RS = ""

Set RS = Server.CreateObject("adodb.recordset")



RS.PageSize = 1


SQL = "select * From Clientesender where cliente = '"& id &"' "

RS.Open SQL,Conn,3,3

IF RS.EOF then
Response.Write "nenhum registro encontrado"
Response.End 'paramos o programa
ELSE
'Definindo em qual pagina o visitante está
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



set RS2 = conn.execute("select * From TiposEndereco where TipoEndereco = ' "& RS("TipoEndereco") &" '")

%>


<body>

<div id="Layer1" style="position:absolute; left:150px; top:114px; height:px; z-index:5">

AQUI FICAM AS TABELAS ONDE MOSTRO OS DADOS

</DIV>

</BODY>
.................................AQUIE ESTAO OS BOTOES..........................

<a class="link" href="enderecos.asp?cliente=<%=request.querystring("cliente")%>&pagina=<%=intpagina-1%>">Anterior</a> -

<a class="link" href="enderecos.asp?cliente=<%=request.querystring("cliente")%>&pagina=<%=intpagina + 1%>">Próxima</a>


<%

RS.MoveNext
' Acrescenta +1 ao contador
intrec=intrec+1
'Se for EOF (fim de arquivo), imprimir branco na tela
IF RS.EOF then
response.write " "
END IF
Wend 'fim do loop

'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”.
IF intpagina > 1 then
%>
<%
END IF

'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página
IF strcomp(intpagina,RS.PageCount) <> 0 then
%>
<%
END IF
%>

mais nao sei onde fica esse target e quial a meria certa de se colocar

please obrigado