upload, quando vai gravar da erro, e atualizo ele grava

[holambra 0]

Olá, galera

 

Estou tend um problema que não esperava, estou usando um código de upload sem componentes e gravando em um bd MS SQL, só quando mando gravar e enviar o arquivo, ele dá erro:

 

Erro de tempo de execução do Microsoft VBScript (0x800A0005)

Chamada de procedimento ou argumento inválido

/clientes_asp/terra_viva/add_arquivo1.asp, line 38

 

a linha está em negrito:

if foto <> "" then

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto)

For i = 1 to LenB(foto)

MyFile.Write chr(AscB(MidB(foto,i,1)))

Next

MyFile.Close

end if

 

Bom, qunado mando atualizar o arquivo processa normalmente.

 

Alguem pode dar uma luz?

 

abraço a todos

[Patrique 0]

Aparentemente esta certo, mais tente dar um response.write no chr(AscB(MidB(foto,i,1))) sem executar a função, faça o teste e veja como esta sendo passado.

 

[]'s

[holambra 0]

Aparentemente esta certo, mais tente dar um response.write no chr(AscB(MidB(foto,i,1))) sem executar a função, faça o teste e veja como esta sendo passado.

 

[]'s

 

Olá, Patrique.

 

Muito obrigado, funcionou bem, mas o arquivo enviado abre e o sistema não redireciona para a página que coloquei, veja o código:

 

if foto <> "" then

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto)

For i = 1 to LenB(foto)

response.write chr(AscB(MidB(foto,i,1)))

' MyFile.Write chr(AscB(MidB(foto,i,1)))

Next

MyFile.Close

end if

' Conecta-se ao Banco de Dados

'///////////////////////////////////////////

Set cnn = Server.CreateObject("ADODB.Connection")

sql="Provider=SQLOLEDB.1;SERVER=ACER\SQLEXPRESS;DATABASE=terra_viva;UID=sa;PWD=lpclpc;"

cnn.Open sql

sql = "Insert into produto (id_grupo,titulo,arquivo,disp) values ('"& id_grupo &"','"& titulo &"', '"& cfoto &"', '"& disp &"')"

cnn.execute(sql)

'///////////////////////////////////////////

<!--#include file="config/geral.asp" -->

 

Response.write "<table width=700 border=0 align=center cellpadding=0>"

Response.write "<tr>"

Response.write "<td align=center>"

Response.write "<font color=#006600 size=3 face=Verdana>"

' Mostra Mensagem de Confirmação na Tela

Response.write "Imagens Enviadas e Dados Cadastrados com Sucesso!"

' Redireciona após 5 segundos

response.write "<br><br>você será redirecionado em 3 segundos..<br>"

response.write "<meta http-equiv='refresh' content='3; url=ok.asp'/>"

Response.write "</font>"

Response.write "</td>"

Response.write "</tr>"

Response.write "</table>"

 

Mais uma vez, obrigado, veja se dá para usar outra coisa.