<% '################################################################################# '## Copyright (C) 2000 Michael Anderson '## '## This program is free software; you can redistribute it and/or '## modify it under the terms of the GNU General Public License '## as published by the Free Software Foundation; either version 2 '## of the License, or any later version. '## '## This program is distributed in the hope that it will be useful, '## but WITHOUT ANY WARRANTY; without even the implied warranty of '## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the '## GNU General Public License for more details. '## '## You should have received a copy of the GNU General Public License '## along with this program; if not, write to the Free Software '## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. '## '## Correspondence and Questions can be sent to: '## reinhold@bigfoot.com '## '## or '## '## Snitz Communications '## C/O: Michael Anderson '## PO Box 200 '## Harpswell, ME 04079 '################################################################################# %> <% on error resume next %>
Tous les champs marqués de * sont obligatoires
<% if strAuthType = "nt" then %> <% if Request.Form("Method_Type") = "Modify" then %> <% else %> <% end if %> <% else %> <% if Request.QueryString("mode") = "Register" or Request.QueryString("mode") = "goEdit" then %> <% end if %> <% end if %> <% if Request.Querystring("mode") = "goModify" then %> <% End If %> <% if Request.Querystring("mode") = "goModify" then %> <% End If %> <% if lcase(strICQ) <> "0" then %> <% end if %> <% if lcase(strYAHOO) <> "0" then %> <% end if %> <% if lcase(strAIM) <> "0" then %> <% end if %> <% if lcase(strHomepage) <> "0" then %> <% end if %> <% strTxtSig = RS("M_SIG") %> <% if Request.Form("Method_Type") = "Modify" then %> <% end if %>
* Nom Utilisateur: <% if (Request.QueryString("mode") = "goEdit") or (Request.Querystring("mode") = "goModify" and (Request.QueryString("Name") = "Admin") or Request.Form("MEMBER_ID") = 1 or Request.Form("Name") = "Admin") then %> <% =rs("M_NAME") %> "> <% else %> "> <% end if %>
* Your Account:"><%=Session("userid")%>">
* Mot de passe: "> ">
* Confirmation du mot de passe: " size="25">
* Adresse Email: "> ">
Titre: ">
# of Posts: ">
Numero ICQ: ">
YAHOO ID: ">
Nom utilisateur AIM: ">
Page personnelle: " " and lcase(RS("M_Homepage")) <> "http://" then Response.Write(RS("M_Homepage")) else Response.Write("http://") %>">
Pays:
Signature:
Member Level: <% if rs("M_NAME") = "Admin" then %> Administrator <% else %> <% end if %>
" name="MEMBER_ID">