<% //////////////////////////////////////////////////////////////////////// ////// Fixar inloggningen, om man loggas in så skapas 2st sessioner. //////////////////////////////////////////////////////////////////////// If Request.Querystring("do") = "loggain" then Set ObjRS = ObjConn.Execute("SELECT * FROM medlemmar where anvnamn='"& Fixbug(Request.Form("anvnamn")) &"' AND losen='"& Fixbug(Request.Form("losen")) &"'") If ObjRS.Eof then Response.Write "Fel inloggningsuppgifter." Else Session("inloggad") = "ja" Session("anvnamn") = ObjRS("anvnamn") End If Response.Redirect "index.asp" objRS.Close : Set objRS = Nothing End If 'Kollar om användaren är inloggad, är användaren inte inloggad så ser sidan ut som den gör i allmänhet If Not session("inloggad") = "ja" then %>

Användarnamn

Lösenord

<% Else %> Du är inloggad som: <%=Server.HtmlEncode(session("anvnamn"))%>

Medlemsalternativ:
- Logga ut
- Visa medlemmar
<% End If %>

<% If Not Session("inloggad")="ja" Then %> Skapa ett konto <% End If If Request.Querystring("do")="registrera" Then %>

Önskat användarnamn

Lösenord

Repetera lösenord

Din epost

<% End If //////////////////////////////////////////////////////////////////////// ////// Sköter utloggningen, "dödar" även sessionen, sen skickas man till index //////////////////////////////////////////////////////////////////////// If Request.Querystring("do") = "logga_ut" then Session.Abandon Response.redirect "index.asp" End If //////////////////////////////////////////////////////////////////////// ////// Lägger in registrerings-uppgifterna i databasen, med kontroll //////////////////////////////////////////////////////////////////////// If Request.Querystring("do") = "add_member" then 'Kollar om man fyllt i alla fält Response.Write "
" If Len(request.form("anvnamn") & "") < 3 then response.write "Ditt användarnamn måste vara minst 3 tecken långt." Elseif Len(request.form("losen") & "") < 6 then response.write "Ditt lösenord måste vara mist 6 tecken." Elseif Len(request.form("epost") & "") < 8 then response.write "För kort epost." Elseif not Request.Form("losen") = Request.Form("losen2") Then response.write "Du skrev fel repeterat lösenord." else 'Kollar om anvnamnet är upptaget Set ObjRS = ObjConn.Execute("SELECT * FROM medlemmar where anvnamn='"& Fixbug(Request.Form("anvnamn")) &"'") If ObjRS.eof then 'Användaren läggs in i databasen med SQL'n nedan ObjConn.Execute("INSERT INTO medlemmar (anvnamn, losen, epost, datum) VALUES ('"& Fixbug(Request.Form("anvnamn")) &"', '"& Fixbug(Request.Form("losen")) &"', '"& Fixbug(Request.Form("epost")) &"', '"& now() &"') ") Response.Write "Du är nu en registrerad medlem, du kan nu logga in ovan." else 'Om användarnamnet är upptaget så skrivs det ut på sidan Response.Write "Användarnamnet är upptaget, var vänlig välj ett annat." End If 'Stänger databasen och 2st "If, Then...Else"-satser ObjRS.close : Set ObjRS = nothing End If End If If Request.Querystring("do")="checka_memberlist" Then If Not session("inloggad")="ja" Then Response.Redirect "index.asp" End If %> <% //////////////////////////////////////////////////////////////////////// ////// Hämtar ur alla medlemmar och sorterar dom i en lista. //////////////////////////////////////////////////////////////////////// Set objRS = objConn.Execute("SELECT * FROM medlemmar Order by id Desc") If objRS.Eof Then Response.Write "Inga medlemmar är ännu registrerade." Else Do until objRS.Eof %> <% objRS.MoveNext Loop objRS.Close : Set objRS = Nothing End If %>

Anvädarnamn	E-post	Registrerad
<%=objRS("anvnamn")%>	<%=objRS("epost")%>	<%=objRS("datum")%>

Dölj medlemslistan <% End If %>