problem replacing text area on asp file

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   I'm trying to replace the text area in an asp file (pasted below) 

but for some reason following the directions doesnt seem to work

the rte is in a folder called "rte" which is a sub folder of the folder that the "edit.asp" script is in.

can anybody tell me what code I need to insert?

Thanks a ton in advance

--Jason

-------------------------

<html>

<head>

<title>View Source</title>

</head>

<body>

<div align="center">

<center>

<table border="0" width="84%" cellspacing="0" cellpadding="0">

<tr>

<td width="100%" colspan="2">

<form name=edit action="save.asp" method="post">

<textarea rows='15' cols='81' name='file'>

<%

f=request("f")

chkasp = instr(lcase(f), ".asp")

chkhtm = instr(lcase(f), ".htm")

chkhtml = instr(lcase(f), ".html")

chktxt = instr(lcase(f), ".txt")

chktxt = instr(lcase(f), ".php")

if chkasp > 0 or chktxt > 0 or chkhtm > 0 or chkhtml > 0 then

d=request("d")

aa = d & "\" & f

aa = replace(aa, "\\", "\")

MYPath = server.MapPath(aa)

Set Fconn = server.CreateObject("Scripting.FileSystemObject")

Set file = Fconn.OpenTextFile(MYPath,1,false)

output = file.readall

file.close

Set file = nothing

Set Fconn = nothing

Response.Write output

else

response.write "Show only .txt or .asp or. htm or .html or .php files"

end if

%>

</textarea>

</td>

</tr>

<tr>

<td width="100%" colspan="2">

<%

response.write "<input type='hidden' name='d' value='" & request("d") & "'>"

response.write "<input type='hidden' name='MYPath' value='" & MYPath & "'>"

%>

<input type="submit" value="Save"></form>

</td>

</tr>

</table>

</center>

</div>

</body>

</html>