tjek lige
www.t3ch.dk/!work/InternalMailSystem/index.aspden driller! aner ikke hvad det er... kan også være en fejl i koden?
------- Index.asp --------
<%
' #####################################################################
' ## ASP file made by Anders K. Nielsen, McGreed@hotmail.com. #
' ## Copyright 2000-2002, NightStorm Web Design, All rights reserved. #
' #####################################################################
Page_Title="Mail Login"
' #### BEGIN ## Check if the user is logged in ####
If Session("Mail_Login_Check")="tswe354ds" Then
Response.Redirect "Mail_List_Mails.asp"
end if
' #### END ## Check if the user is logged in ####
%>
<!-- #include virtual = "Mail_Inc_Color_Scheme.asp" -->
<!-- #include virtual = "MailLayout_Top.asp" -->
<!-- #include virtual = "Mail_StyleSheet.asp" -->
<!-- #include virtual = "MailLayout_Menu.asp" -->
<%
If Request.QueryString("Err_Login")&""="1" Then
Response.Write " <CENTER><FONT FACE=""Tahoma"" SIZE=2 COLOR=""#F00000""><B>Either username or password is missing!</B></FONT></CENTER>" & vbCrLf
End if
If Request.QueryString("Err_Login")&""="2" Then
Response.Write " <CENTER><FONT FACE=""Tahoma"" SIZE=2 COLOR=""#F00000""><B>Wrong password!</B></FONT></CENTER>" & vbCrLf
End if
If Request.QueryString("Err_Login")&""="3" Then
Response.Write " <CENTER><FONT FACE=""Tahoma"" SIZE=2 COLOR=""#F00000""><B>Account doesn't exist!</B></FONT></CENTER>" & vbCrLf
End if
If Request.QueryString("Err_Login")&""="4" Then
Response.Write " <CENTER><FONT FACE=""Tahoma"" SIZE=2 COLOR=""#F00000""><B>This account has not been activated yet.<BR>Please check your e-mail for info.</B></FONT></CENTER>" & vbCrLf
End if
If Request.QueryString("Err_Login")&""="5" Then
Response.Write " <CENTER><FONT FACE=""Tahoma"" SIZE=2 COLOR=""#F00000""><B>The entered e-mail wasn't valid.</B></FONT></CENTER>" & vbCrLf
End if
If Request.QueryString("Err_Login")&""="6" Then
Response.Write " <CENTER><FONT FACE=""Tahoma"" SIZE=2 COLOR=""#F00000""><B>There is no account which uses this e-mail.</B></FONT></CENTER>" & vbCrLf
End if
If Request.QueryString("Err_Login")&""="7" Then
Response.Write " <CENTER><FONT FACE=""Tahoma"" SIZE=2 COLOR=""#F00000""><B>There was an problem with sending of welcome message,<BR>please use "Forgot Password?" function.</B></FONT></CENTER>" & vbCrLf
End if
If Request.QueryString("AccountActivated")&""="Ok" Then
Response.Write " <CENTER><FONT FACE=""Tahoma"" SIZE=2 COLOR=""#00F000""><B>Account has been activated.</B></FONT></CENTER>" & vbCrLf
End if
%>
<TABLE CELLPADDING=0 CELLSPACING=10 ALIGN="CENTER">
<TR>
<TD VALIGN="TOP">
<FORM ACTION="/InternalMailSystem/Mail_Check_Login.asp" METHOD="post">
<TABLE WIDTH=300 BORDER=3 CELLPADDING=2 CELLSPACING=0 BGCOLOR="<%=Mail_Color_Normal%>" ALIGN="CENTER" BORDERCOLORDARK="<%=Mail_Color_Dark%>" BORDERCOLORLIGHT="<%=Mail_Color_Light%>">
<TR>
<TD STYLE="font-family: Tahoma; font-size: 11px; font-weight: bold; color: <%=Mail_Color_VLight%>;">
Enter your username and password, then click on<BR>
the "Login"-button.<BR>
</TD>
</TR>
<TR>
<TD>
<TABLE CELLPADDING=1 CELLSPACING=0 ALIGN="CENTER" STYLE="font-family: Tahoma; font-size: 12px; font-weight: bold; color: <%=Mail_Color_VLight%>;">
<TR>
<TD>Username: </TD>
<TD><INPUT TYPE="text" NAME="Mail_Username" VALUE="<%=Server.HTMLEncode(Session("Mail_User_Username")&"")%>" SIZE=30 MAXLENGTH=40 CLASS="MailText"></TD>
</TR>
<TR>
<TD>Password: </TD>
<TD><INPUT TYPE="password" NAME="Mail_Password" VALUE="" SIZE=30 MAXLENGTH=30 CLASS="MailText"></TD>
</TR>
</TABLE>
</TD>
</TR>
<TR>
<TD>
<CENTER><INPUT TYPE="submit" VALUE="Login" CLASS="MailButton">
</TD>
</TR>
</TABLE>
</FORM>
<TABLE WIDTH=300 BORDER=1 CELLPADDING=2 CELLSPACING=2 BGCOLOR="<%=Mail_Color_Normal%>" ALIGN="CENTER" BORDERCOLORDARK="<%=Mail_Color_Dark%>" BORDERCOLORLIGHT="<%=Mail_Color_Light%>">
<TR>
<TD STYLE="font-family: Tahoma; font-size: 11px; color: <%=Mail_Color_VLight%>;" ALIGN="CENTER">
<B>NEW USER?</B> Click <A HREF="/InternalMailSystem/Mail_New_User.asp?Page=NewUser" CLASS="Mails"><U>here</U></A> to create account.<BR>
<BR>
Click here for <A HREF="/InternalMailSystem/Admin/" CLASS="Mails"><U>Admin Login</U></A><BR>
</TD>
</TR>
</TABLE>
<FORM ACTION="/InternalMailSystem/Mail_Retrive_Login.asp" METHOD="post">
<TABLE WIDTH=300 BORDER=1 CELLPADDING=2 CELLSPACING=2 BGCOLOR="<%=Mail_Color_Normal%>" ALIGN="CENTER" BORDERCOLORDARK="<%=Mail_Color_Dark%>" BORDERCOLORLIGHT="<%=Mail_Color_Light%>">
<TR>
<TD STYLE="font-family: Tahoma; font-size: 11px; color: <%=Mail_Color_VLight%>;" ALIGN="CENTER">
<B>FORGOT LOGIN/PASSWORD?</B><BR>
Enter your e-mail and click "Retrive Login" and you will receive an e-mail with your username and password:<BR>
<INPUT TYPE="text" NAME="Email" VALUE="-enter@your.email.here-" SIZE=25 CLASS="MailText"> <INPUT TYPE="submit" VALUE="Retrive Login" CLASS="MailButton"><BR>
</TD>
</TR>
</TABLE>
</FORM>
</TD>
<TD VALIGN="TOP">
<TABLE WIDTH=250 BORDER=1 CELLPADDING=2 CELLSPACING=2 BGCOLOR="<%=Mail_Color_Normal%>" ALIGN="CENTER" BORDERCOLORDARK="<%=Mail_Color_Dark%>" BORDERCOLORLIGHT="<%=Mail_Color_Light%>">
<TR>
<TD ALIGN="CENTER" STYLE="font-family: Tahoma; font-size: 11px; color: <%=Mail_Color_VLight%>;">
<FONT SIZE=3><B><U>Information</U></B></FONT><BR>
<BR>
<B>Standard Test-users:</B><BR>
Login: <B>Martin Tester</B> Password: <B>tester</B><BR>
or<BR>
Login: <B>Rita Tester</B> Password: <B>tester</B><BR>
<BR>
<B>Administration:</B><BR>
Login: <B>Admin</B> Password: <B>KFT34TT</B><BR>
<BR>
Read short <A HREF="/InternalMailSystem/readme.txt" CLASS="Mails"><U>description</U>.</A> (only Danish, sorry)<BR>
<BR>
Mail System optimized for IE 5.0+/NS 6<BR>1024x768x32 resolution is recommended<BR>
</TD>
</TR>
</TABLE>
<% If Request.QueryString("Page")="AccountCreated" Then %>
<BR>
<TABLE WIDTH=250 BORDER=1 CELLPADDING=2 CELLSPACING=2 BGCOLOR="<%=Mail_Color_Normal%>" ALIGN="CENTER" BORDERCOLORDARK="<%=Mail_Color_Dark%>" BORDERCOLORLIGHT="<%=Mail_Color_Light%>">
<TR>
<TD ALIGN="CENTER" STYLE="font-family: Tahoma; font-size: 11px; color: <%=Mail_Color_VLight%>;">
<FONT SIZE=3><B><U>Account Created!</U></B></FONT><BR>
<BR>
Your account has been created and an e-mail with you username and password has been sendt to your e-mail. It may take a couple of minutes to arrive.<BR>
When you receive the e-mail, first to do is to click on the link to active the account, and then use your username and password. If you don't activate the account within 5 days, the account will be deleted.<BR>
</TD>
</TR>
</TABLE>
<% end if %>
<% If Request.QueryString("Page")="RetrivedOk" Then %>
<BR>
<TABLE WIDTH=250 BORDER=1 CELLPADDING=2 CELLSPACING=2 BGCOLOR="<%=Mail_Color_Normal%>" ALIGN="CENTER" BORDERCOLORDARK="<%=Mail_Color_Dark%>" BORDERCOLORLIGHT="<%=Mail_Color_Light%>">
<TR>
<TD ALIGN="CENTER" STYLE="font-family: Tahoma; font-size: 11px; color: <%=Mail_Color_VLight%>;">
<FONT SIZE=3><B><U>Retrivel Completed!</U></B></FONT><BR>
<BR>
Your username and password has been retrived and sendt to your e-mail address. It may take a couple of minutes to arrive.<BR>
</TD>
</TR>
</TABLE>
<% end if %>
</TD>
</TR>
</TABLE>
<!-- #include virtual = "MailLayout_Bottom.asp" -->
