Me podrian ayudar? tengo un modulo web donde un cliente entra y ve un listado de su flota de vehiculos y lo q hace es cuando selecciona unos de sus vehiculos abre una ventana y muestra la ubicacion de ese vehiculo espesifico,
Y lo que quiero es que toda la flota de vehiculo que tiene el cliente muestre en un solo mapa en la cual todabia no puedo desarrollarlo........
este es codigo q busca en SQL los datos de un solo vehiculo en asp:
if session("browser") = "pocket" then
vehiculo_nombre = ""
if request("vehiculo_nombre") <> "" then vehiculo_nombre = request("vehiculo_nombre")
if Session("Tusu_id") = "1" then
Set connect = Server.CreateObject("adodb.connection")
Set vehiculo_listado = Server.CreateObject("adodb.Recordset")
Set cmdtemp = Server.CreateObject("adodb.Command")
connect.Open DSN, user, PASS
sql = "SELECT vehi_id, Vehi_textid, vehi_patente, vehi_marca, vehi_modelo, Vehi_Empr_Id, Empr_Id, Empr_Nombre, "
sql = sql & "veco_modem_puerto, veco_protocolo_default, veco_sms_puerto, veco_packet_puerto, veco_gprs_puerto "
sql = sql & "FROM Vehiculos, Empresas, vehiculo_configuracion "
sql = sql & "WHERE vehi_textid like '%"&vehiculo_nombre&"%' and vehi_empr_id = empr_id and "
sql = sql & "veco_vehi_id = vehi_id ORDER BY empr_nombre, Vehi_textid"
cmdtemp.CommandText = sql
cmdtemp.CommandType = 1
Set cmdtemp.ActiveConnection = connect
vehiculo_listado.Open cmdtemp, , 1, 3
else
' Dim vehiculo_listado__var_user
vehiculo_listado__var_user = "0"
If (Session("usuario_id") <> "") Then vehiculo_listado__var_user = Session("usuario_id")
Set connect = Server.CreateObject("adodb.connection")
Set vehiculo_listado = Server.CreateObject("adodb.Recordset")
Set cmdtemp = Server.CreateObject("adodb.Command")
connect.Open DSN, user, PASS
sql = "SELECT vehi_id, Vehi_textid, vehi_patente, vehi_marca, vehi_modelo, Vehi_Empr_Id, Empr_Id, "
sql = sql & "Empr_Nombre, veco_modem_puerto, veco_protocolo_default, veco_sms_puerto, "
sql = sql & "veco_packet_puerto, veco_gprs_puerto "
sql = sql & "FROM Vehiculos,Vehiculo_usuario, Empresas, vehiculo_configuracion "
sql = sql & "WHERE vehi_id=veus_vehi_id AND vehi_empr_id = empr_id AND "
sql = sql & "veus_usua_id=" & vehiculo_listado__var_user & " and "
if vehiculo_nombre <> "" Then sql = sql & "vehi_textid like '%" & vehiculo_nombre & "%' and "
sql = sql & "veco_vehi_id = vehi_id ORDER BY empr_nombre, Vehi_textid"
cmdtemp.CommandText = sql
cmdtemp.CommandType = 1
Set cmdtemp.ActiveConnection = connect
vehiculo_listado.Open cmdtemp, , 1, 3
End if
y como puedo hacer para que me traiga todos los vehiculos?????
cuando se hace un clikc en unos de los eventos para q muetre un vehiculo es de esta manera:
%>
<table width="240" border="0" cellpadding="0" cellspacing="0" class="marcovechiculolistado">
<tr align="center" valign="middle">
<td width="33%" class="marco_barra">
<a href="#" onClick="MM_openBrWindow('include/browsemap_pocket.asp?vehiculo=<%=(vehiculo_listado .Fields.Item("vehi_id").Value)%>&empr_id=<%=(v ehiculo_listado.Fields.Item("empr_id").Value)%>&am p;patente=<%=(vehiculo_listado.Fields.Item("vehi_p atente").Value)%>&puerto=<%=puerto%>&usua_ id=<%=Session("usuario_id")%>','','status=yes,scro llbars=yes,width=740,height=490')"><%=(vehiculo_li stado.Fields.Item("Vehi_textid").Value)%></a></td>
<td width="33%" class="marco_barra"> <%=(vehiculo_listado.Fields.Item("vehi_marca").Val ue)%>/<%=(vehiculo_listado.Fields.Item("vehi_modelo").Va lue)%></td>
<td width="33%"> <a href=# onClick="MM_openBrWindow('include/facturacion.asp?empr_id=<%=(vehiculo_listado.Field s.Item("empr_id").Value)%>','','status=yes,scrollb ars=yes,width=740,height=490')"><%=(vehiculo_lista do.Fields.Item("Empr_nombre").Value)%></a></td>
</tr>
</table>
<%
como puedo hacer para tirar directo todas las ubicaciones de un vehiculos en um mapa???
