Hmmm....er ikke lige med...?!
Her er hele funktionen så - håber Du kan se fejlen så, for jeg synes ikke
liiige......*SS*......
Function Edit()
Dim mID
mID = request.querystring("num")
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("../../../log/db.mdb"))
set rsAEdit = Server.CreateObject("ADODB.recordset")
If request.form.count = 0 then
rsAEdit.Open "SELECT * FROM priserdaek Where ID =" & mID, conn
response.write("Ret data:<br><br><br><form method='post'
action='PrisdaekEdit.asp?Action=Edit&num=" & mID & "'>ID:<br><input
type='text' name='adminid' readonly value='" & rsAEdit("ID") &
"'><br><br>Bredde:<br><input type='text' name='daekbredde' value='" &
rsAEdit("bredde") & "'><br><br>Profil:<br><input type='text'
name='daekprofil' value='" & rsAEdit("profil") &
"'><br><br>Diameter:<br><input type='text' name='daekdia' value='" &
rsAEdit("tommer") & "'><br><br>Type (R):<br><input type='text' name='type'
value='" & rsAEdit("bauart") & "'><br><br>Pris vrede:<br><input type='text'
name='vrede' value='" & rsAEdit("vrede") & "'><br><br>Pris fulda:<br><input
type='text' name='fulda' value='" & rsAEdit("fulda") & "'><br><br>Pris
euro:<br><input type='text' name='euro' value='" & rsAEdit("euro") &
"'><br><br>Pris conti:<br><input type='text' name='conti' value='" &
rsAEdit("conti") & "'><br><br><input type='submit'
value='Opdater!'></form>")
else
Dim getID, text1, text2, text3, text4, text5, text6, text7, text8
getID = Request.Form("adminid")
text1 = Request.Form("daekbredde")
text2 = Request.Form("daekprofil")
text3 = Request.Form("daekdia")
text4 = Request.Form("type")
text5 = Request.Form("vrede")
text6 = Request.Form("fulda")
text7 = Request.Form("euro")
text8 = Request.Form("conti")
'--- SQL forspøgelse ---
rsAEdit = "UPDATE priserdaek SET
bredde='"&text1&"',profil='"&text2&"',tommer='"&text3&"',bauart='"&text4&"',
vrede='"&text5&"',fulda='"&text6&"',euro='"&text7&"',conti='"&text8&"' WHERE
ID = " & getID
conn.Execute rsAEdit
response.write("Data opdateret.<a
href='PrisdaekEdit.asp?action=List'>Opdater flere</a>")
end if
rsAEdit.close
conn.close
end function
------- O O -----------
"Anders Holbøll" <dev-null-20010827@serveren.dk> skrev i en meddelelse
news:3BA62040.A7520F4F@serveren.dk...
> Ras wrote:
> >
> > Object required: 'UPDATE priserdaek SE'
> >
> > Det fulde (næsten) ser sådan her ud:
> > [...]
> > rsAEdit = "UPDATE priserdaek SET
> > bredde='"&text1&"',profil='"&text2&"',tommer='"&text3&"',
> > bauart='"&text4&"',vrede='"&text5&"',fulda='"&text6&"',
> > euro='"&text7&"',conti='"&text8&"' WHERE ID = " & getID
> >
> > conn.Execute rsAEdit
>
> Jeg vil næsten bide mig i øret på, at du et eller andet sted prøver at
> kalde en methode på rsAEdit variablen. Altså, at der et eller andet sted
> står ca. "rsAEdit.BlaBla". Iøvrigt er dine variabelnavne (text1, text2,
> ...) ikke særligt sigende (=> grim kode).
>
> --
> Anders