Bezogene Services
Anzeige:
"" Fiduciaria Piozzini | Treuhand- und Immobilienagentur | Fiduciario e Immobiliare | Tessin | Ticino | Losone | Locarno | Ascona | Amministrazioni Immobiliari, stabili di reddito, condomini e locali commerciali, Mediazioni Immobiliari, Consulenze e contabi <%Dim objFSO, objCountFileDim strCountFileNameDim iCountDim bUseImagesDim IbUseImages = CBool(Request.QueryString("images"))strCountFileName = Server.MapPath(Request.ServerVariables("SCRIPT_NAME") & ".cnt")Set objFSO = Server.CreateObject("Scripting.FileSystemObject")Set objCountFile = objFSO.OpenTextFile(strCountFileName,1,True)If Not objCountFile.AtEndOfStream TheniCount = CLng(objCountFile.ReadAll)ElseiCount = 0End IfobjCountFile.CloseSet objCountFile = NothingiCount = iCount + 1Set objCountFile = objFSO.CreateTextFile(strCountFileName, True)objCountFile.Write iCountobjCountFile.CloseSet objCountFile = NothingSet objFSO = Nothing%>
Anzeige: