DICCIONARIO TURÍSTICO PROFESIONAL

<%@LANGUAGE="VBSCRIPT" %> <% On Error Resume Next Dim Letra If Len(Request.querystring("Letra")) = 0 then Letra = "A" Else Letra = Request.querystring("Letra") End If %> <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "dsn=diccionario;" SQL = " SELECT * FROM lexico WHERE (instr(Termino,'"&Letra&"') = 1) AND (Aceptado = 'Si') ORDER BY Termino" Set Datos = Server.CreateObject("ADODB.Recordset") Datos.Open SQL, Conn, 3 %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim Datos_total Dim Datos_first Dim Datos_last ' set the record count Datos_total = Datos.RecordCount ' set the number of rows displayed on this page If (Datos_numRows < 0) Then Datos_numRows = Datos_total Elseif (Datos_numRows = 0) Then Datos_numRows = 1 End If ' set the first and last displayed record Datos_first = 1 Datos_last = Datos_first + Datos_numRows - 1 ' if we have the correct record count, check the other stats If (Datos_total <> -1) Then If (Datos_first > Datos_total) Then Datos_first = Datos_total End If If (Datos_last > Datos_total) Then Datos_last = Datos_total End If If (Datos_numRows > Datos_total) Then Datos_numRows = Datos_total End If End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (Datos_total = -1) Then ' count the total records by iterating through the recordset Datos_total=0 While (Not Datos.EOF) Datos_total = Datos_total + 1 Datos.MoveNext Wend ' reset the cursor to the beginning If (Datos.CursorType > 0) Then Datos.MoveFirst Else Datos.Requery End If ' set the number of rows displayed on this page If (Datos_numRows < 0 Or Datos_numRows > Datos_total) Then Datos_numRows = Datos_total End If ' set the first and last displayed record Datos_first = 1 Datos_last = Datos_first + Datos_numRows - 1 If (Datos_first > Datos_total) Then Datos_first = Datos_total End If If (Datos_last > Datos_total) Then Datos_last = Datos_total End If End If %> DICCIONARIO TURÍSTICO PROFESIONAL

boletin-turistico.com

Diccionario Turístico Profesional

Diccionario de Construccion Colectiva

Moderador: Arq Jorge Valencia Caro
E-mail: jorval1@visat.net.co

Buscar palabra

Proponer palabra

Solicitar palabra

A - B - C - D - E - F - G - H - I - J - K - L - M - N - Ñ - O - P - Q - R - S - T - U - V - W - X - Y - Z

<%=Letra%>

<% Canti = Cint((Datos_total / 3) + 1) 'Response.Write(Canti) i = 1 While i <= Canti %>

','Significado','450','200','300','300');" CLASS="Titulos" onMouseOver="status='<%=(Datos.Fields.Item("Termino").Value)%>' ; return true" onMouseOut="status=''"><%=(Datos.Fields.Item("Termino").Value)%>
<% i = i + 1 Datos.MoveNext Wend %>

<% i = Canti + 1 While i <= (Canti * 2) %><%If Not Datos.EOF Then%>

','Significado','450','200','300','300');" CLASS="Titulos" onMouseOver="status='<%=(Datos.Fields.Item("Termino").Value)%>' ; return true" onMouseOut="status=''"><%=(Datos.Fields.Item("Termino").Value)%><%End if%>
<% i = i + 1 Datos.MoveNext Wend %>

<% i = (Canti + Canti + 1) While i <= (Canti * 3) %><%If Not Datos.EOF Then%>

','Significado','450','200','300','300');" CLASS="Titulos" onMouseOver="status='<%=(Datos.Fields.Item("Termino").Value)%>' ; return true" onMouseOut="status=''"><%=(Datos.Fields.Item("Termino").Value)%><%End if%>
<% i = i + 1 Datos.MoveNext Wend %>

PROYECTO PATROCINADO POR:

<% Datos.Close() Set Datos = Nothing %>