一个举报系统，如何增加文字性的补充

这是可以补充，可以上传附件，我想增加个文本域，能直接补充文字性的资料该如何写这段代码呀 
elseif action="reEdit" then 
fileDir2 =request.form("txtFile") 
rp_ID =request.form("rp_id") 
if rp_ID="" or not isnumeric(rp_ID) then 
response.write " <script>alert('错误的信息源,操作失败');history.go(-1); </script>" 
response.end 
end if set rs=server.createobject("adodb.recordset") 
sql="select * from t_Report where rp_ID="&rp_ID 
rs.open sql,conn,2,3 
'response.write sql 
if  rs.eof then 
response.write " <script>alert('您没有权限操作');history.go(-1); </script>" 
response.end 
else 
这就是补充上传附件 
fpath = rs("filedir2") 
if fpath <>"" and fpath <>"0" then 
arrF=split(fpath,",") 
for i=0 to ubound(arrF) 
if arrF(i)=filedir2 then 
isExit=1 
else 
isExit=0 
end if 
next 
if isExit=1 then 
response.write " <br> <br>&nbsp; <span style=""font-size:16px;"" >此资料已经存在，请不要重复补充 </font> <br>" 
response.write " <br> <input type=""button"" value=""  返 回  "" onclick=""document.location.href='index.asp'"" />" 
else 
rs("filedir2")=fpath&","&filedir2 
rs.update 
response.write " <br> <br>&nbsp; <span style=""font-size:16px;"" >资料补充成功 </font> <br>" 
response.write " <br> <input type=""button"" value=""  返 回  "" onclick=""document.location.href='index.asp'"" />" 
end if 
else 
rs("filedir2")=filedir2 
rs.update 
response.write " <br> <br>&nbsp; <span style=""font-size:16px;"" >资料补充成功 </font> <br>" 
response.write " <br> <input type=""button"" value=""  返 回  "" onclick=""document.location.href='index.asp'"" />" 
end if 
end if 
rs.close 
set rs=nothing 
else 
%>