<%
sub register
ban()
if request.form("mode") = "send" then
memberid = request.form("memberid")
realname = request.form("realname")
email = request.form("email")
password = request.form("password")
recipient = "registrering@b-teens.dk"
err = 0
if memberid = "" then
err = 1
errormsg = "<br>Du skal skrive dit medlemsnummer"
end if
if realname = "" then
err = 1
errormsg = errormsg + "<br>Du skal skrive dit navn"
end if
if email = "" or instr(email,"@") = 0 then
err = 1
errormsg = errormsg + "<br>Feltet 'email' er ikke udfyldt korrekt"
end if
if password = "" then
err = 1
errormsg = errormsg + "<br>Du skal skrive et password"
end if
if err = 1 then
errormsg = errormsg & "<br>"
elseif err = 0 then
Subject = "Registrering af medlem"
Set myMail = Server.CreateObject("CDONTS.NewMail")
myMail.From = email
myMail.Host = "smtp1.b-one.nu"
myMail.To= reciepient
myMail.Subject= subject
myMail.Body= "Medlemsnummer: " & memberid & vbcrlf & "Navn: " & realname & vbcrlf & "email: " & email & vbcrlf & "password: " & password
myMail.Send
set mymail=nothing
noerror = "<br>Tak for din registrering, den vil blive behandlet hurtigst muligt<br>"
end if
end if
%>
<table width="540" border="0" align="center" cellpadding="2" cellspacing="0">
<% if getmode() = "normal" then %>
<tr>
<td colspan="2"><strong>Registrering 1/2</strong></td>
</tr>
<tr>
<td colspan="2" height='1' background='gfx/gif/dot.gif'></td>
</tr>
<tr>
<td colspan="2">Det er kun muligt for medlemmer af AHF at registrere sig på
dette site. Ved at registrere dig, får du en masse muligheder og genveje
på sitet, som fx muligheden for ikke at skulle udfylde alle felter
når du skriver forum-indlæg og tags, samt muligheden for at
tilmelde dig forskellige arrangementer. På de næste sider, vil
du finde en række felter som vi vil bede dig udfylde, både for
din egen skyld og også for vores. Ved at udfylde disse felter, vil
andre besøgende på sitet, kunne se dine informationer. Vi vil
gerne bede dig være seriøs når du udfylder felterne,
da dette er ment som et seriøst site, og hvis vi finder en profil
anstødende eller på anden måde ubehagelig, vil denne
blive slettet uden advarsel. Ligeledes vil en profil som bliver brugt til
at skrive ubehagelige kommentarer på tagwall eller i forum også
blive slettet uden advarsel.<br> <br>
Vi håber du vil få en dejligt ophold på sitet, samt at
du regelmæssigt vil besøge sitet igen.<br> <br> <div align="center"><a href="?page=<%= getpage() %>&mode=register">Fortsæt
registreringen</a><br>
<br>
<br>
Hvis du har problemer med at registrere, kan du sende en email til <a href="webmaster@aalborghardball.dk">webmaster@aalborghardball.dk</a></div></td>
</tr>
<% end if
if getmode() = "register" then %>
<tr>
<td colspan="2"><strong>Registrering 2/2</strong></td>
</tr>
<tr>
<td colspan="2" height='1' background='gfx/gif/dot.gif'></td>
</tr>
<tr>
<td colspan="2">Du bedes nu udfylde felterne nedenfor, og herefter klikke
'Send registrering'. Herved sendes der en besked til en af administratorerne
på
www.aalborghardball.dk. Så snart din registrering er godkendt,
vil du modtage brugernavn og password på din email-adresse, og du
vil være klar til at tage din nye profil i brug.<br>
<font color="#990000"><%= errormsg %> </font> <font color="#006633"><%= noerror%> </font><br>
</td>
</tr>
<form name="form1" method="post" action='default.asp?page=<%= getpage() %>&mode=register'>
<input type='hidden' name='mode' value='send'>
<tr>
<td width="152">Medlemsnummer: </td>
<td width="388"> <input name="memberid" type="text" class='textfield' id="memberid" value="<%= memberid %>" size="3" maxlength="3"></td>
</tr>
<tr>
<td>Navn:</td>
<td><input name="realname" type="text" class='textfield' id="realname" value="<%= realname %>" size="30"></td>
</tr>
<tr>
<td>Email:</td>
<td><input name="email" type="text" class='textfield' id="email" value="<%= email %>" size="30"></td>
</tr>
<tr>
<td>Ønsket password:</td>
<td><input name="password" type="text" class='textfield' id="password" value="<%= password%>" size="30"></td>
</tr>
<tr>
<td> </td>
<td><br> <br> <input type="submit" name="Submit" value="Send registrering" class='formbutton'>
</td>
</tr>
</form>
<% end if %>
</table>
<%
end sub
%>
