GLHS
Lions: 2009 Division I Boys Soccer State Champions!
<%
Dim httphost
httphost = Lcase(Request.ServerVariables("HTTP_HOST"))
'strip host name of prefixes, down to domain only
If InStr( (InStr(httphost, ".") + 1), httphost, ".") > 0 Then
'prefix found
httphost = Mid( httphost, (InStr(httphost, ".") + 1), Len(httphost))
End If
Dim connection, cmd, rs, UIString
Set cmd = Server.CreateObject("ADODB.Command")
Set connection = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
'Open Connection
connection.ConnectionString = Application("NativeSQL_ConnectionString")
connection.Open
cmd.ActiveConnection = connection
cmd.CommandText = "SP_ANNOUNCEMENT_GET_DSCOMP"
cmd.CommandType = 4
cmd.Parameters(1).Value = httphost
rs.Open cmd, ,adOpenStatic
UIString = "
"
'build html
If rs.EOF Then
UIString = "No announcements for " + FormatDateTime(Now(), 1)
Else
Do Until rs.EOF
UIString = UIString & "
" & rs.Fields(0).Value & "
"
rs.MoveNext
Loop
End If
rs.Close
connection.Close
Set connection = Nothing
Set cmd.ActiveConnection = Nothing
Set cmd = Nothing
Set rs = Nothing
Response.Write UIString + "
"
%>
Gahanna Lincoln Lion Tickets
For tickets
to any
GLHS event contact Justin Sanford, Athletic Director
at 614.478.5518 during school hours, and thank you for
your support!
COACHES
and STATS PEOPLE! Email edits@dosports.us
to get your username and password. All Coaches and Stats people
must be approved by the GLHS Athletic Department.
Not
a member?click here to become one
now! Coming soon...
Click
here for schedules and game info powered by ScheduleStar!
Schedules are constantly updated with postponements / cancellations.
View, print, and sync to your phone or PDA. Click on the link above,
go to the schedule you want to view, print, or sync and the entire
season is at your fingertips!
<%
httphost = Lcase(Request.ServerVariables("HTTP_HOST"))
'strip host name of prefixes, down to domain only
If InStr( (InStr(httphost, ".") + 1), httphost, ".") > 0 Then
'prefix found
httphost = Mid( httphost, (InStr(httphost, ".") + 1), Len(httphost))
End If
Set cmd = Server.CreateObject("ADODB.Command")
Set connection = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
connection.ConnectionString = Application("NativeSQL_ConnectionString")
connection.Open
cmd.ActiveConnection = connection
'Set Cursor options for functionality
connection.CursorLocation = 3
rs.CursorLocation = 3
If Not IsNull(eid) And eid <> "" Then
Else
eid = 0
End If
cmd.CommandText = "SP_PICS_GET_LIST_DSCOMP"
cmd.CommandType = 4
cmd.Parameters(1).Value = httphost
rs.PageSize = 20
rs.Open cmd, ,adOpenStatic
startnbr = 1
If Request.Form.Count > 0 Then
Dim sortstr
sortstr = Request.Form("srtstr")
rs.Sort = sortstr
End If
If Request.Form("direction") = "1" Or IsNull(Request.Form("direction")) Or Request.Form("direction") = "" Then
startnbr = 1
ElseIf Request.Form("direction") = "f" Then
startnbr = Request.Form("startnbr") + 20
Else
startnbr = Request.Form("startnbr") - 20
End If
If Not rs.EOF Then
rs.AbsolutePosition = startnbr
End If
%>
<%
rs.Close
connection.Close
Set connection = Nothing
Set cmd.ActiveConnection = Nothing
Set cmd = Nothing
Set rs = Nothing
%>
Thank
you advertisers!
Thank
you advertisers!
Thank
you advertisers!
ADVERTISERS:
Please send your ad changes to edits@dosports.us.
Type "name of business" in the subject box. Thank
you!
Do
Sports® web sites! Copyright 2007.
This web site and its content is the exclusive property of the Gahanna Lincoln High School Athletic Program
and is protected by copyright law.