

<!--#include file ="include/upload.inc"-->
<!--#include file ="include/config.asp"-->
<!--#include file ="css.asp"-->
<!--#include file ="modelehaut.asp"-->

<%
dim adoCn
dim strSQL
set adoCn = Server.CreateObject("ADODB.Connection")
adoCn.Open strConn

dim adoRs
set adoRs = Server.CreateObject("ADODB.Recordset")

if Request.QueryString("action")="upload" then
Response.Expires = 0
Response.Buffer = TRUE
Response.Clear

Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")

ByteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
BuildUploadRequest  RequestBin


Dim aux, aux1, FILEFLAG

Dim FileName, strEmail, strChangeEmail, ContentType, PhotoPathName, strLoginName, strActive, strChoosePassword, strVerifyPassword, strFullName, strAddress1, strAddress2, strCity, strState, strCountry, strZipCode, strAboutYourself, strAccessLevel, strActivateCode, Value

strLoginName=UploadRequest.Item("txtLoginName").Item("Value")
strLoginName=replace(strLoginName, "'", "''")
strLoginName=LCase(strLoginName)

strActive=UploadRequest.Item("txtActive").Item("Value")
strActive=replace(strActive, "'", "''")

strChoosePassword=UploadRequest.Item("txtChoosePassword").Item("Value")
strChoosePassword= replace(strChoosePassword, "'", "''")
strChoosePassword=LCase(strChoosePassword)

strVerifyPassword=UploadRequest.Item("txtVerifyPassword").Item("Value")
strVerifyPassword= replace(strVerifyPassword, "'", "''")
strVerifyPassword=Lcase(strVerifyPassword)

strEmail=UploadRequest.Item("txtEmail").Item("Value")
strEmail=replace(strEmail, "'", "''")
strEmail=Lcase(strEmail)

strChangeEmail=UploadRequest.Item("txtChangeEmail").Item("Value")
strChangeEmail=replace(strChangeEmail, "'", "''")

strFullName=UploadRequest.Item("txtFullName").Item("Value")
strFullName=replace(strFullName, "'", "''")

strAddress1 = UploadRequest.Item("txtAddress1").Item("Value")
strAddress1= replace(strAddress1, "'", "''")

strAddress2 = UploadRequest.Item("txtAddress2").Item("Value")
strAddress2 = replace(strAddress2, "'", "''")

strCity = UploadRequest.Item("txtCity").Item("Value")
strCity= replace(strCity, "'", "''")

strState = UploadRequest.Item("txtState").Item("Value")
strState= replace(strState, "'", "''")

strCountry = UploadRequest.Item("txtCountry").Item("Value")
strCountry= replace(strCountry, "'", "''")

strZipCode = UploadRequest.Item("txtZipCode").Item("Value")
strZipCode= replace(strZipCode, "'", "''")

strAboutYourself = UploadRequest.Item("txtAboutYourself").Item("Value")
strAboutYourself = replace(strAboutYourself, "'", "''")

strAccessLevel = UploadRequest.Item("txtAccessLevel").Item("Value")
strAccessLevel = replace(strAccessLevel, "'", "''")	

strActivateCode = replace(GenRandomF(15), "'", "''")	
%>
<!--#include file ="include/inc-code.asp"-->
<%
on error resume next
ContentType =UploadRequest.Item("File").Item("ContentType")
FILEFLAG = err.number
on error goto 0

if FILEFLAG = 0 then
		ContentType = UploadRequest.Item("File").Item("ContentType")
		PhotoPathName = UploadRequest.Item("File").Item("FileName")
		FileName = Right(PhotoPathName,Len(PhotoPathName)-InstrRev(PhotoPathName,"\"))
		FileName=Lcase(FileName)
		Value = UploadRequest.Item("File").Item("Value")
else
		FileName = ""
end if

if filename<>"" then 

			strSQL = "SELECT * from Login where LoginName='"& strLoginName &"'"
			adoRs.Open strSQL, adoCn
			if adoRs.eof  and adoRs.bof then

				adoCn.Execute("INSERT INTO Login (LoginName, Active, ChoosePassword, VerifyPassword, Email, ChangeEmail, FullName, Address1, Address2, City, State, Country, ZipCode, AboutYourself, AccessLevel, ActivateCode, FileName, MimeType) VALUES ('" &_
	 		  			strLoginName &_
   	  			"','" & strActive&_						
   	  			"','" & strChoosePassword &_
   	  			"','" & strVerifyPassword &_
	  			"','" & strEmail &_ 
	  			"','" & strChangeEmail &_   
	 			"','" & strFullName &_ 
	  			"','" & strAddress1 &_ 
	  			"','" & strAddress2 &_
	  			"','" & strCity &_
		  		"','" & strState &_	  
   		 		"','" & strCountry &_
   	  			"','" & strZipCode &_
	  			"','" & strAboutYourself &_
		  		"','" & strAccessLevel &_
				"','" & strActivateCode &_
		  		"','" & FileName &_
	 		 	"','" & ContentType &_
	   			"')")
			%>
<!--#include file ="css.asp"-->
<!--#include file ="modelehaut.asp"-->
			<%
			response.write "<BR><BR><font class=textenormal><b>Identifiant " & strLoginName & " enregistré.</b></font><br>"
			response.write "<BR><font class=textenormal>Vous allez recevoir par email les informations nécessaires à l'activation de votre compte.</font><br><BR>"
			%>
			<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
			<div align="center"><A Class=men  HREF="Login.asp">[S'identifier]</A>
			<A Class=Link8BGray  HREF="listeclient.asp">[Liste des clients]</A></div>
			
			
			<%
			else
			%>
<!--#include file ="css.asp"-->
<!--#include file ="modelehaut.asp"-->
			<%
			response.write "<BR><BR><Font class=textenormal><B> Inscription incomplète</B></Font>"
			response.write "<BR><BR><font class=textenormal><b>L'identifiant '" &strLoginName&"'  existe déjà.  Veuillez en choisir un autre.</b></font>"
			%>
			<BR><div align="center"><span onClick="history.go(-1)" style="background-color: white; color: Gray; font-family: Arial; font-size: 8pt; font-weight: bold; border-style: solid; border-color: #FFFFFF;cursor: hand">
			<font class=textenormal><img src="Images/fleche_orange.gif" width="6" height="7" border="0" alt="">&nbsp;Modifier mon inscription</font>
			</span></div>
			
			<%
			end if
			adoRs.close  			   			
	adoRs.open "select top 1 * from Login order by LoginID DESC", adoCn, 1, 3
	if not adoRs.eof then
		adoRs.Fields("Bindata").appendChunk value & chrB(0)
		adoRs.Update
		adoRs.close
	end if
Else

			strSQL = "SELECT * from Login where LoginName='"& strLoginName &"'"
			adoRs.Open strSQL, adoCn
			if adoRs.eof  and adoRs.bof then

			adoCn.Execute("INSERT INTO Login ( LoginName, Active, ChoosePassword, VerifyPassword, Email, ChangeEmail, FullName, Address1, Address2, City, State, Country, ZipCode, AboutYourself, AccessLevel, ActivateCode) VALUES ('" &_
	 				  strLoginName &_
	  		  "','" & strActive&_						  
		   	  "','" & strChoosePassword &_
		   	  "','" & strVerifyPassword &_
			  "','" & strEmail &_
  			  "','" & strChangeEmail &_
			  "','" & strFullName &_ 
			  "','" & strAddress1 &_ 
			  "','" & strAddress2 &_
			  "','" & strCity &_
			  "','" & strState &_
		   	  "','" & strCountry &_
		   	  "','" & strZipCode &_
			  "','" & strAboutYourself &_
			  "','" & strAccessLevel &_	
			  "','" & strActivateCode &_	  
			   "')")
%>
<!--#include file ="css.asp"-->
<!--#include file ="modelehaut.asp"-->
			<%
			response.write "<BR><BR><font class=textenormal><b>L'identifiant  " & strLoginName & "a été enregistré.</b></font><br>"
			response.write "<BR><font class=textenormal>Vous allez recevoir par email les instructions pour activer votre compte.</font><br><BR>"
			%>
			<div align="center"><A Class=men  HREF="Login.asp">[Identification]</A>
			<A Class=men  HREF="listeclient.asp">[Liste des clients]</A></div>
			<%
			else
			%>
<!--#include file ="css.asp"-->
<!--#include file ="modelehaut.asp"-->
			<%
			response.write "<BR><BR><Font class=textenormal><B> Inscription incomplète </B></Font>"
			response.write "<BR><BR><font class=textenormal>L'identifiant '" &strLoginName&"'  existe déjà. <BR> Veuillez en choisir un autre</font>"
			%>
			<BR><span onClick="history.go(-1)" style="background-color: white; color: Gray; font-family: Arial; font-size: 8pt; font-weight: bold; border-style: solid; border-color: #FFFFFF;cursor: hand">
			[Modifier votre inscription]
			</span>
			
			<% 
			end if
end if
set UploadRequest = nothing
			if Session("AccessLevel")= "Admin" Then
			Response.Redirect "loginvoiradmin.asp"
			Else
			End IF

else

call LoginAdminAddTable()

End If
%>
<script LANGUAGE="JavaScript">
function Save() 
{
	if (ImageForm.txtLoginName.value == "")
		{
		alert("Veuillez renseigner votre identifiant");
		return ;
		}
	if (ImageForm.txtLoginName.value.length > 15)
		{
		alert("Votre identifiant doit avoir moins de 15 caractères");
		return ;
		}	
	if (ImageForm.txtLoginName.value.length < 4)
		{
		alert("Votre identifiant doit avoir plus de 4 caractères");
		return ;
		}

	if (ImageForm.txtChoosePassword.value == "")
		{
		alert("Entrez un mot de passe");
		return ;
		}
	if (ImageForm.txtChoosePassword.value.length > 15)
		{
		alert("Votre mot de passe doit avoir moins de 15 caractères");
		return ;
		}	
	if (ImageForm.txtChoosePassword.value.length < 4)
		{
		alert("Votre mot de passe doit avoir plus de 4 caractères");
		return ;
		}			
	if (ImageForm.txtChoosePassword.value!=ImageForm.txtVerifyPassword.value)
		{
		alert('Le mot de passe ne correspond pas.');
		return ;
		}			
		if (ImageForm.txtEmail.value.length == "")
		{
		alert("Entrez votre adresse Email");
		return ;
		}	
		  if (ImageForm.txtEmail.value.indexOf("@")<1)
 		{
		alert("Adresse Email invalide");
		return ;
		}	
		if (ImageForm.txtEmail.value.indexOf(".")<1)
 		{
		alert("Adresse Email invalide");
		return ;
		}	
		if (ImageForm.txtChangeEmail.value.length == "")
		{
		alert("Rentrez votre nouvel Email");
		return ;
		}	
		  if (ImageForm.txtChangeEmail.value.indexOf("@")<1)
 		{
		alert("Votre nouvel Email n'est pas valide");
		return ;
		}	
		if (ImageForm.txtChangeEmail.value.indexOf(".")<1)
 		{
		alert("Votre nouvel Email n'est pas valide");
		return ;
		}	
		if (ImageForm.txtFullName.value.length == "")
		{
		alert("Entrez votre nom");
		return ;
		}	
		if (ImageForm.txtFullName.value.length > 30)
		{
		alert("Votre nom doit avoir moins de 30 caractères");
		return ;
		}	
		if (ImageForm.txtFullName.value.length < 4)
		{
		alert("Votre nom doit avoir plus de 4 caractères");
		return ;
		}	
		if (ImageForm.txtCountry.value.length == "")
		{
		alert("Renseignez votre pays");
		return ;
		}	
		if (ImageForm.txtCountry.value.length > 30)
		{
		alert("Votre pays doit avoir moins de 30 caractères");
		return ;
		}	
		if (ImageForm.txtCountry.value.length < 1)
		{
		alert("Votre nom doit avoir moins de 2 caractères");
		return ;
		}			
		if (ImageForm.txtAboutYourself.value.length == "")
		{
		alert(" Please tell About Yourself");
		return ;
		}	
		if (ImageForm.txtAboutYourself.value.length > 600)
		{
		alert("Vos renseignements doit avoir moins de 600 caractères");
		return ;
		}						
  	ImageForm.submit();
}	
</script>
<% Sub LoginAdminAddTable()%>
<table width="800" cellpadding=2 cellspacing=2>
	<tr bgcolor="#FF0000">
		<td valign=top width=800 align=left>&nbsp;<font class="texteblanc"><b>&gt;&gt;&nbsp;INSCRIPTION</b></font> 
		</td>
	</tr>
</table>
<table width="800" cellpadding=2 cellspacing=2>
	<tr>
		<td valign=top width=250 align=right colspan="2">
		<% If Session("AccessLevel") = "Admin" then %>
		<A  class=men HREF="loginvoiradmin.asp">[ Tous les membres ]</A>
		<%end if %>
		</td>
	</tr>
</table>
<form method="post" action="loginajouter.asp?action=upload" name="ImageForm" enctype="multipart/form-data" >
<table width="800" cellpadding=2 cellspacing=2>
	<tr>
		<td valign=top  width=125  align=left class="textenormal">
		Identifiant :</td>
		<td valign=top width=375 align=left class="textenormal">
		<INPUT type="text" name="txtLoginName" size=30 maxlength=15>
		<font color=Red><B>*</B></font>
		</td><td>&nbsp;</td><td valign=top  width=125  align=left class="textenormal">Choisissez un mot de passe</td>
		<td valign=top width=375 align=left>
		<INPUT type="password" name="txtChoosePassword" size=30>
		<font color=Red><B>*</B></font>
		</td>
	</tr>
	<tr>
		<td valign=top  width=125  align=left class="textenormal">Retapez votre mot de passe :</td>
		<td valign=top width=375 align=left>
		<INPUT type="password" name="txtVerifyPassword" size=30>
		<font color=Red><B>*</B></font>
		</td><td>&nbsp;</td>
		<td valign=top  width=125 align=left class="textenormal">
		Votre photo :</td>
		<td valign=top width=375 align=left>
		<input type="File" name="File" size="25"></td>
	</tr>	
	<% If Session("AccessLevel")="Admin" Then %>
	<tr>
		<td valign=top  width=125  align=left class="textenormal">
		Statut :</td>
		<td valign=middle width=375 align=left class="textenormal">
		<input type="radio" name="txtAccessLevel" value="Author" checked>Auteur<BR>
		<input type="radio" name="txtAccessLevel" value="Admin" >Administrateur 
</td><td>&nbsp;</td>
	<%Else%>	
		<td valign=top  width=125  align=left class="textenormal">Statut :</td>
		<td valign=middle width=375 align=left class="textenormal">
		<input type="hidden" name="txtAccessLevel" value="Author">Auteur<BR>
		</td>
	</tr>
	<%End IF%>	
	<% If Session("AccessLevel")="Admin" Then %>
	<tr>
		<td valign=top  width=125  align=left class="textenormal">Actif :</td>
		<td valign=middle width=375 align=left class="textenormal">
		<input type="radio" name="txtActive" value="No" checked>Non <br>
		<input type="radio" name="txtActive" value="Yes">Oui
		</td><td>&nbsp;</td>
	<%Else%>	
		<td valign=top  width=125  align=left class="textenormal">Actif :</td>
		<td valign=middle width=375 align=left class="textenormal"><input type="hidden" name="txtActive" value="No">Non</td></tr>
	<%End IF%><tr>
		<td valign=top width=125 align=left class="textenormal">Email :</td>
		<td valign=top width=375 align=left>
		<input name="txtEmail" size="30" >
		<font color=Red><B>*</B></font></td>
		<td>&nbsp;</td><td valign=top width=125 align=left class="textenormal"></td>
		<td valign=top width=375align=left class="textenormal">
		<input type="hidden" name="txtChangeEmail" size="30" value="NewRegistration@." >
		</td>
	</tr><tr>
		<td valign=top width=125 align=left class="textenormal">
		Votre Nom : 
		</td>
		<td valign=top width=375 align=left class="textenormal">
		<input name="txtFullName" size="30">
		<font color=Red><B>*</B></font>
		</td><td>&nbsp;</td>
		<td valign=top  width=125 align=left class="textenormal">
		Adresse :
		</td><td valign=top width=375 align=left class="textenormal">
		<INPUT type="text" name="txtAddress1" size=30 >
		</td>
	</tr>
	<tr>
		<td valign=top  width=125  align=left class="textenormal">
		Adresse (suite) :
		</td>
		<td valign=top width=375 align=left class="textenormal">
		<INPUT type="text" name="txtAddress2" size=30  >
		</td><td>&nbsp;</td>
		<td valign=top  width=125 align=left class="textenormal">
		Ville :
		</td>
		<td valign=top width=375 align=left>
		<INPUT type="text" name="txtCity" size=30 >
		</td>
	</tr>
	<tr>
		<td valign=top  width=125  align=left class="textenormal">
		Département :
		</td>
		<td valign=top width=375 align=left>
		<INPUT type="text" name="txtState" size=30  >
		</td><td>&nbsp;</td>
		<td valign=top  width=125  align=left class="textenormal">
		Pays :
		</td>
		<td valign=top width=375 align=left class="textenormal">
		<INPUT type="text" name="txtCountry" size=30 > 
		<font color=Red><B>*</B></font>
		</td>
	</tr>
	<tr>
		<td valign=top  width=125  align=left class="textenormal">
		Code postal :
		</td>
		<td valign=top width=375 align=left class="textenormal">
		<INPUT type="text" name="txtZipCode" size=30 >
		</td><td>&nbsp;</td>
		<td valign=top  width=125  align=left class="textenormal">
		</td>
		<td valign=top width=375 align=left class="textenormal">
		</td></tr><tr>
		<td valign=top  width=125 align=left class="textenormal">
		 Vos renseignements 
		</td>
		<td valign=top width=475 align=left class="textenormal" colspan="3">
		<textarea cols="45" rows="5" name="txtAboutYourself" valign="top"></textarea>
		<font color=Red><B>*</B></font></td>
	</tr>
</table>
</form>
<table width="800" cellpadding=0 cellspacing=0>
<tr>
	<td valign=top  align=center >
		<INPUT class=submit type="button" value="Valider" onClick="Save()" >
	</td>
</tr>
</table>
<% End Sub%>
</body>
</html>
<script language="JavaScript">
function popup(LinkFile){
	window.open(LinkFile,"","toolbar=0,location=0,status=1,menubar=1,scrollbars=1,resizable=1,width=640,height=480");
}
</script>