Ver Mensaje Individual
  #1 (permalink)  
Antiguo 13/03/2003, 20:10
roseambar
 
Fecha de Ingreso: marzo-2003
Mensajes: 48
Antigüedad: 22 años, 2 meses
Puntos: 0
Textarea - BBDD

Hola:

Necesito ayuda para solucionar lo siguiente:

A traves de un formulario inserto registros en una BBDD de Access. Una vez que se han tecleado los datos que quiero introducir en la base, se muestran en una pagina para que sean revisados por si hay algun error. Para que se visualicen bien los textarea utilizo:

texto = Replace(texto, CHR(13), "<br>")
Response.Write(texto)

Una vez que se confirma que todos los datos estan bien, se proceden llama a la subrutina para guardarlos en la BBDD, sin embargo al hacer este proceso, para el caso de la informacion introducida a traves de campos textarea, se me graban una serie de espacios en blanco en la BBDD.

Para guardar los datos utilizo la siguiente subrutina

Sub Guardar

Dim Conn, SQL, RS

Set Conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.RecordSet")

Conn.Open "DSN"

nombre = Trim(Request.Form("nombre "))
apellidos= Trim(Request.Form("apellidos"))
programa = Trim(Request.Form("programa"))
observaciones = Trim(Request.Form("observaciones"))
horario = Trim(Request.Form("horario"))

SQL = "Insert into tabla (nombre,apellidos, programa, observaciones) values('" & nombre &"', '"& apellidos &"', '"& programa & "', '" & observaciones &"')"

Set RS = Conn.Execute(SQL)

End Sub

Saludos