<% set conn = new connection
set rs = server.CreateObject("ADODB.RecordSet")
%>
“Universo Oriental” es un programa de radio sobre cultura oriental y astrología que conduzco y produzco desde hace un par de años. Enviá un mail a info@victoriastro.com.ar si querés recibir información sobre el programa. Hacé clic en las fotos para ver a Victoria junto a la periodista invitada Dominique Metzger.
<% If (request.QueryString("fecha")= "") then
SQL = "select * from Radio order by fecha DESC"
rs.open SQL, conn.cn, 1, 1
else
dim fechavar, fechars
fechavar = CDate(request.Querystring("Fecha"))
set rs2 = server.CreateObject("ADODB.RecordSet")
SQL = " select * from Radio order by fecha DESC"
rs.open SQL, conn.cn, 1, 1
fechars = rs("fecha")
do while not rs.eof and ( fechavar <> fechars )
rs.movenext
fechars = rs("fecha")
loop %>
<% end if %>
<%
dim mes, dia, yea
mes = Month(rs("fecha"))
yea = year(rs("fecha"))
dia = day(rs("fecha"))
mes = MonthName(mes)
response.write(dia)
response.Write(" ")
response.Write(mes)
response.Write(" ")
response.Write(yea) & " " & rs("titulo")
%>
<% if rs("imagen")<>"" then %>
" width="220" height="180" border="0" alt="">
<% else %>
)
)
)