sæt et positions tal i en TD

Hej jeg har denne siden som henter nogle resultater som jeg har fået lov til af dbu

http://www.billundfodbold.dk/bif/team&results/get_team_results.asp

det jeg godt kunne tænke mig er noget som der kan sætte et tal ind i en TD og derefter + dette tal med 1 i den næste TD.

Jeg mener at hvis jeg i min response.write kan lave en <td></td>foran holdnavnet så den ved den første til skrive 1 den næste som den laver vil den skrive 2 osv osv så jeg foran min liste for hvert hold har fra 1 til X alt efter hvor mange hold der er.  udskrift ville se sådan her ud:
1. Varde IF 11 10 1 0 67 4 31
2. Esbjerg fB 11 10 0 1 40 6 30
3. Grindsted GIF 11 9 1 1 54 10 28
osv osv og ikke som nu uden er tal foran.

Kan det lade sig gøre !?

Min kode som henter og udskriver listen er:
<%
  Dim strResult
 
  Set HttpObj = Server.CreateObject("AspHTTP.Conn")
  HttpObj.Url = trim("  http://www.dbu.dk/sr/position.aspx?poolid=17131&year=2005  ")
  HttpObj.FollowRedirects = True
  HttpObj.RequestMethod = "GET"
  HttpObj.UserAgent = "Mozilla/2.0 (compatible; MSIE 3.0B; Windows NT)"
  strResult = HttpObj.GetURL

  Dim Read, ReadEnd, Team, Pulje
  response.write "<table border=""1"">"
' spring til første tabel
    Read=instr(1,strResult,"POSITION START")
    Read=instr(Read,strResult,"</table")
   
' Loop for TeamX og PuljeX *******************
' læs linjer og skriv data
    while Read > 0
      Team="&nbsp;"
      Games="&nbsp;"
      Won="&nbsp;"
      Uaf="&nbsp;"
      Def="&nbsp;"
      Mfor="&nbsp;"
      Mimod="&nbsp;"
      Point="&nbsp;"
' vi søger TeamX
      Read = instr(Read,strResult,"linkSR") + 8
      ReadEnd = instr(Read,strResult,"<")
      Team = mid(strResult,Read,ReadEnd-Read)
' vi søger GamesX
      Read = instr(Read,strResult,"<td")
      Read = instr(Read,strResult,">")
      Read = instr(Read,strResult,"<td")
      Read = instr(Read,strResult,">") + 1
      ReadEnd = instr(Read,strResult,"<")
      Games = mid(strResult,Read,ReadEnd-Read)
' vi søger WonX
      Read = instr(Read,strResult,"<td")
      Read = instr(Read,strResult,">")
      Read = instr(Read,strResult,"<td")
      Read = instr(Read,strResult,">") + 1
      ReadEnd = instr(Read,strResult,"<")
      Won = mid(strResult,Read,ReadEnd-Read)
' vi søger UafX
      Read = instr(Read,strResult,"<td")
      Read = instr(Read,strResult,">") + 1
      ReadEnd = instr(Read,strResult,"<")
      Uaf = mid(strResult,Read,ReadEnd-Read)
' vi søger DefX
      Read = instr(Read,strResult,"<td")
      Read = instr(Read,strResult,">") + 1
      ReadEnd = instr(Read,strResult,"<")
      Def = mid(strResult,Read,ReadEnd-Read)
' vi søger MforX
      Read = instr(Read,strResult,"<td")
      Read = instr(Read,strResult,">")
      Read = instr(Read,strResult,"<td")
      Read = instr(Read,strResult,">") + 1
      ReadEnd = instr(Read,strResult,"<")
      Mfor = mid(strResult,Read,ReadEnd-Read)
' vi søger MimodX
      Read = instr(Read,strResult,"<td")
      Read = instr(Read,strResult,">")
      Read = instr(Read,strResult,"<td")
      Read = instr(Read,strResult,">") + 1
      ReadEnd = instr(Read,strResult,"<")
      Mimod = mid(strResult,Read,ReadEnd-Read)
' vi søger PointX
      Read = instr(Read,strResult,"<td")
      Read = instr(Read,strResult,">")
      Read = instr(Read,strResult,"<td")
      Read = instr(Read,strResult,">") + 1
      ReadEnd = instr(Read,strResult,"<")
      Point = mid(strResult,Read,ReadEnd-Read)

      Response.Write "<tr><td>" & Team & "</td><td>" & Games & "</td><td>" & Won & "</td><td>" & Uaf & "</td><td>" & Def & "</td><td>" & Mfor & "</td><td>" & Mimod & "</td><td>" & Point & "</td></tr>"
' er der flere team
      Read = instr(Read,strResult,"<table")
    wend
  Set HttpObj = nothing
  response.write "</table>"
%>