<%
Dim Conn, rsnews
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConString
set rsnews = Server.CreateObject("ADODB.Recordset")
rsnews.Open "SELECT * FROM news where main=True ORDER BY fecha desc", Conn, adOpenForwardOnly, adLockOptimistic, adCmdText
while not rsnews.EOF
%>
|
|
<%
rsnews.MoveNext
wend
rsnews.Close
set rsnews= Nothing
Conn.Close
set Conn = Nothing
%>
