ASP Upload, erro estranho...

[DackAle 0]

E ae galera =)Seguinte, urgente...rsssempre peguei nome de arquivo com o variavel = file.filenamemas fiz um script aqui pra pegar um arquivo, ler (fso) e depois inserir os emails no BD... mas gera esse erro

Microsoft VBScript runtime error '800a01a8' Object required: 'File' /teste/admgpskalserver/fso.asp, line 12

o codigo ta assim

<!--#include file="sis_seguranca.asp" --><!--#include file="../database/conn.asp" --><%SET UPLOAD = Server.CreateObject("Persits.upload")endereco = "D:\webpoint\docs\gpskal8\wwwroot\teste\admgpskalserver\arquivos\"Upload.OverwriteFiles = FalseUpload.Save enderecoarquivo = File.FileName <------- AQUI É A LINHA DOZEcaminho = endereco & arquivoConst forReading = 1, forWriting = 2, forAppending = 8Set FSO = CreateObject("Scripting.FileSystemObject")Set Arquivo = FSO.GetFile(caminho)Set Stream = Arquivo.OpenAsTextStream(forReading,false)While Not Stream.AtEndOfStream  Linha = Linha & Stream.Readline & "<br>"WendQuebra = Split(Linha,"<br>")FOR I=LBOUND(quebra) TO UBOUND(quebra) - 1SET RS = Server.CreateObject("Adodb.recordset")Conn.Execute("INSERT into newsletter (nome, email, data) VALUES ('Contato','" & quebra(i) & "',#" & now & "#)")SET RS = NothingNEXTStream.CloseSET Arquivo = NothingSet FSO = nothingSet Stream = nothingresponse.redirect "emails.asp"%>

a linha doze ta com uma seta ali ó...rssalguem sabe como é que posso arrumar essa birosca ? lhei no site a persits e eles só ensinam dessa forma :huh: Abraços

[FabricioGomes 0]

ele esta te dizendo que o objeto File nao existe... e realmente nao foi criado nada, falta algo no seu codigo, nao sei, mas é algo que pega o arquivo que foi feito o upload...procura aqui no forum por upload que voce deve achar a sua resposta...

[silas_i 0]

Tenta isso...

 

ASP [/tr][tr]

Set File = Upload.Files("THEFILE")

[/tr]