Gracias, Dazuaga, pero me parece que no es eso (ya uso
Titol=Trim(Replace(Request.Form("Titol"), "'", "''")))
Sólo me da error en el campo que es de tipo 'memo'. Algo debe pasar con él.
De todas formas, os incluyo el código de la página del formulario y la del código asp, porque ya me tiene más que harto el tema:
CÓDIGO DEL FORMULARIO
--------------------------
<FORM METHOD="POST" ACTION="insertar_ampli.asp">
<p><br>
</p>
<table width="50%" border="0">
<tr>
<td width="51%" align="right">Data (DD/MM/AA) </td>
<td width="49%" align="left">
<INPUT NAME="Data" TYPE="TEXT" id="Data"></td>
</tr>
<tr>
<td align="right">Títol</td>
<td align="left">
<INPUT NAME="Titol" TYPE="TEXT" id="Titol"></td>
</tr>
<tr>
<td align="right">Subtítol</td>
<td align="left">
<input name="Subtitol" type="text" id="Subtitol"></td>
</tr>
</table>
<p> </p>
<hr>
<table width="50%" border="0">
<tr>
<td align="right">Text:</td>
<td align="left"><textarea name="text" id="text"></textarea>
Text de la notícia</td>
</tr>
<tr>
<td align="right">Font:</td>
<td align="left"><textarea name="font" id="font"></textarea></td>
</tr>
<tr>
<td height="24" align="right"> </td>
<td align="left">Els enllaços han de ser URLs (http://...)</td>
</tr>
<tr>
<td align="right">Enllaç1:</td>
<td align="left"><input name="link1" type="text" id="link1"> </td>
</tr>
<tr>
<td align="right">Enllaç2:</td>
<td align="left"><input name="link2" type="text" id="link2"></td>
</tr>
<tr>
<td align="right">Enllaç3:</td>
<td align="left"><input name="link3" type="text" id="link3"></td>
</tr>
</table>
<p><br>
<br>
<INPUT TYPE="SUBMIT" value="Publicar notícia!">
</p>
</FORM>
CÓDIGO DE 'INSERTAR_AMPLI.ASP' (web que introduce el nuevo registro)
----------------------------------
<HTML>
<HEAD>
<TITLE>Insertar.asp</TITLE>
</HEAD>
<BODY>
<%
'Recogemos los valores del formulario
Data= Request.Form("Data")
'los Trim y Replace solucionan problemas cuando el texto contiene comillas simples
Titol=Trim(Replace(Request.Form("Titol"), "'", "''"))
Subtitol=Trim(Replace(Request.Form("Subtitol"), "'", "''"))
Text=Trim(Replace(Request.Form("text"), "'", "''"))
Font = Trim(Replace(Request.Form("font"), "'", "''"))
link1=Request.Form("link1")
link2=Request.Form("link2")
link3=Request.Form("link3")
'Instanciamos y abrimos nuestro objeto conexion
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "noticias_coetc"
sSQL="Insert Into mejorado (Titol,Subtitol,Data,Text,Font,link1,link2,link3) values ('" & Titol & "','" & Subtitol & "','" & Data & "','" & Text & "','" & Font & "','" & link1 & "','" & link2 & "','" & link3 & "')"
Response.Write sSQL
'Ejecutamos la orden
set RS = Conn.Execute(sSQL)
%>
<h1><div align="center">Registro Insertado</div></h1>
<div align="center"><a href="/noticies/noticias.asp">Visualizar el contenido de
la base</a></div>
<%
'Cerramos el sistema de conexion
Conn.Close
%>
</BODY>
</HTML>
------------------
Espero que me podáis ayudar.
Gracias!