<% 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.

Contactar" 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 %>