opdater

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db.mdb")
Conn.Open DSN

For Each Id in Request.Form("id")
%>
<% do while not EOF %>
<%

  strSQL     = "Update barometer SET " _
        & "alder = " & Request.Form("alder" & Id) & ", "_
        & "klasse = '" & Request.Form("klasse" & Id) & "', "_
        & "patter = " & Request.Form("patter" & Id) & ", "_
        & "roev = " & Request.Form("roev" & Id) & ", "_
        & "krop = " & Request.Form("krop" & Id) & ", "_
        & "cme = " & Request.Form("cme" & Id) & ", "_
        & "aksp = '" & Request.Form("aksp" & Id) & "', "_
        & "kommentar = '" & Request.Form("kommentar" & Id) & "' "_
        & "WHERE id = " & Id
%>
<% loop %>
<% movenext %>
<%
Next   
Conn.execute(strSQL)

Conn.Close 
Set Conn = Nothing
response.redirect("default1.asp")
%>
<html>

<head>
<title></title>
</head>

<body>
</body>
</html>

Denne kode bruger jeg til at opdatere en masse oplysninger på en gang

Men den melder fejl
Active Server Pages error 'ASP 0113'

Script timed out

/update.asp

The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeout or by changing the value in the IIS administration tools.

Er der noget galt med scriptet ?