%@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