<%
Function FormatTime(datArgTime)
strAMPM = ""
If Hour(datArgTime) > 12 Then
strReturn = (Hour(datArgTime) - 12) & ":"
strAMPM = "PM"
Else
strReturn = Hour(datArgTime) & ":"
strAMPM = "AM"
End If
If Minute(datArgTime) < 10 Then
strReturn = strReturn & "0" & Minute(datArgTime)
Else
strReturn = strReturn & Minute(datArgTime)
End If
strReturn = strReturn & " " & strAMPM
FormatTime = strReturn
End Function
Function getHappyHourConfigs(intArgHappyHourID)
Set rsConfigs = objHappyHours.getHappyHourConfigs(CLng(intArgHappyHourID))
strHappyHourConfigs = ""
strLastToken = ""
If Not rsConfigs Is Nothing Then
Do While Not rsConfigs.EOF
If strLastToken = "" Then
strLastToken = rsConfigs("GroupToken")
strFirstWeekdayInString = WeekdayName(rsConfigs("DayOfWeek"),True,2)
End If
If strLastToken = rsConfigs("GroupToken") Then
strStartTime = FormatTime(CDate(rsConfigs("StartTime")))
strEndTime = FormatTime(CDate(rsConfigs("EndTime")))
strTemp = rsConfigs("Description") & ": " & strFirstWeekdayInString & "-" & WeekdayName(rsConfigs("DayOfWeek"),True,2) & ", " & strStartTime & "-" & strEndTime
Else
strHappyHourConfigs = strHappyHourConfigs & strTemp & " "
strFirstWeekdayInString = WeekdayName(rsConfigs("DayOfWeek"),True,2)
strTemp = rsConfigs("Description") & ": " & strFirstWeekdayInString & "-" & WeekdayName(rsConfigs("DayOfWeek"),True,2) & ", " & strStartTime & "-" & strEndTime
End If
strLastToken = rsConfigs("GroupToken")
rsConfigs.MoveNext
If rsConfigs.EOF Then
strHappyHourConfigs = strHappyHourConfigs & strTemp
End If
Loop
End If
getHappyHourConfigs = strHappyHourConfigs
End Function
%>
<%response.ContentType="text/XML"%>
downtownla.com Happy Hours
http://downtownla.com
Happy Hours in Downtown LA
<%
Set rsHappyHours = objHappyHours.getAllHappyHours()
If Not rsHappyHours Is Nothing Then
Do While Not rsHappyHours.EOF
strFormattedDetails = Server.HTMLEncode(rsHappyHours("LocationName") & " " & rsHappyHours("StreetAddress") & "