PURE-ASP UPLOAD - MUDAR LOCAL UPLOAD PELO TEXTFIED

ROCO 29/09/2009 23:51:57
#324025

Como faço para atribuir o valor do campo de texto a constante VirtualFolder, não estou conseguindo, quando uso Request.form da erro.

Explicando melhor eu teria um campo de texto no formulario com o name [Ô]pasta[Ô] e preciso setar a VirtualFolder o valor dela. mas não estou conseguindo estou tendo sempre o mesmo erro: [Ô]Constante literal esperada[Ô]

O que preciso é que o nome da pasta do upload possa ser digitado, ao inves de ser sempre salvo no local indicado no codigo

<%
[ô]Sample file Field-SaveAs.asp
[ô]Store extra upload info to a database
[ô] and file contents to the disk
Server.ScriptTimeout = 5000

[ô]Create upload form
[ô]Using Huge-ASP file upload
[ô]Dim Form: Set Form = Server.CreateObject([Ô]ScriptUtils.ASPForm[Ô])
[ô]Using Pure-ASP file upload
Dim Form: Set Form = New ASPForm %><!--#INCLUDE FILE=[Ô]_upload.asp[Ô]--><%

Server.ScriptTimeout = 1000
Form.SizeLimit = 10240*1024[ô]10MB

[ô]{b}Set the upload ID for this form.
[ô]Progress bar window will receive the same ID.
if len(Request.QueryString([Ô]UploadID[Ô]))>0 then
Form.UploadID = Request.QueryString([Ô]UploadID[Ô])[ô]{/b}
end if
[ô]was the Form successfully received?
Const fsCompletted = 0

If Form.State = fsCompletted Then [ô]Completted
Const VirtualFolder = [Ô]pics[Ô]

[ô]Create destination path+filename for the source file.
[ô]Create an URL for image.
Dim DestinationPath, virtDestinationPath
DestinationPath = Server.mapPath(VirtualFolder) & [Ô]\[Ô]
virtDestinationPath = [Ô]http://[Ô] + Request.ServerVariables([Ô]SERVER_NAME[Ô]) _
+ GetPath(Request.ServerVariables([Ô]SCRIPT_NAME[Ô]) ) _
+ [Ô]/[Ô] + VirtualFolder + [Ô]/[Ô]

[ô]Open recordset to store uploaded data
Dim RS: Set RS = OpenUploadRS


Dim FileField
For Each FileField in Form.Files.Items
[ô]Fo each file sent
if len(FileField.FileName)> 0 then [ô]File is specified.
Dim DestinationFileName

DestinationFileName = DestinationPath & FileField.FileName

[ô]Save file to physical location
FileField.SaveAs DestinationFileName


--------

Se eu tentar não usar o const e colocar direto Server.mapPath(Request.QueryString([Ô]pasta[Ô]))

Eu tenho o seguinte erro:

Server.MapPath(), ASP 0171 (0x80004005)
O parâmetro Path deve ser especificado para o método MapPath.


Outra coisa é que Server.MapPath([Ô].[Ô])&[Ô]\imagens    emp\[Ô] & funciona,
mas se eu usar Server.MapPath([Ô].[Ô])& minha_variavel & não funciona


Minha variavel é o campo pasta: [Ô] Request.QueryString([Ô]pasta[Ô]) [Ô]