Acceptere ikke ' selvom kodning er der.

fncTextChange = Replace(strTekst,"'","''")

//>Rune

Sådan skal det være ;o)

//>Rune

Replace(strTekst,"''","''")

Der giver jo ingen mening.

Hvad er det for en form, du taler om?

Det er en form til at sætte anmeldelser ind i en database. Og den giver fejl når ' medtages i en tekst.
Feks: i 30'erne var der.......

Hvis man bruger fncTextChange = Replace(strTekst,"'","''"), kommer der så ikke 2 '' foran en tekst?

Hvis det skal ind i databasen, skal du gøre som Rune beskriver.

Således bliver ' til '', så du undgår en syntaksfejl. I dit eget eksempel prøver du at erstatte '' med '', og det sker der ingenting ved.

Nej, for det det laver Access selv om... (I know, MS is totally weird! ;o))

//>Rune

Er der så også fejl i denne her?:

fncTextChange = Replace(strTekst,"""","""")

Den behøver du ikke.

Ok, den fjerne jeg :)

- og den giver i øvrigt heller ikke mening ;-)

fncTextChange = Replace(strTekst,"'","''")

- mere behøver du ikke.

Thx 4 Poinz

//>Rune

Hov, det virker altså ikke, den melder fejl

Microsoft JET Database Engine error '80040e14'

Syntax error (missing operator) in query expression ''Test'er', '1')'.

/crew/reviewinsert.asp, line 155

Skaljeg poste hele koden?

ja gør lgie det...

//>Rune

Her kommer den..

<%
If Not Session("lvl") <> "" THEN
Response.redirect "default.asp"
End If
If request.querystring("action") = "Disconnect" THEN
Session.abandon
Response.redirect "default.asp"
End If
%>
<!-- #Include file="top.asp" -->
<h4>Indsæt Biografanmeldelse - Alle felter skal udfyldes.<h4>
<form action="reviewinsert.asp" method="post">
<table class="review" cellpadding="2" cellspacing="0" width="550" border="0" bgcolor="#FFFFFF">
<tr>
  <td class="font">Hvis intet cover/plakat (billede), lad nedenstående stå.</td>
  <td rowspan="8" class="font" align="left">Anmeldelse<br><textarea name="anmeldb" rows="18" cols="35"></textarea><br><input type="image" src="../gfx/send.gif" value="Gem"></td>
</tr>
<tr>
  <td><input value="baggrund/tomfilm.jpg" type="text" name="picb">&nbsp;&nbsp;<a class="menub" title="upload" href="uploadgfx.asp" onclick="NewWindow(this.href,'link','300','400','no');return false;">Upload billede</a></td>
</tr>
<tr>
  <td class="font">Forfatter<br><input type="text" name="forfatterb"></td>
</tr>
<tr>
  <td class="font">Titel<br><input type="text" name="titelb"></td>
</tr>
<tr>
  <td class="font">Boksen - Scene<br><input type="text" name="sceneb"></td>
</tr>
<tr>
  <td class="font">Boksen - Citat<br><input type="text" name="citatb"></td>
</tr>
<tr>
  <td class="font" align="left">Teaser<br><textarea name="teaserb" rows="4" cols="20"></textarea></td>
</tr>
<tr>
  <td class="font" align="left">Handling<br><textarea name="omtaleb" rows="4" cols="20"></textarea></td>
</tr>

<tr>
  <td class="font" align="left">Dit nummer<br><input type="text" name="talb"></td>
</tr>
</form>
<tr>
  <td colspan="2"><hr size="1" color="#7C8E9D" style="height:1px;width:550px;"><br>
    <table cellpadding="2" cellspacing="0" border="0" bgcolor="#FFFFFF" width="550">
  <tr>
    <td class="font">Enter-tasten fungere som linieskift.</td>
    <td>&nbsp;</td>
    <td class="font">Kopier tekst</td>
  </tr>
  <tr>
    <td class="font" bgcolor="#F0EAD1">Indsættelse af billeder. HUSK skal resizes til 300px i bredden!!!</td>
    <td bgcolor="#F0EAD1">&nbsp;</td>
    <td class="font" bgcolor="#F0EAD1">billede.jpg</td>
  </tr>
  <tr>
    <td class="font" bgcolor="#F7F1D7"><b>Fed tekst:</b></td>
    <td bgcolor="#F7F1D7">&nbsp;</td>
    <td class="font" width="200" bgcolor="#F7F1D7">tekst her</td>
  </tr>
  <tr>
    <td class="font" bgcolor="#F0EAD1"><u>Understreget:</U></td>
    <td bgcolor="#F0EAD1">&nbsp;</td>
    <td class="font" bgcolor="#F0EAD1">tekst her</td>
  </tr>
  <tr>
    <td class="font" bgcolor="#F7F1D7"><i>Kursiv:</i></td>
    <td bgcolor="#F7F1D7">&nbsp;</td>
    <td class="font" bgcolor="#F7F1D7">tekst her</td>
  </tr>
  <tr>
    <td class="font">Indsættelse af stjerner i bunden af teksten:</td>
    <td>&nbsp;</td>
    <td class="font">Kopier tekst</td>
  </tr>
  <tr>
    <td bgcolor="#F7F1D7"><img src="../pics/baggrund/s1.gif"></td>
    <td bgcolor="#F7F1D7">&nbsp;</td>
    <td class="font" bgcolor="#F7F1D7">[imgs]s1.gif[/imgs]</td>
  </tr>
  <tr>
    <td class="font" bgcolor="#F0EAD1"><img src="../pics/baggrund/s1k5.gif"></td>
    <td bgcolor="#F0EAD1">&nbsp;</td>
    <td class="font" bgcolor="#F0EAD1">[imgs]s1k5.gif[/imgs]</td>
  </tr>
  <tr>
    <td class="font" bgcolor="#F7F1D7"><img src="../pics/baggrund/s2.gif"></td>
    <td bgcolor="#F7F1D7">&nbsp;</td>
    <td class="font" bgcolor="#F7F1D7">[imgs]s2.gif[/imgs]</td>
  </tr>
  <tr>
    <td class="font" bgcolor="#F0EAD1"><img src="../pics/baggrund/s2k5.gif"></td>
    <td bgcolor="#F0EAD1">&nbsp;</td>
    <td class="font" bgcolor="#F0EAD1">[imgs]s2k5.gif[/imgs]</td>
  </tr>
  <tr>
    <td class="font" bgcolor="#F7F1D7"><img src="../pics/baggrund/s3.gif"></td>
    <td bgcolor="#F7F1D7">&nbsp;</td>
    <td class="font" bgcolor="#F7F1D7">[imgs]s3.gif[/imgs]</td>
  </tr>
  <tr>
    <td class="font" bgcolor="#F0EAD1"><img src="../pics/baggrund/s3k5.gif"></td>
    <td bgcolor="#F0EAD1">&nbsp;</td>
    <td class="font" bgcolor="#F0EAD1">[imgs]s3k5.gif[/imgs]</td>
  </tr>
  <tr>
    <td class="font" bgcolor="#F7F1D7"><img src="../pics/baggrund/s4.gif"></td>
    <td bgcolor="#F7F1D7">&nbsp;</td>
    <td class="font" bgcolor="#F7F1D7">[imgs]s4.gif[/imgs]</td>
  </tr>
  <tr>
    <td class="font" bgcolor="#F0EAD1"><img src="../pics/baggrund/s4k5.gif"></td>
    <td bgcolor="#F0EAD1">&nbsp;</td>
    <td class="font" bgcolor="#F0EAD1">[imgs]s4k5.gif[/imgs]</td>
  </tr>
  <tr>
    <td class="font" bgcolor="#F7F1D7"><img src="../pics/baggrund/s5.gif"></td>
    <td bgcolor="#F7F1D7">&nbsp;</td>
    <td class="font" bgcolor="#F7F1D7">[imgs]s5.gif[/imgs]</td>
  </tr>
</table>

<%if Request.Form("anmeldb") <> "" then
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("../../db/anmeld.mdb")
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open strConnect   
        Function fncTextChange(strText)
            strTekst = Trim(strText)
            fncTextChange = Replace(strTekst,"'","''")
            fncTextChange = Replace(strTekst,"""","""")
            fncTextChange = Replace(fncTextChange,"  "," &nbsp;")
            fncTextChange = Replace(fncTextChange,vbCrLf,"<BR>")
            fncTextChange = Replace(fncTextChange,"å","&aring;")
            fncTextChange = Replace(fncTextChange,"æ","&aelig;")
            fncTextChange = Replace(fncTextChange,"ø","&oslash;")
            fncTextChange = Replace(fncTextChange,"Å","&Aring;")
            fncTextChange = Replace(fncTextChange,"Æ","&AElig;")
            fncTextChange = Replace(fncTextChange,"Ø","&Oslash;")
            fncTextChange = Replace(fncTextChange,"[img]","<center><img src=pics/")
            fncTextChange = Replace(fncTextChange,"[/img]","></center>")
            fncTextChange = Replace(fncTextChange,"[imgs]","<img src=pics/baggrund/")
            fncTextChange = Replace(fncTextChange,"[/imgs]",">")
            fncTextChange = Replace(fncTextChange,"","<b>")
            fncTextChange = Replace(fncTextChange,"","</b>")
            fncTextChange = Replace(fncTextChange,"","<i>")
            fncTextChange = Replace(fncTextChange,"","</i>")
            fncTextChange = Replace(fncTextChange,"","<u>")
            fncTextChange = Replace(fncTextChange,"","</u>")
      End Function
    indhold = fncTextChange(request.form("anmeldb"))
    indholdb = fncTextChange(request.form("teaserb"))
    indholdc = fncTextChange(request.form("omtaleb"))
strSQL = "Insert into anmeld (forfatter, titel, scene, citat, pic, teaser, omtale, anmeld, tal) values('" & Request.Form("forfatterb") & "', '" & Request.Form("titelb") & "', '" & Request.Form("sceneb") & "', '" & Request.Form("citatb") & "', '" & Request.Form("picb") & "', '" & indholdb & "', '" & indholdc & "', '" & indhold & "', '" & Request.Form("talb") & "')"
objConn.Execute(strSQL)
end if
%>
<!-- #Include file="bottom.asp" -->

Du fjerner ganske enkelt linien

  fncTextChange = Replace(strTekst,"""","""")

<%
If Not Session("lvl") <> "" THEN
Response.redirect "default.asp"
End If
If request.querystring("action") = "Disconnect" THEN
Session.abandon
Response.redirect "default.asp"
End If
%>
<!-- #Include file="top.asp" -->
<h4>Indsæt Biografanmeldelse - Alle felter skal udfyldes.<h4>
<form action="reviewinsert.asp" method="post">
<table class="review" cellpadding="2" cellspacing="0" width="550" border="0" bgcolor="#FFFFFF">
<tr>
  <td class="font">Hvis intet cover/plakat (billede), lad nedenstående stå.</td>
  <td rowspan="8" class="font" align="left">Anmeldelse<br><textarea name="anmeldb" rows="18" cols="35"></textarea><br><input type="image" src="../gfx/send.gif" value="Gem"></td>
</tr>
<tr>
  <td><input value="baggrund/tomfilm.jpg" type="text" name="picb">&nbsp;&nbsp;<a class="menub" title="upload" href="uploadgfx.asp" onclick="NewWindow(this.href,'link','300','400','no');return false;">Upload billede</a></td>
</tr>
<tr>
  <td class="font">Forfatter<br><input type="text" name="forfatterb"></td>
</tr>
<tr>
  <td class="font">Titel<br><input type="text" name="titelb"></td>
</tr>
<tr>
  <td class="font">Boksen - Scene<br><input type="text" name="sceneb"></td>
</tr>
<tr>
  <td class="font">Boksen - Citat<br><input type="text" name="citatb"></td>
</tr>
<tr>
  <td class="font" align="left">Teaser<br><textarea name="teaserb" rows="4" cols="20"></textarea></td>
</tr>
<tr>
  <td class="font" align="left">Handling<br><textarea name="omtaleb" rows="4" cols="20"></textarea></td>
</tr>

<tr>
  <td class="font" align="left">Dit nummer<br><input type="text" name="talb"></td>
</tr>
</form>
<tr>
  <td colspan="2"><hr size="1" color="#7C8E9D" style="height:1px;width:550px;"><br>
    <table cellpadding="2" cellspacing="0" border="0" bgcolor="#FFFFFF" width="550">
  <tr>
    <td class="font">Enter-tasten fungere som linieskift.</td>
    <td>&nbsp;</td>
    <td class="font">Kopier tekst</td>
  </tr>
  <tr>
    <td class="font" bgcolor="#F0EAD1">Indsættelse af billeder. HUSK skal resizes til 300px i bredden!!!</td>
    <td bgcolor="#F0EAD1">&nbsp;</td>
    <td class="font" bgcolor="#F0EAD1">billede.jpg</td>
  </tr>
  <tr>
    <td class="font" bgcolor="#F7F1D7"><b>Fed tekst:</b></td>
    <td bgcolor="#F7F1D7">&nbsp;</td>
    <td class="font" width="200" bgcolor="#F7F1D7">tekst her</td>
  </tr>
  <tr>
    <td class="font" bgcolor="#F0EAD1"><u>Understreget:</U></td>
    <td bgcolor="#F0EAD1">&nbsp;</td>
    <td class="font" bgcolor="#F0EAD1">tekst her</td>
  </tr>
  <tr>
    <td class="font" bgcolor="#F7F1D7"><i>Kursiv:</i></td>
    <td bgcolor="#F7F1D7">&nbsp;</td>
    <td class="font" bgcolor="#F7F1D7">tekst her</td>
  </tr>
  <tr>
    <td class="font">Indsættelse af stjerner i bunden af teksten:</td>
    <td>&nbsp;</td>
    <td class="font">Kopier tekst</td>
  </tr>
  <tr>
    <td bgcolor="#F7F1D7"><img src="../pics/baggrund/s1.gif"></td>
    <td bgcolor="#F7F1D7">&nbsp;</td>
    <td class="font" bgcolor="#F7F1D7">[imgs]s1.gif[/imgs]</td>
  </tr>
  <tr>
    <td class="font" bgcolor="#F0EAD1"><img src="../pics/baggrund/s1k5.gif"></td>
    <td bgcolor="#F0EAD1">&nbsp;</td>
    <td class="font" bgcolor="#F0EAD1">[imgs]s1k5.gif[/imgs]</td>
  </tr>
  <tr>
    <td class="font" bgcolor="#F7F1D7"><img src="../pics/baggrund/s2.gif"></td>
    <td bgcolor="#F7F1D7">&nbsp;</td>
    <td class="font" bgcolor="#F7F1D7">[imgs]s2.gif[/imgs]</td>
  </tr>
  <tr>
    <td class="font" bgcolor="#F0EAD1"><img src="../pics/baggrund/s2k5.gif"></td>
    <td bgcolor="#F0EAD1">&nbsp;</td>
    <td class="font" bgcolor="#F0EAD1">[imgs]s2k5.gif[/imgs]</td>
  </tr>
  <tr>
    <td class="font" bgcolor="#F7F1D7"><img src="../pics/baggrund/s3.gif"></td>
    <td bgcolor="#F7F1D7">&nbsp;</td>
    <td class="font" bgcolor="#F7F1D7">[imgs]s3.gif[/imgs]</td>
  </tr>
  <tr>
    <td class="font" bgcolor="#F0EAD1"><img src="../pics/baggrund/s3k5.gif"></td>
    <td bgcolor="#F0EAD1">&nbsp;</td>
    <td class="font" bgcolor="#F0EAD1">[imgs]s3k5.gif[/imgs]</td>
  </tr>
  <tr>
    <td class="font" bgcolor="#F7F1D7"><img src="../pics/baggrund/s4.gif"></td>
    <td bgcolor="#F7F1D7">&nbsp;</td>
    <td class="font" bgcolor="#F7F1D7">[imgs]s4.gif[/imgs]</td>
  </tr>
  <tr>
    <td class="font" bgcolor="#F0EAD1"><img src="../pics/baggrund/s4k5.gif"></td>
    <td bgcolor="#F0EAD1">&nbsp;</td>
    <td class="font" bgcolor="#F0EAD1">[imgs]s4k5.gif[/imgs]</td>
  </tr>
  <tr>
    <td class="font" bgcolor="#F7F1D7"><img src="../pics/baggrund/s5.gif"></td>
    <td bgcolor="#F7F1D7">&nbsp;</td>
    <td class="font" bgcolor="#F7F1D7">[imgs]s5.gif[/imgs]</td>
  </tr>
</table>

<%if Request.Form("anmeldb") <> "" then
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("../../db/anmeld.mdb")
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open strConnect   
        Function fncTextChange(strText)
            strTekst = Trim(strText)
            fncTextChange = Replace(strTekst,"'","''")
            fncTextChange = Replace(strTekst,"""","""")
            fncTextChange = Replace(fncTextChange,"  "," &nbsp;")
            fncTextChange = Replace(fncTextChange,vbCrLf,"<BR>")
            fncTextChange = Replace(fncTextChange,"å","&aring;")
            fncTextChange = Replace(fncTextChange,"æ","&aelig;")
            fncTextChange = Replace(fncTextChange,"ø","&oslash;")
            fncTextChange = Replace(fncTextChange,"Å","&Aring;")
            fncTextChange = Replace(fncTextChange,"Æ","&AElig;")
            fncTextChange = Replace(fncTextChange,"Ø","&Oslash;")
            fncTextChange = Replace(fncTextChange,"[img]","<center><img src=pics/")
            fncTextChange = Replace(fncTextChange,"[/img]","></center>")
            fncTextChange = Replace(fncTextChange,"[imgs]","<img src=pics/baggrund/")
            fncTextChange = Replace(fncTextChange,"[/imgs]",">")
            fncTextChange = Replace(fncTextChange,"","<b>")
            fncTextChange = Replace(fncTextChange,"","</b>")
            fncTextChange = Replace(fncTextChange,"","<i>")
            fncTextChange = Replace(fncTextChange,"","</i>")
            fncTextChange = Replace(fncTextChange,"","<u>")
            fncTextChange = Replace(fncTextChange,"","</u>")
      End Function
    indhold = fncTextChange(request.form("anmeldb"))
    indholdb = fncTextChange(request.form("teaserb"))
    indholdc = fncTextChange(request.form("omtaleb"))
strSQL = "Insert into anmeld (forfatter, titel, scene, citat, pic, teaser, omtale, anmeld, tal) values('" & Request.Form("forfatterb") & "', '" & Request.Form("titelb") & "', '" & Request.Form("sceneb") & "', '" & Request.Form("citatb") & "', '" & Request.Form("picb") & "', '" & Replace(indholdb, "'", "''") & "', '" & Replace(indholdc, "'", "''") & "', '" & Replace(indhold, "'", "''") & "', '" & Request.Form("talb") & "')"
objConn.Execute(strSQL)
end if
%>
<!-- #Include file="bottom.asp" -->

//>Rune

*G* du har ret Erik =)

//>Rune

Hehe. jamen mange tak!! Det prøve jeg, skrive lige tilbage om det virker :)

Virker. Tak igen!