none
UPLOAD SaFileUp RRS feed

  • Pergunta

  • Prezados, não sei se poderam me ajudar nessa!

    Estou quebrando a cabeça para fazer um upload e com isso salvar o caminho da imagem no banco access. e sempre me aparece um erro:

    Microsoft VBScript runtime error '800a01a8'

    Object required: ''

    /teste/up.asp, line 32

     

    o código está abaixo.

    <!--#include file="conn.asp" -->
    <%               
    'Esse script é personalizavel, pode colocar quantos arquivos quiser, lembrando que alguns servidores de email limita o tamanho do anxo.                

    'Instancia o componente               
    SET SaFileUp = Server.CreateObject("SoftArtisans.FileUp")                

    server.ScriptTimeout=99999 ' aumenta o tempo para enviar aquivos maiores                        

    'Configura o caminho onde arquivo será salvo                       
    'SaFileUp.Path = Server.MapPath("../../v2/fotos_anexo/")            

    'Para Revenda substitua o caminho físico para E:\vhosts\SEU_DOMINIO_COMPLETO\httpdocs\                        
    'Você pode usar também o caminho relativo se preferir                       
    SaFileUp.Path = Server.MapPath("../teste/fotos/")                        

    'Caso o usuário não indique um arquivo para upload, informa erro.                       
    If SaFileUp.IsEmpty Then                                       
    response.write "<center>Por favor, indique um arquivo para upload.</center><br>"                       
    Else                               
    'Salva o primeiro arquivo no servidor                               
    SaFileUp.Form("file1").Save                               
    'Salva o segundo arquivo no servidor                               
    SaFileUp.Form("file2").Save
    'call connect       
    dim rsArquivo1, rsArquivo2                       
    'Recupera o nome do primeiro arquivo       
    nome_arq = Right(SaFileUp.Form("file1"),Len(SaFileUp.Form("file1"))-InstrRev(SaFileUp.Form("file1"),"\"))       
    'Recupera o nome do segundo arquivo       
    nome_arq_1 = Right(SaFileUp.Form("file2"),Len(SaFileUp.Form("file2"))-InstrRev(SaFileUp.Form("file2"),"\"))               

    set rsArquivo1 = objconn.execute("INSERT INTO TB_FOTOS (foto) VALUES('"&nome_arq&"')")        - O erro ocoree nessa linha.

    set rsArquivo2 = objconn.execute("INSERT INTO TB_FOTOS(foto) VALUES('"&nome_arq_1&"')")       

    End if

    Set SaFileUp = Nothing

    response.Write("<script>alert('Fotos Salva com sucesso!';loccaiton='form.asp')</script>")%>

    • Movido AndreAlvesLima domingo, 17 de outubro de 2010 02:06 (De:Opiniões e sugestões sobre o site e programas do MSDN)
    sábado, 16 de outubro de 2010 05:34

Respostas

Todas as Respostas