trocar dundas por AspSmartUpload

[look 0]

pessoal, deu o seguinte erro ao enviar um formulário com envio de imagensTipo de erro:Objeto Server, ASP 0177 (0x800401F3)Seqüência de classe inválida /final/www/painel/InsProduto.asp, line 274linha 274 éSet Upload = Server.CreateObject("Dundas.Upload.2")me falaram que tinha que trocar para dundas upload, correto?codigo do dundas é<% Else Dim InsBd Dim VarCategoria Dim VarSubCategoria Dim VarNomeProduto Dim VarPrecoDe Dim VarPrecoPor Dim VarDescricao Dim VarBreveDescricao Dim VarEstoque Dim VarPeso Dim VarFoto1 Dim VarFoto2 Dim Upload If ComponenteUpload = 1 Then Set Upload = Server.CreateObject("Persits.Upload") Upload.OverwriteFiles = False Upload.Save CaminhoUpload Set Foto1 = Upload.Files("Foto1") Set Foto2 = Upload.Files("Foto2") Else Set Upload = Server.CreateObject("Dundas.Upload.2") Upload.UseVirtualDir = False Upload.UseUniqueNames = True Upload.Save CaminhoUpload End If VarCategoria = Upload.Form("Categoria") VarSubCategoria = Upload.Form("SubCategoria") VarNomeProduto = Trim(Replace(Upload.Form("NomeProduto"), "'", "")) VarPrecoDe = Trim(Replace(Replace(Replace(Upload.Form("PrecoDe"), "'", ""),".",""),",",".")) VarPrecoPor = Trim(Replace(Replace(Replace(Upload.Form("PrecoPor"), "'", ""),".",""),",",".")) VarDescricao = Trim(Replace(Replace(Upload.Form("Descricao"), "'", ""),vbcrlf,"<br>")) VarBreveDescricao = Trim(Replace(Replace(Upload.Form("BreveDescricao"), "'", ""),vbcrlf,"<br>")) VarEstoque = Trim(Replace(Upload.Form("Estoque"), "'", "")) VarPeso = Trim(Replace(Replace(Upload.Form("Peso"), "'", ""),",",".")) If ComponenteUpload = 1 Then If Not Foto1 Is Nothing Then VarFoto1 = LocalIMG & Foto1.FileName Else VarFoto1 = LocalIMG & "semfoto.gif" End If If Not Foto2 Is Nothing Then VarFoto2 = LocalIMG & Foto2.FileName Else VarFoto2 = LocalIMG & "semfoto.gif" End If Else If Upload.Files.Count > 0 Then VarFoto1 = LocalIMG & Upload.GetFileName(Upload.Files(0).Path) Else VarFoto1 = LocalIMG & "semfoto.gif" End If If Upload.Files.Count > 1 Then VarFoto2 = LocalIMG & Upload.GetFileName(Upload.Files(1).Path) Else VarFoto2 = LocalIMG & "semfoto.gif" End If End If If VarCategoria = "" or VarCategoria = "Selecione uma categoria" Then Response.Write "<span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">Informe a Categoria!</span><br><br>" & Voltar ElseIf VarSubCategoria = "" or VarSubCategoria = "Selecione uma SubCategoria" Then Response.Write "<span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">Informe a SubCategoria!</span><br><br>" & Voltar ElseIf VarNomeProduto = "" Then Response.Write "<span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">Informe o Nome do Produto!</span><br><br>" & Voltar ElseIf VarPrecoDe = "" or not IsNumeric(VarPrecoDe) Then Response.Write "<span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">Informe o Preço (de) do Produto!</span><br><br>" & Voltar ElseIf VarPrecoPor = "" or not IsNumeric(VarPrecoPor) Then Response.Write "<span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">Informe o Preço (por) do Produto!</span><br><br>" & Voltar ElseIf VarDescricao = "" Then Response.Write "<span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">Informe a Descrição do Produto!</span><br><br>" & Voltar ElseIf VarBreveDescricao = "" Then Response.Write "<span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">Informe a Breve Descrição do Produto!</span><br><br>" & Voltar ElseIf VarEstoque = "" or not IsNumeric(VarEstoque) Then Response.Write "<span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">Informe o Estoque disponível do Produto!</span><br><br>" & Voltar ElseIf VarPeso = "" or not IsNumeric(VarPeso) Then Response.Write "<span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">Informe o Peso do Produto!</span><br><br>" & Voltar Else Set InsBd = Server.CreateObject("ADODB.Recordset") InsBd.CursorLocation = adUseServer InsBd.CursorType = adOpenKeyset InsBd.LockType = adLockOptimistic InsBd.Open "Produtos", Banco, , , adCmdTable InsBd.AddNew InsBd("CodCategoria") = VarCategoria InsBd("CodSubCategoria") = VarSubCategoria InsBd("NomeProduto") = VarNomeProduto InsBd("PrecoDe") = VarPrecoDe InsBd("PrecoPor") = VarPrecoPor InsBd("Descricao") = VarDescricao InsBd("BreveDescricao") = VarBreveDescricao InsBD("Foto1") = VarFoto1 InsBD("Foto2") = VarFoto2 InsBd("Estoque") = VarEstoque InsBd("Peso") = VarPeso InsBd.Update InsBd.Close Set InsBd = Nothing Response.Write "<span class="& Chr(34) &"TextTahoma11Cinza"& Chr(34) &">O produto </span><span class="& Chr(34) &"TextTahoma11CinzaBold"& Chr(34) &">"&VarNomeProduto&"</span><span class="& Chr(34) &"TextTahoma11Cinza"& Chr(34) &"> foi inserido com sucesso.<br><br>Deseja inserir um novo produto?</span><br><a href="& Chr(34) &"InsProduto.asp"& Chr(34) &" class="& Chr(34) &"LinkTahoma11Cinza"& Chr(34) &">Sim</a>     <a href="& Chr(34) & "Produtos.asp" & Chr(34) &" class="& Chr(34) &"LinkTahoma11Cinza"& Chr(34) &">Não</a>" End If End If %>

[vicoluis 0]

se vai mudar seu coigo eu aconselho a mudar para FSO que você num tera mais problemas..

 

http://www.linhadecodigo.com.br/dicas.asp?id_dica=1100⊂=5

[look 0]

mas pra mim tá muito dificil, niguem avançado pode me ajudar??? :(

[Mário Monteiro 179]

mas pra mim tá muito dificil, niguem avançado pode me ajudar??? :(

o que você quer fazer exatemnte?? ´so o upload?? renomear o arquivo???