<%@ Language=VBScript %> <% Response.Buffer = true Response.Expires = -1000 pagetitle = "directv" set Conn = Server.CreateObject("ADODB.Connection") Conn.Open(Session("ConnectString")) qry = "SELECT * FROM [Promos] WHERE [Type] = 'DTV';" set promos = Conn.Execute(qry) %> DirecTV - Sky View Video

">Click Here for the DirecTV Programming Guide

<% if not (promos.EOF and promos.BOF) then %>

Current DirecTV Promotions
    <% while not promos.EOF %>
  • <% = replace(promos("Text"), vbcr, "
    ") %>
    • <% promos.MoveNext %> <% wend %>
<% end if %>