home *** CD-ROM | disk | FTP | other *** search
- <% @ LANGUAGE="VBScript" lcid="1036" %>
- <!--#include file="include.asp"-->
- <%
- Nom2=Replace(request.form("Nom"), "'", "''")
- Passe2=Replace(request.form("Passe"), "'", "''")
- Passepasse2=Replace(request.form("Passepasse"), "'", "''")
- Email2=Replace(request.form("Email"), "'", "''")
- Internet2=Replace(request.form("Internet"), "'", "''")
- Occupation2=Replace(request.form("Occupation"), "'", "''")
- Location2=Replace(request.form("Location"), "'", "''")
- Interets2=Replace(request.form("Interets"), "'", "''")
- ICQ2=Replace(request.form("ICQ"), "'", "''")
- Signature2=Replace(request.form("Signature"), "'", "''")
- Facul12=Replace(request.form("Facul1"), "'", "''")
- Facul22=Replace(request.form("Facul2"), "'", "''")
- Facul32=Replace(request.form("Facul3"), "'", "''")
- Facul42=Replace(request.form("Facul4"), "'", "''")
- Facul52=Replace(request.form("Facul5"), "'", "''")
- vision2=request.form("vision")
- cookie2=request.form("cookie")
-
-
- If Nom2<>"" and Passe2<>"" and Passepasse2<>"" and Email2<>"" Then
- If Passe2=Passepasse2 Then
- strAutSQL = "SELECT * FROM Utilisateur WHERE usrlogin='" & Nom2 & "' "
- set AutRes=ConnectionBD.Execute(strAutSQL)
- If AutRes.EOF = True Then
- If cookie2="Oui" Then
- Response.Cookies("abb").Expires = Now()
- Else
- Response.Cookies("abb")("nom") = Nom2
- Response.Cookies("abb")("passe") = Passe2
- Response.Cookies("abb")("vision") = vision2
- Response.Cookies("abb").Expires = Now() + 365
- End If
- End If
- End If
- End If
-
- very=0
- %>
- <html>
-
- <head>
- <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
- <meta name="GENERATOR" content="Microsoft FrontPage 4.0">
- <meta name="ProgId" content="FrontPage.Editor.Document">
- <title>ABB</title>
- <style type="text/css">
- <!--
- A:link{text-decoration: none; color: <% =EnvironnementRes("envlnk") %>;}
- A:visited{text-decoration: none; color: <% =EnvironnementRes("envlnk") %>;}
- A:active{text-decoration: underline; color: <% =EnvironnementRes("envvlnk") %>;}
- A:hover{text-decoration: underline; color: <% =EnvironnementRes("envvlnk") %>;}
- -->
- </style>
- </head>
-
- <body bgcolor="<% =EnvironnementRes("envback") %>" text="<% =EnvironnementRes("envtxt") %>" link="<% =EnvironnementRes("envlnk") %>" vlink="<% =EnvironnementRes("envvlnk") %>">
- <font face="Arial" size="2"><b>
- <% If Nom2="" or Passe2="" or Passepasse2="" or Email2="" Then %>
- <center>Remplissez tous les champs obligatoires SVP.</center>
- <%
- very=1
- temps=Now()
- While DateDiff("s",temps,Now())<3
- Wend
- %>
- <script language="javascript">
- history.back();
- </script>
- <% Else %>
- <% If Passe2<>Passepasse2 Then %>
- <center>Entrez le mΩme mot de passe dans les deux cases...</center>
- <%
- very=1
- temps=Now()
- While DateDiff("s",temps,Now())<3
- Wend
- %>
- <script language="javascript">
- history.back();
- </script>
- <% Else %>
- <%
- strAutSQL = "SELECT * FROM Utilisateur WHERE usrlogin='" & Nom2 & "' "
- set AutRes=ConnectionBD.Execute(strAutSQL)
- If AutRes.EOF = False Then
- %>
- <center>DΘsolΘ, ce nom d'utilisateur est dΘjα pris...</center>
- <%
- very=1
- temps=Now()
- While DateDiff("s",temps,Now())<3
- Wend
- %>
- <script language="javascript">
- history.back();
- </script>
- <%
- End If
- %>
- <%
- If very=0 Then
-
- longeur1=Len(Nom2)
- longeur2=Len(Passe2)
-
- J=1
- For I=1 To longeur2
- char1=Mid(Nom2,J,1)
- char2=Mid(Passe2,I,1)
- char3=Mid(Passe2,I,1)
- code1=Asc(char1)
- code2=Asc(char2)
- code2=code2+code1
- If code2>255 Then
- code2=code2-255
- End If
- char2=Chr(code2)
- Passe2=Replace(Passe2,char3,char2,1,1)
-
- J=J+1
- If J>longeur1 Then
- J=1
- End If
- Next
- 'Cryptage du mot de passe
-
- SQLStmt = "INSERT INTO Utilisateur (usrlogin,usrpass,usrstatu,usrmail,usrweb,usrocc,usrloc,usrint,usricq,usrsign,usrfacul1,usrfacul2,usrfacul3,usrfacul4,usrfacul5) "
- SQLStmt = SQLStmt & "VALUES ('" & Nom2 & "','" & Passe2 & "',3,'" & Email2 & "','" & Internet2 & "','" & Occupation2 & "','" & Location2 & "','" & Interets2 & "','" & ICQ2 & "','" & Signature2 & "','" & Facul12 & "','" & Facul22 & "','" & Facul32 & "','" & Facul42 & "','" & Facul52 & "')"
- Set RS=ConnectionBD.Execute(SQLStmt)
- %>
- <center>Bienvenue !<br><br>Vous allez automatiquement Ωtre ramenΘ sur le forum.<br>Sinon cliquez ici : <a href="default.asp">Retour au forum</a></center>
- <%
- temps=Second(now)
- temps=Now()
- While DateDiff("s",temps,Now())<3
- Wend
- %>
- <script language="javascript">
- document.location="default.asp";
- </script>
- </b></font>
- <% End If %>
- <% End If %>
- <% End If %>
- <!--#include file="basdepage.asp"-->
- </body>
-
- </html>
-