04. oktober 2002 - 00:05
Der er
20 kommentarer og 1 løsning
multi opdatering
Hvad kan der være galt her <html> <%Response.Buffer = True%> <head> <title></title> </head> <body bgcolor="A0B3C8"> <div align="center"><center> <table border="0" width="675" cellpadding="0" cellspacing="1" bordercolor="#000000" height="216"> <tr> <td valign="middle" width="633" bordercolor="#000000" style="border: 1px solid rgb(0,0,0)" bgcolor="#A0B3C8" height="163"><a </tr><form method="POST" action="update.asp"> <input type="hidden" name="id" value="<%=rs("id")%>"><% set rs = server.CreateObject("ADODB.Recordset") set conn = server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("db.mdb")%> <% strSQL = "select * from barometer" Set rs = Conn.Execute(strSQL) %> <div align="center"><center><table border="0" width="930"> <tr> <td width="154" align="center" style="border: 1px solid rgb(0,0,0)"><strong>Navn</strong></td> <td width="110" align="center" style="border: 1px solid rgb(0,0,0)"><strong>Alder</strong></td> <td width="109" align="center" style="border: 1px solid rgb(0,0,0)"><strong>Klasse</strong></td> <td width="108" align="center" style="border: 1px solid rgb(0,0,0)"><strong>Patter</strong></td> <td width="108" align="center" style="border: 1px solid rgb(0,0,0)"><strong>Røv</strong></td> <td width="107" align="center" style="border: 1px solid rgb(0,0,0)"><strong>Krop</strong></td> <td width="106" align="center" style="border: 1px solid rgb(0,0,0)"><strong>Charme</strong></td> <td width="106" align="center" style="border: 1px solid rgb(0,0,0)"><strong>AKSP</strong></td> </tr> <tr> <td width="154" align="center"></td> <td width="110" align="center"></td> <td width="109" align="center"></td> <td width="108" align="center"></td> <td width="108" align="center"></td> <td width="107" align="center"></td> <td width="106" align="center"></td> <td width="106" align="center"></td> </tr> <% do while not rs.EOF %> <tr> <td width="154" align="center" style="border: 1px solid rgb(0,0,0)"><input type="text" name="fornavn<%=rs("id")%>" size="15" value="<% Response.write rs("fornavn") & " " & rs("mellemnavn") & " " & rs("efternavn")%>" disabled></td> <td width="110" align="center" style="border: 1px solid rgb(0,0,0)"><input type="text" name="alder<%=rs("id")%>" size="10" value="<%Response.write rs("alder")%>"></td> <td width="109" align="center" style="border: 1px solid rgb(0,0,0)"><input type="text" name="klasse<%=rs("id")%>" size="10" value="<%Response.write rs("klasse")%>"></td> <td width="108" align="center" style="border: 1px solid rgb(0,0,0)"><input type="text" name="patter<%=rs("id")%>" size="10" value="<%Response.write rs("patter")%>"></td> <td width="108" align="center" style="border: 1px solid rgb(0,0,0)"><input type="text" name="roev<%=rs("id")%>" size="10" value="<%Response.write rs("roev")%>"></td> <td width="107" align="center" style="border: 1px solid rgb(0,0,0)"><input type="text" name="krop<%=rs("id")%>" size="10" value="<%Response.write rs("krop")%>"></td> <td width="106" align="center" style="border: 1px solid rgb(0,0,0)"><input type="text" name="cme<%=rs("id")%>" size="10" value="<%Response.write rs("cme")%>"></td> <td width="106" align="center" style="border: 1px solid rgb(0,0,0)"><input type="text" name="aksp<%=rs("id")%>" size="10" value="<%Response.write rs("aksp")%>"></td> </tr> <% rs.movenext %> <% loop %> </table> </center></div><div align="center"><center><p></a><input type="submit" value="Opdater" name="B1"><a </tr></p> </center></div> </form> </a></td> </tr> </table> </center></div> </body> </html> den melder fejlen : Microsoft VBScript runtime error '800a000d' Type mismatch: 'rs' /opdater.asp, line 16
Annonceindlæg fra Barco
04. oktober 2002 - 00:08
#1
Din linie : <input type="hidden" name="id" value="<%=rs("id")%>"> prøv: <input type="hidden" name="id" value="<%=rs('id')%>"> og se om det hjælper
04. oktober 2002 - 00:10
#2
Microsoft VBScript compilation error '800a03ea' Syntax error /opdater.asp, line 16 Response.Write(rs('id')) ------------------^
04. oktober 2002 - 00:10
#3
Fejlen er at du definere rs 2 gange. Du skal fjerne : set rs = server.CreateObject("ADODB.Recordset")
04. oktober 2002 - 00:12
#4
sorry doc det var det ikke
04. oktober 2002 - 00:17
#6
Sorry jeg overså lige en anden lille detalje.. Du kan ikke trække data ud før at en connectioner etableret.. ;O) <input type="hidden" name="id" value="<%=rs("id")%>"><
04. oktober 2002 - 00:20
#7
Brug denne.. Du bruger din RS før den er defineret: <html> <%Response.Buffer = True%> <% set rs = server.CreateObject("ADODB.Recordset") set conn = server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("db.mdb")%> <% strSQL = "select * from barometer" Set rs = Conn.Execute(strSQL) %> <head> <title></title> </head> <body bgcolor="A0B3C8"> <div align="center"><center> <table border="0" width="675" cellpadding="0" cellspacing="1" bordercolor="#000000" height="216"> <tr> <td valign="middle" width="633" bordercolor="#000000" style="border: 1px solid rgb(0,0,0)" bgcolor="#A0B3C8" height="163"><a </tr><form method="POST" action="update.asp"> <input type="hidden" name="id" value="<%=rs("id")%>"> <div align="center"><center><table border="0" width="930"> <tr> <td width="154" align="center" style="border: 1px solid rgb(0,0,0)"><strong>Navn</strong></td> <td width="110" align="center" style="border: 1px solid rgb(0,0,0)"><strong>Alder</strong></td> <td width="109" align="center" style="border: 1px solid rgb(0,0,0)"><strong>Klasse</strong></td> <td width="108" align="center" style="border: 1px solid rgb(0,0,0)"><strong>Patter</strong></td> <td width="108" align="center" style="border: 1px solid rgb(0,0,0)"><strong>Røv</strong></td> <td width="107" align="center" style="border: 1px solid rgb(0,0,0)"><strong>Krop</strong></td> <td width="106" align="center" style="border: 1px solid rgb(0,0,0)"><strong>Charme</strong></td> <td width="106" align="center" style="border: 1px solid rgb(0,0,0)"><strong>AKSP</strong></td> </tr> <tr> <td width="154" align="center"></td> <td width="110" align="center"></td> <td width="109" align="center"></td> <td width="108" align="center"></td> <td width="108" align="center"></td> <td width="107" align="center"></td> <td width="106" align="center"></td> <td width="106" align="center"></td> </tr> <% do while not rs.EOF %> <tr> <td width="154" align="center" style="border: 1px solid rgb(0,0,0)"><input type="text" name="fornavn<%=rs("id")%>" size="15" value="<% Response.write rs("fornavn") & " " & rs("mellemnavn") & " " & rs("efternavn")%>" disabled></td> <td width="110" align="center" style="border: 1px solid rgb(0,0,0)"><input type="text" name="alder<%=rs("id")%>" size="10" value="<%Response.write rs("alder")%>"></td> <td width="109" align="center" style="border: 1px solid rgb(0,0,0)"><input type="text" name="klasse<%=rs("id")%>" size="10" value="<%Response.write rs("klasse")%>"></td> <td width="108" align="center" style="border: 1px solid rgb(0,0,0)"><input type="text" name="patter<%=rs("id")%>" size="10" value="<%Response.write rs("patter")%>"></td> <td width="108" align="center" style="border: 1px solid rgb(0,0,0)"><input type="text" name="roev<%=rs("id")%>" size="10" value="<%Response.write rs("roev")%>"></td> <td width="107" align="center" style="border: 1px solid rgb(0,0,0)"><input type="text" name="krop<%=rs("id")%>" size="10" value="<%Response.write rs("krop")%>"></td> <td width="106" align="center" style="border: 1px solid rgb(0,0,0)"><input type="text" name="cme<%=rs("id")%>" size="10" value="<%Response.write rs("cme")%>"></td> <td width="106" align="center" style="border: 1px solid rgb(0,0,0)"><input type="text" name="aksp<%=rs("id")%>" size="10" value="<%Response.write rs("aksp")%>"></td> </tr> <% rs.movenext %> <% loop %> </table> </center></div><div align="center"><center><p></a><input type="submit" value="Opdater" name="B1"><a </tr></p> </center></div> </form> </a></td> </tr> </table> </center></div> </body> </html> Se om det skulle hjælpe
04. oktober 2002 - 00:21
#8
hvis jeg flytter den efter forbindelsen er oprette og trykker gem rykker den selv linjen op før forbindelsen
04. oktober 2002 - 00:23
#9
!?.... øh - hvad mener du?
04. oktober 2002 - 00:28
#10
skulle bare have en over i notepad. men nu melder den fejl Microsoft OLE DB Provider for ODBC Drivers error '80040e14' [Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'id = 1fornavn = WHERE id = 1alder = 17 WHERE id = 1klasse = 1Q WHERE id = 1patter = 7 WHERE id = 1roev = 10 WHERE id = 1krop = 9 WHERE id = 1cme = 7 WHERE id = 1aksp = 4 WHERE id = 1kommentar = Snaksagelig WHERE id = 1'. /update.asp, line 57 Ved dette stykke kode <% Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("db.mdb") Conn.Open DSN 'Hendt id listen som med all id i, et er en liste med komma imellem idlist = request.form("id") idarray = Split(idlist,",") for i = Lbound(idarray) to Ubound(idarray) iddb = Trim(idarray(i)) billede = request.form("billede" & iddb) fornavn = request.form("fornavn" & iddb) alder = request.form("alder" & iddb) klasse = request.form("klasse" & iddb) patter = request.form("patter" & iddb) roev = request.form("roev" & iddb) krop = request.form("krop" & iddb) cme = request.form("cme" & iddb) aksp = request.form("aksp" & iddb) kommentar = request.form("kommentar" & iddb) strSQL = "Update barometer SET " strSQL = strSQL & "billede = " & billede & " " strSQL = strSQL & "WHERE id = " & iddb strSQL = strSQL & "fornavn = " & fornavn & " " strSQL = strSQL & "WHERE id = " & iddb strSQL = strSQL & "alder = " & alder & " " strSQL = strSQL & "WHERE id = " & iddb strSQL = strSQL & "klasse = " & klasse & " " strSQL = strSQL & "WHERE id = " & iddb strSQL = strSQL & "patter = " & patter & " " strSQL = strSQL & "WHERE id = " & iddb strSQL = strSQL & "roev = " & roev & " " strSQL = strSQL & "WHERE id = " & iddb strSQL = strSQL & "krop = " & krop & " " strSQL = strSQL & "WHERE id = " & iddb strSQL = strSQL & "cme = " & cme & " " strSQL = strSQL & "WHERE id = " & iddb strSQL = strSQL & "aksp = " & aksp & " " strSQL = strSQL & "WHERE id = " & iddb strSQL = strSQL & "kommentar = " & kommentar & " " strSQL = strSQL & "WHERE id = " & iddb Conn.Execute(strSQL) Next Conn.Close Set Conn = Nothing response.redirect("default1.asp") %> <html> <head> <title></title> </head> <body> </body> </html>
04. oktober 2002 - 00:40
#11
Hmm.. så erfaren er jeg desværre ikke endnu i ASP, så jeg må melde pas.. beklager..
04. oktober 2002 - 00:49
#12
okay..
04. oktober 2002 - 01:07
#14
Jeg har skrevet din kode om og den ligger på
http://cyberdoc.dk/Babe-O-Meter.rar Der kan du se hvordan man normalt behandler et multiple forms submission.
Håber at det kan hjælpe dig viddere fremme i din kode ;O)
04. oktober 2002 - 01:25
#15
Prøver lige som et svar:
Jeg har skrevet din kode om og den ligger på
http://cyberdoc.dk/Babe-O-Meter.rar Der kan du se hvordan man normalt behandler et multiple forms submission.
Håber at det kan hjælpe dig viddere fremme i din kode ;O)
04. oktober 2002 - 14:02
#16
kan du ikke ligge den som zip ?
04. oktober 2002 - 14:15
#17
Nå jeg hentede winrar.. øhh den retter ikke noget
06. oktober 2002 - 01:15
#18
*suk* <html> <%Response.Buffer = True%> <head> <title></title> </head> <body bgcolor="A0B3C8"> <div align="center"><center> <table border="0" width="675" cellpadding="0" cellspacing="1" bordercolor="#000000" height="216"> <tr> <td valign="middle" width="633" bordercolor="#000000" style="border: 1px solid rgb(0,0,0)" bgcolor="#A0B3C8" height="163"><a </tr> <div align="center"><center><table border="0" width="930"> <tr> <td width="154" align="center" style="border: 1px solid rgb(0,0,0)"><strong>Navn</strong></td> <td width="110" align="center" style="border: 1px solid rgb(0,0,0)"><strong>Alder</strong></td> <td width="109" align="center" style="border: 1px solid rgb(0,0,0)"><strong>Klasse</strong></td> <td width="108" align="center" style="border: 1px solid rgb(0,0,0)"><strong>Patter</strong></td> <td width="108" align="center" style="border: 1px solid rgb(0,0,0)"><strong>Røv</strong></td> <td width="107" align="center" style="border: 1px solid rgb(0,0,0)"><strong>Krop</strong></td> <td width="106" align="center" style="border: 1px solid rgb(0,0,0)"><strong>Charme</strong></td> <td width="106" align="center" style="border: 1px solid rgb(0,0,0)"><strong>AKSP</strong></td> </tr> <tr> <td width="154" align="center"></td> <td width="110" align="center"></td> <td width="109" align="center"></td> <td width="108" align="center"></td> <td width="108" align="center"></td> <td width="107" align="center"></td> <td width="106" align="center"></td> <td width="106" align="center"></td> </tr> <% set conn = server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("db.mdb") Set rs = Conn.Execute("select * from barometer") do while not rs.EOF %> <form method="POST" action="update.asp"> <input type="hidden" name="id" value="<%=rs("id")%>"> <tr> <td width="154" align="center" style="border: 1px solid rgb(0,0,0)"><input type="text" name="fornavn<%=rs("id")%>" size="15" value="<% Response.write rs("fornavn") & " " & rs("mellemnavn") & " " & rs("efternavn")%>" disabled></td> <td width="110" align="center" style="border: 1px solid rgb(0,0,0)"><input type="text" name="alder<%=rs("id")%>" size="10" value="<%Response.write rs("alder")%>"></td> <td width="109" align="center" style="border: 1px solid rgb(0,0,0)"><input type="text" name="klasse<%=rs("id")%>" size="10" value="<%Response.write rs("klasse")%>"></td> <td width="108" align="center" style="border: 1px solid rgb(0,0,0)"><input type="text" name="patter<%=rs("id")%>" size="10" value="<%Response.write rs("patter")%>"></td> <td width="108" align="center" style="border: 1px solid rgb(0,0,0)"><input type="text" name="roev<%=rs("id")%>" size="10" value="<%Response.write rs("roev")%>"></td> <td width="107" align="center" style="border: 1px solid rgb(0,0,0)"><input type="text" name="krop<%=rs("id")%>" size="10" value="<%Response.write rs("krop")%>"></td> <td width="106" align="center" style="border: 1px solid rgb(0,0,0)"><input type="text" name="cme<%=rs("id")%>" size="10" value="<%Response.write rs("cme")%>"></td> <td width="106" align="center" style="border: 1px solid rgb(0,0,0)"><input type="text" name="aksp<%=rs("id")%>" size="10" value="<%Response.write rs("aksp")%>"></td> </tr> <% rs.movenext loop %> </table> </center></div><div align="center"><center><p></a><input type="submit" value="Opdater" name="B1"><a </tr></p> </center></div> </form> </a></td> </tr> </table> </center></div> </body> </html>
06. oktober 2002 - 01:18
#19
06. oktober 2002 - 01:31
#20
<html> <head> <title>Babe-O-meter</title> <% Response.buffer = true %> </head> <body> <p align="center"><big><font face="Arial"><strong>Babe-O-meter</strong></font></big></p> <p align="center"> </p> <div align="center"><center> <table border="0" width="675" cellpadding="0" cellspacing="1" bordercolor="#000000" height="216"> <tr> <td valign="middle" width="633" bordercolor="#000000" style="border: 1px solid rgb(0,0,0)" bgcolor="#A0B3C8" height="163"><a </tr><form method="POST" action="update.asp"> <% set conn = server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("db.mdb")%> <% strSQL = "select * from barometer" Set rs = Conn.Execute(strSQL) %> <div align="center"><center><table border="0" width="525"> <tr> <td width="154" align="center" style="border: 1px solid rgb(0,0,0)"><strong>Billede</strong></td> <td width="154" align="center" style="border: 1px solid rgb(0,0,0)"><strong>Navn</strong></td> <td width="42" align="center" style="border: 1px solid rgb(0,0,0)"><strong>Alder</strong></td> <td width="52" align="center" style="border: 1px solid rgb(0,0,0)"><strong>Klasse</strong></td> <td width="49" align="center" style="border: 1px solid rgb(0,0,0)"><strong>Patter</strong></td> <td width="44" align="center" style="border: 1px solid rgb(0,0,0)"><strong>Røv</strong></td> <td width="45" align="center" style="border: 1px solid rgb(0,0,0)"><strong>Krop</strong></td> <td width="65" align="center" style="border: 1px solid rgb(0,0,0)"><strong>Charme</strong></td> <td width="54" align="center" style="border: 1px solid rgb(0,0,0)"><strong>AKSP</strong></td> <td width="154" align="center" style="border: 1px solid rgb(0,0,0)"><strong>Kommentar</strong></td> </tr> <tr> <td width="154" align="center"></td> <td width="154" align="center"></td> <td width="42" align="center"></td> <td width="52" align="center"></td> <td width="49" align="center"></td> <td width="44" align="center"></td> <td width="45" align="center"></td> <td width="65" align="center"></td> <td width="54" align="center"></td> <td width="154" align="center"></td> </tr> <% do while not rs.EOF %> <input type="hidden" name="id" value="<%=rs("id")%>"> <tr> <td width="154" align="center" style="border: 1px solid rgb(0,0,0)"><input type="text" name="billede<%=rs("id")%>" size="15" value="<% Response.write rs("billede")%>"></td> <td width="154" align="center" style="border: 1px solid rgb(0,0,0)"><input type="text" name="navnet" size="15" value="<% Response.write rs("fornavn") & " " & rs("mellemnavn") & " " & rs("efternavn")%>" disabled></td> <td width="42" align="center" style="border: 1px solid rgb(0,0,0)"><input type="text" name="alder<%=rs("id")%>" size="3" value="<%Response.write rs("alder")%>"></td> <td width="52" align="center" style="border: 1px solid rgb(0,0,0)"><input type="text" name="klasse<%=rs("id")%>" size="3" value="<%Response.write rs("klasse")%>"></td> <td width="49" align="center" style="border: 1px solid rgb(0,0,0)"><input type="text" name="patter<%=rs("id")%>" size="3" value="<%Response.write rs("patter")%>"></td> <td width="44" align="center" style="border: 1px solid rgb(0,0,0)"><input type="text" name="roev<%=rs("id")%>" size="3" value="<%Response.write rs("roev")%>"></td> <td width="45" align="center" style="border: 1px solid rgb(0,0,0)"><input type="text" name="krop<%=rs("id")%>" size="3" value="<%Response.write rs("krop")%>"></td> <td width="65" align="center" style="border: 1px solid rgb(0,0,0)"><input type="text" name="cme<%=rs("id")%>" size="3" value="<%Response.write rs("cme")%>"></td> <td width="54" align="center" style="border: 1px solid rgb(0,0,0)"><input type="text" name="aksp<%=rs("id")%>" size="3" value="<%Response.write rs("aksp")%>"></td> <td width="154" align="center" style="border: 1px solid rgb(0,0,0)"><textarea rows="2" name="kommentar<%=rs("id")%>" cols="20"><% Response.write rs("kommentar")%></textarea></td> </tr> <% rs.movenext %> <% loop %> </table> </center></div><div align="center"><center><p></a><input type="submit" value="Opdater" name="B1"><a </tr></p> </center></div> </form> </a></td> </tr> </table> </center></div> </body> </html>
06. oktober 2002 - 01:33
#21
asd
Kurser inden for grundlæggende programmering