daniel.pod

Ae galera, to com esse código aqui:

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?