<% Option Explicit %>
<%
Function IsBlankOrNull(val)
If IsNull(val) or val = "" Then
IsBlankOrNull = True
Else
IsBlankOrNull = False
End If
End Function
Function NullIfBlank(val)
If val="" Then
NullIfBlank = Null
Else
NullIfBlank = val
End If
End Function
%>
<%
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
With conn
.ConnectionString = strConn
.CursorLocation = adUseClient
End With
conn.Open()
Dim comm, rs
Set comm=Server.CreateObject("ADODB.Command")
With comm
.ActiveConnection = conn
.CommandText = "calendarEventSelectScrolling"
.CommandType = adCmdStoredProc
.Parameters.Append( .CreateParameter ("categoryId", adInteger, adParamInput, 4, NullIfBlank(Request.QueryString("categoryId")) ) )
End With
Set rs = comm.Execute()
'Response.Write("Record Count: " & rs.RecordCount & "
")
'Response.End
comm.ActiveConnection = Nothing
Set comm = Nothing
%>
<%
Dim theLink
Dim scrollerContent, bNeedLineBreak
scrollerContent = ""
bNeedLineBreak = False
If rs.EOF Then
scrollerContent = "(No events available)"
Else
Do While Not rs.EOF
If Not IsBlankOrNull(rs("startDate").Value) Then
scrollerContent = scrollerContent & "" & MonthName(Month(rs("startDate").Value)) & " " & Day(rs("startDate").Value) & ", " & Year(rs("startDate").Value) & "
"
End If
If Not IsBlankOrNull(rs("name").Value) Then
scrollerContent = scrollerContent & ""
End If
If Not IsBlankOrNull(rs("link").Value) Then
theLink = rs("link")
If Left(theLink,7) <> "http://" Then theLink = "http://" & theLink
scrollerContent = scrollerContent & ""
Else
'
End If
If Not IsBlankOrNull(rs("name").Value) Then
scrollerContent = scrollerContent & rs("name").Value & "
"
bNeedLineBreak = False
Else
bNeedLineBreak = True
End If
If Not IsBlankOrNull(rs("link").Value) Then
scrollerContent = scrollerContent & ""
End If
If Not IsBlankOrNull(rs("name").Value) Then
scrollerContent = scrollerContent & ""
End If
If bNeedLineBreak Then
scrollerContent = scrollerContent & "
"
bNeedLineBreak = False
End If
If Not IsBlankOrNull(rs("startDate").Value) Then
If DatePart("H", rs("startDate").Value) = 0 Then
'scrollerContent = scrollerContent & " " & FormatDateTime(rs("startDate").Value,2) & "
"
Else
scrollerContent = scrollerContent & " " & Replace(FormatDateTime(rs("startDate").Value,3),":00 ","") & "
"
End If
bNeedLineBreak = False
Else
bNeedLineBreak = True
End If
If Not IsBlankOrNull(rs("location").Value) Then
scrollerContent = scrollerContent & " " & rs("location").Value & "
"
bNeedLineBreak = False
Else
bNeedLineBreak = True
End If
If Not IsBlankOrNull(rs("description").Value) Then
scrollerContent = scrollerContent & " " & Replace(rs("description"), vbcrlf, "
") & "
"
bNeedLineBreak = False
Else
bNeedLineBreak = True
End If
scrollerContent = scrollerContent & "
"
If bNeedLineBreak Then
scrollerContent = scrollerContent & "
"
bNeedLineBreak = False
End If
If Not IsBlankOrNull(rs("calendarCategoryName").Value) Then
If CInt(Request.QueryString("categoryId")) <> CInt(rs("requestingCalendarCategoryId").Value) Then
scrollerContent = scrollerContent & " (" & Replace(rs("requestingCalendarName"), vbcrlf, "
") & ")
"
End If
End If
scrollerContent = scrollerContent & "
"
rs.movenext
Loop
End If
rs.Close
Set rs = Nothing
conn.Close()
Set conn = Nothing
%>
var scrollerContent=new Array()
scrollerContent.push("<%=Replace(Replace(Replace(scrollerContent, vbCrLf, "\n" ),"/","\/"),"""","\""")%>");
scrollerContent.push(scrollerContent[0]);
/***********************************************
* Pausing up-down scroller- © Dynamic Drive (www.dynamicdrive.com)
* This notice MUST stay intact for legal use
* Visit http://www.dynamicdrive.com/ for this script and 100s more.
***********************************************/
function Scroller(content, divId, divClass, delay, imgId, startImageName, stopImageName){
this.content=content //message array content
this.tickerid=divId //ID of ticker div to display information
this.delay=delay //Delay between msg change, in miliseconds.
this.mouseoverBol=1 //Boolean to indicate whether mouse is currently over scroller (and pause it if it is)
this.hiddendivpointer=1 //index of message array for hidden div
document.write(''+content[0]+'
'+content[1]+'