<!-- #Include file="settings.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title><%=titel%></title>
<%=style%>
</head>
<body>
<% mymode = Request.querystring("Mode")
myerr = request.querystring("err") %>
<div align="center">
<center>
<table <%=maintable%>>
<tr>
<td width="143" colspan="2"><!-- #Include file="top.asp" --></td>
</tr>
<tr>
<td width="29" <%=mainmenucelle%>><!-- #Include file="menu.asp" --></td>
<td width="110" <%=mainmenucelle%>>
<table <%=maincelle%>>
<tr>
<td width="100%" background="images/main_top.gif" style="padding-left: 5">
<font face="Verdana" size="1" color="#FFFFFF"><% if request.querystring("err") > 0 then %>ERROR<% end if %><% if request.querystring("mode") = "login" then %>Login<% end if %><% if request.querystring("mode") = "opret" then %>Opret<% end if %><% if request.querystring("mode") = "profil" then %>Din Profil<% end if %><% if request.querystring("mode") = "software" then %>Bruger software<% end if %><% if request.querystring("mode") = "forum" then %>Forum<% end if %></font></td>
</tr>
<tr>
<td width="100%" background="images/main_midt.gif" <%=maincelletekst%>>
<% if mymode = "login" then %>
<%
ckiUserId = Request.Cookies("userid")
ckiUserName = Request.Cookies("brugernavn")
ckiUserPass = Request.Cookies("password")
ckiRedir = Request.Cookies("redir")
%>
<form method="post" action="community.asp?mode=login_check">
<table width="25%" align="center" border="0" cellpadding="0" cellspacing="0">
<tr>
<td class="tdtext"></td>
<td><%=maincellefont%>Brugernavn<br><input type="text" name="uid" size="20" value="<%=ckiUserName%>" class="forms"></td>
</tr>
<tr>
<td class="tdtext"></td>
<td><%=maincellefont%>Password<br><input type="password" name="pwd" size="20" value="<%=ckiUserPass%>" class="forms"></td>
</tr>
<tr>
<td> </td>
<td class="tdtext"><%=maincellefont%>husk mig: <input type="checkbox" name="rem" value="true" class="forms1" <%=blnUserCheck %>></td>
</tr>
<td> </td>
<td> <input type="image" src="images/login.gif"></td>
</tr>
</table>
</form>
<% end if %>
<% if mymode = "login_check" then %>
<%
strUID = Trim(Replace(Request.Form("uid"),"'","''"))
strPWD = Trim(Replace(Request.Form("pwd"),"'","''"))
strrem = Trim(Replace(Request.Form("rem"),"'","''"))
If Request.Form("rem") = "checked" Then
Response.Cookies("brugernavn") = strUID
Response.Cookies("brugernavn").Expires = date() + 365
Response.Cookies("password") = strPWD
Response.Cookies("password").Expires = date() + 365
Response.Cookies("rem") = strrem
Response.Cookies("rem").Expires = date() + 365
End If
Set Rs = Server.CreateObject("ADODB.Recordset")
SQL ="SELECT pkuserid, uid, pwd FROM users WHERE (uid ='" & strUID & "') AND (pwd ='" & strPWD & "');"
Rs.Open SQL, Conn
If NOT(Rs.BOF AND Rs.EOF) Then
Session("userid") = Rs("pkuserid")
Session("username") = rs("uid")
Session("passwd") = Rs("pwd")
Session("login") = True
Response.Redirect(Request.ServerVariables("HTTP_REFERER"))
Else
Response.Redirect("community.asp?err=1")
End If
end if
%>
<% if myerr = "1" then %>
<center><b><font color="#ff0000">Du har enten ikke udfyldt brugernavn eller password, eller også er det forkert!!</b></font></center>
<% end if %>
<% if myerr = "2" then %>
<center><b><font color="#ff0000">Dine passwords passer ikke med hinanden!!</b></font></center>
<% end if %>
<% if myerr = "3" then %>
<center><b><font color="#ff0000">Du er nu oprettet som bruger. Tak for det!!</b></font></center>
<% end if %>
<% if myerr = "opret" then %>
<form method="POST" action="community.asp?mode=opret_store">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="500">
<tr>
<td width="50%"><%=maincellefont%>Brugernavn:<br>
<input type="text" name="username" size="20"></td>
<td width="50%"><%=maincellefont%>Her skriver du det brugernavn du ønsker at benytte som navn
her på siden</td>
</tr>
<tr>
<td width="50%"><%=maincellefont%>Password:<br>
<input type="text" name="password" size="20"></td>
<td width="50%"><%=maincellefont%>Her indtaster du det password du ønsker at din konto skal
benytte</td>
</tr>
<tr>
<td width="50%"><%=maincellefont%>Bekræft password:<br>
<input type="text" name="password1" size="20"></td>
<td width="50%"><%=maincellefont%>Her indtaster du dit password igen for at være sikker på at
du har skrevet rigtigt</td>
</tr>
<tr>
<td width="50%"><%=maincellefont%>E-mail:<br>
<input type="text" name="email" size="20"></td>
<td width="50%"><%=maincellefont%>Her skriver du din e-mail adresse. Den er meget vigtig, da
det er den som du skal bruge hvis du glemmer dit password</td>
</tr>
<tr>
<td width="50%"> <input type="image" src="images/opret.gif" value="Send" name="B1"></td>
<td width="50%"><%=maincellefont%>Her klikker du når du er klar til at gø videre.</td>
</tr>
</table>
</center>
</form> <% end if %>
<% if mymode = "opret_store" then %>
<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
if Request.form("password") = Request.form("password1") then
Set rs = Server.CreateObject("ADODB.RecordSet")
SQL ="SELECT * from users"
rs.Open
rs.AddNew
rs("uid") = Request.form("username")
rs("pwd") = Request.form("password")
rs("email") = Request.form("email")
rs.Update
rs.Close
Set rs = Nothing
Response.Redirect("community.asp?err=3")
else
Response.Redirect("community.asp?err=2")
end if
end if%>
<% if request.querystring("mode") = "logud" then %>
<%
Session.Abandon
Response.redirect(Request.ServerVariables("HTTP_REFERER"))
end if
%>
<% end if %>
<% if mymode = "profil_gem" then
Set rs1 = Server.CreateObject("ADODB.Recordset")
sql1 = "select * from users where uid = '" & Session("username") & "'"
rs1.open sql1, conn, 1, 3
'Henter brugerens profil
'Opdaterer felterner
rs1.update
rs1("pwd") = Server.HTMLEncode(Request("adgangskode"))
rs1("alder") = Server.HTMLEncode(Request("alder"))
rs1("email") = Server.HTMLEncode(Request("email"))
rs1("Hjemmeside") = Server.HTMLEncode(Request("hjemmeside"))
rs1("Tekst") = Server.HTMLEncode(Request("fri_tekst"))
rs1.update
Response.Redirect(Request.ServerVariables("HTTP_REFERER"))
end if %>
<% if request.querystring("mode") = "profil" then
Set rs1 = Server.CreateObject("ADODB.Recordset")
sql1 = "select * from users where uid = '" & Session("username") & "'"
rs1.open sql1, conn, 1, 3
%>
<center>
<form method="post" action="community.asp?mode=profil_gem">
<table border="0" bordercolor="#000000">
<tr>
<td bordercolor="#ffffff"><font class="small"><%=maincellefont%>Brugernavn:</font></td>
<td bordercolor="#ffffff" class="username"><%=rs1("uid")%></td>
</tr>
<tr>
<td bordercolor="#ffffff"><font class="small"><%=maincellefont%>Adgangskode:</font></td>
<td bordercolor="#ffffff">
<input type="text" name="adgangskode" value="<%=rs1("pwd")%>" size="20" class="forms"></td>
</tr>
<tr>
<td bordercolor="#ffffff"><font class="small"><%=maincellefont%>Email:</font></td>
<td bordercolor="#ffffff">
<input type="text" name="email" value="<%=rs1("email")%>" size="20" class="forms"></td>
</tr>
<tr>
<td bordercolor="#ffffff"><font class="small"><%=maincellefont%>Hjemmeside:</font></td>
<td bordercolor="#ffffff">
<input type="text" name="hjemmeside" value="<%=rs1("hjemmeside")%>" size="20" class="forms"></td>
</tr>
<tr>
<td bordercolor="#ffffff"><font class="small"><%=maincellefont%>Alder:</font></td>
<td bordercolor="#ffffff">
<input type="text" name="alder" value="<%=rs1("alder")%>" size="20" class="forms"></td>
</tr>
<tr>
<td bordercolor="#ffffff"><font class="small"><%=maincellefont%>Fri tekst:</font></td>
<td bordercolor="#ffffff"><textarea cols="20" rows="6" name="fri_tekst" class="forms1"><%=Rs1("tekst")%></textarea></td>
</tr>
<tr>
<td bordercolor="#ffffff"> </td>
<td bordercolor="#ffffff"><input type="image" src="images/opdater.gif"></td>
</tr>
</table>
</center>
</form>
<center> <a href="community.asp?mode=delete_user&id=<%=rs1("pkuserid")%>"><%=maincellefont%>Slet</a>
<% end if %>
</font></td>
</tr>
<tr>
<td width="100%" background="images/menu_bund.gif" height="1"></td>
</tr>
</table> </td>
</tr>
<tr>
<td height="1" background="images/menu_bund.gif" colspan="2"></td>
</tr>
</table>
<%=design%> - <%=kode%>
</center>
</div>
</body>
</html>
Ny bruger
Nybegynder
Opret
Preview
