 |
|
 |
|
<%
'Função para efetuar o UPLOAD do novo logo
Set UPLlayout = Server.CreateObject("SoftArtisans.FileUp")
If UPLlayout.form("acao_admin") = "Atualizar" Then
Call abre_ArquivoXML(Application("XMLArquivoConfiguracao"),FctobjXML,FctobjRoot)
Set configuracao = FctobjRoot.selectSingleNode("dados/configuracao_dados")
FOR EACH count in UPLlayout.Form
If count <> "acao_admin" And Instr(count,"XML_") <> 0 Then
configuracao.setAttribute Mid(count,5,Len(count)),(Trim(UPLlayout.Form(count)))
End If
NEXT
Set configuracao = Nothing
Set objRoot = Nothing
FctobjXML.save(Application("XMLArquivoConfiguracao"))
'Define o nome padrão da imagem
File = "logo.gif"
' Altera o logo da loja
If UPLlayout.Form("img_loja").UserFilename <> "" Then
UPLlayout.Form("img_loja").Path = Application("DiretorioImagensConteudo") & "\padrao"
UPLlayout.Form("img_loja").SaveAs File
End If
'Chama a função para efetuar a alteração das cores
Call atualiza_layout()
msg_resultado = "Alterações efetuadas com sucesso!"
%>
<%
'response.redirect "ADM_altera_layout.asp?msg_resultado=" & msg_resultado
response.end
End If
%>
• Customização de Layout
|
 |
|
|
 |