Avatar billede no_doubt Nybegynder
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
Avatar billede fastwrite Nybegynder
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
Avatar billede no_doubt Nybegynder
04. oktober 2002 - 00:10 #2
Microsoft VBScript compilation error '800a03ea'

Syntax error

/opdater.asp, line 16

Response.Write(rs('id'))
------------------^
Avatar billede cyberdoc Nybegynder
04. oktober 2002 - 00:10 #3
Fejlen er at du definere rs 2 gange. Du skal fjerne : set rs = server.CreateObject("ADODB.Recordset")
Avatar billede no_doubt Nybegynder
04. oktober 2002 - 00:12 #4
sorry doc det var det ikke
Avatar billede no_doubt Nybegynder
04. oktober 2002 - 00:16 #5
jeg ved ikke lige hvad der kan være galt har smidt de filer op her :
http://www.1q.frip.dk/Babe-O-Meter.zip
Avatar billede cyberdoc Nybegynder
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")%>"><
Avatar billede fastwrite Nybegynder
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
Avatar billede no_doubt Nybegynder
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
Avatar billede fastwrite Nybegynder
04. oktober 2002 - 00:23 #9
!?.... øh - hvad mener du?
Avatar billede no_doubt Nybegynder
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>
Avatar billede fastwrite Nybegynder
04. oktober 2002 - 00:40 #11
Hmm.. så erfaren er jeg desværre ikke endnu i ASP, så jeg må melde pas.. beklager..
Avatar billede no_doubt Nybegynder
04. oktober 2002 - 00:49 #12
okay..
Avatar billede no_doubt Nybegynder
04. oktober 2002 - 00:50 #13
de filer det går galt med ligger i denne : http://www.1q.frip.dk/1.zip
Avatar billede cyberdoc Nybegynder
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)
Avatar billede cyberdoc Nybegynder
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)
Avatar billede no_doubt Nybegynder
04. oktober 2002 - 14:02 #16
kan du ikke ligge den som zip ?
Avatar billede no_doubt Nybegynder
04. oktober 2002 - 14:15 #17
Nå jeg hentede winrar.. øhh den retter ikke noget
Avatar billede burningice Nybegynder
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>
Avatar billede no_doubt Nybegynder
06. oktober 2002 - 01:18 #19
Det fungere ikke.
Filerne ligger her
http://www.1q.frip.dk/Babe-O-Meter.zip
Avatar billede burningice Nybegynder
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">&nbsp;</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>
Avatar billede burningice Nybegynder
06. oktober 2002 - 01:33 #21
asd
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester