OK, våra trogna tittare från förra tråden vet att jag bytte ut recordset's uåpdatering mot en SQL UPDATE sats
Men nu har jag problem med den, får ett sånt här meddelande:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E09)
[TCX][MyODBC]You have an error in your SQL syntax near 'Chambers (White Dwarf 126)Description = Blablahblahblah' at line 1
/wh40k/admin/modify.asp, line 224
Såhär ser koden ut:
sql = "UPDATE DATA SET Name = " & Request("Name")
IF Request("Category") = "" THEN
sql = sql & "Category = " & Request("AddCategory")
ELSE
sql = sql & "Category = " & Request("Category")
END IF
IF Request("SubCategory") = "" THEN
sql = sql & "SubCategory = " & Request("AddSubCategory")
ELSE
sql = sql & "SubCategory = " & Request("SubCategory")
END IF
IF Request("Species") = "" THEN
sql = sql & "Species = " & Request("AddSpecies")
ELSE
sql = sql & "Species = " & Request("Species")
END IF
IF NOT Request("Image") = "" THEN
sql = sql & "Image = " & Request("Image")
END IF
sql = sql & "Source = " & Request("Source")
sql = sql & "Description = " & Request("Description")
sql = sql & ","
sql = sql & " WHERE ID = " & Request("ID") & ""
Conn.Execute(sql)
Tja nu klagar det på denna rad:
Microsoft VBScript compilation (0x800A0401)
Expected end of statement
/wh40k/admin/modify.asp, line 210, column 57
sql = sql & "SubCategory = '" & Request("AddSubCategory")) & "'"
Kolumn 57 är fet.
Såhär ser hela koden ut nu:
sql = "UPDATE DATA SET Name = '" & Request("Name") & "'"
sql = sql & ","
IF Request("Category") = "" THEN
sql = sql & "Category = '" & Request("AddCategory") & "'"
sql = sql & ","
ELSE
sql = sql & "Category = '" & Request("Category") & "'"
sql = sql & ","
END IF
IF Request("SubCategory") = "" THEN
sql = sql & "SubCategory = '" & Request("AddSubCategory")) & "'"
sql = sql & ","
ELSE
sql = sql & "SubCategory = '" & Request("SubCategory")) & "'"
sql = sql & ","
END IF
IF Request("Species") = "" THEN
sql = sql & "Species = '" & Request("AddSpecies")) & "'"
sql = sql & ","
ELSE
sql = sql & "Species = '" & Request("Species")) & "'"
sql = sql & ","
END IF
IF NOT Request("Image") = "" THEN
sql = sql & "Image = '" & Request("Image")) & "'"
END IF
sql = sql & ","
sql = sql & "Source = '" & Request("Source")) & "'"
sql = sql & ","
sql = sql & "Description = " & Request("Description")
sql = sql & ","
sql = sql & " WHERE ID = " & Request("ID")
response.Write sql
Jo tänkte på det men visste inte hur, dendär satsen gav errors, denhär som jag försökte mig på var inte bättre den:
sql = sql & "Description = " & Replace(Request("Description"),"'","''") & ","