asp problema como hace if

gabo543 · #1 (**permalink**) 28/11/2008, 16:50

hola de nuevo denante no me explique muy bien pero ahora intentare este es mi codigo con una dabe se datos en access lo que quiero hacer es que cuando llame a la informacion de la base de datos no me aparescan espacios en blanco porque algunas personas no completan todo el formulario como se puede hacer para que ese espacio en blanco no salga y aparesca sin esos espacios solo que aparesca la informacion que el relleno.

muchas gracias


<%

%>



<%
Dim sql,rsUser
sql = "SELECT * FROM Users WHERE username = '" & username & "'"
Set rsUser = Server.CreateObject("ADODB.Recordset")
rsuser.Open sql, dbconn, 3, 3
%>
<style type="text/css">

</style>
<body bgcolor="">
</td>
<td width="30%" height="0" align=bgcolor="#F78009" bgcolor="#F78009"><%=rsUser("instalaciones1")%> 
<%=rsUser("instalaciones2")%> 
<%=rsUser("instalaciones3")%> 
<%=rsUser("instalaciones4")%> 
<%=rsUser("instalaciones5")%> 
<%=rsUser("instalaciones6")%> 
<%=rsUser("instalaciones7")%> 
<%=rsUser("instalaciones8")%> 
<%=rsUser("instalaciones9")%> 
<%=rsUser("instalaciones10")%> 
<%=rsUser("instalaciones11")%> 
<%=rsUser("instalaciones12")%> 
<%=rsUser("instalaciones13")%> 
<%=rsUser("instalaciones14")%> 
<%=rsUser("instalaciones15")%> 
<%=rsUser("instalaciones16")%> 
<%=rsUser("instalaciones17")%> 
<%=rsUser("instalaciones18")%> 

 
</td>
<td width="31%" height="0" align= bgcolor="#F78009" bgcolor="#F78009"><%=rsUser("instalaciones58")%> 
<%
rsUser.close
set rsUser = nothing
%>
<%
dbconn.close
set dbconn = nothing
%>

GUAPOBEN · #2 (**permalink**) 28/11/2008, 17:05

Hola, pues no encontre tu IF, pero bueno.

Creo que podrias hacer algo asi:

<%if rsUser("instalaciones5")>0 then%><%=rsUser("instalaciones5")%><%end if%>

Con esto en cada una de las lineas debera de ver si existe algo en el campo aparecera la linea si no no la pintara en el html.

Espero te sirva.

PD: Se podria cambiar el >0 por otra cosa como ="" etc,etc.

gabo543 · #3 (**permalink**) 28/11/2008, 17:31

no me funciono me da error...

en que parte del codigo lo pusiste tu ?..

saludos

GUAPOBEN · #4 (**permalink**) 28/11/2008, 17:35

Si pones el error que te arroja y el codigo con la linea del error que te manda podriamos revisarlo.

Saludos.

gabo543 · #5 (**permalink**) 28/11/2008, 17:45

ahora no me da el error ajajaj

pero lo que yo quiero es ejemplo si la instalacion5 no la chequeo la persona , yo cuando llame a la base de datos me aparesca instalacion4 no quiero q aparesca instalacion4
instalacion6
instalacion6
ese espacio blanco es el que yo digo..

gracias

gabo543 · #6 (**permalink**) 28/11/2008, 17:46

.............instalacion4......................... .....instalacion4.........
.............instalacion6......................... ....................................
.................................................. ............instalacion6........

ese espacio no lo quiero....

GUAPOBEN · #7 (**permalink**) 28/11/2008, 18:03

Charros, tal vez estoy muy sope, pero yo ya no te entendi nada.

Lo que yo te puse es un IF para que al traerte los datos de tu base valide si existe algo en el campo si esta vacio no pinte la linea de instalacion4 por decirlo asi, sin embargo no se a que te refieres con el espacio en blanco.

El if lo tendrias que poner en cada linea que deseas mostrar algo asi:

<%if rsUser("instalaciones5")="OK" then%><%=rsUser("instalaciones5")%><%end if%>
<%if rsUser("instalaciones6")="Ok" then%><%=rsUser("instalaciones6")%><%end if%>
<%if rsUser("instalaciones7")="OK" then%><%=rsUser("instalaciones7")%><%end if%>

Por ejemplo en los if de arriba se le esta diciendo: Si instalaciones5 es igual a OK entonces pintalo, si este viniera vacio no pintaria esa linea.

Ojala y me haya explicado mejor.

Saludos cordiales.

Myakire · #8 (**permalink**) 29/11/2008, 08:16

Esta muy fácil tu problema

Solo debes de poner un ciclo como este para únicamente pintar los campos que tengan información:

Código:

  if Not rs.Eof then
	   For i=0 To rs.Fields.Count-1 
		    if (not IsNull(rs.Fields(i))) and (LEN(Trim(rs.Fields(i).value))>0) Then%>
		 <p><font size="2"><b><%=rs.Fields(i).name & " = " & rs.Fields(i) & " (" & LEN(Trim(rs.Fields(i).value)) & ")"%></b></font><br>
<%      End if
		 Next

and that's all my folk

civernetico · #9 (**permalink**) 30/11/2008, 09:22

Brother me podias decir como encontrar ayuda sobre como programar ASP con JavaScript, no otro Script, donde las variables se declaran con var y no con:

Set
Dim

y los ciclos se hacen como en c++

si acudes aydarme escribeme en el foro o ami email:
[email protected]

gabo543 · #10 (**permalink**) 01/12/2008, 06:48

hola

gracias por la ayuda pero en que parte te mi codigo tengo que agregar eso que me dices la verdad es que no se donde....
if Not rs.Eof then
For i=0 To rs.Fields.Count-1
if (not IsNull(rs.Fields(i))) and (LEN(Trim(rs.Fields(i).value))>0) Then%>
<%=rs.Fields(i).name & " = " & rs.Fields(i) & " (" & LEN(Trim(rs.Fields(i).value)) & ")"%> 
<% End if
Next

Myakire · #11 (**permalink**) 01/12/2008, 08:22

Cómo que dónde ? si analizas el código, lo que hace es pintar una linea por cada campo del recordset siempre y cuando tenga información, es exactamente lo que quieres, entonces debe de ir en lugar de todos los response.write abreviados que tienes.

¿ya más o menos?

Adler · #12 (**permalink**) 01/12/2008, 08:24

Con permiso Maykire

Código asp:

Ver originalSet rsUser = Server.CreateObject("ADODB.Recordset")
rsuser.Open sql, dbconn, 3, 3
if Not rsuser.Eof then
......
<td width="30%" height="0" align=bgcolor="#F78009" bgcolor="#F78009">
<%
For i=0 To rs.Fields.Count-1
if (not IsNull(rs.Fields(i))) and (LEN(Trim(rs.Fields(i).value))>0) Then%>
<p><font size="2"><b><%=rs.Fields(i).name & " = " & rs.Fields(i) & " (" & LEN(Trim(rs.Fields(i).value)) & ")"%></b></font><br>
<% End if
Next

Suerte

Myakire · #13 (**permalink**) 01/12/2008, 08:36

No hay problema Adler, solo que hay que hacer un ligero apunte, ese código lo hice así a lo rápido para comprobar que funciona, luego lo copié y pegué suponiendo que gabo543 lo entendería lo suficiente para modificarlo, la impresión así como lo puse imprime el nombre del campo que tiene información y su contenido, así como la longitud entre paréntesis, lo que ne realidad hay que poner es un condicional para que funcione solo con los campos con prefijo "instalaciones", algo así como esto (permiso para usar tu ajuste

):

Código:

      Set rsUser = Server.CreateObject("ADODB.Recordset")
      rsuser.Open sql, dbconn, 3, 3
      if Not rsuser.Eof then
      ......
      <td width="30%" height="0" align=bgcolor="#F78009" bgcolor="#F78009">
      <%
      For i=0 To rs.Fields.Count-1
      if LEFT(rs.Fields(i).name, 13) = "instalaciones" Then
         if (not IsNull(rs.Fields(i))) and (LEN(Trim(rs.Fields(i).value))>0) Then%>
</b></font><font size="2"><b><%=rs.Fields(i).value%><br>
      <% 
          End If
      End if
      Next

GUAPOBEN · #14 (**permalink**) 01/12/2008, 10:35

A pues mira que esto si es una solucion completa.

Hasta a mi me servira.

Saludos.

gabo543 · #15 (**permalink**) 02/12/2008, 04:41

hola muchas gracias por todo lo que haz hecho pero sabes aun no puedo hacer funcionar el codigo que haz hecho lo podrias poner tu dentro de este codigo para guiarme ya que no me resulta no se porque...


<%

%>



<%
Dim sql,rsUser
sql = "SELECT * FROM Users WHERE username = '" & username & "'"
Set rsUser = Server.CreateObject("ADODB.Recordset")
rsuser.Open sql, dbconn, 3, 3
%>
<style type="text/css">


</style>

<body bgcolor="">
</td>

<td width="30%" height="0" align=bgcolor="#F78009" bgcolor="#F78009"><%=rsUser("instalaciones1")%> 
<%=rsUser("instalaciones2")%> 
<%=rsUser("instalaciones3")%> 
<%=rsUser("instalaciones4")%> 

<%
rsUser.close
set rsUser = nothing
%>
<%
dbconn.close
set dbconn = nothing
%>

tu codigo

Set rsUser = Server.CreateObject("ADODB.Recordset")
rsuser.Open sql, dbconn, 3, 3
if Not rsuser.Eof then
......
<td width="30%" height="0" align=bgcolor="#F78009" bgcolor="#F78009">
<%
For i=0 To rs.Fields.Count-1
if LEFT(rs.Fields(i).name, 13) = "instalaciones" Then
if (not IsNull(rs.Fields(i))) and (LEN(Trim(rs.Fields(i).value))>0) Then%>
<%=rs.Fields(i).value%> 
<%
End If
End if
Next

podrias poner tu codigo en el mio para saber donde es...

gabo543 · #16 (**permalink**) 03/12/2008, 10:21

alguien me ayuda por favor...

Myakire · #17 (**permalink**) 03/12/2008, 14:16

Mira, si no siquiera puedes (o quieres) colocar ese código dentro del tuyo, dudo mucho que puedas con algún otro asunto que surgiera en un futuro próximo, en los foros normalmente solo encuentran ayudas parciales, guías, ya que uno no tiene tanto tiempo como para estar analizando los códigos de otras personas, máxime cuando esa persona no quiere siquiera pensarle tantito en analizar la ayuda que recibió, y eso lo digo por como "incorporaste" el código planteado aquí al tuyo, solo lo copiaste y lo pegaste ¡¡con los puntos suspensivos y todo!!

Tu código abre un recordset, asume que tendrá información (ahí existe un potencial error) y se agarra pintando campos ..... aaahhh, pues exactamente eso hace el código que te pusimos, entonces es ahí donde lo deberías de modificar para que te sirviera ....

Código:

rsuser.Open sql, dbconn, 3, 3
For i=0 To rsuser.Fields.Count-1
if LEFT(rsuser.Fields(i).name, 13) = "instalaciones" Then
if (not IsNull(rsuser.Fields(i))) and (LEN(Trim(rsuser.Fields(i).value))>0) Then%>
</b></font><font size="2"><b><%=rsuser.Fields(i).value%><br>
<%
End If
End if
Next
rsUser.close

Cabe mencionar que el diseño del código que pones esta completamente incorrecto, no defines tablas, no abres/cierras etiquetas, tienes atributos sin valor ... vamos ¿que es esto?

Cita:

¿para qué el bgcolor? ¿dónde abres la etiqueta SPAN? ¿dónde defines la etiqueta TABLE y donde inicias el TR y el TD?

En fin, suerte con tu trabajo