I'm trying to open file for viewing when button clicked!

mijulie · Jul 4, 2001

This is my code, I don't get any errors but nothing opens!
Does anyone see the problem?
Thank you in advance if you can help,
Mijulie

<HTML>
<HEAD>
<H1>SIT_TEST_CIT:           Build Validation</H1>
<SCRIPT LANGUAGE="VBSCRIPT">
sub d1_onclick
dim filesys, filetxt
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set filesys = CreateObject("Scripting.FileSystemObject&quot

Set filetxt = filesys.OpenTextFile("c:\buildv.txt", 1, true)

end sub
</SCRIPT>
</HEAD>
<BODY BGCOLOR="#FFFFFF">

<INPUT type="button" value=" Get " id=d1 name=d1 >

</BODY>
</HTML>

FengShui1998 · Jul 5, 2001

mujulie,

Once you open the file, you have access to it's records, so you have to read it first, then write it to the web page.
Place this after: "Set filetxt = filesys.OpenTextFile("c:\buildv.txt", 1, true)"

Do While filetext.AtEndOfStream = FALSE
Txt = filetext.ReadLine
Response.write txt
Loop

Fengshui1998

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

I'm trying to open file for viewing when button clicked!

mijulie

Programmer

FengShui1998

MIS

Similar threads

Part and Inventory Search

Sponsor