Atualizar Conexao

marcos_804 · Outubro 16, 2004

GALERA AQUI TEM UM CODIGO MEU, GOSTARIA DE SABER COMO FAÇO PARA QUE O CODIGO QUE VEM EM VERMELHO ATUALIZE A CADA 10 SEGUNDOS:

<html>
<head>
<title>Leoncarlos & Luciane - Diverso, cultura e entretenimento</title>
<link rel="stylesheet" type="text/css" href="estilo.css">
<script language="JavaScript" type="text/javascript">
//abre a janela de legenda do album
function album(){
window.open("fotos/total.htm","album","width=680,height=430");
}//fim dessa funcao
function album1(){
window.open("fotos_fam.htm","Famlia","width=680,height=430");
}//fim dessa funcao
//abre a janela de legenda do album
function contato(){
window.open("contato.htm","contato","width=220,height=250");
}//fim dessa funcao
</script>
<script language=Javascript>
function preview1(){
if (name1.value == ""){
div1.innerHTML = "<p align=center><b> necessrio um nome de cidade!!<br>Aps digitar clique de novo em 'ver cdigo'!!</b></p>"}
else{
div1.innerHTML = "http://www.tempoagora.com.br/selos/custom/selo.php?cid="+ name1.value + ";" }
}
function name1change(){
name1.value = name2.value
}
</script>
</head>
<body leftmargin="2" topmargin="0" oncontextmenu="return false;" bgcolor="ffffff">
<table border="0" width="750" bordercolor="#000000">
<%
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("journal.mdb")
sqlstmt = "SELECT * FROM banco ORDER BY id DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sqlstmt, DSNtemp, 3, 3
TotalRecs = rs.recordcount
x = 0
If rs.eof then
Else
menu = rs("menu")
id = rs("ID")
meio = rs("meio")
direito = rs("direito")
menuBaixo = rs("menuBaixo")
meuTurismo = rs("meuTurismo")
tempo = rs("tempo")
musicasDireito = rs("musicasDireito")
recomendoDireito = rs("recomendoDireito")
avisoAssina = rs("avisoAssina")
description = name1
%>
<tr>
<td width="150" class="1" valign="top">
<%=menu%>
<%=menuBaixo%>
</td>
<td class="1" valign="top">
<TABLE WIDTH="447">
<tr>
<td class="1" valign="top">
<marquee onmouseover=sspeed=0>:::::::::Divirta-se ouvindo estas músicas e baixando-as:::::::::</marquee>
</td>
</tr>
<%
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("journal.mdb")
sqlstmt = "SELECT * FROM musica ORDER BY id DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sqlstmt, DSNtemp, 3, 3
TotalRecs = rs.recordcount
x = 0
For x = 1 to 100
If rs.eof then
Exit For
Else
cantor = rs("cantor")
id = rs("id")
musica = rs("musica")
Lmusica = rs("Lmusica")
link = "<a title=""Música: '"& musica &"' ::::: Cantor: '" & cantor &"' "" href='" & Lmusica &"'><b>Cantor:</b> <span style='font-weight:bold;color:#235689'>" & cantor & "</span><br><b>Música:</b> <span style='font-weight:bold;color:#235689;text-decoration:underline'>" & musica & "</span>::<br><span style=""font-family:arial;font-size:10;color:#000000"">Web Designer: Marcos Oliveira <b>marcos_804@yahoo.com.br</b>"
%>
<tr>
<td id="link">
<%=link%>
</td>
</tr>
<%
rs.MoveNext
End If
Next%>
</table>
</td>
<td width="150" class="1" valign="top">
<%=direito%>
<%=musicasDireito%>
<%=recomendoDireito%>
</td>
</tr>
<tr>
<td colspan="3" id="barra1">Web design: <i><font color="#FFFF00">Marcos Oliveira</font></i>
<a href="javascript:contato()">(marcos_804@yahoo.com.br)</a></font></td>
</tr>

<%
End If
%>

</table>

</body>
</html>

Editado: Para usar as Tags COLOR, ou Negrito, ou qualquer outra, dentro de Codigos, use QUOTE para o codigo!

Editado Outubro 16, 2004 por dark0

cyberalexxx · Outubro 16, 2004

Para atualizar a pagina a cada 10 segundos:

Response.AddHeader "Refresh", "60"

Entrar

Atualizar Conexao

Pergunta

marcos_804

Link para o comentário

Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

cyberalexxx

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades