Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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------------^
Carregando comentários...
