Valeu.

Galera, pra resolver o problema de MidB vocês tem que saber qual a versão do IIS que estão usando, em seguida vejam na internet como alterar o valor dos arquivos que podem ser enviados, no IIS 7, é muito fácil, se precisarem de ajuda pode me chamar por msn luizricardofc@msn.com.

Este problema de MidB é pq o arquivo é muito grande para o que é permitido, eu já passei por isso e resolvi aumentando o tempo limite de script e também o tamanho do arquivo a ser enviado.

Novamente obrigado.

O que será que está acontecedo ?

Alguém já tem uma nova solução?
Desde já agradeço.

Erro de compilação do Microsoft VBScript (0×800A03F9)
‘Then’ esperado
/sites/pil/uploading.asp, line 108, column 19
if right(imagens,1)”\” then

deu o seguinte erro:

Erro de compilação do Microsoft VBScript (0x800A03F9)
‘Then’ esperado
/sites/pil/uploading.asp, line 108, column 19
if right(imagens,1)”\” then

ai la no codigo essa linha fala q é o caminho onde vai salvar.

obrigado!

Dim UploadRequest,filename
Set UploadRequest = CreateObject(“Scripting.Dictionary”)

Sub BuildUploadRequest(RequestBin)
‘Get the boundary
PosBeg = 1
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
boundaryPos = InstrB(1,RequestBin,boundary)
‘Get all data inside the boundaries
Do until (boundaryPos=InstrB(RequestBin,boundary & getByteString(“–“)))
‘Members variable of objects are put in a dictionary object
Dim UploadControl
Set UploadControl = CreateObject(“Scripting.Dictionary”)
‘Get an object name
Pos = InstrB(BoundaryPos,RequestBin,getByteString(“Content-Disposition”))
Pos = InstrB(Pos,RequestBin,getByteString(“name=”))
PosBeg = Pos+6
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
Name = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
PosFile = InstrB(BoundaryPos,RequestBin,getByteString(“filename=”))
PosBound = InstrB(PosEnd,RequestBin,boundary)
‘Test if object is of file type
If PosFile0 AND (PosFile<PosBound) Then
‘Get Filename, content-type and content of file
PosBeg = PosFile + 10
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
FileName = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
‘Add filename to dictionary object
UploadControl.Add “FileName”, FileName
Pos = InstrB(PosEnd,RequestBin,getByteString(“Content-Type:”))
PosBeg = Pos+14
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
‘Add content-type to dictionary object
ContentType = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
UploadControl.Add “ContentType”,ContentType
‘Get content of object
PosBeg = PosEnd+4
PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
Value = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
Else
‘Get content of object
Pos = InstrB(Pos,RequestBin,getByteString(chr(13)))
PosBeg = Pos+4
PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
Value = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
End If
‘Add content to dictionary object
UploadControl.Add “Value” , Value
‘Add dictionary object to main dictionary
UploadRequest.Add name, UploadControl
‘Loop to next object
BoundaryPos=InstrB(BoundaryPos+LenB(boundary),RequestBin,boundary)
Loop
End Sub

‘String to byte string conversion
Function getByteString(StringStr)
For i = 1 to Len(StringStr)
char = Mid(StringStr,i,1)
getByteString = getByteString & chrB(AscB(char))
Next
End Function

‘Byte string to string conversion
Function getString(StringBin)
getString =””
For intCount = 1 to LenB(StringBin)
getString = getString & chr(AscB(MidB(StringBin,intCount,1)))
Next
End Function

Function MontaTipo(strPath)
Dim intpos
intpos = InStrRev(strPath, “\”, Len(strPath) – 1)
MontaTipo = Mid(strPath, intpos + 1, Len(strPath) – intpos – 1)
End Function

‘Preenche o dicionário UploadRequest para que se possa
‘ler os campos através dele.
Function upload_ReadRequest
Response.Expires=0
Response.Buffer = TRUE
Response.Clear
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
BuildUploadRequest RequestBin
End Function

‘Salva um arquivo por upload em caminho se for de um dos
‘tipos em ExtensoesPermitidas (string no formato
‘”jpg,jpeg,gif”)
‘Para salvar com o mesmo nome do envio, passe uma String
‘vazia para nome.
Function upload_SalvaArquivo(Campo,Caminho,Nome,ExtensoesPermitidas)

‘Segurança (bastante óbvio, não?)
EstensoesProibidas=”,exe,asp,php,sql,bat,pif,ocx,dll,aspx,shtml,”
ExtensoesPermitidas=”,” & ExtensoesPermitidas & “,”

‘Onde salvar
strPath = Caminho
if right(strPath,1)”\” then
strPath=strPath&”\”
end if

‘Caminho original do arquivo.
filepathname = UploadRequest.Item(Campo).Item(“FileName”)

‘Obtém a extensão
For i = Len(filepathname) To 1 Step -1
If Mid(filepathname, i, 1) = “.” Then Exit For
Next
extensao = Right(filepathname, Len(filepathname) – i)

‘Verifica se a extensão é dos tipos permitidos.
if ExtensoesPermitidas=”,*,” then
pode=(InStr(extensao,EstensoesProibidas)=0)
else
pode=(InStr(extensao,EstensoesPermitidas)>0)
end if

if pode then

‘On Error Resume Next

value = UploadRequest.Item(Campo).Item(“Value”)

‘Create FileSytemObject Component
Set ScriptObject = Server.CreateObject(“Scripting.FileSystemObject”)

‘Cria a pasta se ela não existir
if not ScriptObject.FolderExists(strPath) then ScriptObject.CreateFolder(strPath)

‘Obtém o nome do arquivo a salvar
filename = Nome
if filename=”” then
For i = Len(filepathname) To 1 Step -1
If Mid(filepathname, i, 1) = “\” Then Exit For
Next
filename = Right(filepathname, Len(filepathname) – i)
end if

‘Create and Write to a File (WARNING: Overwrites existing!)
pathfilename = strPath & filename
Set MyFile = ScriptObject.CreateTextFile(pathfilename,true)

For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next

MyFile.Close

‘ verificar se imagem foi enviada com sucesso.
if Err.number = 0 then
msgEnvio=”Enviado com sucesso!”
else
msgEnvio=”Ocorreu um erro no envio!”
end if
Err.Clear
else
msgEnvio=”Extensão inválida!”
end if

upload_SalvaArquivo=msgEnvio

end function

function uRequest(n)
uRequest=””
if UploadRequest.Exists(n) then uRequest=UploadRequest.Item(n).Item(“Value”)
end function

%>

Valeu Rafael.