Problem med for loop

Jag har en tabell med 31 fält i, day1, day2, day3 osv.
Sen har jag den här koden:

For X = 1 To DatePart("d",DateSerial(year(now),month(now)+1,0))

response.write "<b>Day "&X&"</b><br>"
response.write "<textarea name=""day"&X&""" cols=""90"" rows=""5"" class=""input3"">"&rs("dayX")&"</textarea>"
response.write "<br><br>"

Next

Jag vill ju skriva ut fältet day och sen X. Men vad jag vet så kan man inte lägga ihop ett recordset med en variabel.

Finns det nått annat sätt jag kan göra på?

For X = 1 To DatePart("d",DateSerial(year(now),month(now)+1,0))
  response.write "<b>Day "&X&"</b><br>"
  response.write "<textarea name=""day"&X&""" cols=""90"" rows=""5"" class=""input3"">"&rs("day" & X)&"</textarea>"
  response.write "<br><br>"
Next

Tror jag nog ska funka. :)

Tackar fungerade fint.

Har tyvärr problem med en grej till:

For X = 1 To DatePart("d",DateSerial(year(now),month(now)+1,0))

Dayy X = Request.Form("day"&X&"")
Dayy X = replace(Dayy & X, "'", "''")

Connect.Execute "UPDATE happenings SET day & X = '"& Request.Form("day"&X&"") &"'",,128
Next

For X = 1 To DatePart("d",DateSerial(year(now),month(now)+1,0))
  Connect.Execute "UPDATE happenings SET day" & X & " = '" & Request.Form("day" & X) & "'",,128
Next

Är dock inte säker på att det där funkar, om det inte gör det så testa det här:

For X = 1 To DatePart("d",DateSerial(year(now),month(now)+1,0))
  Connect.Execute "UPDATE happenings SET day" & X & " = '" & Request.Form(Eval("day" & X)) & "'",,128
Next