Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

celi

Adptar Slide de notícias

Por , em ASP Clássico

Recommended Posts

celi    0

celi
Postado

Salve galera muito boa noite a todos, vejam bem: gostaria de saber se poderiam me ajudar a adaptar um slide nesta parte para fazer com que as notícias ficam trocando aleatoriamente? Vejam o código: 

<!-- #include file="config.asp" --><%session.LCID=1046%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>

<head>

 

<title>Notícias</title>

</head>

 

<body bgcolor="white" text="black" link="blue" vlink="purple" alink="red">

<table width="99%" height="0" border="0" cellpadding="0" cellspacing="0">

<tr>

<td width="99%"> </td>

<td width="1%"> </td>

</tr>

<tr>

<td><p><font face="Tahoma"><span style="font-size:10pt;">

<%

Set nt1 = Server.CreateObject("ADODB.Recordset")

nt1.Open "SELECT * from noticias order by id desc", DB

Contar = 0

Do while not nt1.Eof

News = nt1("News")

Categoria = nt1("Categoria")

Categorias = nt1("Categorias")

Horas = nt1("Hora")

id = nt1("id")

IF Contar > 2 Then

exit do

end if

if Classe1 = "Politica" Then

%>

</span></font><font face="Arial" color="#666666"><strong><span style="font-size:10pt;"></span><span style="font-size:13pt;"><a href="ver.asp?id=<%=nt1("id")%>"><font face="Tahoma,Arial"><span style="font-size:10pt;">

<%Response.Write Titulo%>

</span></font></a></span></strong></font><font face="Tahoma"><span style="font-size:10pt;">

</span></font><font face="TimesTen Italic" color="#666666"><b><span style="font-size:12pt;">

</span></b></font><font face="Tahoma"><span style="font-size:10pt;"> </span></font>

<table width="54" border="0" align="left" cellpadding="0" cellspacing="2">

<tr>

<td width="50"> <p><a href='ver.asp?id=<%=nt1("id")%>'><font face="Tahoma,Arial"><span style="font-size:17pt;"><img src="<%=nt1("imagem")%>" width="440" height="102" border="0"></span></font></a></td>

</tr>

</table>

<p align="left"><span style="font-size:13pt;"><a href="ver.asp?id=<%=nt1("id")%>"><font face="Tahoma,Arial"><span style="font-size:10pt;">

</span></font></a><a href="ver.asp?id=<%=nt1("id")%>"><font face="Tahoma,Arial"><span style="font-size:10pt;">

<%Response.Write News%>

</span></font></a><font face="Tahoma"><span style="font-size:13pt;">

<%

Contar = Contar + 1

end if

nt1.Movenext

Loop

%>

</span></font></span></td>

<td> </td>

</tr>

<tr>

<td><div align="justify"><span style="font-size:13pt;"></span></div></td>

<td> </td>

</tr>

</table>

<p> </p>

</body>

 

</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

seria igual mostrar essas dicas aleatórias ou citações em seu site,

 


    <%
    DIM mySQL, objRS
    mySQL = "SELECT MAX(fID) AS MaxTip FROM tblContent_Quick_Tips"
    Set objRS = Server.CreateObject("ADODB.Recordset")
    objRS.Open mySQL, objConn

    Randomize
    DIM intRecord
    intRecord = Int(objRS("MaxTip") * Rnd + 1)
    objRS.Close
    Set objRS = Nothing

    mySQL2 = "SELECT fTip FROM tblContent_Quick_Tips WHERE fID = '" & intRecord & "'"
    Set objRS2 = Server.CreateObject("ADODB.Recordset")
    objRS2.Open mySQL2, objConn

    Response.Write objRS2("fText")

    objRS2.Close
    Set objRS2 = Nothing
    %>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito