webForumDet fria alternativet
Logga in / Bli medlem

Uppdatera flera ID

ASP

19 svar · 306 visningar · startad av evesve

evesveMedlem sedan sep. 2001163 inlägg
Frågan#1

Nytt problem igen!
Den här koden fungerar fint där jag kan klicka på personnummer och på redigera.asp-sidan redigera uppgifter.

<% Set RecSet = Server.CreateObject("ADODB.Recordset")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic %>

<TR>
<TD><A HREF="lista.asp?ordning=<%=sorteraPN%>">Personnummer</A></TD>
<TD><A HREF="lista.asp?ordning=<%=sorteraEN%>">Efternamn</TD>
<TD><A HREF="lista.asp?ordning=<%=sorteraRN%>">Resultat</TD></TR>

<%	Do Until RecSet.EOF %>
<TR>
<TD COLSPAN=1><a href="redigera.asp?ID= <% =RecSet("Nr") %> "><B><%=RecSet("Personnummer")%></B></a></TD>
<TD COLSPAN=1><B><% =RecSet("Efternamn") %></B></TD>
<TD COLSPAN=1><% =RecSet("Resultat") %></TD></TR>

<% RecSet.MoveNext
Loop
RecSet.Close %>

Eftersom jag aldrig blir nöjd så vill jag få upp sidan lista.asp med alla medlemmarna där alla fält utom personnummer visas som textfält som ska kunna redigeras och uppdateras allihop med en submitknapp.
Helst vill jag att man kommer tillbaka till lista.asp efter uppdateringen
Här är en grund som självfallet inte fungerar. Men jag har inte kommit längre.

<% Set RecSet = Server.CreateObject("ADODB.Recordset")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic %>

<form method="POST" action="lista.asp?ID=<% =ID %>" name="ad"><TR>
<TD><A HREF="lista.asp?ordning=<%=sorteraPN%>">Personnummer</A></TD>
<TD><A HREF="lista.asp?ordning=<%=sorteraEN%>">Efternamn</TD>
<TD><A HREF="lista.asp?ordning=<%=sorteraRN%>">Resultat</TD></TR>

<%	Do Until RecSet.EOF %>
<TR>
<TD COLSPAN=1><a href="redigera.asp?ID= <% =RecSet("Nr") %> "><B><%=RecSet("Personnummer")%></B></a></TD>
<TD COLSPAN=1><B><% =RecSet("Efternamn") %></B></TD>
<TD COLSPAN=1><% =RecSet("Resultat") %></TD></TR>

<% RecSet.MoveNext
Loop
RecSet.Close %>
<%Set RecSet = Server.CreateObject("ADODB.Recordset")
 Uppdatera = "SELECT * FROM databas WHERE Nr = " &ID 
RecSet.Open Uppdatera, Connect, adOpenStatic, adLockOptimistic
RecSet.Update

tillbaka = url
response.redirect tillbaka %>

Nån som vill ändra min dåliga kod?

LarsGMedlem sedan dec. 200012 464 inlägg
#2

listsidan

<html>
<body>
<form action='redigera.asp' method=POST>

<TR>
<TD><A HREF="lista.asp?ordning=<%=sorteraPN%>">Personnummer</A></TD>
<TD><A HREF="lista.asp?ordning=<%=sorteraEN%>">Efternamn</A></TD>
<TD><A HREF="lista.asp?ordning=<%=sorteraRN%>">Resultat</A></TD></TR>

<%
'
'open database connection
'
  Set RecSet = Server.CreateObject("ADODB.Recordset")
  RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic %>
  Do Until RecSet.EOF
%>
<input type=hidden name='nr' value='<% =RecSet("nr") %>'>
<TR>
<TD COLSPAN=1><B>
<input type=text name=personnr value='<% =RecSet("personnummer") %>' readonly></B></TD>
<TD COLSPAN=1><B><input type=text name='efternamn' value='<% =RecSet("Efternamn")%>'></B></TD>
<TD COLSPAN=1><input type=text name='resultat' value='<% =RecSet("Resultat") %>'></TD></TR>
<% 
  RecSet.movenext %>
  loop 
%>
<input type=submit value='Uppdatera'>
</body>
</html>

redigeringssidan


<%
'open database connection
for i = 1 to request.form("nr").count
    sql = "update database set efternamn = '" & request.form("efternamn")(i) & "'," _
        & " resultat = '" & request.form("resultat")(i) & "'" _
        & " where nr = " & request.form("nr")(i)
    connect.execute sql,,128
next
'close database
response.redirect lista.asp
%>

------------------
essentitia preter non sans multiplicandum

evesveMedlem sedan sep. 2001163 inlägg
#3

Jag får ett felmeddelande vid

connect.execute sql,,128

Är det för att jag inte kör med SQL?

LarsGMedlem sedan dec. 200012 464 inlägg
#4

Vad får du för felmeddelande och hur ser din kod ut?

Första argumentet till execute är det sql-statement som skall exekveras.

------------------
essentitia preter non sans multiplicandum

evesveMedlem sedan sep. 2001163 inlägg
#5

lista.asp

<% response.buffer = true %> 
<%Response.Expires = 0 	%>		
<%Response.ExpiresAbsolute = Now() - 1%>
<html>
<!--#include file="Huvud.asp" -->
<!-- #include virtual="adovbs.inc" -->
<!-- #include virtual="grund.inc" -->			
<!-- #include file="../inloggning/check-b-1.inc" -->
<!--#include file="session.asp" -->
<body>
<%Dim Connect
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=d:\inetpub\wwwroot\db\adressboken.mdb" %>

<%Set RecSet = Server.CreateObject("ADODB.Recordset")%>

<% Addera = "SELECT * FROM databas ORDER BY "&ordna%>

<%RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic %>
<form action='redigeralista.asp' method=POST> 
<TABLE border=0 BGCOLOR=gray cellpadding=0 cellspacing=0 style='font-family:verdana; font-size:10pt;'>
<TR><TD colspan=4 bgcolor=white></td></TR>

<TR>
<TD WIDTH=70></td>
<TD WIDTH=110></td>
<TD WIDTH=70></td>
<TD WIDTH=50></td></TR>
<TR>
<TD><A HREF="lista.asp?ordning=<%=sorteraPN%>">Personnummer</A></TD>
<TD><A HREF="lista.asp?ordning=<%=sorteraEN%>">Efternamn</A></TD>
<TD><A HREF="lista.asp?ordning=<%=sorteraRN%>">Resultat</A></TD> 
<TD></TD></TR>
<%
'
'open database connection
'
Do Until RecSet.EOF
%>
<input type=hidden name='nr' value='<% =RecSet("nr") %>'>
<TR>
<TD COLSPAN=1><B><input type=text name=personnr value='<% =RecSet("Personnummer") %>' readonly></B></TD>
<TD COLSPAN=1><B><input type=text name='efternamn' value='<% =RecSet("Efternamn")%>'></B></TD>
<TD COLSPAN=1><input type=text name='resultat' value='<% =RecSet("resultat") %>'></TD>
<TD COLSPAN=1><input type=text name='resultat' value='<% =RecSet("resultat") %>'></TD></TR>
<% RecSet.movenext %>

<%loop 
End If%>
</TABLE>
<input type=submit value='Uppdatera'>

</body>
</html>

redigeralista.asp

<%
'open database connection
for i = 1 to request.form("nr").count
sql = "update database set efternamn = '" & request.form("efternamn")(i) & "'," _
& " resultat = '" & request.form("resultat")(i) & "'" _
& " where nr = " & request.form("nr")(i)
connect.execute sql,,128
next
'close database
response.redirect lista.asp
%>

hoppas jag fått med allt väsentligt.
Jag kör en del med include-filer.
Fel:
Körningsfel i Microsoft VBScript fel '800a01a8'

Objekt krävs.: 'connect'

[Redigerat av evesve den 06 okt 2001]

LarsGMedlem sedan dec. 200012 464 inlägg
#6
<%
Dim Connect,sql,i
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=d:\inetpub\wwwroot\db\adressboken.mdb" 

for i = 1 to request.form("nr").count
sql = "update database set efternamn = '" & request.form("efternamn")(i) & "'," _
& " resultat = '" & request.form("resultat")(i) & "'" _
& " where nr = " & request.form("nr")(i)
connect.execute sql,,128
next
connect.close
set connect = nothing
response.redirect lista.asp
%>

Jag lade aldrig med öppningen av databasen då jag inte visste hur det skulle set ut i din miljö.

------------------
essentitia preter non sans multiplicandum

evesveMedlem sedan sep. 2001163 inlägg
#7

Då får jag
Syntaxfel i UPDATE-uttryck vid

connect.execute sql,,128
LarsGMedlem sedan dec. 200012 464 inlägg
#8

Heter din tabell databas? Jag råkade skriva database i tidigare inlägg.

Vilka datatyper har dom olika kolumnerna?

Jag har antagit att nr är numeriskt och att efternamn och resultat är text.

Kan du lägga in en testutskrift av sql-satsen (enligt nedan) och lägga in den här så får vi se.

for i = 1 to request.form("nr").count
sql = "update databas set efternamn = '" & request.form("efternamn")(i) & "'," _
& " resultat = '" & request.form("resultat")(i) & "'" _
& " where nr = " & request.form("nr")(i)
response.write sql
connect.execute sql,,128
next

------------------
essentitia preter non sans multiplicandum

[Redigerat av LarsG den 06 okt 2001]

evesveMedlem sedan sep. 2001163 inlägg
#9

nr är en räknare
resten text.
nu får jag:
update databas set efternamn = 'LARSSONn', resultat = '' where nr = 2700
Microsoft OLE DB Provider for ODBC Drivers fel '80040e10'

[Microsoft][Drivrutin för ODBC Microsoft Access] För få parametrar angavs. 1 förväntades.
vid:


connect.execute sql,,128

Vad innebär 128?

LarsGMedlem sedan dec. 200012 464 inlägg
#10

SQL-satsen ser ok ut syntaxmässigt. Det felet brukar vara att något kolumnnamn inte stämmer med tabelldefinitionen.

Jag såg en grej på lista.asp sidan

<TD COLSPAN=1><input type=text name='resultat' value='<% =RecSet("resultat") %>'></TD>

Den raden råkade komma med två gånger.

128 innebär bara att man inte skapar något recordset när man utför frågan.

------------------
essentitia preter non sans multiplicandum

evesveMedlem sedan sep. 2001163 inlägg
#11

Den raden hade jag redan upptäckt, men jag hittade till slut ett annat skräptecken som smugit sig in.
Nu fungerar uppdateringen! Tackar!
Det är bara respons.redirekt som måste uppgraderas.
jag har när jag öppnar sidan en massa tillägg:
lista.asp?ordning=0901PNo&enheter=09&gamla=
men det löser jag nog.
Huvudproblemet är under kontroll !!!

Nästa sak att fundera på är om man kan lägga ut ett extra textfält som lägger in samma text i alla öppna fält i samma kolumn.
Men det är nog dags att sova nu!
Tack igen!

evesveMedlem sedan sep. 2001163 inlägg
#12

Nu fungerar koden perfekt.
Jag gjorde ett försök att stoppa in all kod på en sida.
Då fick jag först en halvsida med alla uppdateringarna uppräknade, sen kom den riktiga sidan fram.
Är alternativet möjligt, d.v.s. någon form av "rensa sidan" efter uppdateringen innan sidan laddas in?

<% response.buffer = true %> 
<%Response.Expires = 0 	%>		
<%Response.ExpiresAbsolute = Now() - 1%>
<html>
<!--#include file="Huvud.asp" -->
<!-- #include virtual="adovbs.inc" -->
<!-- #include virtual="grund.inc" -->			
<!-- #include file="../inloggning/check-b-1.inc" -->
<!--#include file="session.asp" -->
<body>

<%session("uppdalla") = trim(request.querystring("uppdalla"))
uppdalla = session("uppdalla")%>

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

<%If uppdalla = uppdalla Then
for i = 1 to request.form("nr").count%>
<%
sql = "update databas set efternamn = '" & request.form("efternamn")(i) & "'," _
& " resultat = '" & request.form("resultat")(i) & "'" _
& " where nr = " & request.form("nr")(i)
response.write sql
connect.execute sql,,128
next
End If
%>

<%Set RecSet = Server.CreateObject("ADODB.Recordset")%>

<!-- #include file="Request.asp" -->

<%RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic %>
<form action='lista.asp?Ordning=<%=allt%>&uppdalla=uppdalla' method=POST> 
<TABLE border=0 BGCOLOR=gray cellpadding=0 cellspacing=0 style='font-family:verdana; font-size:10pt;'>
<TR><TD colspan=4 bgcolor=white></td></TR>

<TR>
<TD WIDTH=50></td>
<TD WIDTH=120></td>
<TD WIDTH=70></td>
<TD WIDTH=50></td></TR>
<TR>
<TD><A HREF="lista.asp?ordning=<%=sorteraPN%>">Personnummer</A></TD>
<TD><A HREF="lista.asp?ordning=<%=sorteraEN%>">Efternamn</A></TD>
<TD><A HREF="lista.asp?ordning=<%=sorteraSN%>">resultat</A></TD> 
<TD></TD></TR>
<%
Do Until RecSet.EOF
%>
<input type=hidden name='nr' value='<% =RecSet("nr") %>'>
<TR>
<TD><B><input type=text name=personnr value='<% =RecSet("Personnummer") %>' readonly></B></TD>
<TD><B><input type=text name='efternamn' value='<% =RecSet("Efternamn")%>'></B></TD>
<TD><input type=text name='resultat' value='<% =RecSet("resultat") %>'></TD></TR>
<TD></TD></TR>
<% RecSet.movenext %>
<%
loop 
End If
%>
</TABLE>
<input type=text name='ordna' size=35 value='lista.asp?ordning=<% =allt %>'>
<input type=submit value='Uppdatera'>

</body>
</html>

Jag har testat med att byta ut "resultat" mot "förnamn" utan problem
Däremot om jag lägger in "förnamn" som ett fjärde fält så får jag fel:
[Microsoft][Drivrutin för ODBC Microsoft Access] Syntaxfel (operator saknas) i frågeuttrycket ''SVEN ANDERS' soldnr = '1234''.

<input type=hidden name='nr' value='<% =RecSet("nr") %>'>
<TR>
<TD><B><input type=text name='personnr' size=12  value='<% =RecSet("Personnummer") %>' readonly></B></TD>
<TD><B><input type=text name='efternamn' size=18 value='<% =RecSet("Efternamn")%>'></B></TD>
<TD><B><input type=text name='fornamn' size=18 value='<% =RecSet("Fornamn")%>'></B></TD>
<TD><B><input type=text name='resultat' size=6 value='<% =RecSet("resultat") %>'></B></TD></TR>
<TR><TD colspan=4 HEIGHT=1 bgcolor=white></td></TR>
<% RecSet.movenext %>

'''''''och'''''''
<%If uppdalla = uppdalla Then
for i = 1 to request.form("nr").count%>
<%
sql = "update databas set efternamn = '" & request.form("efternamn")(i) & "'," _
& " fornamn = '" & request.form("fornamn")(i) & "'" _
& " resultat = '" & request.form("resultat")(i) & "'" _
& " where nr = " & request.form("nr")(i)
response.write sql
connect.execute sql,,128
next
End If
%>

[Redigerat av evesve den 07 okt 2001]

Vides avatarVideMedlem sedan dec. 19998 577 inlägg
#13
<input type=hidden name='nr' value='<% =RecSet("nr") %>'>
<TR>
<TD><B><input type=text name='personnr' size=12 value='<% =RecSet("Personnummer") %>' readonly></B></TD>
<TD><B><input type=text name='efternamn' size=18 value='<% =RecSet("Efternamn")%>'></B></TD>
<TD><B><input type=text name='fornamn' size=18 value='<% =RecSet("Fornamn")%>'></B></TD>
<TD><B><input type=text name='resultat' size=6 value='<% =RecSet("resultat") %>'></B></TD></TR>
<TR><TD colspan=4 HEIGHT=1 bgcolor=white></td></TR>
<% RecSet.movenext %>
'''''''och'''''''
<%If uppdalla = uppdalla Then
for i = 1 to request.form("nr").count%>
<%
sql = "update databas set efternamn = '" & request.form("efternamn")(i) & "'," _
& " fornamn = '" & request.form("fornamn")(i) & "'," _
& " resultat = '" & request.form("resultat")(i) & "'" _
& " where nr = " & request.form("nr")(i)
response.write sql
connect.execute sql,,128
next
End If
%>

Ett litet bortglömt komma... ;)

------------------
Doesn't 'expecting the unexpected' make the unexpected expected?
webeye.nu

evesveMedlem sedan sep. 2001163 inlägg
#14

Tack!
Det är dom små detaljerna som görét!

evesveMedlem sedan sep. 2001163 inlägg
#15

Om jag i stället för

response.write sql
connect.execute sql,,128
next
End If

skriver

response.write sql
connect.execute sql,,128
next

tillbaka = request.form("ordna")
respons.redirect tillbaka
End If

där request.form("ordna")
blir
lista.asp?ordning=0901PNo&enheter=09&gamla=
vilket är exakt detsamma som grundlänken,
så borde jag väl få sidan uppdaterad?
I stället får jag att URL saknas!

Vides avatarVideMedlem sedan dec. 19998 577 inlägg
#16

Borde du inte få ett felmeddelande om att objektet "respons" inte finns?

response.redirect tillbaka

------------------
Doesn't 'expecting the unexpected' make the unexpected expected?
webeye.nu

evesveMedlem sedan sep. 2001163 inlägg
#17

Jag hade skrivit:
If uppdalla = uppdalla
i stället för:
If uppdalla = "uppdalla"
vilket gjorde att han inte hoppade över If-satsen vid första körningen.
Nu fungerar nedanstående kod perfekt!
Tack för all hjälp!

<% response.buffer = true %> 
<%Response.Expires = 0 	%>		
<%Response.ExpiresAbsolute = Now() - 1%>
<html>
<!--#include file="Huvud.asp" -->
<!-- #include virtual="adovbs.inc" -->
<!-- #include virtual="grund.inc" -->			
<!-- #include file="../inloggning/check-b-1.inc" -->
<!--#include file="session.asp" -->
<body>

<%session("uppdalla") = trim(request.querystring("uppdalla"))
uppdalla = session("uppdalla")%>

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

<%If uppdalla = "uppdalla" Then
session("tillbaka") = request.form("ordna")
tillbaka = session("tillbaka")
for i = 1 to request.form("nr").count%>

<%
sql = "update databas set efternamn = '" & request.form("efternamn")(i) & "'," _
& " fornamn = '" & request.form("fornamn")(i) & "'," _
& " resultat = '" & request.form("resultat")(i) & "'" _
& " where nr = " & request.form("nr")(i)
response.write sql
connect.execute sql,,128
next%>
<input type=text name='ordna' size=45 value='<% =tillbaka %>'>
<%

kom = "lista.asp?ordning=0901PNo&enheter=09&gamla="
'response.redirect tillbaka
response.redirect kom
End If
%>

<!--'============-->

<%Set RecSet = Server.CreateObject("ADODB.Recordset")%>

<!-- #include file="Request.asp" -->

<%RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic %>
<form action='lista.asp?Ordning=<%=allt%>&enheter=<% =komp %>&uppdalla=uppdalla' method=POST> 
<TABLE border=0 BGCOLOR=gray cellpadding=0 cellspacing=0 style='font-family:verdana; font-size:8pt;'>
<TR><TD colspan=4 bgcolor=white></td></TR>

<TR>
<TD WIDTH=50></td>
<TD WIDTH=120></td>
<TD WIDTH=70></td>
<TD WIDTH=50></td></TR>
<TR>
<TD COLSPAN=1 BGCOLOR=yellow><A HREF="lista.asp?ordning=<%=sorteraPN%>">Personnummer</A></TD>
<TD COLSPAN=1 BGCOLOR=yellow><A HREF="lista.asp?ordning=<%=sorteraEN%>">Efternamn</A></TD>
<TD COLSPAN=1 BGCOLOR=yellow><A HREF="lista.asp?ordning=<%=sorteraFN%>">Förnamn</A></TD> 
<TD COLSPAN=1 BGCOLOR=yellow><A HREF="lista.asp?ordning=<%=sorteraSN%>">resultat</A></TD></TR>

<%Do Until RecSet.EOF%>

<input type=hidden name='nr' value='<% =RecSet("nr") %>'>
<TR>
<TD><B><input type=text name='personnr' size=12  value='<% =RecSet("Personnummer") %>' readonly></B></TD>
<TD><B><input type=text name='efternamn' size=18 value='<% =RecSet("Efternamn")%>'></B></TD>
<TD><B><input type=text name='fornamn' size=18 value='<% =RecSet("Fornamn")%>'></B></TD>
<TD><B><input type=text name='resultat' size=6 value='<% =RecSet("resultat") %>'></B></TD></TR>
<TR><TD colspan=4 HEIGHT=1 bgcolor=white></td></TR>
<% RecSet.movenext %>
<%
loop
End If

%>
<TR><TD colspan=4 bgcolor=yellow><input type=text name='ordna' size=45 value='lista.asp?ordning=<% =allt %>&enheter=<% =komp %>&gamla=<% =gamla %>'>
<input type=submit value='Uppdatera'>
</TD></TR>

</TABLE>

</body>
</html>

[Redigerat av evesve den 07 okt 2001]

evesveMedlem sedan sep. 2001163 inlägg
#18

Hej igen!
Nytt problem i stil med ovanstående.
Jag har en lista med alla behörigheter på en sida som jag lätt vill kunna uppgradera med "radio"-knappar.
Problemet är att alla radioknappar i samma form hör ihop.
Då funkar det inte med automatisk uppdatering av alla ID.

<% Do Until RecSet.EOF %> 
<form method="POST" action="admin.asp?ID=<% =ID %>&alt=VisaEnskildEnhet" name="ad">
<input type="hidden" name="ID" value="<% =RecSet("ID") %>">
<input type="text" size="8" name="Username" value=<% =RecSet("username") %>>
<input type="text" size="10" name="password" value=<% =RecSet("password") %>>
<%If RecSet("access") = "A" then%>
a<input type="radio" name="access" value="A" checked>b<input type="radio" name="access" value="B">
<%ElseIf RecSet("access") = "B" then%>
a<input type="radio" name="access" value="A">b<input type="radio" name="access" value="B" checked>
<%End If%>
<input type="text" name="access2" value=<% =RecSet("access2") %>>
<input type="hidden" name="url" value="<%=tillbaks%>">
<% RecSet.MoveNext%> 

<%Loop %>

<input type="submit" name="knapp" value="Uppdatera">

<!--======================================-->
<%If request.form("knapp") = "Uppdatera" Then
for i = 1 to request.form("ID").count%>

<%
sql = "update users set Username = '" & request.form("username")(i) & "'," _
			& " Password = '" & request.form("password")(i) & "'," _
			& " Access = '" & request.form(" access")(i) & "'," _
			& " Access2 = '" & request.form("access2")(i) & "'" _
   		& " where ID = " & request.form("ID")(i)
response.write sql
connect.execute sql,,128
next%>

Hur gör jag?
(Koden fungerar om jag byter radioknapparna mot textfält och väljer A resp. B

[Redigerat av evesve den 13 nov 2001]

LarsGMedlem sedan dec. 200012 464 inlägg
#19

Om du döper dom olika

<%If RecSet("access") = "A" then%>
a<input type="radio" name="accessID<%=recset("ID")%>" value="A" checked>b<input type="radio" name="accessID<%=recset("ID")%>" value="B">
<%ElseIf RecSet("access") = "B" then%>
a<input type="radio" name="accessID<%=recset("ID")%>" value="A">b<input type="radio" name="accessID<%=recset("ID")%>" value="B" checked>
<%End If%>

och sedan i update

for i = 1 to request.form("ID").count%>

<%
sql = "update users set Username = '" & request.form("username")(i) & "'," _
& " Password = '" & request.form("password")(i) & "'," _
& " Access = '" & request.form(" accessID" & request.form("ID") (i)) & "'," _
& " Access2 = '" & request.form("access2")(i) & "'" _
& " where ID = " & request.form("ID")(i)
response.write sql
connect.execute sql,,128
next%>

red: Ändrade så att det inte krockar med Access2

------------------
essentitia preter non sans multiplicandum

[Redigerat av LarsG den 14 nov 2001]

evesveMedlem sedan sep. 2001163 inlägg
#20

Tackar!
Det här var klart bättre än min tanke (att först lägga till ID och sen plocka bort det igen i update!
Fungerar utmärkt efter att jag plockat bort ett mellanslag

& " Access = '" & request.form("accessID" & request.form("ID") (i)) & "'," _

[Redigerat av evesve den 14 nov 2001]

276 ms totalt · 4 externa anrop · v20260731065814-full.86ec41c2
128 ms — deklarationer (db)
0 ms — hämta statistik (cache)
145 ms — hämta tråd, inlägg och bilagor (db)
120 ms — ändringar (db)