<%
'/////////////////////////////////////////////////////////////////////////////////
'// Inicialização
dim alvo, firstRow, rowCount
' Ir buscar parametros request
alvo = Request("alvo") ' A pesquisa do request
firstRow = Request("fr") ' Primeira linha de resultados a mostrar
rowCount = Request("rc") ' Record Count - numero de linhas a mostrar
' Valores default caso não encontre nada
if firstRow = "" or not IsNumeric(firstRow) Then
firstRow = 1
else
firstRow = CInt(firstRow)
End If
if rowCount = "" or not IsNumeric(rowCount) Then
rowCount = 10
else
rowCount = CInt(rowCount)
End If
Dim ScriptName, ServerName
ScriptName = Request.ServerVariables("SCRIPT_NAME")
ServerName = Request.ServerVariables("SERVER_NAME")
' Construct base URL for navigation buttons
dim URL
URL = ScriptName & "?alvo=" & Server.URLEncode(alvo)
URL = URL & "&rc=" & Server.URLEncode(rowCount)
'/////////////////////////////////////////////////////////////////////////////////
'// O form de pesquisa
%>
Mapa do site sobre a exposição
"PEDRO NUNES: 1502-1578: nouas terras, nouos mares,
e o que mays he: nouo ceo nouas estrellas"
