<% Option Explicit %> <% Dim O_News, A_NewsItems, A_News, L_NewsID, I_Counter, S_CurrentDate Dim S_Date, S_Title, S_Body L_NewsID = Request.QueryString("News") S_CurrentDate = WeekDayName(WeekDay(Date())) & ", " & MonthName(Month(Date())) & " " & Day(Date()) & ", " & Year(Date()) Set O_News = Server.CreateObject("SquadStudio.News") O_News.SetDSN = Application("DSN") O_News.SetSiteID = Application("SiteID") If O_News.GetAllNewsBySite(200) Then A_NewsItems = O_News.GetData End If If Len(L_NewsID) = 0 And IsArray(A_NewsItems) Then L_NewsID = A_NewsItems(0,0) End If If O_News.GetNews(CLng(L_NewsID)) Then A_News = O_News.GetData S_Date = WeekDayName(WeekDay(A_News(1,0))) & ", " & MonthName(Month(A_News(1,0))) & " " & Day(A_News(1,0)) & ", " & Year(A_News(1,0)) S_Title = A_News(2,0) S_Body = A_News(3,0) S_Body = replace(S_Body, vbcrlf, "
") End If %> drive-thru records

<% =S_CurrentDate %>

<% =S_Date %>
<% =S_Title %>

<% =S_Body %>

<% IF IsArray(A_News) Then For I_Counter = 0 To UBound(A_News, 2) If Not IsNull(A_News(4, I_Counter)) Then %> ">

<% End If Next End IF %>
<% If IsArray(A_NewsItems) Then For I_Counter = 0 To UBound(A_NewsItems, 2) %> <% =A_NewsItems(3, I_Counter) %> 
<% =A_NewsItems(4, I_Counter) %> 

<% Next End If %>