<%
if rss.state <> adStateClosed then rss.close
rss.Open "SELECT * FROM tarifas where activo= true",Connn,AdOpenKeyset
if rss.EOF then
response.write " Consulte por tarifas y promociones.
"
else
for i = 1 to rss.PageSize
session("fecha") = rss.Fields ("fecha")
Avalores = Split(session("fecha"),"/")
session("fechadia")= Avalores(0)
session("fechames")= Avalores(1)
session("fechaanio")= Avalores(2)
session("fecha")=session("fechames") & "/" & session("fechadia") & "/" & session("fechaanio")
cont = rss.Fields("tarifas")
'Comentario = replace (cont, chr(13), " ")
Comentario = cont
%>
<%= Comentario %>
<%
rss.MoveNext
if rss.EOF then
exit for
else
' next
end if
next
end if
rss.Close
set rss= nothing
%>
|