The attached is a ready to go file upload that
captures the file name and extension without using a
javascript function. I almost said it does not use
javascript but for the fact that it relies on an
onclick event....
JJ
__________________________________________________
Do you Yahoo!?
Yahoo! Mail Plus - Powerful. Affordable. Sign up now.
http://mailplus.yahoo.com
<?xml version="1.0" encoding="ISO-8859-1" ?>
<!DOCTYPE TAF SYSTEM "tango.dtd" >
<TAF Version="0x02000002" Author="JJ Smith">
<Comments>file upload function</Comments>
<!--Main program-->
<Program>
<ActionRef Ref="If_show_form">
<ActionRef Ref="Show_Form" />
</ActionRef>
<ActionRef Ref="Else_upload_file">
<ActionRef Ref="Work_out_file_name" />
<ActionRef Ref="assign_where_file_is_to_go" />
<ActionRef Ref="Write_file_to_disk" />
<ActionRef Ref="Return_Confirmation_Message" />
</ActionRef>
<ActionRef Ref="Return" />
</Program>
<!--Program actions-->
<Actions>
<IfAction ID="If_show_form" Sig="if " Expanded="True">
<Expression><![CDATA[(!LEN('<@ARG _function>')) or ('<@ARG _function>'='sform')]]></Expression>
<ExpressionInfo>
<ExpLeft><![CDATA[<@ARG _function>]]></ExpLeft>
<ExpRight />
<Operator>iemp</Operator>
</ExpressionInfo>
<ExpressionInfo>
<ExpLeft><![CDATA[<@ARG _function>]]></ExpLeft>
<ExpRight>sform</ExpRight>
<Conjunction>or </Conjunction>
<Operator>iseq</Operator>
</ExpressionInfo>
</IfAction>
<ResultAction ID="Show_Form" Sig="null">
<ResultsOutput Ref="Show_Form.Results" />
</ResultAction>
<ElseIfAction ID="Else_upload_file" Sig="elif" Expanded="True">
<Expression><![CDATA[('<@ARG _function>'='upload')]]></Expression>
<ExpressionInfo>
<ExpLeft><![CDATA[<@ARG _function>]]></ExpLeft>
<ExpRight>upload</ExpRight>
<Operator>iseq</Operator>
</ExpressionInfo>
</ElseIfAction>
<ResultAction ID="Work_out_file_name" Sig="null">
<ResultsOutput Ref="Work_out_file_name.Results" />
</ResultAction>
<AssignAction ID="assign_where_file_is_to_go" Sig="asgn">
<AssignItem>
<Name>rootpath</Name>
<Value><![CDATA[<@REPLACE "<@WEBROOT><@APPFILEPATH>" FINDSTR="/" REPLACESTR="\">]]></Value>
<Scope>Request</Scope>
</AssignItem>
</AssignAction>
<FileAction ID="Write_file_to_disk" Sig="flvt">
<WriteFile FileExistsRule="Append">
<Name><![CDATA[@@local$rootpath\<@var local$filename>.<@var local$fileextn>]]></Name>
<Data><![CDATA[<@arg File_Data>]]></Data>
<MacFileType>TEXT</MacFileType>
<MacFileCreator>R*ch</MacFileCreator>
</WriteFile>
<ErrorOutput Ref="Write_file_to_disk.Error" />
</FileAction>
<ResultAction ID="Return_Confirmation_Message" Sig="null">
<ResultsOutput Ref="Return_Confirmation_Message.Results" />
</ResultAction>
<ReturnAction ID="Return" Sig="stop" />
</Actions>
<!--Data sources-->
<DataSources />
<!--Output blocks-->
<Outputs>
<Output ID="Show_Form.Results" Type="HTML"><![CDATA[<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<b><h1> Uploading Files</h1></b>
<FORM ENCTYPE="multipart/form-data" METHOD=POST ACTION="<@CGI><@APPFILE>?_function=upload">
<table>
<tr class="even">
<td>File:</td><td><INPUT TYPE=FILE SIZE=25 NAME="File_Data"></td>
</tr>
</table>
<input type=hidden name=path value="">
</table>
<p>
<@comment>
When the submit button is clicked (or when enter is pressed) the file path is assigned to whatever value is contained in the
file data field
</@comment>
<INPUT TYPE=SUBMIT NAME="Submit" VALUE="Submit" onclick="this.form.path.value=this.form.File_Data.value;">
<INPUT TYPE=RESET VALUE=Reset>
</FORM>
]]></Output>
<Output ID="Work_out_file_name.Results" Type="HTML"><![CDATA[<@comment>
Work out file name by tokenizing the path string
</@comment>
<@assign local$path value="<@arg path>">
<@assign local$path value='<@TOKENIZE VALUE="@@local$path" CHARS="\/">'>
<@assign local$path value='@@local$path[1,<@numcols array="@@local$path">]'>
<@assign local$path value='<@TOKENIZE VALUE="@@local$path" CHARS=".">'>
<@assign local$filename value='@@local$path[1,1]'>
<@assign local$fileextn value='@@local$path[1,2]'>
]]></Output>
<Output ID="Write_file_to_disk.Error" Type="HTML">There was a problem writing the file</Output>
<Output ID="Return_Confirmation_Message.Results" Type="HTML"><![CDATA[The file <@var local$filename>.<@var local$fileextn> has been uploaded successfully to:<br>
@@local$rootpath
<@comment>
JJ Smith - no copyright - use whenever, whereever.....
Comments/Suggestions to [EMAIL PROTECTED]
</@comment>]]></Output>
</Outputs>
</TAF>
