<%@ LANGUAGE=VBScript%><%

	Response.Expires = 0
	Response.Buffer = true
	

	strRelac = Request("rel")


	'--- pega os dados do cookie temporário
	If ( Request.Cookies("sitetmp")("email") <> "" ) Then
		strId = Request.Cookies("sitetmp")("id")	
		strNome = Request.Cookies("sitetmp")("nome")	
		strEmail = Request.Cookies("sitetmp")("email")	
	else		
		strMsg = Request.Cookies("sitetmp")("msg")
		Response.Cookies("sitetmp")("msg") = ""
	End If

	'--- se não existe cookie, redireciona o internauta para o manifesto.asp
	If ( strId = "" Or strEmail = "" Or strNome = "" ) Then

		If Request("acao") = "log" then
			strNome = Request("nome")
			strEmail = Request("email")
			strSenha = Request("senha")
			
			'--- retorna mensagem de falta de dados
			If ( strEmail = "" And strSenha = "" ) Then
				Response.Cookies("sitetmp")("msg") = "email e senha não foram informados!"
				Response.Clear
				Response.Redirect "manifesto.asp?rel=" & strRelac
				Response.End	
			End If

			on Error resume next
			
			'Abre conexao com banco de dados
		
			set dbConn = Server.CreateObject("ADODB.Connection")
			dbConn.Open application("CnxStrMDBSite")
			
			if err <> 0 then
				Set dbConn = nothing
				'
				Response.Cookies("sitetmp")("msg") = "erro no sistema de login!"
				Response.Clear
				Response.Redirect "manifesto.asp?rel=" & strRelac
				Response.End
			end if
		
			'--- retorna mensagem de falta de dados
			If ( strEmail <> "" And strNome <> "" And strSenha = "" ) Then
				pseudoSenha = "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzklmnopqrstuvwxyzabcdefghijk"
				pseudoSenha2 = "0123456789012345678901234567890123456789"
				strSenha = mid(pseudoSenha, Minute(now()), 1) + mid(pseudoSenha, Day(now()), 1) + mid(pseudoSenha, Second(now()), 1) + mid(pseudoSenha2, Weekday(now()), 1) + mid(pseudoSenha2, Weekday(now()+2), 1) + mid(pseudoSenha2, Hour(now()+1), 1)
				'			
				strIP = Request.ServerVariables("REMOTE_HOST")

				strProvedor = ""
				Set oDNS = Server.Createobject("Dynu.DNS") 
				if err = 0 then
					strProvedor = oDNS.ReverseLookup(strIP) 
				end if
				Set oDNS = nothing 

				strGeoIP = Request("geoip")
				strCountry = Request("country")
				strCity = Request("city")

				existe = 0
				
				SQLQuery = "SELECT count(1) as tt FROM manifestantes WHERE email='" & strEmail & "'"	
				Set rsUsuario = dbConn.Execute(SQLQuery) 
				If Not rsUsuario.EOF then
					existe = rsUsuario("tt")
				end if
				rsUsuario.Close

				if existe <> 0 then
					dbConn.Close
					Set dbConn = nothing
					'
					Response.Cookies("sitetmp")("msg") = "este email já está cadastrado!"
					Response.Clear
					Response.Redirect "manifesto.asp?rel=" & strRelac
					Response.End
				end if
	
				dbConn.Execute( "Insert Into manifestantes ( nome, email, senha, geoip, ip, provedor, country, city) values('" & replace(strNome,"'", "''") & "', '" & replace(strEmail,"'", "''") & "', '" & replace(strSenha,"'", "''") & "', '" & replace(strGeoIP,"'", "''") & "', '" & replace(strIP,"'", "''") & "', '" & replace(strProvedor,"'", "''") & "', '" & replace(strCountry,"'", "''") & "', '" & replace(strCity,"'", "''") & "')" )
				'
				if err <> 0 then
					dbConn.Close
					Set dbConn = nothing
					'
					Response.Cookies("sitetmp")("msg") = "erro no sistema de login*!"
					Response.Clear
					Response.Redirect "manifesto.asp?rel=" & strRelac
					Response.End
				else
					
					'--- prepara o conteúdo do email
					'--- e o envia utilizando o AspMail
					Set Mailer = Server.CreateObject("SMTPsvg.Mailer") 
					
					if err = 0 then
			
						Mailer.Priority = 1
						Mailer.CharSet = 2
			
						Mailer.FromName = "proj.MANIFESTE-SE"
						Mailer.FromAddress= application("CnxStrSMTPAccount")
						Mailer.RemoteHost = application("CnxStrSMTP")
						Mailer.AddRecipient strNome, strEmail
						Mailer.Subject = "senha MANIFESTE-SE ONLINE" 
			
						wagora = Now()
		
						'--- prepara TEXTO
						wBody = "Seja bem vindo(a) " & strNome & vbCrLf
						wBody = wBody & "(login-email: " & strEmail & ")" & vbCrLf & vbCrLf

						wBody = wBody & """MANIFESTE-SE ONLINE"" encontra-se em fase de" & vbCrLf
						wBody = wBody & "testes-instalação-aperfeiçoamento e portanto agradecemos imensamente" & vbCrLf
						wBody = wBody & "pela sua participação, caso tenha qq problema com suas entradas no site," & vbCrLf
						wBody = wBody & "por favor nos comunique aqui via email e deixe as suas contribuições" & vbCrLf
						wBody = wBody & "para que melhor possamos elaborar a acessibilidade à todos da" & vbCrLf
						wBody = wBody & "ferramenta e visualidade etc deste projeto." & vbCrLf & vbCrLf

						wBody = wBody & "sua senha de acesso é: " & strSenha & vbCrLf & vbCrLf

						wBody = wBody & "lembrando que esta semana - última de abril - teremos novas saidas às" & vbCrLf
						wBody = wBody & "ruas de SP, participe >> www.manifesto21.com.br" & vbCrLf & vbCrLf

						wBody = wBody & "[]s e boas manifestações!," & vbCrLf
						wBody = wBody & "equipe MANIFESTE-SE [todo mundo artista]" & vbCrLf & vbCrLf

						wBody = wBody & "obs1 >> para participar do live-streaming, entre em contato conosco nos" & vbCrLf
						wBody = wBody & "dias de transmissão ao vivo via msn: manifestese@hotmail.com" & vbCrLf & vbCrLf

						wBody = wBody & "obs2 >> para participar do ""MANIFESTE-SE ONLINE"" é necessário uma" & vbCrLf
						wBody = wBody & "entrada mic e/ou webcam acoplados em seu computador" & vbCrLf
						
						Mailer.BodyText = wBody
			
						If Mailer.SendMail Then 
							bok = true
						Else 
							bok = false
						End If
			
						Set Mailer = Nothing
			
					end if
					
				end if
				'
				dbConn.Close
				Set dbConn = nothing
				'
				Response.Cookies("sitetmp")("msg") = "usuário criado com sucesso!<br>aguarde envio de sua senha."
				Response.Clear
				Response.Redirect "manifesto.asp?rel=" & strRelac
				Response.End	
			End If

			'--- testa usuario e senha
		
			SQLQuery = "SELECT id, email, nome FROM manifestantes WHERE email='" & strEmail & "' AND senha='" & strSenha & "'"
		
			Set rsUsuario = dbConn.Execute(SQLQuery) 
		
			If Not rsUsuario.EOF then
				strId = rsUsuario("id")
				strNome = rsUsuario("nome")
				strEmail = rsUsuario("email")
			else
				strId = ""
				strNome = ""
				strEmail = ""
			end if
		
			rsUsuario.Close
		
			dbConn.Close
			Set dbConn = nothing
		
			If ( strNome = "" ) Then
				'--- retorna mensagem de usuario/senha inválidos
				Response.Cookies("sitetmp")("msg") = "usuário e/ou senha inválidos!"
				Response.Clear
				Response.Redirect "manifesto.asp?rel=" & strRelac
				Response.End	
			End If

			Response.Cookies("sitetmp")("id") = strId
			Response.Cookies("sitetmp")("nome") = strNome
			Response.Cookies("sitetmp")("email") = strEmail
			Response.Cookies("sitetmp")("msg") = ""
			Response.Clear
			Response.Redirect "manifesto.asp?rel=" & strRelac
			Response.End	

		End if

%>
<!--#include file="cachecontrol.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Manifesto 21</title>
<link rel="stylesheet" href="./estilo.css">
<script language="Javascript">
<!--
function verifica(form)
{
	if(form.nome.value == "" && form.senha.value == "")
	{	alert("O nome deve ser digitado!");
		form.nome.focus();
		return false;
	}
	
	if(form.nome.value != "" && form.nome.value.indexOf("@") != -1)
	{	alert("Caracter: @, não é permitido no nome!");
		form.nome.focus();
		form.nome.select();
		return false;
	}

	if(form.email.value == "")
	{	alert("O email deve ser digitado!");
		form.email.focus();
		return false;
	}
	
	if(!isEmail(form.email.value))
	{
		alert('O email digitado está incorreto!!!');
		form.email.focus();
		form.email.select();
		return false;
	}

	/*if (form.senha.value == "")
	{	alert("A senha deve ser preechida !");
		form.senha.focus();
		return false;
	}*/
	
	return true;
}

function isEmail(s)
{
	if(isEmpty(s) || isWhitespace(s))
	{
		return false;
	}
	var i = 1;
	var sLength = s.length;
	
	if(isDotted(s))
		return false;

	if(isNotValid(s))
		return false;

	while((i < sLength) && (s.charAt(i) != "@"))
	{
		i++;
	}
	
	if((i >= sLength) || (s.charAt(i) != "@"))
		return false;
	else
		i += 2;
	
	while((i < sLength) && (s.charAt(i) != "."))
	{
		i++;
	}
	
	// there must be at least one character after the .
	if((i >= sLength - 1) || (s.charAt(i) != "."))
		return false;
	else
		return true;
}

function isEmpty(s)
{
  return ((s == null) || (s.length == 0))
}

function isDotted(s)
{
	if(s!=null)
  		if(s.length>0)
			return (s.charAt(s.length-1)=='.')
	return false;
}

function isNotValid(s)
{
	for(var i=0; i < s.length; i++)
	{
		if(s.charAt(i) != '@' && s.charAt(i) != '.' && s.charAt(i) != '_' && s.charAt(i) != '-' && !(s.charAt(i) >= 'a' && s.charAt(i) <= 'z') && !(s.charAt(i) >= '0' && s.charAt(i) <= '9'))
			return true;
	}
	return false;
}
function isWhitespace(s)
{
  var i;
  var whitespace = " \t\n\r";
  if (isEmpty(s)) return true;
  for (i = 0; i < s.length; i++){   
    var c = s.charAt(i);
    if (whitespace.indexOf(c) == -1) return false;
  }
  return true;
}
//-->
</script>
<script language="JavaScript" src="http://j.maxmind.com/app/geoip.js"></script>
</head>
<body>
<table cellspacing=0 cellpadding=0 border=0 width=100% height=100%>
<tr>
<td valign=middle align=center>
	<table cellspacing=0 cellpadding=0 border=0 width=246 height=242>
	<tr>
		<td colspan=3 width=246 height=70 bgcolor="#DEE3E6"><img src="img/logo.gif" width=246 height=70></td>
	</tr>
	<tr>
		<td width=1 height=9 bgcolor="#929292"><img src="img/spacer.gif" width=1 height=9></td>
		<td width=244 height=9 bgcolor="#DEE3E6"><img src="img/spacer.gif" width=1 height=9></td>
		<td width=1 height=9 bgcolor="#929292"><img src="img/spacer.gif" width=1 height=9></td>
	</tr>
	<tr>
		<td width=1 height=13 bgcolor="#929292"><img src="img/spacer.gif" width=1 height=13></td>
		<td width=244 height=13 bgcolor="#DEE3E6" align=right><img src="img/chamada.gif" width=241 height=13></td>
		<td width=1 height=13 bgcolor="#929292"><img src="img/spacer.gif" width=1 height=13></td>
	</tr>
	<tr>
		<td width=1 height=10 bgcolor="#929292"><img src="img/spacer.gif" width=1 height=10></td>
		<td width=244 height=10 bgcolor="#DEE3E6"><img src="img/spacer.gif" width=1 height=10></td>
		<td width=1 height=10 bgcolor="#929292"><img src="img/spacer.gif" width=1 height=10></td>
	</tr>
	<tr>
		<td width=1 bgcolor="#929292"><img src="img/spacer.gif" width=1 height=1></td>
		<td width=244 valign=top align=center bgcolor="#DEE3E6">
			<form action="manifesto.asp?rel=<%=strRelac%>" method="POST" name="acesso" onsubmit="return verifica(document.acesso)">
			<table border=0 cellpadding=1 cellspacing=0 width=240>
			<tr>
				<td align=center>
					<table width=240 cellpadding=1 cellspacing=0 border="0">
					<tr>
						<td align=right width=51% class=txt08p>nome (ou apelido)&nbsp;</td>
						<td align=left width=49%><input type=text size=16 maxlength=40 style="width:102px" name="nome" value="<% =strEmail %>" class=text></td>
					</tr>
					<tr>
						<td align=right width=51% class=txt08p>email (login)&nbsp;</td>
						<td align=left width=49%><input type=text size=16 maxlength=100 style="width:102px"name="email" value="<% =strEmail %>" class=text onBlur="this.value=this.value.toLowerCase();"></td>
					</tr>
					<tr>
						<td align=right class=txt08p width=51%>senha&nbsp;</td>
						<td align=left width=49%><input type=password size=16 maxlength=20 style="width:102px"name="senha" class=text onBlur="this.value=this.value.toLowerCase();"></td>
					</tr>
					<tr>
						<td colspan=2 height=5><img src="img/spacer.gif" width=1 height=5></td>
					</tr>
					<tr>
						<td colspan=2 align=center><img src="img/frase.gif"></td>
					</tr>
					<tr>
						<td colspan=2 height=5><img src="img/spacer.gif" width=1 height=5></td>
					</tr>
					<tr>
						<td colspan=2 align=center class=txt08p><input type=submit name="Action" value="Acessar" class=button></td>
					</tr>
					</table>
				</td>
			</tr>
			</table>
			<input type="hidden" name="acao" value="log">
			<input type="hidden" name="geoip" value="">
			<input type="hidden" name="country" value="">
			<input type="hidden" name="city" value="">
			</form>
		</td>
		<td width=1 bgcolor="#929292"><img src="img/spacer.gif" width=1 height=1></td>
	</tr>
	<tr>
		<td width=1 height=5 bgcolor="#929292"><img src="img/spacer.gif" width=1 height=5></td>
		<td width=244 height=5><img src="img/bottom.gif" width=244 height=5></td>
		<td width=1 height=5 bgcolor="#929292"><img src="img/spacer.gif" width=1 height=5></td>
	</tr>
	</table>
<%
		If( strMsg <> "" ) then
%>
	<br>
	<table align=center width=246 border=0 cellspacing=0 cellpadding=2>
	<tr align=center> 
		<td bgcolor=red class=txt08bb><% =strMsg%></td>
	</tr>
	</table>
<%
		end If
%>
	<br>
	<br>
	<br>&nbsp;
</td>
</tr>
</table>
<script language="JavaScript">
	document.acesso.geoip.value = geoip_country_name();
	document.acesso.country.value = geoip_country_code();
	document.acesso.city.value = geoip_city();
</script>
</body>
</html>
<%


	Else

		'logado !!!

		'Response.Cookies("sitetmp")("email") = ""


%>
<!--#include file="cachecontrol.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Manifesto 21</title>
<link rel="stylesheet" href="./estilo.css">
<script src="AC_OETags.js" language="javascript"></script>
<script type="text/javascript" src="JavaScriptFlashGateway.js"></script>
<script type="text/javascript">
<!--
var lcId = new Date().getTime();
var flashProxy = new FlashProxy(lcId, "JavaScriptFlashGateway.swf");

function refresh()
{
	self.frmman.location.replace("./manifestacoes.asp");
}
function mensagem(texto)
{
	alert(texto);
}
function doPlay(str)
{
 	flashProxy.call("PlayStream", str);
}
//-->
</script>
<script language="JavaScript" type="text/javascript">
<!--
// -----------------------------------------------------------------------------
// Globals
// Major version of Flash required
var requiredMajorVersion = 8;
// Minor version of Flash required
var requiredMinorVersion = 0;
// Minor version of Flash required
var requiredRevision = 0;
// -----------------------------------------------------------------------------
// -->
</script>
</head>
<body>
	<br>
<table cellpadding=0 cellspacing=0 border=0 width=430 align=center>
<tr>
	<td width=242 align=right valign=bottom class=txt08p><%=strNome%></td>
	<td rowspan=3 width=30 class=txt08p>&nbsp;</td>
	<td width=158 align=center valign=bottom class=txt08p>Lista de vídeos gravados</td>
</tr>
<tr>
	<td width=242 valign=top align=center height=230>
<script language="JavaScript" type="text/javascript">
<!--
// Version check for the Flash Player that has the ability to start Player Product Install (6.0r65)
var hasProductInstall = DetectFlashVer(6, 0, 65);

// Version check based upon the values defined in globals
var hasRequestedVersion = DetectFlashVer(requiredMajorVersion, requiredMinorVersion, requiredRevision);


// Check to see if a player with Flash Product Install is available and the version does not meet the requirements for playback
if ( hasProductInstall && !hasRequestedVersion ) {
	// MMdoctitle is the stored document.title value used by the installation process to close the window that started the process
	// This is necessary in order to close browser windows that are still utilizing the older version of the player after installation has completed
	// DO NOT MODIFY THE FOLLOWING FOUR LINES
	// Location visited after installation is complete if installation is required
	var MMPlayerType = (isIE == true) ? "ActiveX" : "PlugIn";
	var MMredirectURL = window.location;
    document.title = document.title.slice(0, 47) + " - Flash Player Installation";
    var MMdoctitle = document.title;

	AC_FL_RunContent(
		"src", "playerProductInstall",
		"FlashVars", "MMredirectURL="+MMredirectURL+'&MMplayerType='+MMPlayerType+'&MMdoctitle='+MMdoctitle+"",
		"width", "242",
		"height", "210",
		"align", "middle",
		"id", "manifestoinstall",
		"quality", "high",
		"bgcolor", "#ffffff",
		"wmode", "transparent",
		"name", "manifestoinstall",
		"allowScriptAccess","sameDomain",
		"type", "application/x-shockwave-flash",
		"pluginspage", "http://www.adobe.com/go/getflashplayer"
	);
} else if (hasRequestedVersion) {
	// if we've detected an acceptable version
	// embed the Flash Content SWF when all tests are passed
	AC_FL_RunContent(
			"FlashVars", "lcId=" + lcId + "&man_id=<%=strId%>&man_email=<%=strEmail%>&man_relac=<%=strRelac%>",
			"src", "manifesto",
			"width", "242",
			"height", "210",
			"align", "middle",
			"id", "manifesto",
			"quality", "high",
			"bgcolor", "#ffffff",
			"wmode", "transparent",
			"name", "manifesto",
			"menu", "false",
			"allowScriptAccess","sameDomain",
			"swLiveConnect", "true",
			"type", "application/x-shockwave-flash",
			"pluginspage", "http://www.adobe.com/go/getflashplayer"
	);
  } else {  // flash is too old or we can't detect the plugin
    var alternateContent = 'Alternate HTML content should be placed here. '
  	+ 'This content requires the Adobe Flash Player. '
   	+ '<a href=http://www.adobe.com/go/getflash/>Get Flash</a>';
    document.write(alternateContent);  // insert non-flash content
  }
// -->
</script>
	</td>
	<td width=158 align=right class=txt08p rowspan=2>
		<iframe id="frmman" name="frmman" src="manifestacoes.asp" width="140px" height="100%" frameborder="no" scrolling="auto"></iframe>
	</td>
</tr>
<tr>
	<td width=242 align=left valign=top class=txt08p><%=strEmail%></td>
</tr>
</table>
</body>
</html>
<%	
	End If
%>