Problemas com upload

[buzzina 0]

Galera eu sou um simples empurrador de mouse q está com um problema pra resolve urgentissimo, eu estava com meu codigo pronto e funfando sem o menor problema quando fui hospedar no locaweb exibiu um erro chamei o help e ele pediram para que eu muda-se meu codigo de Persist para SaFileUp e eu naum tenho a minima ideia de como eu faço isso vcs poderiam me ajudar... o codigo q eu preciso converter é esse aki ó... <%Server.ScriptTimeOut =900000Set Upload = Server.CreateObject("Persits.Upload")Upload.OverwriteFiles = FalseUpload.SetMaxSize 999999999, trueUpload.SaveNewName = Session.SessionIDbd = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("..\dados") & "\"Set Conexao = Server.CreateObject("ADODB.Connection")If Upload.Form("Pagina") = "Galeria de Fotos" thenConexao.Open bd & "Fotos.mdb"ElseIf Upload.Form("Pagina") = "Fotos" thenConexao.Open bd & "Fotos.mdb"End ifIf Upload.Form("Pagina") = "Galeria de Fotos" thenSet RS_Produto = Server.CreateObject("ADODB.Recordset")RS_Produto.CursorType = adOpenKeysetRS_Produto.LockType = adLockOptimisticRS_Produto.Open "SELECT Max(Id) AS novo_cod FROM Fotos", ConexaoIf IsNull(RS_Produto("novo_cod")) Then novo_cod = 1Else novo_cod = RS_Produto("novo_cod") + 1End IfDatCorr = Upload.Form("Dia") & "/" & Upload.Form("Mes") & "/" & Upload.Form("Ano")Conexao.Execute "insert into Fotos(Id, Legenda, Data, Tipo) values(" & novo_cod & ",'" & Upload.Form("legenda") & "','" & DatCorr & "','G')"Conexao.CloseElseIf Upload.Form("Pagina") = "Fotos" thenSet RS_Produto = Server.CreateObject("ADODB.Recordset")RS_Produto.CursorType = adOpenKeysetRS_Produto.LockType = adLockOptimisticRS_Produto.Open "SELECT Max(Id) AS novo_cod FROM Fotos", ConexaoIf IsNull(RS_Produto("novo_cod")) Then novo_cod = 1Else novo_cod = RS_Produto("novo_cod") + 1End IfDatCorr = Upload.Form("Dia") & "/" & Upload.Form("Mes") & "/" & Upload.Form("Ano")Conexao.Execute "insert into Fotos(Id, Legenda, Data, Tipo) values(" & novo_cod & ",'" & Upload.Form("legenda") & "','" & DatCorr & "','F')"RS_Produto.closeset RS_Produto = nothing'**************************** UPLOAD ****************************'For Each File in Upload.FilesIf Upload.Form("Pagina") = "Galeria de Fotos" OR Upload.Form("Pagina") = "Fotos" then File.SaveAs Server.MapPath("..\fotos") & "\" & novo_cod & "-temp" & File.ext Set compactada = Server.CreateObject("Persits.Jpeg") compactada.Open Server.MapPath("..\fotos") & "\" & novo_cod & "-temp" & File.ext If compactada.OriginalWidth > 500 Then L = 500 compactada.Width = L compactada.Height = compactada.OriginalHeight * L / compactada.OriginalWidth End If compactada.Quality = 86 compactada.Save Server.MapPath("..\fotos") & "\" & novo_cod & File.ext Set miniatura = Server.CreateObject("Persits.Jpeg") miniatura.Open Server.MapPath("..\fotos") & "\" & novo_cod & File.ext L = 115 miniatura.Width = L miniatura.Height = miniatura.OriginalHeight * L / miniatura.OriginalWidth miniatura.Quality = 86 miniatura.Save Server.MapPath("..\fotos") & "\" & novo_cod & "-m" & File.ext File.DeleteElseIf Upload.Form("Pagina") = "Downloads" then File.SaveAs Server.MapPath("..\downloads") & "\" & File.OriginalFileNameNextResponse.Redirect "default.asp?Pagina=" & Upload.Form("Pagina") & "&Acao=Alterar&Id=" & novo_codResponse.End%>Se alguem puder me dar uma luz... agradeço....

[JCMPJ 0]

Quantos arquivos o seu formulário pode enviar de cada vez?

[buzzina 0]

Quantos arquivos o seu formulário pode enviar de cada vez?

Entaum ele recebe 1 arquivo por vez...

[JCMPJ 0]

É ainda não da. Melhor postar o form ai.

[buzzina 0]

é bem grandinho eheheh.... o deixa eu ja agradece de você ter respondido cara to deseperado aki uhahuahu<% Sub GaleriaSubIf Session("Autenticado") = "1" thenNivelLim = 100elseSet Seguranca = Server.CreateObject("ADODB.Recordset")Seguranca.Open "SELECT Nivel FROM Acesso where Usuario = " & Session("Autenticado") & " and Form = 12", ConexaoAdministracaoIf Seguranca.eof thenNivelLim = 0elseNivelLim = Seguranca("Nivel")end ifSeguranca.closeset Seguranca = nothingend ifIf NivelLim < 25 thenAcessoRestritoelseSet Conn = Server.CreateObject("ADODB.Connection")Conn.Open bd & "Fotos.mdb"If Request("Acao") = "Alterando" thenDatCorr = Request.Form("Dia") & "/" & Request.Form("Mes") & "/" & Request.Form("Ano")Conn.Execute "UPDATE Fotos Set Data = '" & DatCorr & "', Legenda = '" & Request.Form("Legenda") & "' WHERE Id = " & Request.Form("Id")Session("Aviso") = "OK"Response.Redirect "default.asp?Pagina=Galeria de Fotos&Acao=Alterar&ID=" & Request.form("Id")Response.Endelseif Request("Acao") = "Incluindo" thenDatCorr = Request.Form("Dia") & "/" & Request.Form("Mes") & "/" & Request.Form("Ano")Conn.Execute "INSERT INTO Publicacoes (Data, Titulo, TituloReduzido, Texto, Autor, Fonte, Destaque, Tipo) VALUES ('" & DatCorr & "','" & Request.Form("Titulo") & "','" & Request.Form("TitRed") & "','" & Request.Form("Texto") & "','" & Request.Form("Autor") & "','" & Request.Form("Fonte") & "'," & Request.Form("Destaque") & ",2)"Session("Aviso") = "OK"Response.Redirect "default.asp?Pagina=Galeria de Fotos"Response.Endelseif Request("Acao") = "Excluindo" thenSet fs = Server.CreateObject("Scripting.FileSystemObject")fs.DeleteFile(Server.MapPath("..\fotos\") & "\" & Request.form("Id") & ".jpg")set fs = nothingConn.Execute "DELETE From Fotos Where Id = " & Request.form("Id")Session("Aviso") = "OK"Response.Redirect "default.asp?Pagina=Galeria de Fotos&Erase=Ok"Response.EndelseSet GaleriaDados = Server.CreateObject("ADODB.Recordset")If Request("Acao") = "Alterar" thenGaleriaDados.Open "SELECT * FROM Fotos where tipo = 'G' and Id = " & Request("Id"), ConnelseIf Request("PaginaAtual") = 1 OR Request("PaginaAtual") = "" thenPaginaAtual = 1ElsePaginaAtual = Request("PaginaAtual")End ifGaleriaDados.CursorLocation = adUseClientGaleriaDados.CacheSize = 8GaleriaDados.Open "SELECT Id, Legenda, Data FROM Fotos where Tipo = 'G' order by Data Desc", ConnIf not GaleriaDados.eof thenGaleriaDados.MoveFirstGaleriaDados.Pagesize = 8GaleriaDados.AbsolutePage = PaginaAtualTotalPaginas = GaleriaDados.PageCountend ifend if%><table width="640" border="0" cellspacing="0" cellpadding="0" height="100%"> <tr> <td width="640" align="center" valign="bottom" height="40" class="ListaPreco"> <table width="602" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="602" align="right" valign="bottom" class="ListaPreco"><a href="?Pagina=Galeria de Fotos" class="ListaPreco">Listar Galeria de Fotos</a><% if NivelLim >= 50 then %> | <a href="?Pagina=Galeria de Fotos&Acao=Incluir" class="ListaPreco">Nova Foto</a><% end if %></td> </tr> <tr> <td width="602" height="3"></td> </tr> </table> </td> </tr> <tr> <td width="640" align="center" valign="top" height="100%"> <table width="602" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="1" height="100%" rowspan="3" bgcolor="#420000"></td> <td width="600" height="20" bgcolor="#000033" class="TituloLoja" align="center"><font color="#FFFFFF"><%= ucase(Request("Pagina")) %></font></td> <td width="1" height="100%" rowspan="3" bgcolor="#420000"></td> </tr> <tr> <td width="600" bgcolor="#CCCCCC" height="15" align="center"></td> </tr> <tr> <td width="600" bgcolor="#CCCCCC" align="center"> <% If Request("Acao") = "Alterar" OR request("Acao") = "Incluir" then if NivelLim >= 50 then %> <% If Request("Acao") = "Alterar" then %> <form method="post" name="AtualizaNot" Action="default.asp" onSubmit="return valida_form(this,'Depois de alterada, a Foto perde os dados modificados\n\n Confirma que deseja ALTERAR ?')"> <input type="hidden" name="Id" Value="<%= GaleriaDados("Id") %>"> <input type="hidden" name="Acao" Value="Alterando"> <input type="hidden" name="Pagina" Value="Galeria de Fotos"> <% else %> <FORM name="AtualizaNot" ACTION="upload.asp" METHOD="POST" ENCTYPE="multipart/form-data" onSubmit="return valida_form(this,'Confirma a inclusão da Foto ?')"> <input type="hidden" name="Pagina" Value="Galeria de Fotos"> <% end if %> <% end if %> <table width="600" border="0"> <tr> <td width="600" align="center" class="TextoForm"> <% If Request("Acao") = "Alterar" then %> <img src="../fotos/<%= GaleriaDados("id") %>.jpg" border="0"> <% else %> Imagem: <input type="file" name="imagem" class="inputBox" size="40"> <% end if %> </td> </tr> <tr> <td width="600" align="center" class="TextoForm"> Data:  <select name="Dia" class="InputBox"> <% contador = 1 while not contador = 31 %> <option value="<%= contador %>" <% If Request("Acao") = "Alterar" then If Datepart("D",GaleriaDados("Data")) = contador then Response.Write " SELECTED" end if Else If Datepart("D",Now) = contador then Response.Write " SELECTED" end if end if %> ><%= contador %></option> <% contador = contador + 1 wend %> </select> <select name="Mes" class="InputBox"> <% contador = 1 while not contador = 12 %> <option value="<%= contador %>" <% If Request("Acao") = "Alterar" then If Datepart("M",GaleriaDados("Data")) = contador then Response.Write " SELECTED" end if Else If Datepart("M",Now) = contador then Response.Write " SELECTED" end if end if %> ><%= contador %></option> <% contador = contador + 1 wend %> </select> <select name="Ano" class="InputBox"> <% contador = datepart("YYYY",now) - 5 while not contador = datepart("YYYY",now) + 5 %> <option value="<%= contador %>" <% If Request("Acao") = "Alterar" then If Datepart("YYYY",GaleriaDados("Data")) = contador then Response.Write " SELECTED" end if Else If Datepart("YYYY",Now) = contador then Response.Write " SELECTED" end if end if %> ><%= contador %></option> <% contador = contador + 1 wend %> </select> </td> </tr> <tr> <td width="600" align="center" class="TextoForm">Legenda: <input type="text" name="Legenda" class="InputBox" style="width: 250px;" <% If NivelLim < 50 then Response.Write "readonly" elseif NivelLim < 75 AND Request("Acao") = "Alterar" then Response.Write "readonly" end if If Request("Acao") = "Alterar" then Response.Write " value='" & GaleriaDados("Legenda") & "'" end if %>></td> </tr> </table> <table width="600" border="0" cellspacing="0" cellpadding="0"> <% if NivelLim >= 50 then %> <tr> <td width="33%" align="center"></td> <td width="33%" align="center"> <% If Request("Acao") = "Alterar" AND NivelLim >= 75 then%> <input type="submit" name="Gravar" value="Alterar Foto" class="InputBotao"> <% ElseIf Request("Acao") = "Incluir" AND NivelLim >= 50 then%> <input type="submit" name="Gravar" value="Incluir Foto" class="InputBotao"> <% end if %></td></form> <td width="33%" align="right" class="TextoForm"> <% If Request("Acao") = "Alterar" AND NivelLim >= 100 then%> <form method="post" name="ExcluiNot" Action="default.asp" onSubmit="return valida_form_e(this,'Todos os dados desta Foto serão apagados!\n\n Confirma que deseja EXCLUIR ?')"> <input type="hidden" name="Pagina" Value="Galeria de Fotos"> <input type="hidden" name="Id" Value="<%= GaleriaDados("Id") %>"> <input type="hidden" name="Acao" Value="Excluindo"> <table width="100%" border="0"> <tr> <td width="70%" align="right" valign="bottom"><input type="image" src="images/Apagar.gif"></td> <td width="30%" align="left" valign="bottom" class="ListaPreco">Excluir</td> </tr> </table> <% end if %> </td> <% If Request("Acao") = "Alterar" AND NivelLim = 100 then%> </form> <% end if %> </tr> <script LANGUAGE="javascript"> <!-- function valida_form(s, mensagem) { Form = document.AtualizaNot; if (Form.Legenda.value.length == 0) { alert("A Legenda é um campo obrigatório !"); Form.Legenda.focus(); return false; } if (Form.Texto.value.length == 0) { alert("O Texto é um campo obrigatório !"); Form.Texto.focus(); return false; } if (mensagem){ if (confirm(mensagem) != true){ return false; } } return true; } function valida_form_e(s, mensagem) { Form = document.ExcluiNot; if (mensagem){ if (confirm(mensagem) != true){ return false; } } return true; } //--> </SCRIPT> <% end if %> <tr> <td width="100%" height="4" align="center" colspan="3"></td> </tr> </table> <% if Session("Aviso") = "OK" then Session("Aviso") = "" %> <script>alert("Foto alterada com sucesso!");</script> <% end if else %> <table width="590" border="0" cellspacing="0" cellpadding="0"> <% If GaleriaDados.eof then %> <tr> <td align="center" height="60" class="TituloForm" style="color: red;">Nenhum Registro foi Localizado!</td> </tr> <tr> <% else contador = 0 ncol = 1 while Not GaleriaDados.EOF AND contador < GaleriaDados.PageSize corfundo = "#D1CEAD" %> <td align="center" width="285" bgcolor="<%= corfundo %>" height="19" valign="top"> <table width="280" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="280" height="20"></td> </tr> <tr> <td width="280" align="center"><a href="?Pagina=Galeria de Fotos&Acao=Alterar&Id=<%= GaleriaDados("id") %>"><img src="../fotos/<%= GaleriaDados("id") %>-m.jpg" border="0" style="border: 1px solid #000000;"></td> </tr> <tr> <td width="280" align="center" class="TextoForm"><%= GaleriaDados("Data") %></td> </tr> <tr> <td width="280" align="center" class="TextoForm"><%= GaleriaDados("Legenda") %></td> </tr> </table> </td> <% If ncol = 1 then %> <td width="20"></td> <% else %> </tr><tr> <% end if contador = contador + 1 if ncol = 1 then ncol = 2 else ncol = 1 end if GaleriaDados.Movenext wend %> </tr> <% end if %> <tr> <td align="center" colspan="3" height="25" width="590"> <% If not GaleriaDados.eof then %> <table width="590" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="196" align="left" height="25" class="TextoForm"><% If PaginaAtual > 1 then %> <a href="?Pagina=<%= Request("Pagina") %>&PaginaAtual=<%= PaginaAtual - 1 %>" class="TextoForm">Anterior</a><% end if %></td> <td width="198" align="center" height="25" class="TextoForm">[Página <%= PaginaAtual %> de <%= TotalPaginas %>]</td> <td width="196" align="right" height="25" class="TextoForm"><% If PaginaAtual < TotalPaginas then %><a href="?Pagina=<%= Request("Pagina") %>&PaginaAtual=<%= PaginaAtual + 1 %>" class="TextoForm">Próxima</a> <% end if %></td> </tr> </table> <% end if %> </td> </tr> </table> <% if Session("Aviso") = "OK" then Session("Aviso") = "" IF Request("Erase") = "" then %> <script>alert("Foto incluida com sucesso!");</script> <% else %> <script>alert("Foto excluida com sucesso!");</script> <% end if end if end if %> </td> </tr> <tr> <td width="602" height="1" colspan="4" bgcolor="#420000"></td> </tr> </table> </td> </tr></table><%GaleriaDados.closeset GaleriaDados = nothingend ifConn.closeset Conn = nothingend if %><% end sub %>

[JCMPJ 0]

Deve se isso:

<%Server.ScriptTimeOut = 3600' ===============================================Set Upload = Server.CreateObject("SoftArtisans.FileUp")Upload.OverWriteFiles = FalseUpload.MaxBytesToCancel = 204800' ===============================================NewName = Session.SessionIDbd = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("..\dados") & "\"Set Conexao = Server.CreateObject("ADODB.Connection")If Upload.Form("Pagina") = "Galeria de Fotos" thenConexao.Open bd & "Fotos.mdb"ElseIf Upload.Form("Pagina") = "Fotos" thenConexao.Open bd & "Fotos.mdb"End ifIf Upload.Form("Pagina") = "Galeria de Fotos" thenSet RS_Produto = Server.CreateObject("ADODB.Recordset")RS_Produto.CursorType = adOpenKeysetRS_Produto.LockType = adLockOptimisticRS_Produto.Open "SELECT Max(Id) AS novo_cod FROM Fotos", ConexaoIf IsNull(RS_Produto("novo_cod")) Thennovo_cod = 1Elsenovo_cod = RS_Produto("novo_cod") + 1End IfDatCorr = Upload.Form("Dia") & "/" & Upload.Form("Mes") & "/" & Upload.Form("Ano")Conexao.Execute "insert into Fotos(Id, Legenda, Data, Tipo) values(" & novo_cod & ",'" & Upload.Form("legenda") & "','" & DatCorr & "','G')"Conexao.CloseElseIf Upload.Form("Pagina") = "Fotos" thenSet RS_Produto = Server.CreateObject("ADODB.Recordset")RS_Produto.CursorType = adOpenKeysetRS_Produto.LockType = adLockOptimisticRS_Produto.Open "SELECT Max(Id) AS novo_cod FROM Fotos", ConexaoIf IsNull(RS_Produto("novo_cod")) Thennovo_cod = 1Elsenovo_cod = RS_Produto("novo_cod") + 1End IfDatCorr = Upload.Form("Dia") & "/" & Upload.Form("Mes") & "/" & Upload.Form("Ano")Conexao.Execute "insert into Fotos(Id, Legenda, Data, Tipo) values(" & novo_cod & ",'" & Upload.Form("legenda") & "','" & DatCorr & "','F')"RS_Produto.closeset RS_Produto = nothing'**************************** UPLOAD ****************************'If Upload.Form("Pagina") = "Galeria de Fotos" OR Upload.Form("Pagina") = "Fotos" then	Extensão = Right(Upload.ShortFilename, Len(Upload.ShortFilename) - InStr(Upload.ShortFilename, "."))	Upload.SaveAs Server.MapPath("..\fotos") & "\" & novo_cod & "-temp" & Extensão	Set compactada = Server.CreateObject("Persits.Jpeg")	compactada.Open Server.MapPath("..\fotos") & "\" & novo_cod & "-temp" & Extensão	If compactada.OriginalWidth > 500 Then		L = 500		compactada.Width = L		compactada.Height = compactada.OriginalHeight * L / compactada.OriginalWidth	End If	compactada.Quality = 86	compactada.Save Server.MapPath("..\fotos") & "\" & novo_cod & Extensão	Set miniatura = Server.CreateObject("Persits.Jpeg")	miniatura.Open Server.MapPath("..\fotos") & "\" & novo_cod & Extensão	L = 115	miniatura.Width = L	miniatura.Height = miniatura.OriginalHeight * L / miniatura.OriginalWidth	miniatura.Quality = 86	miniatura.Save Server.MapPath("..\fotos") & "\" & novo_cod & "-m" & Extensão	ElseIf Upload.Form("Pagina") = "Downloads" then	File.SaveAs Server.MapPath("..\downloads") & "\" & Upload.ShortFilenameResponse.Redirect "default.asp?Pagina=" & Upload.Form("Pagina") & "&Acao=Alterar&Id=" & novo_codResponse.End%>

[buzzina 0]

Agora axo q deu mas ele exibe esse erro aki:::Microsoft OLE DB Provider for ODBC Drivers error '80004005'[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified/teste/admin/upload.asp, line 16

[JCMPJ 0]

É vi depois que tinha postado. Seu arquivo de dados ta na pasta Dados né.Então tem que trocar a linha.bd = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("..\dados") & "\"por bd = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\home\usuario\dados\"Onde usuario é o nome da sua pasta de usuario. Normalmente o mesmo nome do usuario de ftp.

[buzzina 0]

olha eu enchendo denovo cara... apareceu esse erro agoraMicrosoft VBScript compilation error '800a0408'Invalid character/teste/admin/upload.asp, line 67Extensão = Right(Upload.ShortFilename, Len(Upload.ShortFilename) - InStr(Upload.ShortFilename, "."))------^

[JCMPJ 0]

Mania de portugues.Troca Extensão por Extensao em todas as ocorrências.

[buzzina 0]

huahuuha normal, olha eu outra vez mas os erros estão diminuindo uhauhahu esse é um q eu naum entendo pq aparece se ta td certinho manja maaassss como apareceu erro axo q naum deve ta certinho totlamente né hauhhau mas ai vai:Microsoft VBScript compilation error '800a03f6'Expected 'End'/teste/admin/upload.asp, line 90

[JCMPJ 0]

Acrescente mais uma linha no fim do código com o End.End

[buzzina 0]

ainda sim naum funfo apareceu mais um erro:

 

Microsoft VBScript compilation error '800a03f4'

 

Expected 'If'

 

/teste/admin/upload.asp, line 91

 

End

 

http://forum.imasters.com.br/public/style_emoticons/default/blush.gif

[JCMPJ 0]

Xiii errei di novoÉ End IfEnd If

[buzzina 0]

axo q naum funfo deu:Microsoft VBScript compilation error '800a03f6'Expected 'End'/teste/admin/upload.asp, line 91 dai eu coloquei um segundo end ifdai apareceu Microsoft VBScript runtime error '800a01b6'Object doesn't support this property or method: 'Upload.MaxBytesToCancel'/teste/admin/upload.asp, line 7 desculpa cara ta incomodando é q eu so uma lesma no q dizemos asp ainda to aprendendo manja...até q me virei bem mas chega umas horas q fode td uahuauh