InternalMailSystem
HJÆÆÆÆLP!Jeg har uploadet et script - Ja på mange sider!
Og jeg skal oprette en bruger og når jeg klikker på Create så går den til en siden den ikke kan finde
http://www.friserverplads.dk/internalmailsystem/index.asp
Og prøv at oprette en bruger!!!!!
Ja siden er lagt op på serveren og jeg har prøvet flere gange! her er koden til
Mail_new_user.asp: (som er den man opretter en bruger fra)
<!-- #include virtual = \"/InternalMailSystem/EmailChecker.asp\" -->
<%
\' #####################################################################
\' ## ASP file made by Anders K. Nielsen, McGreed@hotmail.com. #
\' ## Copyright 2000-2002, NightStorm Web Design, All rights reserved. #
\' #####################################################################
Page_Title=\"Create New Account\"
If Request.QueryString(\"Page\")=\"NewUser\" Then
Str_Username=\"\"
Str_Realname=\"\"
Str_Address=\"\"
Str_ZIPCode=\"\"
Str_Cityname=\"\"
Str_Country=\"\"
Str_Phone=\"\"
Str_Email=\"\"
else
Str_Username=Request.Form(\"Username\")&\"\"
Str_Realname=Request.Form(\"Realname\")&\"\"
Str_Address=Request.Form(\"Address\")&\"\"
Str_ZIPCode=Request.Form(\"ZIPCode\")&\"\"
Str_Cityname=Request.Form(\"Cityname\")&\"\"
Str_Country=Request.Form(\"Country\")&\"\"
Str_Phone=Request.Form(\"Phone\")&\"\"
Str_Email=Request.Form(\"Email\")&\"\"
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"/InternalMailSystem/MailSystem.mdb\")
\' #### BEGIN ## Check if all fields has been filled out correctly ####
Err_Message=\"\"
If Len(Str_Username)<3 Then
Err_Message=Err_Message&\"Username is missing or is too short<BR>\"&vbCrLf
else
\' BEGIN - Check if the username is already being used by someone else
Str_Temp=Replace(Str_Username,\"\'\",\"\'\'\")
Str_Temp=Replace(Str_Temp,\"\"\"\",\"\"\"\"\"\")
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
SQL_Str=\"SELECT User_ID FROM Users WHERE Username LIKE \'\" & Str_Temp & \"\'\"
rs.Open SQL_Str, strDSN, 1, 1
If Not rs.EOF Then
Err_Message=Err_Message&\"This username is already in use.<BR>\"&vbCrLf
end if
rs.close
Set rs=nothing
\' BEGIN - Check if the username is already being used by someone else
end if
\' BEGIN - Check if Real Name is valid
If Len(Str_Realname)<5 Then
Err_Message=Err_Message&\"Real name to short or missing<BR>\"&vbCrLf
end if
\' END - Check if Real Name is valid
\' BEGIN - Check if ZIPCode is valid
If Not Str_ZIPCode&\"\"=\"\" Then
If IsNumeric(Str_ZIPCode)=false Then
Err_Message=Err_Message&\"ZIP Code must be a numeric<BR>\"&vbCrLf
end if
else
Str_ZIPCode=\"0\"
end if
\' END - Check if ZIPCode is valid
\' BEGIN - Checks if there is entered an e-mail and if its valid ####
If Not Str_Email&\"\"=\"\" Then
x=Valider(Str_Email)
If x=false Then Err_Message=Err_Message&\"E-mail isn\'t valid<BR>\"&vbCrLf end if
end if
\' END - Checks if there is entered an e-mail and if its valid ####
\' #### END ## Check if all fields has been filled out correctly ####
\' #### BEGIN ## Generate random password ####
Randomize
Str_Password=\"\"
For x=1 to 10
Str_Password=Str_Password&Chr(Int(26*rnd)+65)
Next
Str_Password=Lcase(Str_Password)
\' #### END ## Generate random password ####
\' #### BEGIN ## If no errors, create account ####
If Err_Message=\"\" Then
Set rs = Server.CreateObject(\"ADODB.Recordset\")
rs.Open \"Users\", strDSN, 3, 4
rs.AddNew
rs(\"Username\")=Str_Username
rs(\"Password\")=Str_Password
rs(\"Realname\")=Str_Realname
rs(\"Address\")=Str_Address
rs(\"ZIPCode\")=Str_ZIPCode
rs(\"Cityname\")=Str_Cityname
rs(\"Country\")=Str_Country
rs(\"Phone\")=Str_Phone
rs(\"Email\")=Str_Email
rs(\"URL\")=\"\"
rs(\"ICQ_nr\")=0
rs(\"Description\")=\"\"
rs(\"Mail_Sort\")=1
rs(\"Mail_Color_Scheme\")=0
rs(\"Mail_Signatur\")=\"\"
rs(\"Mail_Signatur_OnOff\")=false
rs(\"Mail_Include_Message\")=true
rs(\"Favorit_Users\")=\"\"
rs(\"Blocked_Users\")=\"\"
rs(\"Account_Created_Date\")=Now()
rs(\"Account_Created_Email\")=Str_Email
rs(\"Account_Accepted\")=false
rs(\"Last_Visit\")=Now()
rs(\"Last_IP\")=Request.ServerVariables(\"REMOTE_ADDR\")
rs.UpdateBatch
rs.close
set rs=nothing
Session(\"Mail_User_Username\")=Str_Username
Response.Redirect \"/InternalMailSystem/Mail_Send_AccountInfo.asp?Page=SendInfo\"
end if
\' #### END ## If no errors, create account ####
end if
%>
<!-- #include virtual = \"/InternalMailSystem/Mail_Inc_Color_Scheme.asp\" -->
<!-- #include virtual = \"/InternalMailSystem/MailLayout_Top.asp\" -->
<!-- #include virtual = \"/InternalMailSystem/Mail_StyleSheet.asp\" -->
<!-- #include virtual = \"/InternalMailSystem/MailLayout_Menu.asp\" -->
<TABLE WIDTH=400 BORDER=3 CELLPADDING=0 CELLSPACING=0 BGCOLOR=\"<%=Mail_Color_Normal%>\" ALIGN=\"CENTER\" BORDERCOLORDARK=\"<%=Mail_Color_Dark%>\" BORDERCOLORLIGHT=\"<%=Mail_Color_Light%>\">
<TR>
<TD>
<TABLE WIDTH=\"100%\" CELLPADDING=0 CELLSPACING=4 BORDER=0>
<TR>
<TD CLASS=\"ShadowSmall\" STYLE=\"font-family: Tahoma; font-size: 11px; font-weight: bold; color: <%=Mail_Color_VLight%>;\">
Choose an username, and enter your other details. Fields with * is required and <I>must</I> be filled.<BR>
When finished, check your fields to make sure they are filled out correct, and then click on \"Create Account\"-button.<BR>
You will receive an e-mail with your user-details, and your generated password (which can be changed once inside), and an link to activate the account.<BR>
<IMG SRC=\"/InternalMailSystem/Images/Blank.gif\" WIDTH=300 HEIGHT=5><BR>
IMPORTENT: If you don\'t use the link within 5 days, the account will automatic be deleted, and you will have to create a new.<BR>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
<%
\' #### BEGIN ## If there is any errors, show message here ####
If Not Err_Message=\"\" Then
Response.Write \" <CENTER><FONT FACE=\"\"Tahoma\"\" SIZE=2 COLOR=\"\"#F00000\"\"><B>\" & vbCrLf
Response.Write Err_Message & \"</B></FONT></CENTER>\"
end if
\' #### END ## If there is any errors, show message here ####
%> <FORM NAME=\"FormNewUser\" ACTION=\"/InternalMailSystem/Mail_New_User.asp?Page=Create\" METHOD=\"post\">
<TABLE WIDTH=400 BORDER=3 CELLPADDING=0 CELLSPACING=0 BGCOLOR=\"<%=Mail_Color_Normal%>\" ALIGN=\"CENTER\" BORDERCOLORDARK=\"<%=Mail_Color_Dark%>\" BORDERCOLORLIGHT=\"<%=Mail_Color_Light%>\">
<TR>
<TD>
<TABLE WIDTH=\"100%\" BORDER=1 CELLPADDING=1 CELLSPACING=0 BGCOLOR=\"<%=Mail_Color_Normal%>\" ALIGN=\"CENTER\" BORDERCOLORDARK=\"<%=Mail_Color_Light%>\" BORDERCOLORLIGHT=\"<%=Mail_Color_Dark%>\" STYLE=\"font-family: Tahoma; font-size: 12px; color: <%=Mail_Color_VLight%>;\">
<TR>
<TD> <B>Username*:</B> <BR></TD>
<TD STYLE=\"font-size: 10px;\"><INPUT TYPE=\"text\" NAME=\"Username\" VALUE=\"<%=Server.HTMLEncode(Str_Username&\"\")%>\" SIZE=25 MAXLENGTH=40 CLASS=\"UsersText\" TABINDEX=\"1\"> (min. 3 characters)<BR></TD>
</TR>
<TR>
<TD> <B>Real name*:</B> <BR></TD>
<TD STYLE=\"font-size: 10px;\"><INPUT TYPE=\"text\" NAME=\"Realname\" VALUE=\"<%=Server.HTMLEncode(Str_Realname&\"\")%>\" SIZE=31 MAXLENGTH=80 CLASS=\"UsersText\" TABINDEX=\"2\"> (min. 5 characters)<BR></TD>
</TR>
<TR>
<TD> Address: <BR></TD>
<TD><INPUT TYPE=\"text\" NAME=\"Address\" VALUE=\"<%=Server.HTMLEncode(Str_Address&\"\")%>\" SIZE=31 MAXLENGTH=80 CLASS=\"UsersText\" TABINDEX=\"3\"><BR></TD>
</TR>
<TR>
<TD> ZIP Code/City: <BR></TD>
<TD><INPUT TYPE=\"text\" NAME=\"ZIPCode\" VALUE=\"<%=Server.HTMLEncode(Str_ZIPCode&\"\")%>\" SIZE=6 MAXLENGTH=6 CLASS=\"UsersText\" TABINDEX=\"4\">
<INPUT TYPE=\"text\" NAME=\"Cityname\" VALUE=\"<%=Server.HTMLEncode(Str_Cityname&\"\")%>\" SIZE=18 MAXLENGTH=40 CLASS=\"UsersText\" TABINDEX=\"5\"><BR></TD>
</TR>
<TR>
<TD> Country: <BR></TD>
<TD><INPUT TYPE=\"text\" NAME=\"Country\" VALUE=\"<%=Server.HTMLEncode(Str_Country&\"\")%>\" SIZE=31 MAXLENGTH=80 CLASS=\"UsersText\" TABINDEX=\"6\"><BR></TD>
</TR>
<TR>
<TD> Phone: <BR></TD>
<TD><INPUT TYPE=\"text\" NAME=\"Phone\" VALUE=\"<%=Server.HTMLEncode(Str_Phone&\"\")%>\" SIZE=12 MAXLENGTH=11 CLASS=\"UsersText\" TABINDEX=\"7\"></TD>
</TR>
<TR>
<TD> <B>E-mail*:</B> <BR></TD>
<TD><INPUT TYPE=\"text\" NAME=\"Email\" VALUE=\"<%=Server.HTMLEncode(Str_Email&\"\")%>\" SIZE=31 MAXLENGTH=40 CLASS=\"UsersText\" TABINDEX=\"8\"><BR></TD>
</TR>
</TABLE>
</TD>
</TR>
<TR>
<TD ALIGN=\"CENTER\">
<TABLE WIDTH=\"100%\" CELLPADDING=0 CELLSPACING=5>
<TR>
<TD WIDTH=\"50%\" ALIGN=\"CENTER\"><INPUT TYPE=\"button\" VALUE=\"Cancel\" OnClick=\"java script:document.FormReturn.submit();\" CLASS=\"MailButton\" TABINDEX=\"10\"><BR></TD>
<TD WIDTH=\"50%\" ALIGN=\"CENTER\"><INPUT TYPE=\"submit\" VALUE=\"Create Account\" CLASS=\"MailButton\" TABINDEX=\"9\"><BR></TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</FORM>
<FORM NAME=\"FormReturn\" ACTION=\"/InternalMailSystem/Index.asp\" METHOD=\"post\" STYLE=\"display: \'none\';\"></FORM>
<!-- #include virtual = \"/InternalMailSystem/MailLayout_Bottom.asp\" -->
OG her er den side den skal til men som ikke kan finde når man klikker Create:
<%
\' #####################################################################
\' ## ASP file made by Anders K. Nielsen, McGreed@hotmail.com. #
\' ## Copyright 2000-2002, NightStorm Web Design, All rights reserved. #
\' #####################################################################
If Session(\"Mail_User_Username\")&\"\"=\"\" Then
Response.Redirect \"/InternalMailSystem/\"
end if
\' #### BEGIN ## Retrive the newly created accounts data ####
Str_Temp=Replace(Session(\"Mail_User_Username\")&\"\",\"\'\",\"\'\'\")
Str_Temp=Replace(Str_Temp,\"\"\"\",\"\"\"\"\"\")
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
SQL_Str=\"SELECT Users.User_ID, Users.Username, Users.Realname, Users.Password, Users.Email FROM Users WHERE Users.Username LIKE \'\"&Str_Temp&\"\'\"
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"/InternalMailSystem/MailSystem.mdb\")
rs.Open SQL_Str, strDSN, 1, 1
If Not rs.EOF Then
Str_UserID=rs(\"User_ID\")
Str_Username=rs(\"Username\")
Str_Realname=rs(\"Realname\")
Str_Password=rs(\"Password\")
Str_Email=rs(\"Email\")
else
Response.Redirect \"/InternalMailSystem/Index.asp?Err_Login=7\"
end if
rs.close
Set rs=nothing
\' #### BEGIN ## Retrive the newly created accounts data ####
\' #### BEGIN ## Send e-mail to user, using JMail component (http://tech.dimac.net/) ####
Name = \"I.M.S. Bot\"
SenderEmail = \"IMS-Bot@InternalMessageSystem.dk\"
Subject = \"Welcome to Internal Message System\"
Recipient = Str_Email
\' BEGIN - Generate message
Str_Message=\"\"
Str_Message=Str_Message&\"Welcome to Internal Message System, \" & Str_Realname & vbCrLf & vbCrLf
Str_Message=Str_Message&\"You have now created an account at Internal Message System, and must click on the link just below to activate the account, before you can use the username & password for login:\" & vbCrLf
Str_Message=Str_Message&\" http://www.friserverplads.dk/internalmailsystem/mail_activate_account.asp?accountid=\" & Str_UserID & vbCrLf & vbCrLf
Str_Message=Str_Message&\"When you have got the message that the account has been activated, use your username and password.\" & vbCrLF & vbCrLF
Str_Message=Str_Message&\"Here is your account details:\" & vbCrLf
Str_Message=Str_Message&\" Username: \" & Str_Username & vbCrLf
Str_Message=Str_Message&\" Password: \" & Str_Password & vbCrLf & vbCrLf
Str_Message=Str_Message&\"Use your username and password to login. Have fun! :)\" & vbCrLf & vbCrLf
Str_Message=Str_Message&\"Regards\" & vbCrLf
Str_Message=Str_Message&\"I.M.S. Bot\" & vbCrLf
Str_Message=Str_Message&\"Internal Message System v1.00\" & vbCrLf
Str_Message=Str_Message&\"http://www.friserverplads.dk/InternalMessageSystem/\" & vbCrLf& vbCrLf
Str_Message=Str_Message&\"P.S. If your have received this e-mail and haven\'t created an account at Internal Message System (http://www.pizzacentral.dk/internalmailsystem/), we are sorry and would like if you could please send an e-mail, so it can be cancelled.\" & vbCrLf
\' END - Generate message
Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
\' Enter your own SMTP-server here
JMail.ServerAddress = \"mail.friserverplads.dk\"
JMail.Sender = SenderEmail
JMail.Subject = Subject
JMail.AddRecipient Recipient
JMail.Body = Str_Message
JMail.Priority = 3
JMail.AddHeader \"Originating-IP\", Request.ServerVariables(\"REMOTE_ADDR\")
JMail.Execute
\' #### END ## Account Send e-mail to user, using JMail component (http://tech.dimac.net/) ####
Response.Redirect \"/InternalMailSystem/Index.asp?Page=AccountCreated\"
%>
- jeg kan ikke se fejlen!!!!
