opdatere alle kolonner i database

Hejsa

Jeg har en tabel med 53 kolonner (uge1, uge2, uge3 osv.).
Jeg vil gerne opdatere disse kolonner med et tal som hentes fra en formular, men har ikke lyst til at sidde og skrive "update tabel set uge1 = 'tal fra form', uge2 = 'tal fra form' osv".
Er der en nemmere metode ??

Jeg har prøvet med dette:

Set rsDB = Server.CreateObject("ADODB.Recordset")
sql = "Select * From arbejdstimer"
rsDB.Open sql, Conn
i = 1
Do While Not rsDB.EOF
Set rsUpdate = Server.CreateObject("ADODB.Recordset")
sqlUpdate = "Update arbejdstimer Set uge"&i&" = '" & Request.Form("ugetimer1") & "'"
rsUpdate.Open sqlUpdate, Conn, 1, 3
i = i + 1
rsDB.Movenext
Loop

men får kun opdateret den 1'ste kolonne (uge1) i databasen

/Mickill