Dundas

[daniel.pod 0]

Ae galera, to com esse código aqui:

 

ASP

[*]

 

[*]dim nfesta

 

[*] dim nlocal

 

[*] dim ndia

 

[*] dim nmes

 

[*] dim nano

 

[*] dim npasta

 

[*] dim ncoment

 

[*]

 

[*] Set objUpload = Server.CreateObject("Dundas.Upload.2")

 

[*] nfesta = objUpload.Form("festa")

 

[*] nlocal = objUpload.Form("local")

 

[*] ndia = objUpload.Form("dia")

 

[*] nmes = objUpload.Form("mes")

 

[*] nano = objUpload.Form("ano")

 

[*] ncoment = objUpload.Form("comentarios")

 

[*]

 

[*] response.Write(nfesta&"<BR>")

 

[*] response.Write(nlocal&"<BR>")

 

[*] response.Write(ndia&"<BR>")

 

[*] response.Write(nmes&"<BR>")

 

[*] response.Write(nano&"<BR>")

 

[*] response.Write(ncoment&"<BR>")

 

[*]

 

[*] response.End()

 

[*]

 

[*] set rspast = server.CreateObject("ADODB.Recordset")

 

[*] rspast.open "Select cod,pasta from locais where cod="&nlocal&"" , db

 

[*]

 

[*] npasta = rspast("pasta")&"\"&ndia&"_"&nmes

 

[*]

 

[*] Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

 

[*] if objfso.FolderExists("C:\inetpub\wwwroot\teste\"&npasta) = false then

 

[*] set nn = objfso.createfolder(npasta)

 

[*] end if

 

[*]

 

[*] objUpload.Useuniquenames = true

 

[*] objUpload.SaveToMemory

 

[*] For Each objUploadedFile in objUpload.Files

 

[*] fileName = objUpload.GetFileName(objUploadedFile.OriginalPath)

 

[*] fileext = objUpload.GetFileExt(objUploadedFile.OriginalPath)

 

[*] objUploadedFile.SaveAs "C:\inetpub\wwwroot\teste\"&npasta&"\"&nomedoarquivo

 

[*] Next

 

[*]

 

Podem ver que eu dei um response.write pra ve se estava vim os campos, mais me retrono em branco. Como eu faço pra pegar os campos?

[webfuture 0]

Velho tenta fazer assim:Response.Write nfesta & "<br>"Response.Write nlocal & "<br>"Response.Write ndia & "<br>"Response.Write nmes & "<br>"Response.Write nano & "<br>"Response.Write ncoment & "<br>"Assim você vai saber o valor de todos os campos.Falow,WebFuture

[Mário Monteiro 179]

os nomes dos campos do form estao certos??

[ska_ska 0]

você precisa primeiro alimentar o obj de upload antes de puxar valores dele, mesmo sendo um campo texto... tenta assim:

ASP

[*] Set objUpload = Server.CreateObject("Dundas.Upload.2")

 

[*]

 

[*] objUpload.Useuniquenames = true

 

[*] objUpload.SaveToMemory  

 

[*]

 

[*] nfesta = objUpload.Form("festa")

 

[*] nlocal = objUpload.Form("local")

 

[*] ndia = objUpload.Form("dia")

 

[*] nmes = objUpload.Form("mes")

 

[*] nano = objUpload.Form("ano")

 

[*] ncoment = objUpload.Form("comentarios")

 

[*]...

;)