
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../Connections/cenaberta.asp" -->
<%
' *** Edit Operations: declare variables

Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>



<%
' *** Check New Elements
FX_flag="MM_insert"
FX_rs = ""  ' used for identification
FX_found = false
If (CStr(Request(FX_flag)) <> "") Then
  FX_dupKeyRedirect="r_utilizador.asp"
  FX_rsKeyConnection=MM_cenaberta_STRING
  FX_dupKeyValue = CStr(Request.Form("email"))
  FX_dupKeySQL="SELECT email FROM utilizadores WHERE email = '" & FX_dupKeyValue & "'"
  FX_adodbRecordset="ADODB.Recordset"
  set FX_rsKey=Server.CreateObject(FX_adodbRecordset)
  FX_rsKey.ActiveConnection=FX_rsKeyConnection
  FX_rsKey.Source=FX_dupKeySQL
  FX_rsKey.CursorType=0
  FX_rsKey.CursorLocation=2
  FX_rsKey.LockType=3
  FX_rsKey.Open
  FX_dupKeyValue2 = CStr(Request.Form("chaveunica"))
  FX_dupKeySQL2="SELECT chaveunica FROM utilizadores WHERE chaveunica = '" & FX_dupKeyValue2 & "'"
  set FX_rsKey2=Server.CreateObject(FX_adodbRecordset)
  FX_rsKey2.ActiveConnection=FX_rsKeyConnection
  FX_rsKey2.Source=FX_dupKeySQL2
  FX_rsKey2.CursorType=0
  FX_rsKey2.CursorLocation=2
  FX_rsKey2.LockType=3
  FX_rsKey2.Open
  If ((Not FX_rsKey.EOF Or Not FX_rsKey.BOF)) Then 
    ' email foi encontrado
    FX_found = true
    FX_dupValue = "o email " & FX_dupKeyValue & "já existe na nossa base de dados!"
  Else
  If ((Not FX_rsKey2.EOF Or Not FX_rsKey2.BOF)) Then 
    ' a chave única foi encontrada
    FX_found = true
    FX_dupValue = "houve um problema com a base de dados. Repita o processo"
  End If
  End If
  if(FX_found) Then
    FX_dupValue = FX_dupValue & ""
    FX_qsChar = "?"
    If (InStr(1,FX_dupKeyRedirect,"?") >= 1) Then FX_qsChar = "&"
    FX_dupKeyRedirect = FX_dupKeyRedirect & FX_qsChar & "FX_ReqValue=" & Server.URLEncode(FX_dupValue)
    Response.Redirect(FX_dupKeyRedirect)
  End If
  FX_rsKey.Close
  FX_rsKey2.Close
End If
%>
<%
' *** Insert Record: set variables

If (CStr(Request("MM_insert")) = "form1") Then

  MM_editConnection = MM_cenaberta_STRING
  MM_editTable = "utilizadores"
  MM_editRedirectUrl = ""
  MM_fieldsStr  = "email|value|expiracao|value|chaveunica|value"
  MM_columnsStr = "email|',none,''|expiracao|',none,NULL|chaveunica|',none,''"

  ' create the MM_fields and MM_columns arrays
  MM_fields = Split(MM_fieldsStr, "|")
  MM_columns = Split(MM_columnsStr, "|")
  
  ' set the form values
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
  Next

  ' append the query string to the redirect URL
  If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
    If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
      MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
    Else
      MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
    End If
  End If

End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it

Dim MM_tableValues
Dim MM_dbValues

If (CStr(Request("MM_insert")) <> "") Then

  ' create the sql insert statement
  MM_tableValues = ""
  MM_dbValues = ""
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_formVal = MM_fields(MM_i+1)
    MM_typeArray = Split(MM_columns(MM_i+1),",")
    MM_delim = MM_typeArray(0)
    If (MM_delim = "none") Then MM_delim = ""
    MM_altVal = MM_typeArray(1)
    If (MM_altVal = "none") Then MM_altVal = ""
    MM_emptyVal = MM_typeArray(2)
    If (MM_emptyVal = "none") Then MM_emptyVal = ""
    If (MM_formVal = "") Then
      MM_formVal = MM_emptyVal
    Else
      If (MM_altVal <> "") Then
        MM_formVal = MM_altVal
      ElseIf (MM_delim = "'") Then  ' escape quotes
        MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
      Else
        MM_formVal = MM_delim + MM_formVal + MM_delim
      End If
    End If
    If (MM_i <> LBound(MM_fields)) Then
      MM_tableValues = MM_tableValues & ","
      MM_dbValues = MM_dbValues & ","
    End If
    MM_tableValues = MM_tableValues & MM_columns(MM_i)
    MM_dbValues = MM_dbValues & MM_formVal
  Next
  MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

  If (Not MM_abortEdit) Then
    ' execute the insert
    Set MM_editCmd = Server.CreateObject("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_editConnection
    MM_editCmd.CommandText = MM_editQuery
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

    If (MM_editRedirectUrl <> "") Then
      Response.Redirect(MM_editRedirectUrl)
	  Else
	  
	  
	  'inserir aqui o script de envio 
Dim objCDONTS                 ' Email object
Dim strFromName               ' From persons' real name
Dim strFromEmail, strToEmail  ' Email addresses
Dim strSubject, strBody       ' Message
Dim strThisPage               ' This page's URL
Dim strReferringPage          ' The referring page's URL
Dim bValidInput               ' A boolean indicating valid parameters


' Debugging lines:
'Response.Write strThisPage & "<BR>" & vbCrLf
'Response.Write strReferringPage & "<BR>" & vbCrLf

' Read in and set the initial values of our message parameters
strFromName  ="cenaberta"
strFromEmail = "cenaberta@cenalusofona.pt"
strToEmail   = Trim(Request.Form("email"))
strBcc       = "cenaberta@cenalusofona.pt"
strSubject   = "[registo cenaberta]"
strBody      = ""
strchave	 = Trim(Request.Form("chaveunica"))



' I set the body message to a message that referenced the page the
' user arrived from.  This makes it great if you place a link to it
' from your different articles, but can be weird if people link in
' from other web sites.

	
		strBody = ""
		strBody = strBody & "Olá," & vbCrLf
		strBody = strBody & "bem-vindo ao cenaberta" & vbCrLf
		strBody = strBody & "o e-mail " & strToEmail & " foi registado no site cenaberta." & vbCrLf
		strBody = strBody & "se quiser receber a newsletter clique no link:" & vbCrLf
		strBody = strBody & "http://www.cenalusofona.pt/cenaberta/utilizador_ok.asp?uid=" & strchave & vbCrLf
		strBody = strBody & "Se o link não funcionar copie este endereço para o browser http://www.cenalusofona.pt/cenaberta/utilizador_ok.asp e, em seguida, copie o este código >> " & strchave & " << para o campo indicado." &  vbCrLf
		strBody = strBody & "" & vbCrLf
		strBody = strBody & "Tem três dias para validar o seu endereço electrónico. Se não proceder à validação neste prazo, tem de repetir o processo de registo." & vbCrLf

	



	' Set up our email object and send the message
	Set objCDONTS = Server.CreateObject("CDONTS.NewMail")
	objCDONTS.From    = strFromName & " <" & strFromEmail & ">"
	objCDONTS.To      = strToEmail
	objCDONTS.Bcc     = strBcc
	objCDONTS.Subject = strSubject
	objCDONTS.Body    = strBody
	objCDONTS.Send
	Set objCDONTS = Nothing
	
	Response.Redirect("utilizador_ok.asp")
End If 
End If 
End If 
%>
<%

set delete_old = Server.CreateObject("ADODB.Command")
delete_old.ActiveConnection = MM_cenaberta_STRING
delete_old.CommandText = "DELETE FROM utilizadores  WHERE receber_newsletter = False and expiracao <now()"
delete_old.CommandType = 1
delete_old.CommandTimeout = 0
delete_old.Prepared = true
delete_old.Execute()

%>
<%
Dim ultimachave
Dim ultimachave_numRows

Set ultimachave = Server.CreateObject("ADODB.Recordset")
ultimachave.ActiveConnection = MM_cenaberta_STRING
ultimachave.Source = "SELECT chaveunica, id_utilizadores  FROM utilizadores  ORDER BY id_utilizadores DESC"
ultimachave.CursorType = 0
ultimachave.CursorLocation = 2
ultimachave.LockType = 1
ultimachave.Open()

ultimachave_numRows = 0
%>
<%
Session("FX_checkvalue") = ""
Session("FX_checkvalue2") = ""
%>
<html><!-- InstanceBegin template="/Templates/jornal_semmenu.dwt.asp" codeOutsideHTMLIsLocked="false" -->
<head>
<!-- InstanceBeginEditable name="doctitle" -->
<title>cenaberta</title>
<!-- InstanceEndEditable --> 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<!-- InstanceBeginEditable name="head" -->
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function YY_checkform() { //v4.71
//copyright (c)1998,2002 Yaromat.com
  var a=YY_checkform.arguments,oo=true,v='',s='',err=false,r,o,at,o1,t,i,j,ma,rx,cd,cm,cy,dte,at;
  for (i=1; i<a.length;i=i+4){
    if (a[i+1].charAt(0)=='#'){r=true; a[i+1]=a[i+1].substring(1);}else{r=false}
    o=MM_findObj(a[i].replace(/\[\d+\]/ig,""));
    o1=MM_findObj(a[i+1].replace(/\[\d+\]/ig,""));
    v=o.value;t=a[i+2];
    if (o.type=='text'||o.type=='password'||o.type=='hidden'){
      if (r&&v.length==0){err=true}
      if (v.length>0)
      if (t==1){ //fromto
        ma=a[i+1].split('_');if(isNaN(v)||v<ma[0]/1||v > ma[1]/1){err=true}
      } else if (t==2){
        rx=new RegExp("^[\\w\.=-]+@[\\w\\.-]+\\.[a-zA-Z]{2,4}$");if(!rx.test(v))err=true;
      } else if (t==3){ // date
        ma=a[i+1].split("#");at=v.match(ma[0]);
        if(at){
          cd=(at[ma[1]])?at[ma[1]]:1;cm=at[ma[2]]-1;cy=at[ma[3]];
          dte=new Date(cy,cm,cd);
          if(dte.getFullYear()!=cy||dte.getDate()!=cd||dte.getMonth()!=cm){err=true};
        }else{err=true}
      } else if (t==4){ // time
        ma=a[i+1].split("#");at=v.match(ma[0]);if(!at){err=true}
      } else if (t==5){ // check this 2
            if(o1.length)o1=o1[a[i+1].replace(/(.*\[)|(\].*)/ig,"")];
            if(!o1.checked){err=true}
      } else if (t==6){ // the same
            if(v!=MM_findObj(a[i+1]).value){err=true}
      }
    } else
    if (!o.type&&o.length>0&&o[0].type=='radio'){
          at = a[i].match(/(.*)\[(\d+)\].*/i);
          o2=(o.length>1)?o[at[2]]:o;
      if (t==1&&o2&&o2.checked&&o1&&o1.value.length/1==0){err=true}
      if (t==2){
        oo=false;
        for(j=0;j<o.length;j++){oo=oo||o[j].checked}
        if(!oo){s+='* '+a[i+3]+'\n'}
      }
    } else if (o.type=='checkbox'){
      if((t==1&&o.checked==false)||(t==2&&o.checked&&o1&&o1.value.length/1==0)){err=true}
    } else if (o.type=='select-one'||o.type=='select-multiple'){
      if(t==1&&o.selectedIndex/1==0){err=true}
    }else if (o.type=='textarea'){
      if(v.length<a[i+1]){err=true}
    }
    if (err){s+='* '+a[i+3]+'\n'; err=false}
  }
  if (s!=''){alert('o formulário está incompleto ou contém erros:\t\t\t\t\t\n\n'+s)}
  document.MM_returnValue = (s=='');
}
//-->
</script>
<!-- InstanceEndEditable -->
<link href="JORNAL.css" rel="stylesheet" type="text/css">

<script language="JavaScript" type="text/JavaScript">
<!--

function pviiObjbg(obj, new_color) { //v2.1 by Project VII
	obj.style.backgroundColor=new_color
}
//-->
</script>
<style type="text/css">
<!--
a:link {
	text-decoration: none;
}
a:visited {
	text-decoration: none;
}
a:hover {
	text-decoration: underline;
}
a:active {
	text-decoration: none;
}
-->
</style></head>

<body bgcolor="#F7F7F7" link="#003366" vlink="#003366" alink="#003366{ text-decoration: none }">
<table width="750" height="349" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" class="MENUcontornos">
  <tr valign="top"> 
    <td height="56"><table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td><img src="img/barra_topo.jpg" width="750" height="34" border="0" usemap="#Map"></td>
        </tr>
        <tr>
          <td><table width="100%" border="0" cellpadding="1" cellspacing="0" bgcolor="#CEDEE5">
              <tr valign="middle"> 
                <td>&nbsp;</td>
                <td>&nbsp;</td>
                <td align="right" valign="middle"> 
                    
                  
                </td>
              </tr>
            </table></td>
        </tr>
      </table></td>
  </tr>
  <tr valign="top"> 
    <td height="293" bgcolor="E3E8EA"><table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td>
          </td>
        </tr>
      </table>
      <table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td><!-- InstanceBeginEditable name="corpo" --> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td><% If Request.QueryString("cmd")="" or Request.QueryString("cmd")="off" Then %>            
            <span class="CANALcaixa"><%= Request.QueryString("FX_ReqValue") %></span>
			<%
			Dim X, Y, strPW 
		For X = 1 To 10
		'Randomize the type of this character
		Y = Int((3 * Rnd) + 1) '(1) Numeric, (2) Uppercase, (3) Lowercase
		
		Select Case Y
			Case 1
				'Numeric character
				Randomize
				strPW = strPW & CHR(Int((9 * Rnd) + 48))
			Case 2
				'Uppercase character
				Randomize
				strPW = strPW & CHR(Int((25 * Rnd) + 65))
			Case 3
				'Lowercase character
				Randomize
				strPW = strPW & CHR(Int((25 * Rnd) + 97))

		End Select
	Next
	
	RandomPW = strPW
strchave=Trim(Request.Form("chaveunica"))

%>
<% If Request.QueryString("erro")<>"" Then %>
			<table width="100%"  border="0" cellpadding="0" cellspacing="0" class="CANALcaixa">
              <tr>
                <td></td>
              </tr>
            </table>
            <% End If %>
            <table width="100%"  border="0" cellpadding="0" cellspacing="0" class="CANALcaixa">
              <tr>
                <td><br>
                  clique <a href="mailto:cenaberta@cenalusofona.pt?Subject=subscrever%20newsletter">aqui</a> para receber a newsletter do cenaberta<em></em>, ou ent&atilde;o envie um e-mail para cenaberta@cenalusofona.pt com [subscrever newsletter] no Assunto.</td>
              </tr>
            </table>
            <% End if %>

</td>
        </tr>
      </table>
      <!-- InstanceEndEditable -->
	<!-- InstanceBeginEditable name="coluna" --> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td>&nbsp;</td>
        </tr>
      </table>
      <p>&nbsp;</p>
      <!-- InstanceEndEditable --></td>
        </tr>
      </table>
      
    <p>&nbsp;</p>    </td>
  </tr>
</table>
<p>&nbsp;</p>
<map name="Map">
  <area shape="rect" coords="389,17,451,32" href="http://www.cenalusofona.pt/apresentacao/index.htm" target="_blank" alt="apresenta&ccedil;&atilde;o">
  <area shape="rect" coords="457,17,498,32" href="http://www.cenalusofona.pt/memoria/index.htm" target="_blank" alt="mem&oacute;ria">
  <area shape="rect" coords="501,18,537,32" href="http://www.cenalusofona.pt/agenda/index.htm" target="_blank" alt="agenda">
  <area shape="rect" coords="540,19,611,32" href="http://www.cenalusofona.pt/cdi/doccenter.html" target="_blank" alt="documenta&ccedil;&atilde;o">
  <area shape="rect" coords="614,18,658,32" href="http://www.cenalusofona.pt/destaque/index.htm" target="_blank" alt="destaque">
  <area shape="rect" coords="660,18,701,33" href="http://www.cenalusofona.pt/edicoes/index.html" target="_blank" alt="edições">
  <area shape="rect" coords="703,18,748,32" href="http://www.cenalusofona.pt/conexoes/index.html" target="_blank" alt="conex&otilde;es">
</map>
</body>
<!-- InstanceEnd --></html>
<%
ultimachave.Close()
Set ultimachave = Nothing
%>