salto de linea en textarea + if/else

tocalasam · #1 (**permalink**) 18/07/2007, 09:22

tengo un pequenyo formulario con 3 campos modelo, specs y link pasra dar de alta productos

Código:

<%
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("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/cgi-bin/productos.mdb"))
sqltext = "SELECT * FROM productos"
rst.Open sqltext,cnn,3,3

'Recogemos los datos y validamos que no haya ningun campo vacio
dim modelo, specs, link

modelo = Request.Form("modelo")
specs = Request.Form("specs")
namm07 = Request.Form("link")

if modelo = "" or specs = "" link = ""then
error = "Faltan 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("modelo") = modelo
rst("specs") = specs
rst("link") = link


rst.update

'Terminamos e imprimimos un mensaje

Response.Write("Todo ok")
%>




<html>

<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>EDIROL Iberia</title>
</head>

<body bgcolor="#FFFFFF">

  
  <form method="POST" action="alta_producto.asp">

  <table>
    <tr>
	<td>producto</td>
	<td><input name="modelo" size="40"></td>
    </tr>
	
    <tr>
    <td>specs</td>
    <td><textarea name="specs" cols=50 rows=14></textarea> </font></td>
    </tr>
	
    <tr>
	<td>link</td>
	<td><input name="link" size="40"></font></td>
    </tr>
	
    <tr>
    <td><input type="submit" value="Dar de Alta" name="enviar" style="font-family: Verdana"></font></td>
    </tr>
    </table>

</body>

</html>

el tema es que querrian que me respetara los saltos de lines del textarea y que solo me mostrara la fila de la tabla del link en el caso de que link tuviera contenido. +sabeis como lo puedo hacer

Código:

<%
'Dimension variables
Dim adoCon 			
Dim rsGuestbook		
Dim strSQL			

Set adoCon = Server.CreateObject("ADODB.Connection")
ado.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/cgi-bin/productos.mdb"))
'Set an active connection to the Connection object using DSN connection

'adoCon.Open "DSN=guestbook"
Set rsGuestbook = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM edirol order by modelo asc;"


rsGuestbook.Open strSQL, adoCon

'Loop through the recordset
Do While not rsGuestbook.EOF
	
	'escribeo la tabla
	Response.Write ("<center><TABLE BORDER=1 WIDTH=500>")
	Response.Write ("<TR><td>" & rsGuestbook("modelo") & "</Td>")
	Response.Write ("<td><a href=" & rsGuestbook("link") & "></a></td>")
	Response.Write ("<td>" & rsGuestbook("specs") & ""</td></TR>)


	'Move to the next record in the recordset
	rsGuestbook.MoveNext

Loop

'Reset server objects
rsGuestbook.Close
Set rsGuestbook = Nothing
Set adoCon = Nothing
%>

JuanRAPerez · #2 (**permalink**) 18/07/2007, 10:42

seria si no me equivoco

link = rsGuestbook("link")
if link = "" then
Response.Write ("<td></td>")
else
Response.Write ("<td><a href=" & link & "></a></td>")
end if
specs = replace(rsGuestbook("specs"),vbCrlf,"<br>")
Response.Write ("<td>" & specs & ""</td></TR>)

Suerte

lup!

tocalasam · #3 (**permalink**) 28/07/2007, 13:04

en el tema de los saltos de linea, creo haber seguido al pie de la letra tus indicaciones, pero me da error.
¿sabes donde puede estar?

Código:

Error de Microsoft VBScript en tiempo de ejecución (0x800A005E)
Uso no válido de Null: 'replace'
/webs/product_update4.asp, línea 42

este es el codigo:

Código:

Response.Write ("<TR><td width=150>" & rsGuestbook("modelo") & "</Td>")

descripcion = replace(rsGuestbook("descripcion"),vbCrlf,"<br>")
Response.Write ("<td width=300>" & descripcion & "</td></TR>")

gorka_22 · #4 (**permalink**) 01/08/2007, 16:47

El Replace no le llega nada, al tener valor nulo te da error.
Pon:

Código:

if rsGuestbook("descripcion")<> "" then
descripcion = replace(rsGuestbook("descripcion"),vbCrlf,"<br>")
else
descripcion = "No me llega nada" 'Pon el texto que quieras
end if

La primera linea creo que tambien funcionaría así:

Código:

if not isNull rsGuestbook("descripcion") then

Creo que así funcionará...

u_goldman · #5 (**permalink**) 01/08/2007, 16:51

Cita:

Iniciado por gorka_22

El Replace no le llega nada, al tener valor nulo te da error.
Pon:

if rsGuestbook("descripcion")<> "" then
descripcion = replace(rsGuestbook("descripcion"),vbCrlf,"<br>")
else
descripcion = "No me llega nada" 'Pon el texto que quieras
end if

La primera linea creo que tambien funcionaría así:

if not isNull rsGuestbook("descripcion") then

Creo que así funcionará...

O bien:

Código:

descripcion = replace(rsGuestbook("descripcion")&"",vbCrlf,"<br>")

Saludos

gorka_22 · #6 (**permalink**) 03/08/2007, 04:19

Cita:

Iniciado por u_goldman

O bien:

Código:

descripcion = replace(rsGuestbook("descripcion")&"",vbCrlf,"<br>")

Saludos

Buena solución, si señor...

tocalasam · #7 (**permalink**) 05/08/2007, 15:48

perfecto, funciona.

Muchas gracias por vuestra colaboracion

tocalasam · #8 (**permalink**) 27/08/2007, 17:26

Lo utilizo en este otro codigo y no hace nada. ¿sabeis que algo mal?

Código:

Response.Write ("<td class=modelo>" & rs.fields("modelo") & "</Td>")
descripcion = replace(rs.fields("descripcion")&"",vbCrlf,"<br>")
Response.Write ("<td class=descripcion>" & rs.fields("descripcion") & "</Td>")

gracias

tammander · #9 (**permalink**) 28/08/2007, 01:30

Como te dijo gorka_22, es que no le llega nada desde rs.fields("descripcion"). Vamos, que ese campo es nulo o esta vacio. Eso quiere decir que no se ha hecho correctamente la inserción de datos en ese campo. Chequea si se insertan datos en la página correspondiente.

Un saludo