OKAY!
Ha hele min kode?
<!-- #include file=\"rum1/simpelchat.inc\" -->
<!-- #include file=\"chatinfo.inc\" -->
<%
if request(\"Mode\") = \"logud\" then
session.Abandon
Response.Redirect(\"login.asp\")
end if
if request(\"Mode\") = \"startside\" then
Response.Redirect(\"bruger.asp\")
end if
Response.Buffer = True
SET rs = Server.CreateObject(\"ADODB.Connection\")
rs.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"db.mdb\")
Sql = \"Select * FROM users WHERE username = \'\" & session(\"password-session\") & \"\'\"
set rs = rs.Execute(SQL)
Brugere_Online = Application(\"\"& Systemname &\"_chatusers\")
If Brugere_Online = \"\" Then
Brugere_Online = \"0\"
End If
%>
<%
If Request(\"chatname\") = AdminUsername Then
strError = \"1\"
Response.Redirect(\"\"& Systemname &\".asp?admin=error\")
Else
strError = \"\"
End If
%>
<%
Mode = Request(\"mode\")
If strError = \"\" Then
If Mode = \"login\" Then
%>
<%
Username = rs(\"Username\")
If Username = null Then
Response.Redirect\"login.asp?mode=faillogin\"
End If
%>
<CODE>FrameFrameLink<script language=\"JavaScript\">
<!--
window.open(\'<%=Systemname%>/chat.asp?mode=login&chatname=<% = rs(\"Username\") %>\',\'\',\'width=800,height=590\');
location.href=\"<%=Systemname%>.asp\";
// -->
</script>
</CODE><%
Else
%>
<html>
<head>
<meta http-equiv=\"Content-Language\" content=\"da\">
<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><%=ChatTitle%></title>
<style TYPE=\"text/css\">
<!--
a:link { color: <%=TextColor1%>; text-decoration: none; }
a:hover { color: <%=TextColor2%>; text-decoration: none; }
a:visited { color: <%=TextColor1%>; text-decoration: none; }
a:visited:hover { color: <%=TextColor2%>; text-decoration: none; }
// -->
</style>
<script language=\"JavaScript\">
<!--
function CheckLogin() {
if (document.loginFrm.chatname.value == \"\") {document.loginFrm.chatname.focus();return false;}
}
// -->
</script>
</head>
<body style=\"font-family: Verdana\" bgcolor=\"<%=BGColor2%>\" text=\"<%=TextColor1%>\" link=\"<%=LinkColor1%>\" vlink=\"<%=LinkColor1%>\" alink=\"<%=LinkColor1%>\">
<div align=\"center\">
<center>
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\" height=\"100%\">
<tr>
<td width=\"100%\">
<p align=\"center\"><img border=\"0\" src=\"images/rum/0<%=Replace(Systemname, \"rum\", \"\")%>.jpg\"></td>
</tr>
<tr>
<td width=\"100%\" height=\"100%\" valign=\"top\">
<p align=\"center\" style=\"word-spacing: 0; margin: 0\"> </p>
<div align=\"center\">
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"75%\">
<tr>
<td width=\"100%\">
<p style=\"word-spacing: 0; margin: 0\" align=\"center\">
<b><font size=\"1\">Velkommen til <%=Replace(ChatTitle, \" - \" & MainChatTitle, \"\")%>.</font></b><p style=\"word-spacing: 0; margin: 0\" align=\"center\"><b><font size=\"1\">Indtast
dit ønskede brugernavn.</font></b><p style=\"word-spacing: 0; margin: 0\" align=\"center\"><b><font size=\"1\">Hvis
du ikke kan få adgang til chatten er det fordi:</font></b><p style=\"word-spacing: 0; margin: 0\" align=\"center\"><b><font size=\"1\">Du
enten har valgt et navn som allerede er taget...</font></b><p style=\"word-spacing: 0; margin: 0\" align=\"center\"><b><font size=\"1\">...Eller
fordi der ikke er plads til flere i chatten.</font></b><p style=\"word-spacing: 0; margin: 0\" align=\"center\"> <p style=\"word-spacing: 0; margin: 0\" align=\"center\"><b><font size=\"1\">Der
er max. plads til <%=MaxUsers%> personer i denne chat. Hvoraf <%=Brugere_Online%> er logget på.</font></b>
<p style=\"word-spacing: 0; margin: 0\" align=\"center\"><b><font size=\"1\">Disse
personer er:</font></b><hr width=\"50%\" noshade size=\"1\" color=\"#FFFFFF\">
<p style=\"word-spacing: 0; margin: 0\" align=\"center\"><b><font size=\"1\">
<%
For x = 1 To MaxUsers
If Application(\"\"& Systemname &\"_chatuser_\" & x) <> \"\" Then
If Application(\"\"& Systemname &\"_chatuser_\" & x) = AdminUsername Then
Response.Write \"<img border=\'0\' src=\'images/chat_icon04.gif\' width=\'13\' height=\'14\' alt=\'ADMIN\'> \" & Application(\"\"& Systemname &\"_chatuser_\" & x) & \"<br>\"
Else
Response.Write \"<img border=\'0\' src=\'images/chat_icon03.gif\' width=\'13\' height=\'14\'> \" & Application(\"\"& Systemname &\"_chatuser_\" & x) & \"<br>\"
End If
End If
Next
%>
</font></b>
<hr width=\"50%\" noshade size=\"1\" color=\"#FFFFFF\">
<p style=\"word-spacing: 0; margin: 0\" align=\"center\">
<font size=\"1\"><b><a href=\"index.asp\">Tilbage til rum-oversigten</a></b></font>
<p align=\"center\" style=\"word-spacing: 0; margin: 0\"> </p>
<p style=\"word-spacing: 0; margin: 0\" align=\"center\"><b><font size=\"1\">Der er plads til <%=MaxUsers - Brugere_Online%> brugere i dette rum.</font></b>
<%If Brugere_Online < MaxUsers Then%>
<form method=\"POST\" action=\"<%=Systemname%>.asp\" name=\"loginFrm\">
<div align=\"center\">
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"250\" style=\"border: 1 solid #000000\">
<tr>
<td style=\"border-bottom: 1 solid #000000\" bgcolor=\"#FFFFFF\" colspan=\"2\" width=\"248\">
<p align=\"center\"><font size=\"1\" color=\"#000000\"><b>LOGIN:</b></font></td>
</tr>
<!--<tr>
<td width=\"72\"><font size=\"1\">Brugernavn:</font></td>
<td width=\"172\">
<p align=\"center\"><input type=\"text\" name=\"chatname\" size=\"25\" style=\"font-family: Verdana; font-size: 8 pt; font-weight: bold; border: 1 solid #000000\"></td>
</tr>-->
<tr>
<td colspan=\"2\" width=\"246\">
<p align=\"center\"><input type=\"submit\" value=\"Log på <%=Replace(ChatTitle, \" - \" & MainChatTitle, \"\")%>\" style=\"font-family: Verdana; font-size: 8 pt; font-weight: bold\"></td>
</tr>
</table>
</div>
<input type=\"hidden\" name=\"mode\" value=\"login\">
</form>
<%Else%>
<div align=\"center\">
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"250\" style=\"border: 1 solid #000000\">
<tr>
<td style=\"border-bottom: 1 solid #000000\" bgcolor=\"#FFFFFF\" colspan=\"2\" width=\"248\">
<p align=\"center\"><font size=\"1\" color=\"#000000\"><b>LOGIN:</b></font></td>
</tr>
<tr>
<td width=\"100%\" colspan=\"2\">
<p style=\"word-spacing: 0; margin: 0\" align=\"center\"><font size=\"1\"><b>DER ER IKKE PLADS TIL FLERE BRUGERE!!!</b></font>
<p style=\"word-spacing: 0; margin: 0\" align=\"center\"><font size=\"1\"><b>PRØV IGEN SENERE...</b></font></td>
</tr>
</table>
</div>
<%End If%>
<div align=\"center\">
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\">
<tr>
<td width=\"100%\">
<p align=\"center\"><b><font size=\"1\"><%If Request(\"admin\") = \"error\" Then%>Dette
brugernavn er reserveret. Vælg et andet!!!<%End If%></font></b></td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</div>
<p align=\"center\" style=\"word-spacing: 0; margin: 0\"> <a href=\"?mode=startside\" target=\"_self\">Startside</a> - <a href=\"?mode=logud\" target=\"_self\">Logud</a></td>
</tr>
</table>
</center>
</div>
</body>
</html>
<%
End If
End If
%>
Her er den så!
Ny bruger
Nybegynder
Opret
Preview
