Foros del Web » Programando para Internet » ASP Clásico »

Tengo un error en un programa ASP

Estas en el tema de Tengo un error en un programa ASP en el foro de ASP Clásico en Foros del Web. Gente a ver si alguien me ayuda, tengo que ahcer una busqueda por razon social y cuando ejecuto mi pagina me dice lo siguiente: Agente ...
  #1 (permalink)  
Antiguo 06/04/2010, 10:14
 
Fecha de Ingreso: abril-2010
Mensajes: 4
Antigüedad: 14 años
Puntos: 0
Tengo un error en un programa ASP

Gente a ver si alguien me ayuda, tengo que ahcer una busqueda por razon social y cuando ejecuto mi pagina me dice lo siguiente:


Agente de usuario: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; msn OptimizedIE8;ESAR)
Fecha: Tue, 6 Apr 2010 16:14:01 UTC

Mensaje: Se esperaba un objeto
Línea: 33
Carácter: 1
Código: 0
Mensaje: Se esperaba un objeto
les paso el codigo a ver si me pueden ayudar porque ya no tengo idea, me dice que es en la linea 33 que al resalto en negrita


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="coneccion/AbrirSessiones.asp" -->
<%
session.LCID = 2057
server.ScriptTimeout = 180

Function Limpiar(dato)
dato = replace(dato,"'","")
dato = replace(dato,";","")
Limpiar = dato
End Function

Function NulosString(sString)
If (isnull(sString)) or (sString="") then
NulosString = "null"
Else
NulosString = "'" & sString & "'"
End If
End Function
seguir = false
errores = ""
mensajes = ""

sRazonSocial = Limpiar(Request.Form("RazonSocial"))

if Request.Form("buscar")<>"" then
seguir = true
if not sRazonSocial="" then
if not validarRazonSocial(sRazonSocial) then
errores=errores&"No existe Razon Social.<br />"
end if
else
errores=errores&"Debe completar la Razon Social<br />" end if
end if

%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title> Ministerio de Trabajo Pcia. de Buenos Aires </title>
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1" />
<link href="Styles/reset-fonts-grids.css" rel="stylesheet" type="text/css">
<link href="Styles/base.css" rel="stylesheet" type="text/css">
<link href="Styles/forms.css" rel="stylesheet" type="text/css">
<script type="text/javascript" src="js/general.js"></script>
</head>

<Script Language="javascript">
function enviar(f,pag){
if (pag!='') f.action=pag;
f.submit();
}
</Script>

<Body>
<div class="content">
<form name="form" id="form" action="empresa_RazonSocial_C.asp" method="post">
<fieldset><legend>Buscar empresas por RAZON SOCIAL</legend>
<small>&nbsp;Ingrese la Razon Social.</small>
<table>
<tr>
<td>Razon Social&nbsp;:&nbsp;</td>
<td><input name="sRazonSocial" type="text" id="sRazonSocial" title="Razón social" onKeyDown="testField(event)" size="44"></td>
</tr>
</table>
</fieldset>
<div class="divBotones">
<input name="Submit" type="button" value="Buscar" onClick="grilla(1);" />
</div>
</form>
<script language="javascript" type="text/javascript">
document.getElementById('sRazonSocial').focus();
document.getElementById('sRazonSocial').select();
</script>
</form>

<%
if not errores="" then
response.Write "<div class='errores' style='300px'>"
response.Write errores
response.Write "</div>"
end if

If seguir and errores="" Then
sql = "spTR_empresa_RazonSocial '"&sRazonSocial&"'"
set rs = Conn.execute(sql)
if rs.eof then
seguir=false
response.Write "<div class='errores' style='300px'>"
response.Write "La empresa no se encuantra en el registro."
response.Write "</div>"
else
sIdEmpresa=rs("IdEmpresa")
scuit = rs("cuit")
sRazonSocial = rs("RazonSocial")
slegProvincia = rs("DomLegProvincia")
LegMunicipio = rs("domlegmunicipio")
sLegLocalidad = rs("domleglocalidad")
End if
end if
%>
</div>
</Body>
</html>
<!--#include file="Coneccion/CerrarSessiones.asp"-->


agradezco su ayuda

Última edición por Angel_18; 06/04/2010 a las 10:57
  #2 (permalink)  
Antiguo 06/04/2010, 11:02
Avatar de AlZuwaga
Colaborador
 
Fecha de Ingreso: febrero-2001
Ubicación: 34.517 S, 58.500 O
Mensajes: 14.550
Antigüedad: 23 años, 2 meses
Puntos: 535
Respuesta: Tengo un error en un programa ASP

Ese end if no puede estar en la misma línea, colocalo debajo de lo que marcaste en negritas.
__________________
...___...
  #3 (permalink)  
Antiguo 07/04/2010, 06:45
 
Fecha de Ingreso: abril-2010
Mensajes: 4
Antigüedad: 14 años
Puntos: 0
Respuesta: Tengo un error en un programa ASP

Cita:
Iniciado por AlZuwaga Ver Mensaje
Ese end if no puede estar en la misma línea, colocalo debajo de lo que marcaste en negritas.
Gracias, corregido, pero me sigue dando el mismo error, alguna ayuda?
  #4 (permalink)  
Antiguo 07/04/2010, 07:22
Avatar de Myakire
Colaborador
 
Fecha de Ingreso: enero-2002
Ubicación: Centro de la república
Mensajes: 8.849
Antigüedad: 22 años, 3 meses
Puntos: 146
Respuesta: Tengo un error en un programa ASP

Una de dos, o el error ya no lo tienes en esa linea o en los includes tienes una variable de objeto llamada errores
  #5 (permalink)  
Antiguo 07/04/2010, 08:39
 
Fecha de Ingreso: abril-2010
Mensajes: 4
Antigüedad: 14 años
Puntos: 0
Respuesta: Tengo un error en un programa ASP

Cita:
Iniciado por Myakire Ver Mensaje
Una de dos, o el error ya no lo tienes en esa linea o en los includes tienes una variable de objeto llamada errores
solucionado, el boton de busqueda me direccionaba a una funcion java script que no existia.
el problema es que ahora funciona todo, sin errores, solo que cuando coloco la razon social para la busqueda, lo toma pero no muestra nada. no se si me explico

Etiquetas: asp, programa
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 01:03.