Amigos del Foro:
Primero que nada buenas!!!! hace tiempo que no estaba posteando aqui porque siempre encontraba que alguien habia tenido la misma duda que yo antes, pero ahora estuve buscando y buscando y no encontré algo que me guiara o me orientara...
Tengo el siguiente problema... tengo una aplicacion enteramente hecha en asp que se conecta a una BDD SQL, hasta aqui todo bien, el programa te pide un usuario y contraseña para ingresar al sistema, luego uno hace consultas, informes, etc. (es un programa de administracion).
El problema está en que cuando querés ver esos resultados para imprimirlos, el programa te habre una ventana Pop-Up para que puedas imprimir, y cuando hace esto, el popup te lanza el error "no se puede mostrar la pagina", el numero de error interno es el 500.100 y la explicacion que aparece en el error es la siguiente:
Tipo de error:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Administrador de controladores ODBC] No se encuentra el nombre del origen de datos y no se especificó ningún controlador predeterminado
/fundador/navigation.asp, line 9
Por lo que yo entiendo, en el archivo navigation.asp en la linea 9, hay alguna cosa mal puesta (no necesariamente ahi, puede ser antes y que arroje el error ahi al no cerrar sintácticamente no?), mas puntualmente la cosa mal puesta es que no se encontró el origen de datos (la base de datos en si) y tampoco se especificó el driver (no se dijo que era SQL)
Voy bien en mi suposicion??? continuemos
El problema es que precisamente en el ODBC, el driver está declarado, la base de datos tambien, el nombre de usuario, la contraseña, hasta el idioma de la BDD está configurado en el DSN, y en otras partes del programa la conexion se establece lo mas bien, es decir, el problema solo lo arroja cuando lanza un pop-up, de lo contrario, si uno no necesitara de eso, pues la BDD arroja los resultados de consultas y demás, sin ningun problema... lo peor de todo esto es que no sé para donde arrancar, porque no sé si es una mala configuracion del IIS, o del SQL Server, o mismo puse algo mal en el codigo, por las dudas, el codigo que hay en la hoja navigation.asp es el siguiente:
<!-- #include file="Fun_dbo.inc"-->
<!-- #include file="Scripts/Inc/Cache.Inc" -->
<%
Cache
SET Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Session("Dataconn_ConnectionString")
Conn.commandtimeout=3600
cSql = "Exec USR_ListaModulos_PerfilesUsuario '" & Session("Login") & "', Null, Null, Null, Null"
Set RsModulos = Conn.Execute( cSql )
Do While Not RsModulos.eof
cModulos = cModulos & RsModulos("Modulo") & "|"
RsModulos.MoveNext
Loop
RsModulos.Close
Set RsModulos = nothing
%>
<html>
<head>
<title><%=Session.SessionId%></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head><BODY bgColor=#4e9c54>
<body background="<%=Session("ImagenFondo")%>" text="black">
<%if Len(trim(cModulos)) > 0 then %>
<form name=menu>
<table align=center border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign=top nowrap>
<input
Style = " font-family:Arial;
font-size:12;
line-height:12pt;
color: rgb(<%=Replace(Session("ColTxtBotNor")," ",",")%>);
background-color: rgb(<%=Replace(Session("ColBotNormal")," ",",")%>);
font-weight: bold"
type=button
name="BotonInicio"
value="Inicio Sesión"
OnClick="JavaScript:fInicio()"
OnMouseOver = "JavaScript:fCambioColorOver()"
OnMouseOut = "JavaScript:fCambioColorOut()"
>
</td>
<td nowrap>
<%
' Response.Write len(trim(Session("Empresa_usuario"))) & " *** " & IsNull(Session("Empresa_usuario"))
cSql = "Exec USR_ListaFuncionesPerfilesUsuario '" & Session("Login") & "', Null, Null, Null, 2"
Set RsOpciones = Conn.Execute( cSql )
Do While Not RsOpciones.eof
' cOpciones = cOpciones & RsOpciones("Modulo") & "¬" & RsOpciones("Grupo") & "¬" & RsOpciones("Funcion") & "¬" & RsOpciones("Nombre") & "|"%>
<applet width="100" height="24" code="PopupNavigator/PopupNavigatorApplet.class" codebase="./" archive="PopupNavigator/PopupNavigator.jar" VIEWASTEXT id=Applet1>
<param name="DefaultFrame" value="Trabajo">
<param name="StatusText" value="Seleccione una opción">
<param name="MenuPosition" value="Bottom">
<param name="MouseoverLabel" value=';;;12;<%=Session("ColTxtBotOvr")%>;<%=Sessi on("ColBotOver")%>'>
<param name="MissingUrl" value="IGNORE">
<param name="Label" value='<%=RsOpciones("Modulo")%>;Arial;Bold;12;<%= Session("ColTxtBotNor")%>;<%=Session("ColBotNormal ")%>'>
<% AModulo = RsOpciones("Modulo")
d = 0
Do While Trim(AModulo) = Trim(RsOpciones("Modulo"))
ASubMenu = RsOpciones("Grupo")
k = 0%>
<param name="<%=d%>" value='<%=RsOpciones("Grupo")%>;Arial;Bold;12'>
<% Do While Trim(AModulo) = Trim(RsOpciones("Modulo")) And Trim(ASubMenu) = Trim(RsOpciones("Grupo"))
if RsOpciones("Funcion") = "asignarempre" then
if ( len(trim(Session("Empresa_usuario"))) = 0 Or IsNull(Session("Empresa_usuario")) ) then %>
<param name="<%=d%>;<%=k%>" value='<%=RsOpciones("Nombre")%>;LlamaPaso.asp?Nom Fun=<%=RsOpciones("Funcion")%>'>
<% k = k + 1
end if
else%>
<param name="<%=d%>;<%=k%>" value='<%=RsOpciones("Nombre")%>;LlamaPaso.asp?Nom Fun=<%=RsOpciones("Funcion")%>'>
<% k = k + 1
end if
RsOpciones.MoveNext
if RsOpciones.eof then
exit do
end if
Loop
d = d + 1
if RsOpciones.eof then
exit do
end if
Loop
if RsOpciones.eof then
exit do
end if
Loop
RsOpciones.Close
Set RsOpciones = nothing
%>
</applet>
</td>
<input type=Hidden name="LimpiaVarSesion" value="">
</tr>
</table>
</form>
<script language="JavaScript">
function fInicio()
{
parent.top.location.href = 'InicioSession.asp'
}
function fCambioColorOver()
{
document.menu.BotonInicio.style.color = 'yellow' ;
document.menu.BotonInicio.style.background = '#4e9c54' ;
}
function fCambioColorOut()
{
document.menu.BotonInicio.style.color = '#2e4b3d' ;
document.menu.BotonInicio.style.background = '#96be9d' ;
}
</script>
</body>
</html>
<%Conn.Close()
else%>
<script language="JavaScript">
alert ( 'Este usuario no tiene opciones asociadas al perfil. \n\n Contáctese con el administrador.' ) ;
parent.top.location.href = "Index1.htm";
</script>
<%end if%>
Alguien puede decirme qué está mal??????????????
