---
title: "tidtabell (tips)"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/39141-tidtabell-tips"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "doggelito"
published: "2002-03-07T09:36:00.000Z"
updated: "2002-03-07T15:46:09.000Z"
replies: 1
views: 186
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/39141-tidtabell-tips"
---

# tidtabell (tips)

## #1 — doggelito, 2002-03-07T09:36Z

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!

Permalänk: https://www.webforum.nu/p/39141

## #2 — evesve, 2002-03-07T15:46Z

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?

Permalänk: https://www.webforum.nu/p/621296

---

Tråden på webben: https://www.webforum.nu/amne/asp/39141-tidtabell-tips