hvad fejler denne SQL ?

Er ikke sikker men prøv med:

strSQL = "Update virksomhed set virksomhed_id = '" & replace(strTitle,"'","''") & "' AND tekst='" & replace(strContent,"'","''") & "' AND password = '" & replace(strpassword,"'","''") & "'AND email = '" & replace(stremail,"'","''") & "' AND link = '" & replace(strlink,"'","''") & "' WHERE username='" & intDocumentID & "'"

og det er muligt der skal SET ind efter alle AND.

Men som sagt er jeg ikke 100% ,er lidt rusten og det er jo sidst på dagen ;-)

Det lyder nu mere som om det er din connection. Hvis det var dit SQL statement, vil du normalt få en syntax error.

Sorry, alle and skal erstattes med komma

UPDATE Tabel SET Felt=xxx, Felt2=aaa

Det er skisme også rigtigt. (er lidt sløv i dag)
Det er din forbindelse til databasen.

Hvordan ser din connection string ud?

teamdev den første virker ikke, (hvad kan jeg gøre for at debugge?

her er hele koden:


<%
'STEP 7 : PREPARE SERVER SIDE HANDLING SCRIPT
'Loading the content & saving the edited content back to the database
dim intDocumentID
dim strTitle
dim strContent
dim    strpassword
dim    stremail
dim    strlink

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

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

    intDocumentID = Request.cookies("firma")
    strTitle = Request.Form("virksomhed_txt")
    strpassword = Request.Form("password_txt")
    stremail = Request.Form("email_txt")
    strlink = Request.Form("link_txt")
    strContent = Request.Form("txtContent")
   
    strSQL = "Update virksomhed set virksomhed_id = '" & replace(strTitle,"'","''") & "' AND tekst='" & replace(strContent,"'","''") & "' AND password = '" & replace(strpassword,"'","''") & "'AND email = '" & replace(stremail,"'","''") & "' AND link = '" & replace(strlink,"'","''") & "' WHERE username='" & intDocumentID & "'"
   
    'response.write strSQL
    adoCn.Execute strSQL
   
    Response.Redirect "firma_login.asp"
else
    intDocumentID = Request.cookies("firma")
   
    dim adoRs
    set adoRs = Server.CreateObject("ADODB.Recordset")
    strSQL = "Select * From virksomhed where username='" & intDocumentID & "'"
    'response.write strSQL
    set adoRs = adoCn.Execute(strSQL)
    If not adoRs.EOF then
        strTitle = adoRs("virsomheds_id")
        strContent = adoRs("tekst")
        strpassword = adoRs("password")
        stremail = adoRs("email")
        strlink = adoRs("link")
    End If
    adoRs.Close
    set adoRs = nothing
end if

adoCn.Close
set adoCn = nothing
%>

hvis jeg udskriver min sql:

Update virksomhed set virksomhed_id = 'blalba', tekst='blalba', password = 'blalba', email = 'mail@blalba', link = 'http://www.blalba' where username='blalba'

Set MM_ordbog_STRING = Server.CreateObject("ADODB.connection")
    MM_ordbog_STRING.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};" & _
    "DBQ=d:\www.stien\database.mdb"
    MM_ordbog_STRING.Open

har i et bud?

Jeps jeg har et bud. Password er reserveret ord i Access så prøv med [] omkring sådan her [password]:

strSQL = "Update virksomhed set virksomhed_id = '" & replace(strTitle,"'","''") & "' AND tekst='" & replace(strContent,"'","''") & "' AND [password] = '" & replace(strpassword,"'","''") & "'AND email = '" & replace(stremail,"'","''") & "' AND link = '" & replace(strlink,"'","''") & "' WHERE username='" & intDocumentID & "'"

damn hvor er jeg træt af det....


    strSQL = "Update virksomhed set virksomhed_id = '" & replace(strTitle,"'","''") & "', tekst='" & replace(strContent,"'","''") & "', [password] = '" & replace(strpassword,"'","''") & "', email = '" & replace(stremail,"'","''") & "', link = '" & replace(strlink,"'","''") & "' where username='" & intDocumentID & "'"

FEJL:
Microsoft OLE DB Provider for ODBC Drivers error '80040e10'
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.
/firma_edit.asp, line 34


som er: adoCn.Execute strSQL

Jeg mener stadig at fejlen mere indikerer at det er allerede når du åbner din connection at problemet opstår (selv om der osgå var fejl i statementet, den fejl ville så bare være kommet bagefter).

Hvad står der i MM_ordbog_STRING, når du åbner dit recordset:

adoCn.Open MM_ordbog_STRING

Jeg tror det er her den er gal.

hvad kunne jeg gøre for at debugge?

Er du sikker på at alle kolonne navne er stavet rigtigt?

Jeg måtte lige kikke efter endnu engang og bingo.
tak til  alle. ;o)