Arquivo UPLOAD

[Aldan Nunes]

Galera alguém me ajuda to precisando criar um sisteminha para fazer upload de arquivos doc para uma pasta no meu servidor sem necessidade de Banco de Dados em asp.

Se alguém puder me ajudar..

desde já agradeço.

[bareta]

verifique quais componentes seu servidor suporta...

[Aldan Nunes]

Gostaria de um sem componentes tem como não tem?

[bareta]

http://codigofonte.uol.com.br/codigo/asp/a...-de-componentes

prefiro usar componentes, além de facilitar a coisa... ainda existe um ganho de performance.

[Aldan Nunes]

Bareta é o seguinte eu até conseguir um sisteminha q na pasta ele grava o arquivo mais no BD não está dando a seguinte msg

Microsoft VBScript runtime error '800a0005'

Invalid procedure call or argument

upload_form2.asp, line 37

arquivo upload_form2.asp

<!-- #include file = "upload_funcoes.asp" -->
<%
' Chamando Funções, que fazem o Upload funcionar
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin

' Recuperando os Dados Digitados ----------------------
nome = UploadRequest.Item("nome").Item("Value")
email = UploadRequest.Item("email").Item("Value")

' Tipo de arquivo que esta sendo enviado
tipo_anexo = UploadRequest.Item("anexo").Item("ContentType")

' Caminho completo dos arquivos enviados
caminho_anexo = UploadRequest.Item("anexo").Item("FileName")

' Nome dos arquivos enviados
nome_anexo = Right(caminho_anexo,Len(caminho_anexo)-InstrRev(caminho_anexo,"\"))

' Conteudo binario dos arquivos enviados
anexo = UploadRequest.Item("anexo").Item("Value")

' pasta onde as imagens serao guardadas
pasta = Server.MapPath("curriculos/")
nome_anexo = "/"&nome_anexo

' pasta + nome dos arquivos
canexo = "curriculos" + nome_anexo

' Fazendo o Upload do arquivo selecionado
if anexo <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_anexo)
For i = 1 to LenB(anexo)
MyFile.Write chr(AscB(MidB(anexo,i,1)))
Next
MyFile.Close
end if

data = date()    
hora =  time()    
datahora = now()

' Conecta-se ao Banco de Dados
url_conexao = Server.MapPath("curriculos.mdb")
set conexao = Server.CreateObject("ADODB.Connection")
conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao 

' cadastra os dados no banco de dados
sql = "Insert into curriculos (data, hora, datahora, nome, email, anexo) values ('"& data &"', '"& hora &"', '"& datahora &"', '"& nome &"', '"& email &"', '"& anexo &"')"
set rs = url_conexao.execute(sql)

' Mostra Mensagem de Confirmação na Tela
Response.write "Dados Cadastrados com Sucesso!"

' Redireciona após 5 segundos
response.write "<br><br>você será redirecionado em 5 segundos..<br>"
response.redirect "default.asp"
%>

[bareta]

mude

set rs = url_conexao.execute(sql)

para

set rs = conexao.execute(sql)

[Aldan Nunes]

Mais é o seguinte esse set rs = conexao.execute(sql)

é o nome da conexão correto então da na mesma mudei continuou da mesma forma.

[bareta]

na verdade é so

conexao.execute(sql)

e não 

set rs = conexao.execute(sql)

se você acha q dá na mesma então não testou...

[Aldan Nunes]

è não deu certo mesmo bareta, não era isso

[bareta]

qual a mensagem de erro e a linha dele?

[Aldan Nunes]

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error in string in query expression ''????'.

/FACULDADE/upload_form2.asp, line 49

[bareta]

poe a linha 49 ai ... o q tem nela...

se for no recordset mude o nome do campo data.... coloque algo como data_envio e hora_envio... e verifique o tipo de dados...

[Aldan Nunes]

a linha 49 é essa aqui conexao.Execute(sql)

[bareta]

rode isso e poste o resultado

' cadastra os dados no banco de dados
sql = "Insert into curriculos (data, hora, datahora, nome, email, anexo) values ('"& data &"', '"& hora &"', '"& datahora &"', '"& nome &"', '"& email &"', '"& anexo &"')"
'conexao.execute(sql)
response.write sql
response.end

[Aldan Nunes]

apoós ter rodado o código acima deu a seguinte msg

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error in string in query expression ''?????Aa??'.

/faculdade/upload_form2.asp, line 57

linha 57

sql = "Insert into dados (nome,email,ip,data,anexo)"

sql = sql & "values "

sql = sql & "('"& nome &"', '"& email &"', '"& ip &"', '"& data &"', '"& anexo &"')"

db.Execute(sql) (linha 57)

[Jonathan Queiroz]

Escreva o conteúdo da query que é gerado e poste aqui

Faça algo +/- assim:

[...]
sql = "Insert into dados (nome,email,ip,data,anexo)"
sql = sql & "values "
sql = sql & "('"& nome &"', '"& email &"', '"& ip &"', '"& data &"', '"& anexo &"')"
response.clear
response.write(sql)
response.end
[...]

[Aldan Nunes]

Insert into dados (nome,email,ip,data,anexo)values ('aldan', 'aldanptu@gmial.com', '201.58.80.247', '21/7/2009 16:11:12', '??

gerou isso.