<%
'On error resume next
SearchString = "Select * from Promotions where b_Promo_Active<>0 " & _
"ORDER BY b_Promo_Featured DESC, dt_Promo_PostedDate DESC "
Response.Write SearchString
Verify_Connections()
set SearchSet = createobject("ADODB.Recordset")
SearchSet.Open SearchString, session("DB_CONNECTION"), 1, 1, -1
%>
<% If (SearchSet.EOF and SearchSet.BOF) then %>
Westfield
Shoppingtown Century City 10250 Santa Monica
Blvd.
Los ANgeles, California 90067
Telephone: (310) 553-1855
Fax: (310) 553-1455
Email: info@harperscenturycity.com
<% Else %>
<% SearchSet.MoveFirst %>
<% If "" & SearchSet.fields("u_Promo_Title") <> "" then %>
<%="" & SearchSet.fields("u_Promo_Title")%>
<% End If %>
<% If "" & SearchSet.fields("u_Promo_Short_Body") <> "" then %>
<%="" & SearchSet.fields("u_Promo_Short_Body")%>
<% End If %>
<% If "" & SearchSet.fields("u_Promo_Footer") <> "" then %>
<%="" & SearchSet.fields("u_Promo_Footer")%>
<% End If %>
<% End If %>
|
