%@ Language=VBScript %> <% Function getScores(level, sport) 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") 'Open Connection connection.ConnectionString = Application("NativeSQL_ConnectionString") connection.Open cmd.ActiveConnection = connection cmd.CommandText = "SP_SCORES_GET_DSCOMP" cmd.CommandType = 4 cmd.Parameters(1).Value = httphost cmd.Parameters(2).Value = CInt(level) cmd.Parameters(3).Value = CInt(sport) rs.Open cmd, ,adOpenStatic 'build html UIString = "" If rs.EOF Then UIString = "No scores posted, please check back shortly for updates... " + FormatDateTime(Now(), 1) Else Do Until rs.EOF UIString = UIString & "
| " + FormatDateTime(rs.Fields(2).Value,1) + " " + rs.Fields(13).Value + " " + rs.Fields(6).Value + " " + rs.Fields(12).Value + " " + rs.Fields(5).Value + " |
| " + FormatDateTime(rs.Fields(2).Value,1) + " |
| "
If rs.Fields(11).Value <> "" And Not IsNull(rs.Fields(11).Value) Then
'image
UIString = UIString & " " UIString = UIString & rs.Fields(8).Value & " " If rs.Fields(10).Value <> "" And Not IsNull(rs.Fields(10).Value) Then 'image UIString = UIString & "" & rs.Fields(9).Value & " " End If UIString = UIString & " |
" UIString = UIString & "
|
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Do Sports web sites! londonredraiders.com, copyright 2007. [Feedback] [Email Athletic Director] [Email Booster Club President] [Do Sports® Jobs!]
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||