Apartaments era baix, totalment equipats, situats a Barruera, Vall de Boí, Pirineu de Lleida

Volt Tour

Visitas: <% 'Dimension variables Dim fsoObject 'File System Object Dim tsObject 'Text Stream Object Dim filObject 'File Object Dim lngVisitorNumber 'Holds the visitor number Dim intWriteDigitLoopCount 'Loop counter to display the graphical hit count 'Create a File System Object variable Set fsoObject = Server.CreateObject("Scripting.FileSystemObject") 'Initialise a File Object with the path and name of text file to open Set filObject = fsoObject.GetFile(Server.MapPath("contador.txt")) 'Open the visitor counter text file Set tsObject = filObject.OpenAsTextStream 'Read in the visitor number from the visitor counter file lngVisitorNumber = CLng(tsObject.ReadAll) 'If the session variable is null or does not exsist then increment the counter number If isEmpty(Session("blnCounterSet")) = True Then 'Increment the visitor counter number by 1 lngVisitorNumber = lngVisitorNumber + 1 'Set the session variable to true Session("blnCounterSet") = True End if 'Create a new visitor counter text file over writing the previous one Set tsObject = fsoObject.CreateTextFile(Server.MapPath("contador.txt")) 'Write the new visitor number to the text file tsObject.Write CStr(lngVisitorNumber) 'Reset server objects Set fsoObject = Nothing Set tsObject = Nothing Set filObject = Nothing 'HTML output to display the visitor number 'Display the hit count as text 'Response.Write("Visitant n. ") 'response.Write(""&lngVisitorNumber&"") response.Write(lngVisitorNumber) %>

CONTACTA AMB NOSALTRES

Els camps en negreta són obligatoris

Nom de la empresa: Centre Hípic Casa Coll
CIF: 41094429F
Seu: Casa Coll, CP 25527 Barruera (Lleida)
Tel.: 973 69 40 72
Fax: 973 69 40 72
E-mail: info@apartamentserabaix.com

* Centre Hípic Casa Coll respecta el dret de privacitat en tota la seva web amb l'objectiu de defensar els principis de protecció de les dades personals dels seus usuaris. En cap cas es destinaran les seves dades a altres fins diferents dels que apareixen en aquesta web ni es lliuraran a tercers.

<% '====================================================================== select case lcase(request("mod")) case "contacto": server.Execute("asponline/mod/email/email.asp") case else: if request("u")="" then u="qsomos" else u = request("u") response.write(getFileContent(request("mod"), "cat/"&u&".htm", "", "", false, true)) end select '====================================================================== %>