Estamos desarrollando un portal médico y por lo tanto necesitamos manejar en linea una base de datos que muestre la lista de hospitales de cada zona, todo eso ya esta hecho en asp, pero hay un pequeño problemita...
Agregue un SELECT con los registros de las zonas de cada hospital y la idea es que despues de que se selecciona una zona en dicho select, debe aparecer su registro correspondiente, en IExplorer para windows funciona a la perfeccion pero en netscape y en cualquier computadora MAC NO
, que podra estar pasando ?...les doy el link:
http://www.hospitalmex.com/demo/hospitales.html
<%'-----------Código Dinámico------------%>
<%'-----------SELECT con opciones------------%>
<table width="510" align="center" cellspacing="7">
<tr valign="top">
<td colspan="2" align="right" class="NegroBold12"><div align="right">Selecciona la ZONA del Hospital: </div></td>
<td align="left">
<form name="menu" >
<select name="listado" onChange="location.href('hospitales.asp?categoria= ' + menu.listado.options[menu.listado.selectedIndex].value )">
<option value ="">- ZONA -</option>
<option value ="TODAS">* TODAS *</option>
<%
SQL_categoria = "select DISTINCT ZONA from HOSPITALES order by ZONA asc"
set RS_categoria=createobject("ADODB.Recordset")
RS_categoria.open SQL_categoria,conn, 3,3
do while not RS_categoria.eof
categoria = RS_categoria("ZONA")
c = request.querystring("categoria")
if c <> "" then
if c = categoria then
response.write "<option value="&categoria&" selected>"&categoria&"</option>"
elseif c <> categoria then
response.write "<option value="&categoria&">"&categoria&"</option>"
end if
else
response.write "<option value="&categoria&">"&categoria&"</option>"
end if
RS_categoria.movenext
loop
RS_categoria.close
%>
</select>
</form> </td>
</tr>
<%'-------------------------------------------%>
<%
if request.QueryString("categoria")<>"" then
if request.QueryString("categoria") = "TODAS" then
sql = "select * from HOSPITALES order by ZONA asc"
else
sql = "select * from HOSPITALES where ZONA='"&request.QueryString("categoria")&"' order by NOMBRE asc"
end if
set rs=createobject("ADODB.Recordset")
rs.open sql,conn, 3,3
rs.movefirst
for i=1 to rs.recordcount
%>
<tr>
<td colspan="3" width="30%" class="NegroBold12"><%=rs("NOMBRE")%></td>
</tr>
<tr>
<td width="30%"><img src="<%=(RutaImagen + rs("IMAGEN1"))%>" align="absmiddle" ></td>
<td width="30%"><img src="<%=(RutaImagen + rs("IMAGEN2"))%>" align="absmiddle" ></td>
<td><img src="<%=(RutaImagen + rs("IMAGEN3"))%>" align="absmiddle" ></td>
</tr>
<tr>
<td width="30%" ><%=rs("ZONA")%></td>
<td width="30%"><%=rs("TELS")%></td>
<td><%=rs("DIRECCION")%></td>
</tr>
<tr>
<td colspan="3" width="30%" height="25" > </td>
</tr>
<%
rs.movenext
next
rs.close
end if%>
<%'-------------------------------------%>
