Hvad gør jeg galt?

Der mangler i hvert fald et mellemrum mellem de 2 sidste linier:

    strSQL = "Update HTML set "
        strSQL = strSQL & "PrintAble= '" & Request.Form("Print") & "',"
        strSQL = strSQL & "Contact  = '" & Request.Form("Contact") & "',"
        strSQL = strSQL & "MainPage = '" & Request.Form("Main") & "' "
        strSQL = strSQL & "Where Id =" & Request.Form("id")

Men det er næppe det, som der er fejlen.
Et af felterne er formentlig nummerisk og du forsøger at tildele en tekst-værdi.
Er Printable ikke nummerisk? (et ja/nej-felt?)

De er alle 3 ja/nej felter

i så fald:

strSQL = "Update HTML set "
        strSQL = strSQL & "PrintAble= " & Request.Form("Print") & ","
        strSQL = strSQL & "Contact  = " & Request.Form("Contact") & ","
        strSQL = strSQL & "MainPage = " & Request.Form("Main") & " "
        strSQL = strSQL & "Where Id =" & Request.Form("id")

Microsoft OLE DB Provider for ODBC Drivers fejl '80040e14'

[Microsoft][ODBC Microsoft Access-driver] Der er en syntaksfejl i UPDATE-sætningen.

/admin/WYSIWYG/modules.asp, linje 10


;-)

Du skal have pinger omkring tekst udtryk.

Hvis ikke det løser det, så udskriv lige strSQL umiddelbart før den sendes til DBMS.

JP

Min fejl har fundet den, fordi den ikke skriver false hvis checkboxen ikke er afkrydset...

5

Kom til at se sådant ud:

    Print = Request.Form("Print")
        Contact = Request.Form("Contact")
        Main = Request.Form("Main")
       
        strSQL = "Update HTML set "
    if Print <> "" then   
        strSQL = strSQL & "PrintAble = " & Print & ","
    else
        strSQL = strSQL & "PrintAble = FALSE,"
    End if
   
    if Contact <> "" Then
        strSQL = strSQL & "Contact  = " & Request.Form("Contact") & ","
    else
        strSQL = strSQL & "Contact  = FALSE,"
    end if
   
    if MainPage <> "" Then
        strSQL = strSQL & "MainPage = " & Request.Form("Main") & " "
    else
        strSQL = strSQL & "MainPage = FALSE "
    end if
   
        strSQL = strSQL & "Where Id =" & Request.Form("id")
       
        response.Write(strSQL)
        conn.execute(strSQL)