.

Add. : No. 7 Nguyen Thien Thuat St. - Ward. 2 / 3 District

 Ho Chi Minh City - Viet Nam

Shop : (+84.8) 8350091 Home : (+84.8) 8490905

Mobil : (+84) 903.990020

Email : ducngan@hcm.fpt.vn

<% Dim objFSO, objCountFile Dim strCountFileName Dim iCount Dim bUseImages Dim I bUseImages = false strCountFileName = server.MapPath ("cgi-bin/ducngan_e.cnt") Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objCountFile = objFSO.OpenTextFile(strCountFileName, 1, True) If Not objCountFile.AtEndOfStream Then iCount = CLng(objCountFile.ReadAll) Else iCount = 0 End If objCountFile.Close Set objCountFile = Nothing iCount = iCount + 1 Set objCountFile = objFSO.CreateTextFile(strCountFileName, True) objCountFile.Write iCount objCountFile.Close Set objCountFile = Nothing Set objFSO = Nothing If bUseImages Then For I = 1 to Len(iCount) Response.Write "" Next 'I Else Response.Write " " & " Số khách viếng :" & " " & iCount & " " End If %>