asp
[Projects]--
CSS*
HTML*
JAVA SCRIPT*
PERL*
PHP*
ASP*
XML--
[Back to Home]
<%
Dim mydata
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
Const TriStateTrue = -1
Const TriStateFalse = 0
Const TriStateUseDefault = -2
Set filesys=Server.CreateObject("Scripting.FileSystemObject")
Set file=filesys.OpenTextFile(Server.MapPath("customer.dat"), _
ForReading, false, TriStateUseDefault)
While not file.atendofstream
mydata = file.ReadLine()
mydata = replace(mydata, VBTab, "| ")
Response.Write(" | | " & mydata & " |
")
wend
file.Close
Set filesys=Nothing
Set file=Nothing
%>