Cual es el error?
Publicado por zulema (45 intervenciones) el 05/04/2004 15:23:44
Siempre se va por el lado else.
<HTML>
<HEAD>
<TITLE>Gabar Cedula</TITLE>
</HEAD>
<BODY bgColor=green text=White topMargin=50 bottomMargin=50>
<%
Cedula = trim (request.form("Cedula")& " ")
Tiene = trim (request.form("Tiene")&" ")
Set Conn = Server.CreateObject("ADODB.Connection")
set cm= server.CreateObject("ADODB.command")
Conn.Open "fondoempleados"
set cm.ActiveConnection=conn
set rs= server.CreateObject("ADODB.recordset")
sql = "SELECT *FROM Socio WHERE Tiene= '" &rtrim(trim(Tiene)) & "'"
set rs = Conn.Execute (sql)
if Tiene = SI Then
%>
<h1><div align="center">Este Numero de Cedula tiene un Credito Actualmente</div></h1>
<A href = "InsertarCedulaAsociado.asp"><font face="verdana" color="#ffffff">
<h4 align="center">Volver a Digitar Numero de Cedula</h4>
<P></P></font> </A>
<%
Else
%>
<A href = "MostrarFormularioCredito.asp"><font face="verdana" color="#ffffff">
<h4 align="center">Ingresar Credito</h4>
<P></P></font> </A>
<%
end if
conn.close
%>
</BODY>
</HTML>
<HTML>
<HEAD>
<TITLE>Gabar Cedula</TITLE>
</HEAD>
<BODY bgColor=green text=White topMargin=50 bottomMargin=50>
<%
Cedula = trim (request.form("Cedula")& " ")
Tiene = trim (request.form("Tiene")&" ")
Set Conn = Server.CreateObject("ADODB.Connection")
set cm= server.CreateObject("ADODB.command")
Conn.Open "fondoempleados"
set cm.ActiveConnection=conn
set rs= server.CreateObject("ADODB.recordset")
sql = "SELECT *FROM Socio WHERE Tiene= '" &rtrim(trim(Tiene)) & "'"
set rs = Conn.Execute (sql)
if Tiene = SI Then
%>
<h1><div align="center">Este Numero de Cedula tiene un Credito Actualmente</div></h1>
<A href = "InsertarCedulaAsociado.asp"><font face="verdana" color="#ffffff">
<h4 align="center">Volver a Digitar Numero de Cedula</h4>
<P></P></font> </A>
<%
Else
%>
<A href = "MostrarFormularioCredito.asp"><font face="verdana" color="#ffffff">
<h4 align="center">Ingresar Credito</h4>
<P></P></font> </A>
<%
end if
conn.close
%>
</BODY>
</HTML>
Valora esta pregunta
0