el formulario es el siguiente
html>
<head>
<title>Página principal</title>
<script language="JavaScript">
// Limita los caracteres a introducir en un TextArea y cuenta los que quedan para llegar al final. En este caso, son 200. Para modificar el tamaño, solo hay que cambiar este valor en 'limite(this,200)' y en 'value=200' por el deseado.
function limite(que,cuanto)
{
var v=que.value
if(v.length>cuanto)
que.value=v.substring(0,cuanto)
else
document.reduce.cont.value=cuanto-v.length
}
</script>
</head>
<body>
<form method="POST" name="reduce" action="agrega_noticia.asp">
<p>Categoria:</p>
<p><input type="text" name="Categoria" size="40"> </p>
<p>Titulo:<br>
<input type="text" name="titulo" size="40">
</p>
<p>Copete:<br>
<input type="text" name="copete" size="40">
</p>
<p>Noticia:<br>
<textarea onKeyDown="limite(this,200)" onKeyUp="limite(this,200)" name="`noticia" rows=15 cols=45 ></textarea>
<input name="cont" type="text" size="3" value="200" readonly>
</p>
<p>Ingrese url de la imagen</p>
<p>
<input type="text" name="imagen">
</p>
<p><input type="submit" value="Ingresar noticia" name="enviar"></p></form>
</body>
</html>
ESTE FORMULARIO TIENE UN LIMITADOR DE TEXTAREA
LA HOJA ASP QUE AGREGA LA NOTICIA A LA TABLA ES LA SIGUIENTE:
<%
Response.Buffer = true
dim cnn,rst
' Creamos la conexión a la base de datos sin DSN
set cnn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")
cnn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("noticias.mdb"))
sqltext = "SELECT * FROM Noticias"
rst.Open sqltext,cnn,3,3
'Recogemos los datos y validamos que no haya ningun campo vacio
dim titulo, copete, noticia, imagen
Categoria=Request.Form("Categoria")
titulo = Request.Form("titulo")
copete = Request.Form("copete")
noticia = Request.Form("noticia")
imagen = Request.Form("imagen")
if copete = "" or categoria ="" or titulo ="" then
error = "Debe completar todos los datos."
Response.Write error
Response.End
end if
'Si está todo correcto, procedemos a ingresar los datos a la base de datos
rst.AddNew
rst("Categoria")= Categoria
rst("titulo") = titulo
rst("copete") = copete
rst("noticia") = noticia
rst("imagen") = imagen
rst.update
'Terminamos e imprimimos un mensaje
Response.Write "La noticia se ha ingresado con exito"
%>
<html>
<head>
<title>Página nueva </title>
</head>
<body>
</body>
</html>
QUE DEBO MODIFICAR PARA QUE FUNCIONE TODO OK
