Erro em SAFILE

[marcelocardoso 6]

Pessoal!

 

Estou trabalhando com SoftArtisans.SAFile

Já dei permissão de escrita no meu servidor, mas me dá este erro ao tentar gravar um arquivo:

SoftArtisans.SAFile.1 error '8007010b'Creation of cached file failed. Please check the NTFS permissions for the directory path "e:\home\empresa\pdf\". This directory requires Read, Write and Delete permissions by the anonymous user ( NT account: IUSR_computername ) and/or by your authenticated users.The directory name is invalid./conteudo/arquivos_insere_db.asp, line 20

Oque pode ser este erro, meu código e este abaixo:

<%'Instancia o componente SET SaFileUp = Server.CreateObject("SoftArtisans.FileUp") 		'Configura o caminho onde arquivo será salvo 	 SaFileUp.Path = "e:\home\empresa\pdf\"   Set SaFileUp = Nothing   INS = CX.Execute("INSERT INTO DG_PDF (PDFNOME, PDFCAMINHO) VALUES ('"& SaFileUp.Form("pdfcampo1") &"','"& SaFileUp.Form("pdfcampo2") &"')")       CX.Close   SET CX = Nothing  Response.Redirect "arquivos.asp"%>

alguem me ajuda, to perdidao... nunca usei este safile

 

Alguem já passou por isso, sabe como resolver...???

Pessoal!

 

Já dei permissão de ESCRITA E LEITURA na pasta pelo gerenciado locaweb, mas mesmo assim não vi... continua o mesmo erro.

pessoal!

 

desisti do SAFILE, agora estou usando o dundas, mais facil.

só que estou tendo um erro, conseguem me ajudar, o código funciona perfeito, mas da erro no banco de dados.

 

<%			    Server.ScriptTimeOut = 90SET objUpload = Server.CreateObject("Dundas.Upload.2")    objUpload.MaxFileSize    = 20000000    objUpload.UseUniqueNames = FALSE	objUpload.Save Server.MapPath("/_pdf/")    	nome = Server.MapPath("/_pdf/") & objUpload.Files(0).OriginalPath   				SET objUpload = Nothing  INS = CX.Execute("INSERT INTO DG_PDF (PDFNOME, PDFCAMINHO) VALUES ('"& Request.Form("pdfcampo1") &"','"&nome&"'")       CX.Close   SET CX = Nothing  Response.Redirect "arquivos.asp"%>

me dá este erro na linha onde está o INS = CX. EXECUTE:

 

 

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x2c70 Thread 0x2744 DBC 0x120f5f9c Jet'.

aguardo um retorno.

obrigado.

 

alguém por aí, to enrolado nisso, não sei oq fazer ....

alguém da uma luz nessa situacao?

[hargon 64]

Esse problema normalmente ocorre quando existe erro no arquivo do banco de dados ou quando falta permissão para abrir o arquivo do banco de dados.

 

Dê as devidas permissões de escrita e leitura na pasta do banco de dados.

[Elisângela Xavier P.S. 0]

também estou erro nesse componente, se for de ajuda ele está rodando parcialmente, porque agora barrou com o SQL, se alguém puder me ajudar, ..........

 

AÍ VAI O CÓDIGO E O ERRO, SOCORRROOO, ESTOU 3 MESES JÁ PARA RESOLVER ISSO.

 

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

[MySQL][ODBC 5.1 Driver][mysqld-5.1.54-rel12.6-log]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '' at line 1

/gestao/upload_arquivo.asp, line 43

 

 

<%

Response.Charset="ISO-8859-1"

'On Error Resume Next

If Request.Form("sbmtMultiply")<>"" then 'Se Multiplicar for clicado

Value=Cint(Request.Form("txtA"))*Cint(Request.Form("txtB"))

End If

If Request.Form("sbmtDivide")<>"" then 'Se Dividir for clicado

Value=Cint(Request.Form("txtA"))/Cint(Request.Form("txtB"))

End If

If Err.number<>0 then

If Err.number=11 then '11 é o número que ocorre para a divisão por zero.

Response.Write "Esta é uma mensagem personalizada. Não é possível dividir por zero."

Response.Write "Digite um valor diferente na segunda caixa de texto!<p>"

else

Response.Write "Erro na página!<BR>"

Response.Write "O número do erro é: " & Err.number & "<BR>"

Response.Write "A descrição fornecida é: " & Err.Description & "<BR>"

End If

End If

id_curso = request("id_curso")

modulo = request("id_modulo")

componente = request("id_componente")

response.cookies("id_curso") = id_curso

response.cookies("id_curso").expires = DateAdd("d",1,Now)

response.cookies("id_modulo") = modulo

response.cookies("id_modulo").expires = DateAdd("d",1,Now)

response.cookies("componente") = componente

response.cookies("componente").expires = DateAdd("d",1,Now)

Dim strConexao, Database

Set Database = createobject("adodb.connection")

Database.Open = "Driver=MySQL ODBC 5.1 Driver; DATABASE=eteitanhaem; SERVER=mysql01.eteitanhaem.hospedagemdesites.ws; UID=eteitanhaem; PASSWORD=D06b10A12"

Function NomeComponente(id_componente)

SQL = "SELECT nome FROM tb_componentes WHERE id_componente = " & id_componente

AQUI ESTÁ DANDO ERRO

set rs = Database.execute(SQL)

nome = rs("nome")

rs.close

set rs = nothing

NomeComponente = nome

end function

Function AlteraNome(nome)

nome = lcase(replace(nome," ","_"))

AlteraNome = nome

end function

Function NomePasta(id_curso)

if id_curso = 1 then

nome = "Ensino_Medio"

else if id_curso = 2 then

nome = "Informatica"

else if id_curso = 3 then

nome = "Saneamento"

else if id_curso = 4 then

nome = "Hidrologia"

else if id_curso = 6 then

nome = "Secretariado"

else if id_curso = 7 then

nome ="Administracao"

else if id_curso = 8 then

nome = "Logistica"

else if id_curso = 9 then

nome = "Contabilidade"

else if id_curso = 10 then

nome = "Modelagem"

else if id_curso = 11 then

nome = "InformaticaIntegrado"

else if id_curso = 12 then

nome = "AdmIntegrado"

else

nome = "Meio_Ambiente"

end if end if end if end if end if end if end if end if end if end if end if

NomePasta = nome

end function

%>

<table width="100%" border="0">

<tr>

<td style="text-align:left;"><br /><h3>Enviar Plano: <%=Ucase(NomeComponente(componente))%></h3></td>

</tr>

<tr align="left" valign="top">

<td height="187" class="style14"><table width="100%" border="0">

<tr>

<td width="100%" height="128" align="LEFT" valign="top">

<br>

<form action="?upload=sim" method="post" enctype="multipart/form-data" name="upload" onSubmit="principal.asp">

<table class="tabelas" border="0" cellpadding="0" cellspacing="0" width="100%" height="105">

<tr>

<td class="col2" colspan="2" height="31" style="text-align:left; font-family: 'Trebuchet MS', Arial, Helvetica, sans-serif;">

<font class="letras">  <b>Localize o arquivo em seu computador:</b></font>

<input type="hidden" name="" value="" ID="Hidden1"></td>

<tr>

<td class="a1" height="26" colspan="2" bgcolor="#F4F4FF">

<input type="FILE" name="arquivo" value="" size="90" id="load" style="border:0;" /></td>

</tr>

<tr>

<td class="col1" width="490" height="43" colspan="2" bgcolor="#F4F4FF"><font class="Texto5"><br>

<input type="submit" value="Enviar Arquivo" name="btn_enviar" ID="Submit1" onClick="javascript:loading();" >

<INPUT type="hidden" id=text1 name="SaveAs" value="" tabIndex=0 readOnly size=14>

</font>

</td>

</tr>

</table>

</FORM></td>

</tr>

</table></td>

</tr>

</table>

<%

'Declara as variaveis a serem utilizadas no script

Dim SaFileUp, caminho, nomeArquivo, upload

If Request.QueryString("upload") = "sim" Then

'Determina o tempo máximo de execução do script em segundos

'Server.ScriptTimeOut = 90

'Define o caminho onde o arquivo sera salvo. Exemplo: "e:\home\loginFtp\web\caminhoDaSuaAplicacao"

caminho = Server.MapPath("e:\home\eteitanhaem\web\gestao\Planos" & NomePasta(request.cookies("id_curso")) & "/" & request.cookies("id_modulo"))

' Instancia o objeto na memória

Set SaFileUp = Server.CreateObject("SoftArtisans.FileUp")

'Define onde o arquivo será salvo

SaFileUp.Path = caminho

'Salva o arquivo carregado no caminho indicado anteriormente

SaFileUp.Form("arquivo").Save

SaFileUp = AlteraNome(NomeComponente(request.cookies("componente"))) & ".doc"

data_entrega = datepart("yyyy",date()) & "-" & datepart("m",date()) & "-" & datepart("d",date()) & " " & FormatDateTime(time(),4)

SaFileUp.SaveAs "e:\home\eteitanhaem\web\gestao\Planos\" & NomePasta(request.cookies("id_curso")) & "\" & request.cookies("id_modulo") & "\" & SaFileUp

%>

<h2><font color="#FF0000" size="+1" face="Trebuchet MS, Arial, Helvetica, sans-serif" class="título" id="novo" style="carrega">Arquivo Carregado com sucesso !</font></h2>

<!-- Cria uma tabela e apresenta os dados do arquivo carregado na tela -->

<table border='1'>

<th>Arquivo</th>

<th>Tamanho/Kbytes</th>

<th>ContentType</th>

<tr>

<td><a href='./upload/<%=SaFileUp.Form("arquivo").ShortFileName%>' target='_blank'><%=SaFileUp.Form("arquivo").ShortFileName%></a></td>

<td><%=SaFileUp.Form("arquivo").TotalBytes%></td>

<td><%=SaFileUp.Form("arquivo").ContentType%></td>

</tr>

</table>

<%

SQL = "UPDATE tb_componentes SET entregue='A',id_professor=" & request.cookies("id_usuario") & ",ultima_atualizacao='" & data_entrega & "' WHERE id_componente=" & request.cookies("componente") & ";"

Database.execute SQL

SQL = "INSERT INTO tb_registro (status,id_componente,id_professor,data_evento)VALUES ('A'," & request.cookies("componente") & "," & request.cookies("id_usuario") & ",'" & data_entrega & "');"

Database.execute SQL

Database.close

Set Database = nothing

%>

<% 'Remove a instancia do componente da memória

Set SaFileUp = Nothing

%>

</center>

<%End If%>

</BODY>

</HTML>

[pedro rodrigues 4]

Elisângela, cuidado com a divulgação de servidores, usuários e senhas reais!