<%
tabela=request.QueryString("tb") ' videos nome da tabela
if tabela=null or tabela="" then
tabela="videos"
End if
b=request.QueryString("b") ' 5 qdade de linhas
numer=""
numer=request.QueryString("nm") ' num da noticia princ
cat=request.QueryString("Cat") 'categoria menu esq.
if cat="" or cat=null or cat="99" then
if cat<>"99" then
cat=""
End if
sSQLop = "SELECT * FROM "& tabela &" ORDER BY numero"
else
sSQLop = "SELECT * FROM "& tabela &" WHERE Categoria='"& Cat &"' ORDER BY numero"
b=5
End if
set RsOp=Server.CreateObject("ADODB.Recordset")
RsOp.Open sSQLop, sDSN, adOpenKeySet, adLockPessimistic
if not RsOp.Eof then
RsOp.Movefirst
a=RsOp("numero")
End if
if RsOp.Eof or numer="" then
a=1
numer="1"
End if
if cat<>"" then
numer=a
End if
Do Until RsOp.Eof or (a/numer)=1
RsOp.MoveNext
if Not RsOp.Eof then
a=RsOp("numero")
End if
Loop
if not RsOp.Eof then
%>
<% if b=0 then b=50 End if a=0 Do Until Rsop.Eof or a>b %>  "> <%= RsOp("titulo") %><% a=a+1 RsOp.MoveNext Loop RsOp.Close Set RsOp = Nothing %> <% End if %> |
<%= RsCat("texto1") %> |
 " width="249" height="300"> |
<% if RsCatx("imagem1")<>"" then %> " target="blank"> " border="0" alt="<%= RsCatx("alt1") %>"> <% end if %>
<% if RsCatx("imagem2")<>"" then %> " target="blank">" border="0" alt="<%= RsCatx("alt2") %>"> <% end if %>
<% if RsCatx("imagem3")<>"" then %> " target="blank">" border="0" alt="<%= RsCatx("alt3") %>"> <% end if %>
<% if RsCatx("imagem4")<>"" then %> " target="blank">" border="0" alt="<%= RsCatx("alt4") %>"> <% end if %>
|