Problema con Mostrar Resultado

cookie · #1 (**permalink**) 01/11/2004, 20:40

Hola ¡
buen dia.

Le pido su grandiosa ayuda para mi pequeño problema,

tengo una pagina con una consulta (que muestro abajo), lo que me hace falta y no se como hacer, es que cuando los "campos n_nombre_denominacion_establecimient, n_licen_estatal_u_s, n_acta_constitutiva " tengan el valor de "1" escribir un mensaje que diga Completo y si alguno de los tres campos tiene como valor "0" escribir Incompleto.

Mi codigo es el siguiente

Código:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/conn_tex.asp" -->
<%
Dim rsNegocios
Dim rsNegocios_numRows

Set rsNegocios = Server.CreateObject("ADODB.Recordset")
rsNegocios.ActiveConnection = MM_conn_tex_STRING
rsNegocios.Source = "SELECT id_negocios, n_nombre_denominacion_establecimient, n_licen_estatal_u_s, n_acta_constitutiva FROM texdb.negocios ORDER BY id_negocios DESC"
rsNegocios.CursorType = 0
rsNegocios.CursorLocation = 2
rsNegocios.LockType = 1
rsNegocios.Open()

rsNegocios_numRows = 0
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Untitled Document</title>
</head>

<body>
<p><%=(rsNegocios.Fields.Item("n_nombre_denominacion_establecimient").Value)%>estatus</p>
</body>
</html>
<%
rsNegocios.Close()
Set rsNegocios = Nothing
%>

Gracias de antemano

yiyocastro · #2 (**permalink**) 01/11/2004, 21:20

Cita:

Iniciado por cookie

Hola ¡
buen dia.

Le pido su grandiosa ayuda para mi pequeño problema,

tengo una pagina con una consulta (que muestro abajo), lo que me hace falta y no se como hacer, es que cuando los "campos n_nombre_denominacion_establecimient, n_licen_estatal_u_s, n_acta_constitutiva " tengan el valor de "1" escribir un mensaje que diga Completo y si alguno de los tres campos tiene como valor "0" escribir Incompleto.

Mi codigo es el siguiente

Código:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/conn_tex.asp" -->
<%
Dim rsNegocios
Dim rsNegocios_numRows

Set rsNegocios = Server.CreateObject("ADODB.Recordset")
rsNegocios.ActiveConnection = MM_conn_tex_STRING
rsNegocios.Source = "SELECT id_negocios, n_nombre_denominacion_establecimient, n_licen_estatal_u_s, n_acta_constitutiva FROM texdb.negocios ORDER BY id_negocios DESC"
rsNegocios.CursorType = 0
rsNegocios.CursorLocation = 2
rsNegocios.LockType = 1
rsNegocios.Open()

rsNegocios_numRows = 0
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Untitled Document</title>
</head>

<body>
<p><%=(rsNegocios.Fields.Item("n_nombre_denominacion_establecimient").Value)%>estatus</p>
</body>
</html>
<%
rsNegocios.Close()
Set rsNegocios = Nothing
%>

Gracias de antemano

Haz una condicion if

if rs.fields("opc1")=1 and rs.fields("opc2")=1 and rs.fields("opc3")=1 then 'Estas verificando de q todas tengan el valor igual a 1, entonces la condicion establece.. Tambien puedes trabajar con una variable...
response.write "Completo" 'puede ser variablenombre="Completo"
else
response.write "Incompleto" 'puede ser variablenombre="Incompleto", primero deberias Dim con Option Explicit para que el debug sea mucho mas rápido y eficaz.

cookie · #3 (**permalink**) 01/11/2004, 21:48

lo tengo

Te lo agradezco mucho.