tidtabell (tips)

tjenare.
jag ska knåpa ihop en tidtabell och behöver lite råd innan jag börjar.
det kommer väl att bli ca 10 kolumner och 10 rows i en tabell på sidan, hur loopar man ut dessa så att man kan fylla i alla fält på en gång och inserta med bara ett knapptryck?
jag är inte heller så sugen på att lägga ut alla dessa 100 textrutor direkt på sidan (som i detta ex. 10x10 rutor), hur bör man döpa textrutorna på sidan samt kolumnerna i databasen?
(kommer att använda access)

hur skulle ni göra???

välkomnar alla tips!

Här är ett ex. som uppgraderar tre kolumner.

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=d:\inetpub\wwwroot\db\tidtabell.mdb" 

redigera = Request.querystring("redigera")
uppdatera = Request.querystring("uppdatera")
fil = "d12.asp"%>
<%If request.form("knapp") = "Uppdatera" Then
for i = 1 to request.form("Id").count%>
<%
sql = "update tidtabell set Kol1 = '" & request.form("Kol1")(i) & "'," _
   & " Kol2 = '" & request.form("Kol2")(i) & "'," _
   & " Kol3 = '" & request.form("Kol3")(i) & "'" _
   & " where Id = " & request.form("Id")(i)
response.write sql
connect.execute sql,,128
next%>
<%tillbaka = request.form("tillbaka")
response.redirect tillbaka
End If

%>
<%Set RecSet = Server.CreateObject("ADODB.Recordset") %>
<% Visa = "SELECT * FROM tidtabell order by Kol1"
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic %> 
<TABLE>
<TR>
<TD>Kol1</TD>
<TD>Kol2</TD>
<TD>Kol3</TD>
</TR>

<%Do Until RecSet.EOF%>
<form method="POST" action="<%=fil%>?redigera=<% =redigera%>" name="uppdatera"> 
<input type=hidden name='Id' value='<% =RecSet("Id") %>'>
<TR>
<TD><%IF redigera = "redigera" THEN%>
<input type=text name='Kol1' size=8 value='<% =RecSet("Kol1") %>'>
<%Else%><% =RecSet("Kol1") %><%End If%></B></TD>

<TD><%IF redigera = "redigera" THEN%>
<input type=text name='Kol2' size=12 value='<% =RecSet("Kol2") %>'>
<%Else%><% =RecSet("Kol2") %><%End If%></B></TD>

<TD><%IF redigera = "redigera" THEN%>
<input type=text name='Kol3' size=16 value='<% =RecSet("Kol3") %>'>
<%Else%><% =RecSet("Kol3") %><%End If%></B></TD>
</TR>

<% RecSet.movenext %>
<%
loop
'End If
%>

<TR><TD colspan=2 bgcolor=yellow>
<input type="hidden" name="tillbaka" size=55 value="<%=fil%>?redigera=<% =redigera%>">
<%IF redigera = "redigera" THEN%>
<input type=submit name="knapp" value='Uppdatera'>
<%Else%><%End If%></TD>
<TD colspan=3></FORM></TD></TR>
</TABLE>

Hur du döper kolumnerna har väl ingen betydelse?