<%Response.Buffer=true%> <% yere = "2004" 'hard wired teamStr ="ARoids,Black Sox,The Griz,Hairy Robots,Mal Carne,The Minors,Nuts & Bolts,Peckerheads,Pilots,Riding Pine,Seatsniffers,Swedish Fish,Worthless Bums,Empty" aTeam = split(teamStr,",") %> ROSTERS | UP & IN FANTASY BASEBALL <%=yere%> DRAFT DAY
>> Click here to get back to HOME page <<


UPandIN.net DRAFT DAY ROSTERS <%=yere%>

<% for x = LBound(aTeam) to UBound(aTeam) select case x case 0,1,2 Response.Write "" case 3,4,5 Response.Write "" case 6,7,8 Response.Write "" case 9,10,11 Response.Write "" case else 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(y) & "' 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 next with response .Write "" .Write "" .Write "" .Write "
" & aTeam(y) & "
PLAYERPOSTEAM
 " & Position & "  
Owner
" end with end if next %>
STATS   |   ROSTERS   |   LINKS   |   RULES   |   HISTORY   |   HOME   |   Back to Top   
Copyright © 1999-<%=yere%>, NEWMANIC Inc.   All rights reserved.
<% function rw (str) Response.Write str end function %>