Syntax error

prøv med:

Function fixQuotes( theString )
    fixQuotes = Replace( theString, "'", "''" )
End Function

Dato = Date
User = session("user")

set rs = conn.execute("SELECT * FROM artikler WHERE overskrift = '" & request("overskrift") & "'")
if rs.eof then
strSQL = "Insert into Brugere (tekst, forfatter, dato, Overskrift)"
strSQL = strSQL & " values('" & Request.Form("tekst") & "', "
strSQL = strSQL & "'" & fixQuotes(User) & "', "
strSQL = strSQL & "#" & fixQuotes(Dato) & "#, "
strSQL = strSQL & Request.Form("overskrift") & "')"
Conn.Execute(strSQL)

Virker ikke

Slet ingen der kan hjælpe mig?!?

Hvilken fejl kommer?

bgo

Detkan være du skal have fire gange " istedet for tre i din replace...

bgo

Koden >
Function fixQuotes( theString )
    fixQuotes = Replace( theString, "'", "'''" )
End Function

Dato = Date
User = session("user")

set rs = conn.execute("SELECT * FROM artikler WHERE overskrift = '" & request("overskrift") & "'")
if rs.eof then
strSQL = "Insert into Brugere (tekst, forfatter, dato, Overskrift)"
strSQL = strSQL & " values('" & Request.Form("tekst") & "', "
strSQL = strSQL & "'" & fixQuotes(User) & "', "
strSQL = strSQL & "'" & fixQuotes(Dato) & "', "
strSQL = strSQL & Request.Form("overskrift") & "')"
Conn.Execute(strSQL)

Fejlen >

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

[Microsoft][ODBC Microsoft Access Driver] Syntax error in string in query expression 'artikel')'.

hvilken data type er Dato i databasen,, hvis det er dato/tid-felt så skal du havde # i sted for '. Men der mangler en ' i sidste linie:

strSQL = "Insert into Brugere (tekst, forfatter, dato, Overskrift)"
strSQL = strSQL & " values('" & Request.Form("tekst") & "', "
strSQL = strSQL & "'" & fixQuotes(User) & "', "
strSQL = strSQL & "'" & fixQuotes(Dato) & "', "
strSQL = strSQL & "'" & Request.Form("overskrift") & "')"
Conn.Execute(strSQL)