:: Welcome To Malpani Estates ::

Malpani Group is one of the most diversified business groups' in Maharashtra. With a group turnover of around Rs. 200 Cr. Malpani group has grown with exceptional pace. Having established itself as one of the biggest player in the field of chewing tobacco, well known name in leisure business like water parks, hotels, etc.

As a part of this expansion, Malpani Group has ventured into Real Estate sector. Starting its real estate forte from Pune, It is committed to give exceptional construction quality, space and service.

<% Dim strHitCount Dim intDigit strHitCount = CStr(GetHitCount()) %> <% For I = 1 to Len(strHitCount) intDigit = CLng(Right(Left(strHitCount,I),1)) %> <% Next %>

You are visitor Number

<% Private Function GetHitCount() Dim objFS Dim strHitCount Dim intHitCount Const strInitialCount = "1" On Error Resume Next strFileName = Server.MapPath("HitCount.txt") Set objFS = Server.CreateObject("Scripting.FileSystemObject") If Not Session("HitCountUpdated") Then If objFS.FileExists(strFileName) = False Then Set objFS = objFS.CreateTextFile(strFileName) objFS.Write strInitialCount intHitCount = 1 Else Set objFS = objFS.OpenTextFile(strFileName) intHitCount = CLng(Trim(objFS.ReadAll)) objFS.Close Set objFS = Nothing Set objFS = Server.CreateObject("Scripting.FileSystemObject") Set objFS = objFS.CreateTextFile(strFileName) intHitCount = intHitCount + 1 strHitCount = CStr(intHitCount) objFS.Write strHitCount End If objFS.Close Set objFS = Nothing Session("HitCountUpdated") = True Else Set objFS = objFS.OpenTextFile(strFileName) intHitCount = CLng(Trim(objFS.ReadAll)) objFS.Close Set objFS = Nothing End If GetHitCount = intHitCount Err.Clear End Function %>

Site powered by ikf.co.in