Fnuttfnatt

Jahapp...

Försöker göra en replace på '
Men det vägrar fungera...

Hela tiden får jag felmeddelandet:
Microsoft OLE DB Provider for SQL Server (0x80040E14)
Line 1: Incorrect syntax near 'm'.
/bite-it/bite-it/sweden/tower/JokeAdmin.asp, line 133

Och raderna den pekar på är givetvis sql-satserna...

content=Replace(content, "'", "''")

För att dubbelkolla har jag även försökt med:

content = Replace(content, "'", "´")

Varför funkar det inte????
Sökte lite här på forumet men fick bara fram att min kod verkar se rätt ut....

Här kommer lite mer kod för den som orkar läsa....

If Not mode = "" then

	if not mode= "delete" Then
	sqlJokedump = "INSERT INTO Jokedump (JokeOwnerId, JokeOwnerNickName, JokeScore, JokeContent) VALUES ('"&strHulePersonID&"', '"&strNickname&"', 0, '"&Request.Form("Content")&"');"
	Conn.Execute (sqlJokedump)

	end if

	If mode = "ny" then
	
	Dim content
	content = Request.Form("Content")
	content = Replace(content, "<", "<")
	content = Replace(content, ">", ">")
	content = Replace(content, "'", "&acute;")
	content = Replace(content, vbCrLf, "<br>")
	content=Replace(content, "'", "''") 

	sqlAdminJoke = "INSERT INTO Joke (JokeOwnerId, JokeOwnerNickName, JokeScore, JokeContent) VALUES ('"&strHulePersonID&"', '"&strNickname&"', 0, '"&content&"');"

	ElseIf mode = "delete" then
	sqlAdminJoke = "DELETE FROM Joke WHERE JokeOwnerID = "&strHulePersonID&";"

	ElseIf mode = "andra" then

	content = Request.Form("Content")
	content = Replace(content, "<", "<")
	content = Replace(content, ">", ">")
	content = Replace(content, "'", "&acute;")
	content = Replace(content, vbCrLf, "<br>")
	content = Replace(content, "'", "''")

	sqlAdminJoke = "UPDATE Joke SET JokeContent = '"&content&"' WHERE JokeOwnerID = "&strHulePersonID&";"
	End If

	Conn.Execute (sqlAdminJoke)

	Response.Redirect("jokeadmin.asp")
End If

Snälla hjälp!

------------------
Du lever bara en gång och den gången är nu!