<%@ language=vbscript%> :: Hostería La Posta del Caminante :: <% Function RandomImage(ImagesFolderPath, ImageFileTypes, ImageDescription) 'Declare variables Dim CompleteImagesFolderPath Dim FileSystemObject Dim ImageFolder Dim Files Dim i Dim ImageFiles Dim File Dim FileName Dim FileExtension Dim RandomNumber 'Find the complete path to image folder by using Server.MapPath CompleteImagesFolderPath = Server.MapPath(ImagesFolderPath) 'response.write CompleteImagesFolderPath 'Create an instance of the FileSystemObject which allows ASP to 'access the file system Set FileSystemObject = Server.CreateObject("Scripting.FileSystemObject") 'Check that the folder containing the images exists If Not FileSystemObject.FolderExists(CompleteImagesFolderPath) Then RandomImage = "Error 0: Cannot find requested folder" Set FileSystemObject = nothing Exit Function End If 'Get the folder containing the images Set ImageFolder = FileSystemObject.GetFolder(CompleteImagesFolderPath) 'Get a list of all the files within the images folder Set Files = ImageFolder.Files 'Use a dictionary object to temporarily store the image file names i = 1 Set ImageFiles = Server.CreateObject("Scripting.Dictionary") 'Loop through the list of files within the images folder. 'If the file has a file extension that is in the list of 'file types specified in the ImageFileTypes function parameter, 'then add the file name to the ImageFiles dictionary object For Each File in Files FileName = File.Name FileExtension = Right(FileName, Len(FileName) - (InStrRev(FileName, "."))) If InStr(1,ImageFileTypes,FileExtension,vbTextCompare) > 0 then ImageFiles.Add i, FileName i = i + 1 End If Next 'Destroy objects that are no longer required 'Set ImageFolder = nothing 'Set Files = nothing 'Set FileSystemObject = nothing 'Initialise the random number generator Randomize ' Check that image file(s) have been found If ImageFiles.Count = 0 Then RandomImage = "Error 1: Requested folder does not contain any image files" Exit Function End If 'Generate a random number between 1 and the number of image files RandomNumber = Int((ImageFiles.Count) * Rnd + 1) 'Return a hyperlink to a random image file RandomImage = " & Chr(34) & ImageDescription & Chr(34) & " Set ImageFiles = nothing End Function %>


Fotos de La Posta

Mapa Ubicación
Reservas



<%response.write(FormatDateTime(date(),vblongdate))%> <% dim h h=hour(now()) If h<12 then response.write(", Buenos días!") else response.write(", Buenas Tardes!") end if %>

  :-Circuito del Oro, la Arquelogía y la Historia-:

<%Response.Write RandomImage("imagenes/random/", "gif jpg", "Desc")%> Ubicada en La Carolina a 83 km de San Luis, en las sierras centrales de la provincia.
Se trata de una antigua villa minera, de cuyos cerros se extrajo gran cantidad de oro durante los siglos XIX y XX. Atravesada por los cerros más altos del cordón serrano, posee paisajes sin igual, arroyos cristalinos donde aún hoy se ensayan sus arenas en busca de alguna chispita de oro, cerros de piedra, pampas de altura, sendas sólo transitadas por las cabras y vistas que son postales.

La Posta del Caminante - Ruta Provincial N° 9 Km.83 - La Carolina
(5701) San Luis - Argentina - Tel/fax. (+54 2652) 15330843