<% Option Explicit %>
<html>
<head>
<title>ThaiCreate.Com ASP TextStream Object</title>
</head>
<body>
<%
Dim objFSO, objStream,i
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objStream = objFSO.OpenTextFile(Server.MapPath("MyFiles/thaicreate.txt"))
Do Until objStream.AtEndOfStream
If i Mod 2 = 1 Then
objStream.SkipLine
End IF
Response.Write objStream.ReadLine & "<br>"
i = i + 1
Loop
objStream.Close
Set objStream = Nothing
Set objFSO = Nothing
%>
</body>
</html>
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
Load balance : Server 01
