Que tal como están necesito ayuda con este módulo que no puedo hacer que funcione es de un ingreso de clientes está montado en una ip pública con IIS 6.0 windows 2003 server. El mismo está ubicado en el directorio C:\Inetpub\wwwroot\modulo_web
el mismo contiene dos componentes .DLL que registré con REGSVR32 directorio donde se encuentran los DLL desde INICIO + EJECUTAR y se instalaron correctamente.
llamo en el browser a local host ó en su defecto a la ip local y me sale el home que me pide el usuario y contraseña me logueo ingresa todo bien hasta acá me muestra el panel de vehículos del clientes, es un módulo gps, y cuando selecciono un vehículo para visualizar en mapa me lanza el sgte error:
Páginas Active Server error 'ASP 0115'
Error inesperado
/include/browsemap.asp
Error capturable (C0000005) en un objeto externo. La secuencia de comandos no puede continuar.
He probado con varios métodos en internet pero no he logrado nada positivo inclusive he dado los permisos necesarios a las carpetas. En fin se me agotaron las ideas....¿me podran ayudar??
Este es el archivo asp que lanza el error, este es su código fuente:
<!--#include file="config.asp" -->
<!--#include file="mapa.asp" -->
<%
usuario_id = server.UrlEncode(Session("usuario_id"))
actualiza=Session("actualiza")
%>
<%=map_mapcoords%>
<html>
<head>
<title><%=empresa%></title>
<meta name="keywords" content="">
<meta name="description" content="">
<link rel="stylesheet" href="../style/styleinterior.css" style type="text/css">
<meta http-equiv="refresh" content="<%=time_actualiza%>">
<% If VerGoogle=1 Then %>
<!--#include file="VerGoogleMap.asp" -->
<% End If%>
</head>
<body bgcolor="#ffffff" <% If VerGoogle=1 Then Response.Write "onload='Googleload()' onunload='GUnload()'>" %> >
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="420" height="455" align="left" valign="top">
<% If VerGoogle = 0 Then %>
<% 'ACA VA EL CODIGO PARA EL MAPA SHAPE%>
<table width="420" height="450" border="0" cellpadding="0" cellspacing="0" class="marco">
<tr>
<td width="420" height="400" align="center" valign="top"><img src="<%=map_gif%>" name="mapagenerado" width=<%=tm_x%> height=<%=tm_y%> border="0" usemap="#coordenadas"></td>
</tr>
<tr>
<td width="420" height="50" align="center" valign="bottom"> <img name="barra_nav_mapa" src="http://www.forosdelweb.com/f15/images/barra_nav_mapa.gif" width="420" height="50" border="0" usemap="#m_barra_nav_mapa" alt=""></td>
<map name="m_barra_nav_mapa">
<area shape="rect" coords="374,4,392,22" href="<%=map_arriba_arriba%>" alt="Mover hacia Arriba" >
<area shape="rect" coords="359,19,377,35" href="<%=map_izquierda %>" alt="Mover hacia la Izquierda" >
<area shape="rect" coords="375,34,393,47" href="<%=map_abajo_abajo %>" alt="Mover hacia Abajo" >
<area shape="rect" coords="389,20,405,34" href="<%=map_derecha %>" alt="Mover hacia la Derecha" >
<area shape="circle" coords="94,27, 9" href="<%=map_zoom_in%>" alt="Acercar Mapa" >
<area shape="circle" coords="27,28,9" href="<%=map_zoom_out%>" alt="Alejar Mapa" >
<% if actualiza = "1" then
Response.Write "<area shape='rect' coords='165,8,250,44' href='actualizar.asp?vehiculo=" & vehiculo_id & "&empr_id=" & empr_id & "&usua_id=" & usuario_id & "&puerto=" & puerto & "&text_id=" & posiciones_ultimas("Vehi_textid") & "' target='_blank' alt='Actualizar Posicion'>"
end if %>
<area shape="rect" coords="34,36,47,53" href="<%=map_zoom_r1%>" alt="Zoom Ruta 1">
<area shape="rect" coords="53,36,67,56" href="<%=map_zoom_r2%>" alt="Zoom Ruta 2">
<area shape="rect" coords="72,37,86,53" href="<%=map_zoom_r3%>" alt="Zoom Ruta 3">
</map>
</tr>
</table>
<% Else %>
<% 'ACA VA EL CODIGO PARA VER EL MAPA DE GOOGLE MAP %>
<table width="420" height="450" border="0" cellpadding="0" cellspacing="0" class="marco">
<tr>
<td width="420" height="400" align="center" valign="top">
<div id="map" style="width: 420px; height: 450px"></div>
</td>
</tr>
</table>
<% End If %>
</td>
<td width="10" valign="top"></td>
<td valign="top"> <table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#808080" class="marco">
<tr bgcolor="#333333">
<td height="20" colspan="2" class="cuadroabajo">
<div align="center"><img src="http://www.forosdelweb.com/f15/images/informacion.gif" width="91" height="30"></div>
</td>
</tr>
<tr bgcolor="<%=grilla_color1%>">
<td width="25%" height="15">Fecha de Reporte:</td>
<td><b><%=Fecha_Formateada%></b></td>
</tr>
<tr bgcolor="<%=grilla_color2%>">
<td width="25%" height="15">Vehículo:</td>
<td><b><%=posiciones_ultimas("Vehi_textid")%></b> </td>
</tr>
<tr bgcolor="<%=grilla_color1%>">
<td width="25%" height="15">Patente:</td>
<td><b><%=Vehi_patente %></b></td>
</tr>
<tr bgcolor="<%=grilla_color2%>">
<td width="25%" height="15">Velocidad:</td>
<td><b><%=posiciones_ultimas("Poul_velocidad") & " Km/h" %></b></td>
</tr>
<tr bgcolor="<%=grilla_color1%>">
<td width="25%" height="15">Sentido:</td>
<td><b><%=Poul_Sentido%></b></td>
</tr>
<% If MostrarUltimoEvento=1 Then
grilla_color3 = grilla_color1
%>
<tr bgcolor="<%=grilla_color2%>">
<td width="25%" height="15">Evento:</td>
<td><b><%=NombreEvento%></b></td>
</tr>
<%
Else
grilla_color3 = grilla_color2
End If
%>
<% if posiciones_ultimas("DifHoras") > 1 And posiciones_ultimas("poul_edad") = 255 Then %>
<tr bgcolor="<%=grilla_color3%>">
<td width="25%" height="15">Estado:</td>
<td align="center"><b><%= "GPS no actualizado" %></b></td>
</tr>
<% end if %>
<tr bgcolor="#808080">
<td> </td>
<td> </td>
</tr>
<% If direccion <> "" Then %>
<tr bgcolor="<%=grilla_color1%>">
<td width="25%" height="15">Calle:</td>
<td><b><%=calle_nombre%></b></td>
</tr>
<tr bgcolor="<%=grilla_color2%>">
<td width="25%" height="15">Altura:</td>
<td><b><%=altura%></b></td>
</tr>
<tr bgcolor="<%=grilla_color1%>">
<td width="25%" height="15">Intersección:</td>
<td><b><%=Intersecciones%></b></td>
</tr>
<tr bgcolor="<%=grilla_color2%>">
<td width="25%" height="15">Localidad:</td>
<td><b><%=localidad%></b></td>
</tr>
<tr bgcolor="<%=grilla_color1%>">
<td width="25%" height="15">Partido:</td>
<td><b><%=partido%></b>
</td>
</tr>
<tr bgcolor="<%=grilla_color2%>">
<td width="25%" height="15">Provincia:</td>
<td><b><%=provincia%></b></td>
</tr>
<% End If 'Chequeo de Direccion
%>
</table>
<table><tr>
<% IF VerGoogle=0 Then %>
<% salta_google = salta_google & "&posX=" & posX & "&Posy=" & PosY %>
<tr><td><a href="<%=salta_google & "&Google=1"%>"><img src="http://www.forosdelweb.com/f15/images/google-maps-logo.gif" width="195" height="40" border="0" ></a></td></tr>
<% Else %>
<tr><td><a href="<%=salta_google & "&Google=0"%>"> Ver con Mapa local</a></td></tr>
<% End If%>
</tr>
</table>
<% if Session("checkbox") = "1" and 1 = 0 then %>
<!--#include file="checkbox.asp" -->
<% end if %>
</td>
</tr>
</table>
</body>
</html>
<%
posiciones_ultimas.Close()
Set posiciones_ultimas = Nothing
%>
