Hvorfor kommer denne fejl når jeg prøve at gemme et \' tegn?

kan du smide noget kode op..?

http://www.activeserverpages.dk/aspdigital/kapitel6/quot_tegnet.asp

Jeg har denne sqlsætning:

strSql = \"INSERT INTO Messages (Emne, Message, Dato, UserID, SvarID, ForumID) VALUES \"
strSql = strSql & \"(\'\" & emne & \"\',\'\" & message & \"\',\'\" & now() & \"\',\'\" & UserID & \"\',\'\" & (intReplyID) & \"\',\'\" & (intForumID) & \"\')\"
Set Connect = Server.CreateObject(\"ADODB.Connection\")
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"Forum.mdb\")
Connect.Open strDSN
Connect.Execute strSql


og jeg prøver at sætte denne tekst ind via et <textarea>:

hejsa jeg hedder anders og ejer andersen\'s maskinfabrik

Function dbStrip(streng)
dbStrip = Replace(streng, \"\'\",\"\'\'\")
End Function

strSql = \"INSERT INTO Messages (Emne, Message, Dato, UserID, SvarID, ForumID) VALUES \"
strSql = strSql & \"(\'\" & dbStrip(emne) & \"\',\'\" & dbStrip(message) & \"\',\'\" & now() & \"\',\'\" & dbStrip(UserID) & \"\',\'\" & (intReplyID) & \"\',\'\" & (intForumID) & \"\')\"

=> netsrac

jeg er ik\' så vild til det med funktioner, og ved derfor ikke hvordan jeg skrive det når jeg har 2 former der skal hentes!

jeg har
Request.Form(\"SvarID\")
Request.Form(\"ForumID\")

De to er vel tal, så det skulle ikke være nødvendigt at bruge den på dem.

Men ellers så
intForumID = dbStrip(Request.Form(\"ForumID\"))

Hvis du indsætter tal i databasen skal du ikke havde \'\' omkring.

strSql = \"INSERT INTO Messages (Emne, Message, Dato, UserID, SvarID, ForumID) VALUES \"
strSql = strSql & \"(\'\" & dbStrip(emne) & \"\',\'\" & dbStrip(message) & \"\',\'\" & now() & \"\',\" & dbStrip(UserID) & \",\" & (intReplyID) & \",\" & (intForumID) & \")\"