Too few parameters. Expected 1.

intDocumentID er tom

intDocumentID sættes med Request("ord")og den er ikke tom.
jeg forstår slet ikke at den laver fejl her da Request(action) ikke er save hvor dokumentet kaldes.
if Request.QueryString("action") = "save" then

du har da execute statements begge steder ? Skriv din sql streng ud så vil du sikkert få svar på dit eget spg -)

response.write strSQL
response.end

Det er som regel fordi et af felt-navnene er forkert. Tjek i databasen om felterne virkelig hedder tekst og ord.

Den sættes ikke med Request("ord") men med
intDocumentID = Request.QueryString("ord")

øv,
de hedder ord og tekst - det tyder på en anden fejl.

den giver sammen fejl om jeg skriver ord=et_eller_andet eller lader den stå helt tom i urlén

Hov, ja det er selvfølgelig fordi du mangler at sætte ' om data :

strSQL = "Update ordbog set tekst = '" & replace(strTitle,"'","''") & "', ord='" & replace(strContent,"'","''") & "' where ord='" & intDocumentID & "'"

Hvorfor skal det altid gå ud over mig? (jeg er endnu ikke for klog på ASP)
stadigt:
Microsoft OLE DB Provider for ODBC Drivers error '80040e10'
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.
line 34

linie 34 er:     set adoRs = MM_ordbog_STRING.Execute(strSQL)

jeg har fundet:
http://support.microsoft.com/default.aspx?scid=kb;EN-US;q216425
som siger:
CAUSE
This error occurs only with Microsoft Access when one of the column names specified in a select statement does not exist in the table being queried.

Men den findes..... ???? øv. tre dage med fejlfinding på noget så elementært. Jeg håber at der stadigt er et bud.

her står at man skal passe på at bruge where i sql....
http://www.mvps.org/access/queries/qry0013.htm

Har du rettet SQL'en så du sætter plinger omkring intDocumentID som jeg foreslog i mit seneste svar?

yeps, her er nuværende kode

<%
dim intDocumentID
dim strTitle
dim strContent

dim MM_ordbog_STRING
dim strSQL
'set MM_ordbog_STRING = Server.CreateObject("ADODB.Connection")
'MM_ordbog_STRING.Open strConn

if Request.QueryString("action") = "save" then

    intDocumentID = Request("ord")
    strTitle = Request.Form("txtTitle")
    strContent = Request.Form("txtContent")
    response.write (intDocumentID)
   
    strSQL = "Update ordbog set tekst = '" & replace(strTitle,"'","''") & "', ord='" & replace(strContent,"'","''") & "' where ord='" & intDocumentID & "'"
   
    MM_ordbog_STRING.Execute strSQL
   
    Response.Redirect "index.asp"
else
    intDocumentID = Request.QueryString("ord")
   
    dim adoRs
    set adoRs = Server.CreateObject("ADODB.Recordset")
    strSQL = "Select * From ordbog where ord=" & intDocumentID
   
    set adoRs = MM_ordbog_STRING.Execute(strSQL)
    If not adoRs.EOF then
        strTitle = adoRs("ord")
        strContent = adoRs("tekst")
    End If
    adoRs.Close
    set adoRs = nothing
end if

MM_ordbog_STRING.Close
set MM_ordbog_STRING = nothing
%>


hvis jeg slår disse fra:
set MM_ordbog_STRING = Server.CreateObject("ADODB.Connection")
MM_ordbog_STRING.Open strCon

for jeg fejlen:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Driver Manager] Datakildenavnet blev ikke fundet, og der er ikke angivet en standarddriver.

/ordbog_edit.asp, line 12

jeg har rette lidt mere til men får stadigt den samme fejl:

<%
dim intDocumentID
dim strTitle
dim strContent

dim adoCn
dim strSQL
set adoCn = Server.CreateObject("ADODB.Connection")
adoCn.Open MM_ordbog_STRING

if Request.QueryString("action") = "save" then

    intDocumentID = Request("ord")
    strTitle = Request.Form("txtTitle")
    strContent = Request.Form("txtContent")
    response.write (intDocumentID)
   
    strSQL = "Update ordbog set tekst = '" & replace(strTitle,"'","''") & "', ord='" & replace(strContent,"'","''") & "' where ord='" & intDocumentID & "'"
   
    adoCn.Execute strSQL
   
    Response.Redirect "index.asp"
else
    intDocumentID = Request.QueryString("ord")
   
    dim adoRs
    set adoRs = Server.CreateObject("ADODB.Recordset")
    strSQL = "Select * From ordbog where ord=" & intDocumentID
   
    set adoRs = adoCn.Execute(strSQL)
    If not adoRs.EOF then
        strTitle = adoRs("ord")
        strContent = adoRs("tekst")
    End If
    adoRs.Close
    set adoRs = nothing
end if

adoCn.Close
set adoCn = nothing
%>

du har ikke rettet i

strSQL = "Select * From ordbog where ord=" & intDocumentID

også der, bingo og tak

at min iframe nu er tom og jeg ikke har noget som helst clue er et nyt problem som sikkert har med '" & intDocumentID & "'" at gøre men jeg kan slet ikke overskue at formulere et spørgsmål. Jeg må ud og finde en i byen so mkan hjælpe. Jeg benytter YusASP web-based content editor

Jeg takker mange gange - jeg har fundet fejlen.