Ir para conteúdo

POWERED BY:

Arquivado

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

doiddao

Problemas com script

Por , em ASP Clássico

Recommended Posts

doiddao    0

doiddao
Postado

Preciso de ajuda num script, ja olhe reollhe, fiz e refiz uma 1000 vezes e nda, quem poder me ajudar eu agradeço muitoGrato,Marconi<!-- 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")'curDir = "sample.mdb"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 = oConn'oRs.Source = strSQL'oRs.LockType = 3'oRs.Open strSQL = "SELECT id_cliente, arquivo, nome, descricao, data FROM TFiles",conex,3,3'insert into TFiles (id_cliente, arquivo,nome,descrição,data VALUES ('")",oConnstrSQL = "SELECT id_cliente, arquivo, nome, descricao, data FROM TFiles" Set oRs = Server.CreateObject("ADODB.recordset") Set oRs.ActiveConnection = oConn oRs.Source = strSQL oRs.LockType = 3 oRs.Open srtSQL,oConn,3,3'id_cliente=session("user_login")' Conecta ao Banco de Dados' *************************'Set oConn = Server.CreateObject("ADODB.Connection")'curDir = "sample.mdb"'oConn.Open("Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.MAPPATH(curDir)&"")' 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>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Sem saber que erro, é um pouco dificil! :)

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