<%
Dim conexion, registros, basedatos
Set conexion = Server.CreateObject("ADODB.Connection")
conexion.Open oConn
Set registros = conexion.execute("SELECT * FROM vianewsnoticia where tipo = "& request.querystring("tipo")&" ORDER BY titulo ASC")
Do While Not registros.EOF
%>
|
|
<%
registros.MoveNext
Loop
registros.Close
Set registros = Nothing
conexion.Close
Set conexion = Nothing
%>