eclass.unmer.ac.id

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
</head>

<body>

<%

logado = request.cookies("logado")
if  logado <> "logado" then
	response.redirect "login.asp"
else
end if
	
	Dim fileUpload
	Set fileUpload = Server.CreateObject("SoftArtisans.FileUp")
	
	fileUpload.Path = "e:\home\kbcomunicacao1\Web\logos\"
	fileUpload.MaxBytes = 50000000
	
	fileUpload.CodePage = 65001
	
	id = fileUpload.Form("id")
	cliente = fileUpload.Form("nome")
	atendimento = fileUpload.Form("atendimento")
	telefone = fileUpload.Form("telefone")
	email = fileUpload.Form("email")
	msn = fileUpload.Form("msn")	
	categoria = fileUpload.Form("categoria")
	
	twitter = fileUpload.Form("twitter")
	facebook = fileUpload.Form("facebook")
	linked = fileUpload.Form("linked")
	orkut = fileUpload.Form("orkut")
	flickr = fileUpload.Form("flickr")
	youtube = fileUpload.Form("youtube")
	vimeo = fileUpload.Form("vimeo")
	rss = fileUpload.Form("rss")
	site = fileUpload.Form("site")
	blog = fileUpload.Form("blog")
	
	If IsObject(fileUpload.Form("myFile")) Then
	
			If Not fileUpload.Form("myFile").IsEmpty Then
			
			fileUpload.Form("myFile").Save 
			
			nome = fileUpload.Form("myFile").ShortFileName

'FOTOS GRANDES
Set Jpeg = Server.CreateObject("Persits.Jpeg")
imagem =  "e:\home\kbcomunicacao1\Web\logos\"&nome
Jpeg.Open imagem

'Verifica se a imagem é maior na largura que a altura. Se for redimensiona para a largura máxima.
if Jpeg.OriginalWidth > Jpeg.OriginalHeight then
L = 235
'Sendo a largura maior, verifica se ela ultrapassa a largura máxima
'se ultrapassar, redimensiona, se não salva no tamanho original
	if Jpeg.OriginalWidth > L then
	Jpeg.Width = L
	Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth
	Jpeg.PNGOutput = True
	Jpeg.Save "e:\home\kbcomunicacao1\Web\logos\b_"&nome
	
		else
		Jpeg.Width = Jpeg.OriginalWidth
		Jpeg.Height = Jpeg.OriginalHeight
		Jpeg.PNGOutput = True
	Jpeg.Save "e:\home\kbcomunicacao1\Web\logos\b_"&nome
		
	end if
else
'Sendo a largura menor, verifica se a altura ultrapassa a altura máxima
'se ultrapassar, redimensiona, se não salva no tamanho original
H = 130
	if Jpeg.OriginalHeight > H then
	Jpeg.Height = H
	Jpeg.Width = Jpeg.OriginalWidth * H / Jpeg.OriginalHeight
	Jpeg.PNGOutput = True
	Jpeg.Save "e:\home\kbcomunicacao1\Web\logos\b_"&nome
	
	else
	Jpeg.Width = Jpeg.OriginalWidth
	Jpeg.Height = Jpeg.OriginalHeight
	Jpeg.PNGOutput = True
	Jpeg.Save "e:\home\kbcomunicacao1\Web\logos\b_"&nome
	
	end if
end if

Set Jpeg2 = Server.CreateObject("Persits.Jpeg")
imagem2 =  "e:\home\kbcomunicacao1\Web\logos\"&nome
Jpeg2.Open imagem2

'Verifica se a imagem é maior na largura que a altura. Se for redimensiona para a largura máxima.
if Jpeg2.OriginalWidth > Jpeg2.OriginalHeight then
L = 55
'Sendo a largura maior, verifica se ela ultrapassa a largura máxima
'se ultrapassar, redimensiona, se não salva no tamanho original
	if Jpeg2.OriginalWidth > L then
	Jpeg2.Width = L
	Jpeg2.Height = Jpeg2.OriginalHeight * L / Jpeg2.OriginalWidth
	Jpeg2.PNGOutput = True
	Jpeg2.Save "e:\home\kbcomunicacao1\Web\logos\p_"&nome
	
		else
		Jpeg2.Width = Jpeg2.OriginalWidth
		Jpeg2.Height = Jpeg2.OriginalHeight
		Jpeg2.PNGOutput = True
	Jpeg2.Save "e:\home\kbcomunicacao1\Web\logos\p_"&nome
		
	end if
else
'Sendo a largura menor, verifica se a altura ultrapassa a altura máxima
'se ultrapassar, redimensiona, se não salva no tamanho original
H = 55
	if Jpeg2.OriginalHeight > H then
	Jpeg2.Height = H
	Jpeg2.Width = Jpeg2.OriginalWidth * H / Jpeg2.OriginalHeight
	Jpeg2.PNGOutput = True
	Jpeg2.Save "e:\home\kbcomunicacao1\Web\logos\p_"&nome
	
	else
	Jpeg2.Width = Jpeg2.OriginalWidth
	Jpeg2.Height = Jpeg2.OriginalHeight
	Jpeg2.PNGOutput = True
	Jpeg2.Save "e:\home\kbcomunicacao1\Web\logos\p_"&nome
	
	end if
end if
			
			
			nome2 = "b_"&nome
			nome3 = "p_"&nome
	
			sqlText =  "UPDATE cliente SET logo='"&nome&"', logo2='"&nome2&"', thumb='"&nome3&"' WHERE id="&id
			conbanco.Execute(sqlText)
			
			Else
				Response.Write "Nenhuma imagem foi selecionada"
			End If
	Else
	End If
	
	
	
	sqlText =  "UPDATE cliente SET nome='"&cliente&"', site='"&site&"', atendimento='"&atendimento&"', telefone='"&telefone&"', email='"&email&"', msn='"&msn&"', twitter='"&twitter&"', categoria='"&categoria&"', facebook='"&facebook&"', linked='"&linked&"', orkut='"&orkut&"', flickr='"&flickr&"', youtube='"&youtube&"', vimeo='"&vimeo&"', rss='"&rss&"', blog='"&blog&"' WHERE id="&id
	conbanco.Execute(sqlText)

response.redirect("imprensa.asp?menu=4")
%>
</body>
</html>