<%Response.Buffer=true%> <% 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,",") %> ALPHABETICAL | UP & IN FANTASY BASEBALL <%=year(date)%> DRAFT DAY
>> Click here to get back to HOME page <<


ALREADY GONE!! (Players already taken <%=year(date)%>. Alphabetical order.)

" & vbCrLf tst = posTest(Player)'put in alphas, column change 'rw "" & vbCrLf next end if %>
<% 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.FantasyTeam,tblDraft.MLBTeam,tblDraft.POS" arrayStr = "Player,FantasyTeam,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') order by tblDraft.Player" 'sql = "select Player, FantasyTeam, MLBTeam from tblDraft order by Player" '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,FantasyTeam,MLBTeam,Franchised,DraftNumber,Round,Position Player = trim(colArray(0,x)) FantasyTeam = trim(colArray(1,x)) 'Position = trim(colArray(2,x)) MLBTeam = trim(colArray(2,x)) Position = trim(colArray(3,x)) Position = right(Position,len(Position)-1) 'DraftNumber = trim(colArray(4,x)) 'Round = trim(colArray(5,x)) 'rw "
" & Player & ", " & MLBTeam & "(" & Position & ") " & FantasyTeam & ", round " & Round & "" rw "" & Player & " (" & Position & " - " & MLBTeam & ") [" & FantasyTeam & "]
" 'rw "
ROSTERS   |   HOME   |   Back to Top   
Copyright © 1999-<%=year(Date)%>, NEWMANIC Inc.   All rights reserved.
<% function rw (str) Response.Write str end function function posTest(str) 'check letter of field, if first of alpha, write a header if str <> "" then char = left(str,1) char = UCase(char) if char = storeLetter then 'same, nothing happens posTest = str else select case char case "M" 'halfway thru alpha. MUST have at least one letter "M" entry to work!! rw "" & vbCrLf 'rw "" rw "" rw "

" & char & "

" case else 'any other letter rw "

" & char & "

" end select storeLetter = char end if else posTest = str end if end function %>