<%response.buffer = true%> Información Adicional de Sismos Sentidos <% 'cmdSismos.ActiveConnection = strConn cmdSismos.CommandType = adCmdStoredProc cmdSismos.CommandText = "rec_sisFelt" Set prmSismos = cmdSismos.CreateParameter("id", adChar, adParamInput, 12) cmdSismos.Parameters.Append prmSismos cmdSismos.Parameters("id") = request.querystring("id") set rcsSismos = cmdSismos.Execute 'rcsSismos.Filter = "id = " &Request.QueryString("id") lat = rcsSismos("latitude") lon = rcsSismos("longitude") prov = rcsSismos("province") ids = rcsSismos("id") Call convert2point prov = rcsSismos("province") prov = rtrim(prov) %> <%select case rtrim(rcsSismos("Province"))%> <%case "Chile"%> <%case "Jujuy"%> <%case "Salta"%> <%case "Chubut"%> <%case "Rio Negro"%> <%case else%> <%end select%>
01.jpg" width="250" height="465">01.jpg" width="346" height="250">01.jpg" width="346" height="250">01.jpg" width="346" height="250">01.jpg" width="346" height="250">01.jpg" width="250" height="346">
Información Adicional
<%=rcsSismos("year")%>/<%=rcsSismos("month")%>/<%=rcsSismos("day")%> - <%=rcsSismos("hour")%>:<%=rcsSismos("minutes")%>:<%=FormatNumber(rcsSismos("seconds"),1)%>
Latitud <%=FormatNumber(rcsSismos("Latitude"),2)%> Sur
Longitud <%=FormatNumber(rcsSismos("Longitude"),2)%> Oeste
Profundidad <%=FormatNumber(rcsSismos("depth"),1)%> Km
Magnitud <%=FormatNumber(rcsSismos("magnitude"),1)%>
Intensidad
<%=rcsSismos("Intensity")%>
Zona Epicentral
<%=rcsSismos("EpicZone")%>
Comentarios
<%=rcsSismos("Comments")%>
<% rcsSismos.Close Set rcsSismos = Nothing %> <%response.flush%>