| |||||||||
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(" |
TENDA EL VENTADORSi penseu emportar un record de la vostra estança en la nostra casa visiteu-nos perquè ben segur que trobareu allò que busqueu. Es la nostra petita tenda on hi podeu trobar una mica de tot . Hem procurat que els productes siguin majoritàriament elaborats per mans de gent artesana. Per encàrrec ,treballs de pintura creativa en paret , fusta, roba,... decoració personalitzada i feta a la mida. Decoració de habitacions infantils, pintura mural, rètols... Que podem comprar
Ben segur que és el lloc ideal per marxar de la Vall amb allò que us agradarà guardar, compartir o assaborir com record de unes bones vacances. SituacióLa trobareu a Barruera , al Passeig Sant Feliu , a la mateixa carretera. |
   |