<%Response.Buffer=true%> <% tm = trim(Request.QueryString("tm")) if tm <> "" then if isnumeric(tm) then tm = cint(tm) if (tm > 13) or (tm < 0) then tm = 0 end if else tm = 0 end if aTeam = split(teamStr,",") aOwner = split(ownerStr,",") %> ROSTERS | UP & IN FANTASY BASEBALL <%=year(date)%> DRAFT DAY
UPandIN.net DRAFT DAY ROSTERS <%=year(date)%>

<% for x = LBound(aTeam) to UBound(aTeam) select case x case 0 Response.Write "" case 1 Response.Write "" case 2 Response.Write "" case 3 Response.Write "" case 4 Response.Write "" case 5 Response.Write "" case 6 Response.Write "" case 7 Response.Write "" case 8 Response.Write "" case 9 Response.Write "" case 10 Response.Write "" case 11 Response.Write "" case 12 Response.Write "" case 13 Response.Write "" end select Response.Write "" & ucase(aTeam(x)) & "  |  " next %>
<% 'for y = 0 to 5 aX = 0 'reset position counters a=Catcher, etc. bX = 0 cX = 0 dX = 0 eX = 0 fX = 0 with response .Write "" .Write "" .Write "" .Write "" .Write "" .Write "" .Write "" .Write "" .Write "" end with storeLetter = "" 'init 'fieldStr = "Outlines.OutlineID,Courses.CourseNumber,Courses.CourseTitle,Outlines.RetiredTerm,Outlines.Updated,Admin.First,Admin.Last,Outlines.CourseID,Courses.DeptAbbr" fieldStr = "tblDraft.Player,tblDraft.MLBTeam,tblDraft.POS" arrayStr = "Player,MLBTeam,POS" strArray = split(arrayStr,",") set conn = server.CreateObject("ADODB.Connection") set rs = server.CreateObject("ADODB.Recordset") sql = "select " & fieldStr & " from tblDraft where not (tblDraft.Player='UNKNOWN')and tblDraft.FantasyTeam = '" & aTeam(tm) & "' order by tblDraft.POS" 'rw sql 'Response.End rs.Open sql,connstring if rs.eof = true and rs.bof = true then 'no records rw " There are No PLAYERS " & vbCrLf rs.Close:set rs = nothing else 'records colArray = rs.GetRows(-1,0,strArray)'specify fields rs.Close:set rs = nothing cols = UBound(colArray,1) rows = UBound(colArray,2) numRecs = rows + 1 for x = 0 to rows Player = trim(colArray(0,x)) MLBTeam = trim(colArray(1,x)) Position = trim(colArray(2,x)) if not isnull(Position) then Position = right(Position,len(Position)-1) with response .Write "" .Write "" .Write "" .Write "" .Write "" end with select case Position case "C" aX = aX + 1 case "1B" bX = bX + 1 case "2B" cX = cX + 1 case "3B" dX = dX + 1 case "SS" eX = eX + 1 case "OF" fX = fX + 1 case "P" gX = gX + 1 end select next with response .Write "" .Write "" .Write "" end with Response.write "Positions still needed:    " if (aX < 2) then Response.Write "C: " & (2-aX) & "    " if (bX < 2) then Response.Write "1B: " & (2-bX) & "    " if (cX < 2) then Response.Write "2B: " & (2-cX) & "    " if (dX < 2) then Response.Write "3B: " & (2-dX) & "    " if (eX < 2) then Response.Write "SS: " & (2-eX) & "    " if (fX < 6) then Response.Write "OF: " & (6-fX) & "    " if (gX < 6) then Response.Write "P: " & (6-gX) Response.Write "
" & aTeam(tm) & "
PLAYERPOSTEAM
" & Player & "" & Position & "" & MLBTeam & "
" & aOwner(tm) & "
" end if 'next %>
Copyright © 1999-<%=year(date)%>, NEWMANIC Inc.   All rights reserved.
<% function rw (str) Response.Write str end function %>