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>")%>
