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\destaques\"
	fileUpload.MaxBytes = 50000000
	
	fileUpload.CodePage = 65001
	
	
	If IsObject(fileUpload.Form("myFile")) Then
	
			If Not fileUpload.Form("myFile").IsEmpty Then
			
			fileUpload.Form("myFile").Save 
			
			nome = fileUpload.Form("myFile").ShortFileName	
			url = fileUpload.Form("url")
			
			sqlText = "INSERT INTO destaques (imagem, url) values ('" 
			sqlText = sqlText & nome
			sqlText = sqlText & "', '"
			sqlText = sqlText & url
			sqlText = sqlText & "')"
			conbanco.Execute (sqlText)
			
			Else
				Response.Write "Nenhuma imagem foi selecionada"
			End If
	Else
	End If

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