Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Como faço para que grave os nomes dos arquivos no DB JUNTAMENTE COM O RESTANTE DAS INFORMAÇÕES DO FORM?
SÃO 5 ARQUIVOS DE FOTOS ENVIADOS VIA UPLOAD, CADA FOTO TEM UM CAMPO SEPARADO NO DB para serem gravados os nomes.
<%
var1 = session("MARCA")
var2 = session("MODELO")
var3 = session("FORMATO")
var4 = session("FABRICACAO")
var5 = session("TIPO")
var6 = session("FUNCIONAMENTO")
var7 = session("APARENCIA")
var8 = session("CIDADE")
var9 = session("ESTADO")
var10 = session("NOME")
var11 = session("EMPRESA")
var12 = session("DDD")
var13 = session("FONE")
var14 = session("EMAIL")
var15 = session("PRECO")
var16 = session("PAGAMENTO")
var17 = session("OBS")
var18 = session("data2")
%>
<%
'Início de grava_anexo.asp
'Utilizaremos a função On Error Resume Next para ignorar qualquer erro que possa vir a acontecer, e posteriormente iremos identifica-lo e só então comunicarmos ao usuário.
On Error Resume Next
Response.Write "<HTML><HEAD><TITLE>Fazendo UpLoad </TITLE></HEAD><BODY>"
Dim objUpload
'Cria uma instancia do objeto Upload e atribui a variável objUpload.
Set objUpload = server.CreateObject("Dundas.Upload.2")
Upload.MaxFileSize = 4194304
'Determinamos True em UseVirtualDir para que possamos utilizar o caminho virtual.
objUpload.UseVirtualDir = True
'Utilizamos o caminho virtual que determina onde serão salvos os arquivos carregados.
objUpload.Save "/fotos_maquinas_venda"
FOTO1 = objUpload.GetFileName(path)
'Limpa a instância criada na memória do servidor.
Set objUpload = nothing
'Aqui nós verificaremos se ocorreu algum tipo de erro com os dados carregados. O objeto Err guarda o último erro, caso nenhum erro tenha ocorrido o objeto conterá o valor 0 (zero) com isso podemos verificar o valor do objeto e determinarmos qual mensagem será dada ao usuário.
'If Err <> 0 Then
'Aqui estamos imprimindo na tela do usuário a descrição do erro e seu número.
''Response.Write Err.Description & " " & Err.Number & "<br>"
''Response.Write "<font face=Verdana, Arial, Helvetica, sans-serif size=2><b>Houve erro(s) ao carregar o(s) arquivo(s) anexado(s)!<br><a href=java script:history.back(-1)>Voltar</a> </b></font>"%>
Carregando comentários...