<%@LANGUAGE="VBScript"%> Read Voltage from Fluke 45

---

<% strTextFile = Server.MapPath("VoltLog.txt") 'create an instance of a FileSytemObject object Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 'open the text file as a TextStream object Set objTStream = objFSO.OpenTextFile(strTextFile, ForReading) 'read one line at a time until the end of the file is reached Do While Not objTStream.AtEndOfStream 'get the line number intLineNum = objTStream.Line 'format and convert to a string strLineNum = Right("00" & CStr(intLineNum), 3) 'get the text of the line from the file strLineText = objTStream.ReadLine Response.Write strLineText & vbCrLf Loop objTStream.Close %>