Tenho de fazer um Upload de imagens

[Dell 0]

Tenho um sistema de upload de imagens onde utilizo o código abaixo, porém quando executo recebo o seguinte erro:Tipo de erro:Erro de tempo de execução do Microsoft VBScript (0x800A0046)Permissão negada/figinserida.asp, line 75Este código é o mesmo que já usei várias vezes. Mas ontem formatei minha máquina e agora não funciona mais.Esse erro ocorre em meu computador, utilizo WindowsXP SP2. Já desabilitei o Firewall, Anti-virus e nada de funcionar, o que posso fazer??????????????????????<%Sub BuildUploadRequest(RequestBin)PosBeg = 1PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(13)))boundary = MidB(RequestBin, PosBeg, PosEnd - PosBeg)BoundaryPos = InStrB(1, RequestBin, boundary)Do Until (BoundaryPos = InStrB(RequestBin, boundary & getByteString("--")))Dim UploadControlSet UploadControl = CreateObject("Scripting.Dictionary")Pos = InStrB(BoundaryPos, RequestBin, getByteString("Content-Disposition"))Pos = InStrB(Pos, RequestBin, getByteString("name="))PosBeg = Pos + 6PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(34)))Name = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))PosFile = InStrB(BoundaryPos, RequestBin, getByteString("filename="))PosBound = InStrB(PosEnd, RequestBin, boundary)If PosFile <> 0 And (PosFile < PosBound) ThenPosBeg = PosFile + 10PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(34)))FileName = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))UploadControl.Add "FileName", FileNamePos = InStrB(PosEnd, RequestBin, getByteString("Content-Type:"))PosBeg = Pos + 14PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(13)))ContentType = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))UploadControl.Add "ContentType", ContentTypePosBeg = PosEnd + 4PosEnd = InStrB(PosBeg, RequestBin, boundary) - 2Value = MidB(RequestBin, PosBeg, PosEnd - PosBeg)ElsePos = InStrB(Pos, RequestBin, getByteString(Chr(13)))PosBeg = Pos + 4PosEnd = InStrB(PosBeg, RequestBin, boundary) - 2Value = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))End IfUploadControl.Add "Value", ValueUploadRequest.Add Name, UploadControlBoundaryPos = InStrB(BoundaryPos + LenB(boundary), RequestBin, boundary)LoopEnd SubFunction getByteString(StringStr)For i = 1 To Len(StringStr)Char = Mid(StringStr, i, 1)getByteString = getByteString & ChrB(AscB(Char))NextEnd FunctionFunction getString(StringBin)getString = ""For intCount = 1 To LenB(StringBin)getString = getString & Chr(AscB(MidB(StringBin, intCount, 1)))NextEnd FunctionResponse.Expires = 0byteCount = Request.TotalBytesRequestBin = Request.BinaryRead(byteCount)Set UploadRequest = CreateObject("Scripting.Dictionary")BuildUploadRequest RequestBin'variaveisfigura = Trim(UploadRequest.Item("figura").Item("Value"))ContentType = UploadRequest.Item("figura").Item("ContentType")filepathname = UploadRequest.Item("figura").Item("FileName")FileName = Right(filepathname, Len(filepathname) - InStrRev(filepathname, "\"))Value = UploadRequest.Item("figura").Item("Value")Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")numero1 = instrrev(Request.servervariables("Path_Info"), "/")var3 = left(Request.servervariables("Path_Info"),numero1)Set MyFile = ScriptObject.CreateTextFile(Server.mappath(var3) & "\images\g_" & FileName)For i = 1 To LenB(Value)MyFile.Write Chr(AscB(MidB(Value, i, 1)))NextMyFile.Closeif err.description<>0thenresponse.write "Figuras enviadas"elseresponse.write err.descriptionend if%>Por favor preciso fazer funcionar com serta urgencia, se puder me ajudar!!!!!!!!!!!!!!!!!!!!!!

[jothaz 1]

O usuário que vai efetuar o upload deve ter permissão para gravaçã no diretorio detino.Achou que é isso!Jothaz

[jrcardozo 4]

dê permissão aos usuários na pasta images. Eu costumo criar a pasta das imagens usando fso, me parece que ela recebe os mesmos atributos da pasta pai ai não precisa ficar configurando permissões