Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

doiddao

Problemas no script de upload

Por , em ASP Clássico

Recommended Posts

doiddao    0

doiddao
Postado

Pessoal me ajudem estou com problemas nesse codigo q funciona com o componente AspSmartUpload, mas desde ja agradeço a todos...MarconiPS: 1º coloquei o script e em 2º o erro***** SCRIPT ****<!-- Código da página que processa: --><html><head><title>Teste de Upload</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body bgcolor="#FFFFFF" text="#000000"><div align="center"><font color="#CCCCCC"> <%' Variáveis' *********Dim mySmartUploadDim arquivoDim oConnDim oRsDim intCountintCount=0id_cliente=session("user_login")' Criar um objeto' ***************Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")' Upload' ******mySmartUpload.Upload' Salva o arquivo no servidor conforme o path escolhido' *****************************************************intCount = mySmartUpload.Save("upload")' Conecta ao Banco de Dados' *************************Set oConn = Server.CreateObject("ADODB.Connection")oConn.Open("Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.MAPPATH("sample.mdb")&"")' Cria um recordset' ****************Set Ors = oConn.Execute(strsql)Set oRs = Server.CreateObject("ADODB.recordset")Set oRs.ActiveConnection = oConnoRs.Source = strSQLoRs.LockType = 3oRs.Open strSQL = "SELECT * FROM TFiles",conex,0,3insert into TFiles (id_cliente, arquivo,nome,descrição,data VALUES ('"&id_cliente&"','"&arquivo&"','"&arquivo&"','"&nome&"','"&data&"')",oConn' Seleciona cada arquivo caso seja um upload de múltiplos arquivos, não é esse o caso' ***********************************************************************************For each file In mySmartUpload.Files' Somente se existir arquivos' ***************************If not file.IsMissing Then' Adiciona o arquivo e dados do formulário no DB (O erro é pelo fato que estou usando o Request.form aqui)' ****************************************************oRs.AddNewfile.FileToField oRs.Fields("arquivo")oRs("nome") = file.FileName oRs("Id_cliente") = Request.form("Id_cliente") oRs.UpdateintCount = intCount + 1End IfNext' Exiba o número de uploaded de arquivos' ************************************** Response.Write(intCount & " arquivo(s) enviado(s).<BR>")' Fecha o DB' **********oRs.CloseoConn.CloseSet oRs = Nothing Set oConn = Nothing %> </font> </div></BODY></HTML>***** ERRO ******Erro de compilação do Microsoft VBScript erro '800a0401' Fim da instrução esperado /teste/tt/script/Sample4.asp, line 53 insert into TFiles (id_cliente, arquivo,nome,descrição,data VALUES ('"&id_cliente&"','"&arquivo&"','"&arquivo&"','"&nome&"','"&data&"')",oConn------------^

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ulisses.BR    0

Ulisses.BR
Postado

tenta issono início da página, após a linha Dim intCountcoloqueDim strVariavelAuxiliarIdClientestrVariavelAuxiliarIdCliente = Int(Request.form("Id_cliente") )e na linha oRs("Id_cliente") = Request.form("Id_cliente") coloqueoRs("Id_cliente") = strVariavelAuxiliarIdClienteassim tu evita fazer o request dentro do processo do objeto SmartUploadespero que de certoabraçosulisses

Compartilhar este post

Link para o post
Compartilhar em outros sites

doiddao    0

doiddao
Postado

Nao mudou muito nao continua como o mesmo erro :Erro de compilação do Microsoft VBScript erro '800a0401' Fim da instrução esperado /teste/tt/script/Sample4.asp, line 56 insert into TFiles (id_cliente, arquivo,nome,descrição,data VALUES ('"&id_cliente&"','"&arquivo&"','"&arquivo&"','"&nome&"','"&data&"')",oConn------------^

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito