Problem med for loop

3 svar · 148 visningar · startad av Wiklund!! 4 dec. 2003

Wiklund!!Medlem sedan juli 2002549 inlägg

Frågan4 dec. 2003 19:41#1

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å?

SebbeMedlem sedan jan. 20032 285 inlägg

4 dec. 2003 19:44#2

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. :)

Wiklund!!Medlem sedan juli 2002549 inlägg

4 dec. 2003 19:54#3

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

SebbeMedlem sedan jan. 20032 285 inlägg

4 dec. 2003 20:17#4

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