-#Alea#- Postado Janeiro 31, 2005 Denunciar Share Postado Janeiro 31, 2005 Fiz o seguinte código...Está dando o seguinte erro:Persits.Upload.1 (0x800A003F)Invalid registration key./disfarce/upload.asp, line 9A linha nove está com uma seta.Talvez isso aí não tenha lógica alguma, mas lendo por cima foi isso que ententi. <HTML> <BODY> <% if Request.QueryString("salvar") = "ok" then Set Upload = Server.CreateObject("Persits.Upload.1") ' Capture files Upload.Save ("C:\Inetpub\wwwroot\disfarce\html") ' <--------- linha nove<<< ' Obtain file object Set File = Upload.Files("file") If Not File Is Nothing Then ' Build ODBC connection string Connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\disfarce\data\dbdisfarce.mdb;Persist Security Info=False" SQL = "INSERT INTO (imagem, descricao) VALUES('" SQL = SQL & File.Filename & "', '" SQL = SQL & Replace(Upload.Form("descricao")) & "')" ' Salvando no bd File.ToDatabase Connect, SQL Response.Write "Arquivo salvo." Else Response.Write "Selecione um arquivo." End If end if %> <FORM ACTION="upload.asp?salvar=ok" METHOD="POST" enctype="multipart/form-data"> File:<BR> <INPUT TYPE=FILE NAME="file"><P> Description:<BR><TEXTAREA NAME="descricao"></TEXTAREA><BR> <INPUT TYPE=SUBMIT VALUE="Upload!"> </FORM> </BODY> </HTML> Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 DackAle Postado Janeiro 31, 2005 Denunciar Share Postado Janeiro 31, 2005 Basicamente seu aspupload não vai funcionar porque a chave que se uso nele é falsa e ele não reconheceu, desintale e tente com outro serial Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 dark0 Postado Janeiro 31, 2005 Denunciar Share Postado Janeiro 31, 2005 É isso aí dackDisse tudo!Esse problema aí não é no codigo, e sim no componente! Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 -#Alea#- Postado Junho 16, 2006 Autor Denunciar Share Postado Junho 16, 2006 como assim falsa???alguém tem um exemplo aí???desde já valeu Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 cyberalexxx Postado Junho 16, 2006 Denunciar Share Postado Junho 16, 2006 O ASPUpload é um componente pago, pelo erro apresentado o numero serial da licença é inválido ou pode se tratar de uma versão de avaliação expirada. Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
-#Alea#-
Fiz o seguinte código...
Está dando o seguinte erro:
Persits.Upload.1 (0x800A003F)
Invalid registration key.
/disfarce/upload.asp, line 9
A linha nove está com uma seta.
Talvez isso aí não tenha lógica alguma, mas lendo por cima foi isso que ententi.
<HTML> <BODY> <% if Request.QueryString("salvar") = "ok" then Set Upload = Server.CreateObject("Persits.Upload.1") ' Capture files Upload.Save ("C:\Inetpub\wwwroot\disfarce\html") ' <--------- linha nove<<< ' Obtain file object Set File = Upload.Files("file") If Not File Is Nothing Then ' Build ODBC connection string Connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\disfarce\data\dbdisfarce.mdb;Persist Security Info=False" SQL = "INSERT INTO (imagem, descricao) VALUES('" SQL = SQL & File.Filename & "', '" SQL = SQL & Replace(Upload.Form("descricao")) & "')" ' Salvando no bd File.ToDatabase Connect, SQL Response.Write "Arquivo salvo." Else Response.Write "Selecione um arquivo." End If end if %> <FORM ACTION="upload.asp?salvar=ok" METHOD="POST" enctype="multipart/form-data"> File:<BR> <INPUT TYPE=FILE NAME="file"><P> Description:<BR><TEXTAREA NAME="descricao"></TEXTAREA><BR> <INPUT TYPE=SUBMIT VALUE="Upload!"> </FORM> </BODY> </HTML>Link para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.