Opdateringsproblemer

http://activedeveloper.dk/aspdigital/kapitel2/updateable_query.asp

Din *.mdb fil - eller dir som den ligger i - er sandsynligvis skrivebeskyttet...

En ting som mange ikke ved er at hvis du giver Fuld adgang til Everyone og IUSR_COMPUTERNAVN på hele mappen så kan du både arbejde på dine asp-sider og i Access samtidigt ... så gør lige det nu du alligevel skal ændre rettighederne på databasen ...

Til Torbenmelander
Hvad dækker " IUSR_COMPUTERNAVN"  over?

Internet_gæste_accounten ... en bruger af IIS

det er den konto som bliver oprettet i forbindelse med installation af iis på din windows2000 maskine. iis benytter denne konto når andre udefra skal have adgang (browse) din websitets. Det er sådan jeg har forstået det om ikke andet :-)

/Søren Søndergård

Men hvor er det henne?
Er det også under properties og Security - eller er det et andet sted?

Ja det er under properties og security -> add ... bare skriv i og u hurtigt så står du på den ...

soes >> så er vi enige :-)

Nu begynder jeg at forstå. Det er noget med at jeg skal verifisere at jeg har tilladelse til at redigere i DB'en. Og derfor skal tilføjes som bruger før denne kan gives. Er det rigtigt?

Nu kan jeg rette i DB'en, men stadig ikke oprette nye poster. Hvad kan det være?

Hvilken kode bruger du til at oprette en ny post og hvilken fejl får du ?

Den skriver denne besked

Error Type:
Server object, ASP 0177 (0x800401F3)
Invalid ProgID. For additional information specific to this message please visit the Microsoft Online Support site located at: http://www.microsoft.com/contentredirect.asp.

Det tyder på at du bruger en eller andet komponent du ikke har installeret på serveren ... måske er det nemmere at pege på hvis du viser koden ...

Her kommer koden:

<html>
<body>

<%Server.ScriptTimeout = 600
Set Upload = Server.CreateObject("Persits.Upload.1")

Count = Upload.Save("d:\home\jensenpaadk\www\jesperoe\billeder")

box1 = Upload.Form("box1")
box2 = Upload.Form("box2")
box3 = Upload.Form("box3")

a = Upload.Form("overskrift")
b = Replace(Upload.Form("beskrivelse"), vbCrLf, "<br>")
c = date()
d = Upload.Form("kategori")

set conn = server.createobject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("data1.mdb")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

session("boxantal") = box1 + box2 + box3

if session("boxantal") = "3" then
SQL1 = "INSERT INTO Overskrift (overskrift, Beskrivelse, Billede, Lyd, Indsat, Parentid) VALUES ('"&a&"','"&b&"','none','none',#"&c&"#,"&d&")"
response.write(SQL1)
conn.execute(SQL1)
end if

For Each File in Upload.Files

if session("boxantal") = "13" then
SQL2 = "INSERT INTO Overskrift (overskrift, Beskrivelse, Billede, Lyd, Indsat, Parentid) VALUES ('"&a&"','"&b&"','none','"&File.ExtractFileName&"',#"&c&"#,"&d&")"
conn.execute(SQL2)
end if

if session("boxantal") = "23" then
SQL3 = "INSERT INTO Overskrift (overskrift, Beskrivelse, Billede, Lyd, Indsat, Parentid) VALUES ('"&a&"','"&b&"','"&File.ExtractFileName&"','none',#"&c&"#,"&d&")"
conn.execute(SQL3)
end if

Next

dim vars(2)

iCount=0
For Each File in Upload.Files
iCount=iCount+1
vars(iCount)= File.ExtractFileName
Next

if vars(1) = "" then
vars(1) = "none"
end if

if vars(2) = "" then
vars(2) = "none"
end if

if session("boxantal") = "123" then
SQL4 = "INSERT INTO Overskrift (overskrift, Beskrivelse, Billede, Lyd, Indsat, Parentid) VALUES ('"&a&"','"&b&"','"&vars(2)&"','"&vars(1)&"',#"&c&"#,"&d&")"
conn.execute(SQL4)
end if

response.redirect "admin-login.asp"%>
</body>
</html>

Tydder på at Persist.Upload ikke er instaleret på din computer ...

Her er et link til deres hjemmeside ... http://www.persits.com/

Mange tak for hjælpen - så blev jeg så meget klogere!!!

Selv tak ... og tak for point :-)