|
|
<%
Set objRS2 = Server.CreateObject("ADODB.Recordset")
SQL2 = "SELECT * FROM tbNews ORDER BY new_codigo ASC"
objRS2.cursortype = adOpenForwardOnly
objRS2.locktype = adLockOptimistic
objRS2.cursorlocation = adUseClient
objRS2.open SQL2,objConn 'Aqui esta criando recordset
%>
<%
Set objRS = Server.CreateObject("ADODB.Recordset")
Dim SQL_TOP, top_new, top_gal
SQL_TOP = "SELECT * FROM tbTop"
objRS.open SQL_TOP,objConn
top_new = Eval(objRS("top_new"))
top_gal = Eval(objRS("top_gal"))
Set objRS = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT TOP " & top_new & " * FROM tbNews WHERE new_status = 'A' and new_principal = 'S' ORDER BY new_dt_inclusao DESC, new_codigo DESC"
objRS.cursortype = adOpenForwardOnly
objRS.locktype = adLockOptimistic
objRS.cursorlocation = adUseClient
objRS.open SQL,objConn
'Response.Write(SQL)
'Response.End()
%>
<%
If not objRS.EOF then
While Not objRS.EOF
new_codigo = Eval(objRS("new_codigo"))
new_foto_index = Trim(objRS("new_foto_index"))
new_titulo = Trim(objRS("new_titulo"))
new_lead = Trim(objRS("new_lead"))
new_conteudo = Trim(objRS("new_conteudo"))
If new_lead <> "" Then
If new_foto_index <> "" then%>
<%=new_titulo%> |
|
|
<%Else%>
| <%=new_titulo%> |
<%End If%>
<%Else
If new_foto_index <> "" then%>
<%=new_titulo%> |
|
<%=new_conteudo%> |
<%Else%>
| <%=new_titulo%> <%=new_conteudo%> |
<%End If%>
<%End If%>
 |
<%
objRS.MoveNext
Wend
End If
%>
 |
|
|
