| Home |
Products  |
| Betta's Techniques |
| Contact us |
| FAQ |
 |
Introduction |
Welcome to Thongphaphumi betta farm in Thaialnd. Our farm is located in Amphur Thongphaphummi at Kanjanaburi province. Many peoples around the world know well about history of this city during the World War II. Nowadays, this town is become a small beautiful village and charming place in portion of Kanjanaburi province. Here we are waiting for anyone come to visit us. Thongphaphumi farm is producing a great quality of betta splenden from generation by generation of Siam fighting fishes, or you may call ‘Pla-kat’ in Thai. The farm’s owner is Mr. Raynu Songluck, everyone call him ‘Kunu’ as usual (Master Nu), who is sharing his experiences for more than 30 years to produce and training all his fishes with faithful for his customers. And also many of his articles were published and reviewed by ‘Pla-kat-Nak-Zuo’, which is one of famous Siam fighting fish magazine in Thailand, You may recognize also many of fighting fish‘s techniques as mention. Let us share our experience to you with great qualified of Siam fighting fishes, which we are produced. We do care for our customers’ satisfaction and guarantee all of products during delivery until your hand and be sure that they are ready for big game. ................
|
|
Inside Thongphaphumi: |
||
 |
 |
||
|
|||
| Our Farm: | |||
 |
|||
<%
'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("hit_count.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)
'Increment the visitor counter number by 1
lngVisitorNumber = lngVisitorNumber + 1
'Create a new visitor counter text file over writing the previous one
Set tsObject = fsoObject.CreateTextFile(Server.MapPath("hit_count.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
Response.Write(": Visitor Number :
") & (lngVisitorNumber) 'Display the hit count as text 'Response.Write(lngVisitorNumber) 'Loop to display graphical digits For intWriteDigitLoopCount = 1 to Len(lngVisitorNumber) 'Display the graphical hit count Ifrom image font counter path ' Response.Write(" |
|||
