% @ LANGUAGE="VBScript" %> <% on error RESUME NEXT Set oconn = CreateObject("conexion_web.cconexion") oconn.conectar set DataConn = oconn.conexion categoria = "" inicial = "" If Not IsEmpty(Request("categoria")) Then categoria = Request("categoria") If Not IsEmpty(Request("inicial")) Then inicial = Request("inicial") combo = "SELECT DISTINCT b.codigo, b.DESCRIPCION FROM glosario a,categorias b, categorias c where a.categoria_uno = b.codigo " combo = combo & " and a.categoria_2 = c.codigo ORDER BY b.DESCRIPCION" sqlc = "" if categoria <> "" then sqlc = "select termino, categoria_uno from glosario where (categoria_uno = " & categoria & " or categoria_2 = " & categoria & ")" if inicial <> "*" then sqlc = sqlc & " and inicial = '" & inicial & "'" end if sqlc = sqlc & " order by termino" end if %>
Inundación
Creciente
Avalancha
Represamiento
Helada
Huracán
Deslizamiento
Incendios
Contaminación
Marinas
Introducción
Reportes
Pronósticos
Definiciones
Condiciones
meteorológicas
Aeropuertos
Climatología
Vínculos

Los siguientes son los temas
<% lineas = 0
if categoria <> "" then
filasc = 0
SQL = SQLC
Set TEM = DATACONN.Execute(sql)
if NOT TEM.BOF AND NOT TEM.EOF THEN
Response.Write " |