Erstatte \' med \'\' - hvor skal det sættes ind?

Jeg har en form, med oplysninger, der skal tilføjes til en database, men idet, man ikke kan indtaste tegnet \' i formen, skal jeg have det ændret, således, at det bliver erstattet med \'\'. Så vidt jeg har forstået, skal det gøres med

nyhed = Request.Form(\"news\")
nyhed = Replace(nyhed, \"\'\", \"\'\'\")

Men hvor fa\'en skal det sættes ind? Jeg har prøvet alt muligt og det virker bare ikke... Please help - det haster!

Her er kildekoden til dokumentet:

<%
\'Databaseforbindelse oprettes   
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath(\"/Futurama/nyheder/news.mdb\")
Conn.Open DSN
   
if request (\"mode\") = \"opret\" then

nyhed = Request.Form(\"news\")
nyhed = Replace(nyhed, \"\'\", \"\'\'\")

\' SQL sætning opbygges       
strSQL = \"insert into news (\"

strSQL = strSQL & \"navn, \"
strSQL = strSQL & \"overskrift, \"
strSQL = strSQL & \"nyhed) \"

strSQL = strSQL & \"values (\"

strSQL = strSQL & \"\'\" & request(\"name\") & \"\', \"
strSQL = strSQL & \"\'\" & request(\"head\") & \"\', \"
strSQL = strSQL & \"\'\" & request(\"news\") & \"\')\"

\'SQL sætning eksekveres
Conn.Execute(strSQL)
Response.Redirect \"nyheder.asp\"

\'Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
   
end if
%>

<html>
<head>
<link rel=\"StyleSheet\" href=\"/Futurama/website/style.css\" type=\"text/css\">
<title>Nyhedsoversigt</title>

<script langauge=\"javascript\">

function checkform()
{

      if (document.form.name.value == \"\") {
            alert (\"Du skal skrive dit navn\");
            return false;
      }
      if (document.form.head.value == \"\") {
            alert (\"Du skal skrive en overskrift\");
            return false;
      }
      if (document.form.news.value == \"\") {
            alert (\"Du skal skrive en nyhed\");
            return false;
      }

      form.submit()

}

</script>

</head>

<body leftmargin=\"20\" topmargin=\"20\" marginwidth=\"20\" marginheight=\"20\">
<h1>Skriv/slet nyheder</h1>

<form action=\"nyheder.asp\" name=\"form\">
<input type=\"hidden\" Name=\"Mode\" Value=\"opret\">
<input type=\"hidden\" Name=\"id\" Value=\"<% = Request(\"id\")%>\">

Navn: <br><INPUT type=\"text\" name=\"name\"><p>

Overskrift: <br><INPUT type=\"text\" name=\"head\"><p>
Nyhed: <br><TEXTAREA rows=4 cols=35 name=\"news\">
</TEXTAREA><p>

<input type=\"button\" Value=\"Send\" name=Submit1 onClick=\"checkform()\">
<input type=\"Reset\" Value=\"Slet\" name=Reset1>
</form>

<%
Set Rs = Server.CreateObject(\"ADODB.Connection\")
Rs.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"news.mdb\")

sql = \"SELECT * FROM news order by created desc\"
Set Rec = Rs.Execute(sql)

DO WHILE NOT Rec.EOF
created = Rec(\"created\")
navn = Rec(\"navn\")
id = Rec(\"id\")
nyhed = Rec(\"nyhed\")
nyhed = Replace(nyhed, vbCrLf, \"<br>\")
overskrift = Rec(\"overskrift\")
%>

<hr><p>
<b>Skrevet af: </b><%=navn%>, d. <%=created%><p>
<b> <%=overskrift%></b><p>
<%=nyhed%><p>
<a href=\"slet_nu.asp?id=<%=id%>\">Slet</a><p>

<%
Rec.MoveNext
  LOOP
  RS.Close
Set RS = nothing
%>

</body>
</html>