<%@ Language=VBScript %>
<%Option Explicit%>
<!-- #include file="mod.asp" -->
<%
Dim RS2 : Set RS2 = Server.CreateObject("ADODB.Recordset")
Dim sesid
ConnectRS
select case Request.Form("action")
case "login":
	if Request.Form("username") <> "" then
		
		'Prise de l'information de l'acheteur selon son nom d'utilisateur (..., (SELECT COUNT(ID_Transaction) FROM tblTransaction WHERE ID_ach = a.ID_ach) AS [transac]...)
		strSQL = "SELECT a.ID_Ach, 0 AS [ID_Assistant], webActif, webPassword, webDateFin, (SELECT COUNT(ID_CCach) FROM tblCCAch WHERE ID_ach = a.ID_ach) AS [CCACH] FROM tblSUBAcheteur AS a WHERE webUsername = '" & replace(lcase(Request.Form("username")), "'", "''") & "'" & _
		  " UNION SELECT ID_Ach, ID_Assistant, webActif, webPassword, webDateFin, 0 FROM tblAssistant WHERE webUsername = '" & replace(lcase(Request.Form("username")), "'", "''") & "'"
		 'Response.Write "<!--" & strSQL & "-->"
		RS.Open strSQL, CNRS 'ouverture de la requête
	
		if RS.EOF then 'vérification qu'un nom a été trouvé
			vMess = "Nom d'utilisateur inconnu"
		else
			if RS.Fields("webPassword") <> Request.form("password") then 'vérification du mot de passe
				vMess = "Mot de passe incorrect"
			else
			    Session("user") = UCase(Request.Form("username")) 'l'utilisateur est identifié
				Session("Userid") = RS.Fields("ID_Ach")
				Session("Assistid") = RS.Fields("ID_Assistant")
				Session("CCACH") = RS.Fields("CCACH")
				'Session("Transac") = RS.Fields("transac")
				if Session("CCACH") > 0 then
					dim RScc: Set RScc = Server.CreateObject("ADODB.Recordset")
					strSQL = "SELECT MAX(Date_CCAch) FROM tblCCach WHERE ID_ach = " & Session("Userid") & " AND ID_EtapeCCach = 1"
					RScc.Open strSQL, CNRS
					Response.Write "<!--" & RScc.Fields(0) & "--" & DateDiff("m", RScc.Fields(0), Date) & "-->"
					if RScc.EOF then
						Session("CCACH") = 0
					else
						if DateDiff("m", RScc.Fields(0), Date) > 12 then
							Session("CCACH") = 0
						end if
					end if
				end if
				
				if not RS.Fields("webActif") then 'vérification de l'état de son accès
					vMess = "Vous &ecirc;tes identifi&eacute; mais votre acc&egrave;s a &eacute;t&eacute; r&eacute;voqu&eacute;"
				else 
					
					if datediff("d", RS.Fields("webDateFin"), date) > 0 then 'vérification de la fin de son accès
						vMess = "Vous &ecirc;tes identifi&eacute; mais votre accès a prit fin le " & RS.Fields("webDateFin")
					else
						Session("perm") = 1
						strSQL = " SELECT d.Nom_dos" & _
										 " FROM tblDossier AS d INNER JOIN tblSUBAcheteur AS a ON d.ID_dos = a.ID_dos" & _
										 " WHERE a.ID_Ach = " & Session("Userid") 
								RS2.Open strSQL, CNRS
								sesid = RS2.Fields(0)
								RS2.Close()
						if Session("Userid") <> 1 then
						 SendEMail EMAIL_FROM, EMAIL_TO, "","L'ach. #"& Session("Userid") & " : " & sesid & " vient de se connecter sur le site immobilier !!! ", " "
						 end if
					end if
				end if
			end if
		end if
		RS.Close
		
	end if
case "logout":
	Session.Abandon
	Response.Redirect "index.asp"
end select


%>

<%

function DateForm2(vDat)
	dim Days, Months, strReturn
	Days = array("Dimanche", "Lundi", "Mardi", "Mercredi", "Jeudi", "Vendredi", "Samedi")
	Months = array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre")

	strReturn = ""
	strReturn = strReturn & Day(vDat) & " "
	strReturn = strReturn & Months(Month(vDat) - 1) & " "
	strReturn = strReturn & Year(vDat) & " ["
	strReturn = strReturn & right(FormatNumber(Hour(vDat) / 100, 2), 2) & ":" & right(FormatNumber(Minute(vDat) / 100, 2), 2) & "]"
		
	DateForm2 = strReturn
end Function

function validateComment(vCom)
dim nrC
nrC=0
For I = 1 To 6	

if Mid(vCom,I,1) <> "a" and Mid(vCom,I,1) <> "e"  and Mid(vCom,I,1) <> "i"  and Mid(vCom,I,1) <> "o"  and Mid(vCom,I,1) <> "u"  and Mid(vCom,I,1) <> "y" then
 	nrC = nrC +1
end if 							
    Next
    
     validateComment = nrC

end function

Dim ShowContent 'As Boolean											'Should the form be Displayed
ShowContent = True	

												'The form should be displayed

if Request.Form <> "" then											'If there is data in the request.form
	dim vSubject
	dim vContent
	dim vData
	dim vName
	dim vLocs
	dim vLocsID
	dim vTab
	dim vComment
	vMess = ""

	
    if Request.Form("txtNom") = "" then
    vName = "Sans Nom"
    else 
   vName = Trim(Request.Form("txtNom"))
    end if 
    
	
	vSubject = "Commentaire laissé par " & vName & " le " & FormatDate(Now, "dd-mmm-yyyy") & " (site RP)"
	vContent = ""	
	vData = vData & vName & chr(20)	

	vContent = vContent & "<html><head><style>.txtField {FONT-WEIGHT: bold;FONT-SIZE: 9pt;COLOR: #002b55}</style></head><body bgcolor=""#ffffff"" leftmargin=""15"" topmargin=""10"" marginwidth=""0"" marginheight=""0"" style=""SCROLLBAR-FACE-COLOR: #002b55; SCROLLBAR-3DLIGHT-COLOR: #c3cdd7; SCROLLBAR-ARROW-COLOR: #c3cdd7; SCROLLBAR-TRACK-COLOR: #c3cdd7; SCROLLBAR-DARKSHADOW-COLOR: #c3cdd7; FONT-FAMILY: sans-serif;FONT-SIZE: 10pt""><h3><b>" & vbcrlf
	
	vContent = vContent & "<table border=0 cellspacing=0 cellpadding=0 style=""FONT-SIZE : 9pt""><tr><td valign=top>" & vbcrlf

	vContent = vContent & "</td><td width=10></td><td valign=top>" & vbcrlf
	
		if Request.Form("txtVille") <> "" then
			vContent = vContent & Request.Form("txtVille")
			vData = vData & Request.Form("txtVille") & chr(20)	
	    end if
	    
	    if Request.Form("txtComments") <> "" then
		vContent = vContent & "<span class=""txtField""><br><br>Commentaires</span><br>" & vbcrlf
		vContent = vContent & Request.Form("txtComments")
		else
		vMess = vMess & "txtComments;"
	     end if
	    
	vData = vData & Request.Form("txtComments") & chr(20)	
	vContent = vContent & "</td></tr></table></body></html>" 
    vComment = Request.Form("txtComments")
	if vMess = "" and validateComment(vComment) < 5 then	
		
		'Response.Write vContent 
		SendEMail EMAIL_FROM, EMAIL_TO, "", vSubject, vContent
		
		showContent = false
		
	end if
end if

%>

<script type="text/javascript">
function Devise()
{
	var cmb = document.getElementById("cmbDevise");
	var dd = new Date();
	dd.setMonth(dd.getMonth() + 1);
	document.cookie = "devise=" + cmb.options[cmb.selectedIndex].value + ";expires=" + dd.toDateString();
	window.location.href = unescape(window.location.pathname + "?p=<%=Request.querystring("p")%>&d=" + cmb.options[cmb.selectedIndex].value);
}
function Comptant()
{
	var cmb = document.getElementById("cmbComptant");
	var dd = new Date();
	dd.setMonth(dd.getMonth() + 1);
	document.cookie = "comptant=" + cmb.options[cmb.selectedIndex].value + ";expires=" + dd.toDateString();
}

function SetID(vID)
{
	document.getElementById("hidID").value = vID;
	return true;
}
</script>


<!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 Data -->
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<meta name="description" content="Short description of your site here." />
<meta name="keywords" content="keywords, go, here, seperated, by, commas" />

<!-- Site Title -->
<title>Richard Perreault</title>

<!-- Link to Style External Sheet -->
<link href="css/style.css" type="text/css" rel="stylesheet" />
<link rel="icon" type="image/ico" href="images/logoRP.ico" />

</head>

<script type="text/javascript">
function initRedir() {
window.location='http://aineshebergement.dtdns.net/richardperreault/indexComm.asp?p=mandats'   
    
}
</script>
<body onload = "initRedir()">

<div id="page_wrapper">

<table width="100%" >
<tr><td colspan="3">

<div id="header_wrapper">

<div id="header">

<h1>Richard  <font color="#FFDF8C">Perreault</font></h1>
<h2>La première étape vers un investissement performant</h2>

</div>

<div id="navcontainer">

<ul id="navlist">
<li id="active"><a href="index.asp?p=mandats" >Mandats actuels</a></li>
<li><a href="indexVendus.asp?p=mandats">Vendus</a></li>
<li><a href="indexMandat.asp">Mandats acheteur</a></li>
</ul>
</div>

</div>
</td></tr>
<tr>
<td valign="top">
<div id="left_side">
    <% Dim noBrp
				strSQL = " SELECT Last_brp FROM tblBrp" 
							 RS2.Open strSQL, CNRS					
					noBrp = RS2.Fields(0)
					RS2.Close 
					noBrp = noBrp & "Web.html"%>
    
<h3>Acheteur / Vendeur</h3>

				
<ul class='sousmenu'  >
						<li><%if Request.QueryString("p") = "mandats" then
								Response.Write "<p>Liste des mandats</p>"
							else
						Response.Write "<a href=""index.asp?p=mandats"">Liste des mandats</a>"	
						end	if					
							%></li>
								<% if Session("Perm") = 1 then  %>
							<li>
							 <a href="http://aineshebergement.dtdns.net/WebResidences/Comparables.aspx?id=<%=Session("Userid")%>"  target="_blank">
							 Comparez mandats</a> 
			               
							</li>
							<%else %>
							<li>
							 <a href="http://aineshebergement.dtdns.net/WebResidences/Comparables.aspx?id=1&non=1"  target="_blank">
							 Comparez mandats</a> 
			               
							</li>
							<% end if%>
						<li><%
							if Request.QueryString("p") = "motdepasse" then
								Response.Write "<p>Achat / mot de passe</p>"
							else						
								Response.Write "<a href=""indexInscr.asp?p=motdepasse"">Achat / mot de passe</a>"
							end if
							%></li>	
						<li><%
							if Request.QueryString("p") = "faq" then
								Response.Write "<p>F.A.Q.- mandat acheteur</p>"
							else						
								Response.Write "<a href=""indexFaq.asp?p=faq"">F.A.Q.- mandat acheteur</a>"
							end if
							%></li>						
						<li><%
							if Request.QueryString("p") = "vente" then
								Response.Write "<p>Vente de r&eacute;sidence</p>"
							else						
								Response.Write "<a href=""indexVente.asp?p=vente"">Vente de r&eacute;sidence</a>"
							end if
							%></li>
						<li><%
								if Request.QueryString("p") = "loyers"  then
									Response.Write "<p>Types d'hebergement</p>"
								else						
									Response.Write "<a href=""indexLoyers.asp?p=loyers"">Types d'hebergement</a>"
								end if
								%></li>
					</ul>
	
<ul class='menu'>
				
				<li><%
					if Request.QueryString("p") = "consultation" then
						Response.Write "<p>Services de consultation</p>"
					else						
						Response.Write "<a href=""indexConsult.asp?p=consultation"">Services de consultation</a>"
					end if
					%></li>
					  <li>
						<a href="http://www.richardperreault.ca/brp/<%=noBrp%>" target="_blank">
						<img src="http://aineshebergement.com/indice/images/BRP.jpg" width="190px" /></a>
						</li>
						
						 <li><%
						if Request.QueryString("p") = "revuepresse" then
							Response.Write "<p>Revue de presse</p>"
						else
						 	 Response.Write "<a href=""indexPress.asp?p=revuepresse"">Revue de presse</a>"				
						end if
						%></li>
					
				
</ul>
<h3>Chercher Mandat</h3>
<ul class='menu'>				
				<li><%	if Request.QueryString("p") = "prix" then
							Response.Write "<p>Par Prix</p>"
						else					
							Response.Write "<a href=""indexParP.asp?p=prix"">Par Prix</a>"
						end if
					
						%></li>
					<li><%
							if Request.QueryString("p") = "region" then
							Response.Write "<p>Par Région</p>"
						else						
							Response.Write "<a href=""indexParR.asp?p=region"">Par Région</a>"
						end if
						%></li>
					
</ul>
<h3>Calculez</h3>
<ul class='menu'>				
				<li><%
						if Request.QueryString("p") = "calculhypotheque" then
							Response.Write "<p>Hypoth&egrave;que</p>"
						else						
							Response.Write "<a href=""indexHyp.asp?p=calculhypotheque"">Hypoth&egrave;que</a>"
						end if
						%></li>
					<li><%
						if Request.QueryString("p") = "taxemutation" then
							Response.Write "<p>Taxe de mutation</p>"
						else						
							Response.Write "<a href=""indexHyp.asp?p=taxemutation&"">Taxe de mutation</a>"
						end if
						%></li>
					<li><%
						if Request.QueryString("p") = "tpstvq" then
							Response.Write "<p>TPS & TVQ</p>"
						else						
							Response.Write "<a href=""indexHyp.asp?p=tpstvq"">TPS & TVQ</a>"
						end if
						%></li>
						<li><%
						if Request.QueryString("p") = "ajustements" then
							Response.Write "<p>Calcul d'ajustement</p>"
						else						
							Response.Write "<a href=""indexAjust.asp?p=ajustements"">Calcul d'ajustement</a>"
						end if
						%></li>
						<li><%
						if Request.QueryString("p") = "commentaire" then
							Response.Write "<p>Laissez vos commentaires</p>"
						else						
							Response.Write "<a href=""indexComm.asp?p=commentaire"">Laissez vos commentaires</a>"
						end if
						%></li>
</ul>
				
<%if session("user") <> "" then%>
			<div id="logged">
				<h2>Identification</h2>
				<form name="frmLogout" id="frmLogout" action="index.asp" method="post">
				<input type="hidden" name="action" id="action" value="logout">
				<p>Vous &ecirc;tes connect&eacute<br>
				   en tant que : <strong><%=Session("user")%></strong>				</p>
				<p id="errmess"><%=vMess%></p>
				<p><input type="submit" class="button" name="dologout" id="dologout" value="fermer la session" /></p>
				</form>
			</div>
			<%else%>
			<div id="login">
				<h2>Identification</h2>
				<form name="frmLogin" id="frmLogin" action="index.asp" method="post">
				<input type="hidden" name="action" id="Hidden1" value="login">
				<p>Utilisateur :
					<input type="text" class="text" name="username" id="username" value="<%=Request.Form("username")%>" size="20" />
				</p>
				<p>Mot de passe :
					<input type="password" class="text" name="password" id="password" size="20" />
				</p>
				<p><input type="submit" class="button" name="dologin" id="dologin" value="entrer" /></p>
				<p id="P1"><%=vMess%></p>
				<p id="inscription"><a href="indexInscr.asp?p=motdepasse">&lt; S'INSCRIRE &gt;</a></p>
				</form>
			</div>
			<%if vMess = "" then%> 
			<%end if%>
 		<%end if%>
 		<div style="text-align:center;">
 		<a href="http://aineshebergement.com/bottin" target="_blank">
 		<img src="http://aineshebergement.com/bottin/images/LogoBAH_194X194.jpg" width="205px" height="175px" />
 		</a>
    </div>
 		
 		
</div>

 </td>

<td valign="top">

<div id="content">


<table id = "formulaire" >
<tr><td>
<%if ShowContent then %>

<form name="commentaire" id="commentaire" action="indexComm.asp?p=commentaire" method="post">
	
	
	<h3>Veuillez utiliser ce formulaire pour nous poser des questions ou nous faire part de vos commentaires.<br /></h3>
	<% ShowFieldsComment %>
	<div id="other">			
		<div id="notes">
			<h5>Commentaires</h5>
			<textarea class="text" id="txtComments" name="txtComments" style="height:300px;"><%=Request.Form("txtComments")%></textarea>
		</div>
	</div>
	<div id="buttons">
		
		<!--<a href="mailto:rp@aineshebergement.com?subject=Inscription : richardperreault.ca(<%=vSubject%>)&cc=mcouture@aineshebergement.com&body=Je veux obtenir un nom d'utilisateur ainsi qu'un mot de passe, pour voir les fiches decriptive.Merci">&lt;&lt; S'INSCRIRE &gt;&gt;</a>-->
		
		<input type="submit" class="button" name="cmdSubmit" id="cmdSubmit" value="envoyer">
		<input type="reset" class="button" name="cmdReset" id="cmdReset" value="effacer">
	</div>
</form>
<%else %>

	<div id="answer">
			<p>Vos commentaires nous tiennent à coeur!<br />Merci d'avoir pris le temps de nous laisser vos commentaires.</p>
		</div>
	
<%end if %>		

</td></tr>
</table>

<% EndConnect %>	


</div>

</td>

<td valign="top">


<div id="right_side">

<h3>Qui suis-je ?</h3>
<ul class='menu'>				
				<li><h5><a href="indexQui.asp" target="_self">Profil professionel</a></h5></li>
				<li>
				    <a href="http://www.linkedin.com/profile/view?id=17033983&locale=en_US&trk=tyah" target="_blank">
				    <img src= "images/linkedin.png" width="70px"; /></a>&nbsp;&nbsp;&nbsp;&nbsp;
				    <a href="http://www.facebook.com/group.php?gid=73435300398" target="_blank">
				<img src= "images/fbook.jpg" width="70px"; /></a>
				   
				</li>
				
			
</ul>

<h3>Contacts</h3>
<div class='menu'>
<a href="indexComm.asp">
			FAX : (514) 644-9722<br/>
			BUR. : (514) 644-4444<br />
			rp@aineshebergement.com</a><br/><br/>


  <a href="http://maps.google.ca/maps?q=+400+St-Jacques+O,Montr%C3%A9al,+QC.,+H2Y+1S1&hl=fr&ie=UTF8&sll=45.501595,-73.55999&sspn=0.049991,0.077162&vpsrc=0&hnear=Rue+Saint-Jacques+Ouest,+Montr%C3%A9al,+Communaut%C3%A9-Urbaine-de-Montr%C3%A9al,+Qu%C3%A9bec&t=m&z=16" style="color:#0000FF;text-align:left" target="_blank">
                    <img src= "images/Gmaps.png" width="190px"; />
		 400 St-Jacques O, #300<br />	Montréal, QC., H2Y 1S1</a><br/>

</div>
<h3>Liens utiles</h3>
<table>
 <tr><td colspan="2"><a href="indexDoc.asp"><img src="/images/dlr.jpg" height="80px" width="190px" ></a>
			</td></tr>
			<tr>
          <td colspan="2" bgcolor="#C4D7ED" ><img src="images/spacer.gif" alt="" width="1" height="1" /></td>
        </tr>	
	        <tr><td colspan="2"><a href="http://www.rbq.gouv.qc.ca/" target="_blank"><img src="/images/regieB.png" height="80px" width="190px" ></a>
			</td></tr>
			<tr>
          <td colspan="2" bgcolor="#C4D7ED" ><img src="images/spacer.gif" alt="" width="1" height="1" /></td>
        </tr>	
			<tr><td colspan="2"><a href="http://logietre.com" target="_blank"><img src="/images/cNormes.jpg" width="190px" ></a>
			</td></tr>
			 <tr>
		            <td align = "center"><a href="http://logietre.cyprex.com/docs/Documents/cahiernormes9.pdf" target="_blank">
			        <font size="-3" color="blue">9 unités et moins</font> <img src="images/logietre9.png" width="65px" height="70px" alt="Richard Perreault"  border=0></a>
			       
			        </td>
		            <td align = "center">
		           <a href="http://logietre.cyprex.com/docs/Documents/cahiernormes9.pdf" target="_blank">
			        <font size="-3" color="blue" >10 unités et plus</font>  <img src="images/logietre10.png" width="65px" height="70px" alt="Richard Perreault"  border=0></a>
			      
		           </td>		            
	            </tr>
	            <tr>
          <td colspan="2" bgcolor="#C4D7ED" ><img src="images/spacer.gif" alt="" width="1" height="1" /></td>
        </tr>
	            <tr><td colspan="2"><a href="http://wpp01.msss.gouv.qc.ca/appl/K10/certification/K10CertFonctionnement.asp" target="_blank">
				<img src="/images/Certification.bmp" height="170px" width="190px" ></a>
			</td></tr>
	            </table>


</div>

</td>

</tr>
</table>


</div>

</body>

</html>