| Groups | Blog | Home |
inetserver asp db : ASP Login Script not working
Operating System: Microsoft Windows 2000 Professional I am trying to protect a portion of a web site by allowing users to = register a username and password & then login with those details, but so = far I am having only marginal success. I am far from an expert on ASP = programming, indeed the code I am using comes from "Sams Teach Yourself = E-Commerce Programming with ASP" but it is ideally suited for my = purpose. In short, there are 3 .asp pages (register.asp, login.asp & = checkpassword.asp - the code for each is below), a global.asa file was = automatically created and by following the instructions in the book, I = also created a small Access database called UserDB.mdb, which stores the = username & password of each user when they register & also verify's = those details when the user attempts to login again. The DNS connection has been setup within FrontPage and I have verified = that this connection works by clicking "Tools", "Web Settings" & the = "Database" tab, highlighting the DNS connection & clicking Verify.=20 The problems seem to occur when I try to register a new username & = password, for some strange reason the details I enter are not being = saved in the database table, and to compound the problem further, if I = register just a username, or a password but not both, the page simply = refreshes itself with empty boxes instead of giving an error message to = indicate that a "username" or "password" must be entered, which if I = have read the code correctly on the "checkpassword.asp" page, should = happen. To further confuse the situation, if I manually enter a username & = password into the database table and then attempt to click a hyperlink = taking me to a "test.asp" page, with the INCLUDE FILE: <!-- #INCLUDE = FILE=3D"checkpassword.asp" -->, I am automatically taken to the = login.asp, where if I enter the username & password that I manually put = into the database table, it takes me to the selected "Protected" web = page. In my mind that clearly shows the DNS connection is working but = yet it won't store new registered details into the database table, which = is extremely confusing. If anyone can see what I may be doing wrong, or point me in the right = direction, your help & advice will be greatly appreciated. As I pointed = out earlier I am far from an expert, so any help you can give would be = ideally suited towards a newbie mentality. Below is the code for the three .asp pages: Many thanks in advance Wayne Smith register.asp <% nextPage =3D Request( "nextPage" ) newUsername =3D Request( "newUsername" ) newPassword =3D Request( "newPassword" ) %> <HTML> <HEAD><TITLE>Register"</TITLE></HEAD> <BODY> Register at this Web site by selecting a username and password: <FORM METHOD=3D"post" ACTION=3D"<%=3DnextPage%>"> <INPUT NAME=3D"newUser" TYPE=3D"hidden" VALUE=3D"1"> <P><B>USERNAME:</B> <INPUT NAME=3D"newUsername" SIZE=3D20 MAXLENGTH=3D"20"=20 VALUE=3D"<%=3DServer.HTMLEncode( newUsername )%>"> <P><B>PASSWORD:</B> <INPUT NAME=3D"newPassword" SIZE=3D20 MAXLENGTH=3D"20"=20 VALUE=3D"<%=3DServer.HTMLEncode( newPassword )%>"> <P><INPUT TYPE=3D"submit" VALUE=3D"Register!"> </FORM> </BODY> </HTML> -------------------------------------------------------------------------= --------- login.asp <HTML> <HEAD><TITLE>Login</TITLE></HEAD> <BODY> <%=3DloginMessage%> <FORM METHOD=3D"post" ACTION=3D"<%=3DnextPage%>"> <P><B>USERNAME:</B> <INPUT NAME=3D"username" SIZE=3D20 MAXLENGTH=3D"20"=20 VALUE=3D"<%=3DServer.HTMLEncode( username )%>"> <P><B>PASSWORD:</B> <INPUT NAME=3D"password" SIZE=3D20 MAXLENGTH=3D"20"=20 VALUE=3D"<%=3DServer.HTMLEncode( password )%>"> <p><INPUT NAME=3D"addCookie" TYPE=3D"Checkbox" VALUE=3D"1"> Remember me = with a cookie <P><INPUT TYPE=3D"submit" VALUE=3D"Login"> </FORM> <p> <a href=3D"register.asp?nextpage=3D<%Server.URLEncode( nextpage )%>"> Click here to register</a> </BODY> </HTML> ------------------------------------------------------------- checkpassword.asp <% CONST useSession =3D TRUE ' Retrieve Form Variables username =3D TRIM( Request( "username" ) ) password =3D TRIM( Request( "password" ) ) newUser =3D TRIM( Request( "newUser" ) ) newUsername =3D TRIM( Request( "newUsername" ) ) newPassword =3D TRIM( Request( "newPassword" ) ) addCookie =3D TRIM( Request( "addCookie" ) ) ' Retrieve Current Page nextPage =3D Request.ServerVariables( "SCRIPT_NAME" ) ' Ready Database Connection Set Con =3D Server.CreateObject( "ADODB.Connection" ) Con.Open "userDNS" ' Add New User IF newUser <> "" THEN IF newUsername =3D "" THEN showError "You must enter a username" END IF IF newPassword =3D "" THEN showError "You must enter a password" END IF IF usernameTaken( newUsername ) THEN showError "The username you entered has already " &_ "been chosen by a previous user. Please select " &_ "a new username" END IF sqlString =3D "INSERT INTO userlist ( user_username, user_password ) " = &_ "VALUES ('" & newUsername & "','" & newPassword & "')" Con.Execute sqlString username =3D newUsername password =3D newPassword IF useSession THEN Session( "loggedIn" ) =3D "Yes" END IF ' Authenticate User IF Session( "loggedIn" ) =3D "" THEN=20 IF username =3D "" OR password =3D "" THEN loginMessage =3D "You must login before you can view this page." showLogin END IF result =3D validateLogin( username, password ) IF result =3D 1 THEN loginMessage =3D "You entered an unregistered username." showLogin END IF IF result =3D 2 THEN loginMessage =3D "You did not enter a valid password." showLogin END IF IF useSession THEN Session( "loggedIn" ) =3D "Yes" END IF ' Add a Cookie IF addCookie <> "" THEN Response.Cookies( "username" ) =3D username Response.Cookies( "username" ).Expires =3D "12/25/2037" Response.Cookies( "password" ) =3D password Response.Cookies( "password" ).Expires =3D "12/25/2037" END IF ' Create Security Query String Variable sq =3D "username=3D" & Server.HTMLEncode( username ) & "&" sq =3D sq & "password=3D" & Server.HTMLEncode( password )=20 ' Create Security Form Variable sf =3D "<input name=3D""username"" type=3D""hidden"" " sf =3D sf & "value=3D""" & Server.HTMLEncode( username ) & """>" sf =3D sf & "<input name=3D""password"" type=3D""hidden"" " sf =3D sf & "value=3D""" & Server.HTMLEncode( password ) & """>" ' Check Username and Password FUNCTION validateLogin( theUsername, thePassword ) sqlString =3D "SELECT user_password FROM userlist " &_ "WHERE user_username=3D'" & fixQuotes( username ) & "'"=20 Set RS =3D Con.Execute( sqlString ) IF RS.EOF THEN validateLogin =3D 1 ELSE
What a complicated scripts you have, with lotsa unneccesary codes. Throw
that book away. [quoted text, click to view] "Wayne Smith" <wayne.smith2004(NoSpam)@ntlworld.com> wrote in message Applies to: Microsoft FrontPage 2000, Microsoft Access 2000, IIS 5.0news:ur1o0ssVEHA.2544@TK2MSFTNGP10.phx.gbl... Operating System: Microsoft Windows 2000 Professional I am trying to protect a portion of a web site by allowing users to register a username and password & then login with those details, but so far I am having only marginal success. I am far from an expert on ASP programming, indeed the code I am using comes from "Sams Teach Yourself E-Commerce Programming with ASP" but it is ideally suited for my purpose. In short, there are 3 .asp pages (register.asp, login.asp & checkpassword.asp - the code for each is below), a global.asa file was automatically created and by following the instructions in the book, I also created a small Access database called UserDB.mdb, which stores the username & password of each user when they register & also verify's those details when the user attempts to login again. The DNS connection has been setup within FrontPage and I have verified that this connection works by clicking "Tools", "Web Settings" & the "Database" tab, highlighting the DNS connection & clicking Verify. The problems seem to occur when I try to register a new username & password, for some strange reason the details I enter are not being saved in the database table, and to compound the problem further, if I register just a username, or a password but not both, the page simply refreshes itself with empty boxes instead of giving an error message to indicate that a "username" or "password" must be entered, which if I have read the code correctly on the "checkpassword.asp" page, should happen. To further confuse the situation, if I manually enter a username & password into the database table and then attempt to click a hyperlink taking me to a "test.asp" page, with the INCLUDE FILE: <!-- #INCLUDE FILE="checkpassword.asp" -->, I am automatically taken to the login.asp, where if I enter the username & password that I manually put into the database table, it takes me to the selected "Protected" web page. In my mind that clearly shows the DNS connection is working but yet it won't store new registered details into the database table, which is extremely confusing. If anyone can see what I may be doing wrong, or point me in the right direction, your help & advice will be greatly appreciated. As I pointed out earlier I am far from an expert, so any help you can give would be ideally suited towards a newbie mentality. Below is the code for the three .asp pages: Many thanks in advance Wayne Smith register.asp <% nextPage = Request( "nextPage" ) newUsername = Request( "newUsername" ) newPassword = Request( "newPassword" ) %> <HTML> <HEAD><TITLE>Register"</TITLE></HEAD> <BODY> Register at this Web site by selecting a username and password: <FORM METHOD="post" ACTION="<%=nextPage%>"> <INPUT NAME="newUser" TYPE="hidden" VALUE="1"> <P><B>USERNAME:</B> <INPUT NAME="newUsername" SIZE=20 MAXLENGTH="20" VALUE="<%=Server.HTMLEncode( newUsername )%>"> <P><B>PASSWORD:</B> <INPUT NAME="newPassword" SIZE=20 MAXLENGTH="20" VALUE="<%=Server.HTMLEncode( newPassword )%>"> <P><INPUT TYPE="submit" VALUE="Register!"> </FORM> </BODY> </HTML> ---------------------------------------------------------------------------- ------ login.asp <HTML> <HEAD><TITLE>Login</TITLE></HEAD> <BODY> <%=loginMessage%> <FORM METHOD="post" ACTION="<%=nextPage%>"> <P><B>USERNAME:</B> <INPUT NAME="username" SIZE=20 MAXLENGTH="20" VALUE="<%=Server.HTMLEncode( username )%>"> <P><B>PASSWORD:</B> <INPUT NAME="password" SIZE=20 MAXLENGTH="20" VALUE="<%=Server.HTMLEncode( password )%>"> <p><INPUT NAME="addCookie" TYPE="Checkbox" VALUE="1"> Remember me with a cookie <P><INPUT TYPE="submit" VALUE="Login"> </FORM> <p> <a href="register.asp?nextpage=<%Server.URLEncode( nextpage )%>"> Click here to register</a> </BODY> </HTML> ------------------------------------------------------------- checkpassword.asp <% CONST useSession = TRUE ' Retrieve Form Variables username = TRIM( Request( "username" ) ) password = TRIM( Request( "password" ) ) newUser = TRIM( Request( "newUser" ) ) newUsername = TRIM( Request( "newUsername" ) ) newPassword = TRIM( Request( "newPassword" ) ) addCookie = TRIM( Request( "addCookie" ) ) ' Retrieve Current Page nextPage = Request.ServerVariables( "SCRIPT_NAME" ) ' Ready Database Connection Set Con = Server.CreateObject( "ADODB.Connection" ) Con.Open "userDNS" ' Add New User IF newUser <> "" THEN IF newUsername = "" THEN showError "You must enter a username" END IF IF newPassword = "" THEN showError "You must enter a password" END IF IF usernameTaken( newUsername ) THEN showError "The username you entered has already " &_ "been chosen by a previous user. Please select " &_ "a new username" END IF sqlString = "INSERT INTO userlist ( user_username, user_password ) " &_ "VALUES ('" & newUsername & "','" & newPassword & "')" Con.Execute sqlString username = newUsername password = newPassword IF useSession THEN Session( "loggedIn" ) = "Yes" END IF ' Authenticate User IF Session( "loggedIn" ) = "" THEN IF username = "" OR password = "" THEN loginMessage = "You must login before you can view this page." showLogin END IF result = validateLogin( username, password ) IF result = 1 THEN loginMessage = "You entered an unregistered username." showLogin END IF IF result = 2 THEN loginMessage = "You did not enter a valid password." showLogin END IF IF useSession THEN Session( "loggedIn" ) = "Yes" END IF ' Add a Cookie IF addCookie <> "" THEN Response.Cookies( "username" ) = username Response.Cookies( "username" ).Expires = "12/25/2037" Response.Cookies( "password" ) = password Response.Cookies( "password" ).Expires = "12/25/2037" END IF ' Create Security Query String Variable sq = "username=" & Server.HTMLEncode( username ) & "&" sq = sq & "password=" & Server.HTMLEncode( password ) ' Create Security Form Variable sf = "<input name=""username"" type=""hidden"" " sf = sf & "value=""" & Server.HTMLEncode( username ) & """>" sf = sf & "<input name=""password"" type=""hidden"" " sf = sf & "value=""" & Server.HTMLEncode( password ) & """>" ' Check Username and Password FUNCTION validateLogin( theUsername, thePassword ) sqlString = "SELECT user_password FROM userlist " &_ "WHERE user_username='" & fixQuotes( username ) & "'" Set RS = Con.Execute( sqlString ) IF RS.EOF THEN validateLogin = 1 ELSE IF RS( "user_password" ) <> thePassword THEN
I'm sure if I were more knowledgeable with ASP I would do just that, but =
alas I'm not and your reply helps me little [quoted text, click to view] "IPT" <iwan@swopt.com> wrote in message = What a complicated scripts you have, with lotsa unneccesary codes. =news:uvwzpFzVEHA.3472@TK2MSFTNGP09.phx.gbl... Throw that book away. [quoted text, click to view] "Wayne Smith" <wayne.smith2004(NoSpam)@ntlworld.com> wrote in message Applies to: Microsoft FrontPage 2000, Microsoft Access 2000, IIS 5.0news:ur1o0ssVEHA.2544@TK2MSFTNGP10.phx.gbl... Operating System: Microsoft Windows 2000 Professional I am trying to protect a portion of a web site by allowing users to = register a username and password & then login with those details, but so far I = am having only marginal success. I am far from an expert on ASP = programming, indeed the code I am using comes from "Sams Teach Yourself E-Commerce Programming with ASP" but it is ideally suited for my purpose. In short, there are 3 .asp pages (register.asp, login.asp & checkpassword.asp - the code for each is below), a global.asa file was automatically created and by following the instructions in the book, I = also created a small Access database called UserDB.mdb, which stores the = username & password of each user when they register & also verify's those = details when the user attempts to login again. The DNS connection has been setup within FrontPage and I have verified = that this connection works by clicking "Tools", "Web Settings" & the = "Database" tab, highlighting the DNS connection & clicking Verify. The problems seem to occur when I try to register a new username & = password, for some strange reason the details I enter are not being saved in the database table, and to compound the problem further, if I register = just a username, or a password but not both, the page simply refreshes itself = with empty boxes instead of giving an error message to indicate that a = "username" or "password" must be entered, which if I have read the code correctly = on the "checkpassword.asp" page, should happen. To further confuse the situation, if I manually enter a username & = password into the database table and then attempt to click a hyperlink taking = me to a "test.asp" page, with the INCLUDE FILE: <!-- #INCLUDE FILE=3D"checkpassword.asp" -->, I am automatically taken to the = login.asp, where if I enter the username & password that I manually put into the database table, it takes me to the selected "Protected" web page. In = my mind that clearly shows the DNS connection is working but yet it won't = store new registered details into the database table, which is extremely = confusing. If anyone can see what I may be doing wrong, or point me in the right direction, your help & advice will be greatly appreciated. As I = pointed out earlier I am far from an expert, so any help you can give would be = ideally suited towards a newbie mentality. Below is the code for the three .asp pages: Many thanks in advance Wayne Smith register.asp <% nextPage =3D Request( "nextPage" ) newUsername =3D Request( "newUsername" ) newPassword =3D Request( "newPassword" ) %> <HTML> <HEAD><TITLE>Register"</TITLE></HEAD> <BODY> Register at this Web site by selecting a username and password: <FORM METHOD=3D"post" ACTION=3D"<%=3DnextPage%>"> <INPUT NAME=3D"newUser" TYPE=3D"hidden" VALUE=3D"1"> <P><B>USERNAME:</B> <INPUT NAME=3D"newUsername" SIZE=3D20 MAXLENGTH=3D"20" VALUE=3D"<%=3DServer.HTMLEncode( newUsername )%>"> <P><B>PASSWORD:</B> <INPUT NAME=3D"newPassword" SIZE=3D20 MAXLENGTH=3D"20" VALUE=3D"<%=3DServer.HTMLEncode( newPassword )%>"> <P><INPUT TYPE=3D"submit" VALUE=3D"Register!"> </FORM> </BODY> </HTML> = -------------------------------------------------------------------------= --- ------ login.asp <HTML> <HEAD><TITLE>Login</TITLE></HEAD> <BODY> <%=3DloginMessage%> <FORM METHOD=3D"post" ACTION=3D"<%=3DnextPage%>"> <P><B>USERNAME:</B> <INPUT NAME=3D"username" SIZE=3D20 MAXLENGTH=3D"20" VALUE=3D"<%=3DServer.HTMLEncode( username )%>"> <P><B>PASSWORD:</B> <INPUT NAME=3D"password" SIZE=3D20 MAXLENGTH=3D"20" VALUE=3D"<%=3DServer.HTMLEncode( password )%>"> <p><INPUT NAME=3D"addCookie" TYPE=3D"Checkbox" VALUE=3D"1"> Remember = me with a cookie <P><INPUT TYPE=3D"submit" VALUE=3D"Login"> </FORM> <p> <a href=3D"register.asp?nextpage=3D<%Server.URLEncode( nextpage )%>"> Click here to register</a> </BODY> </HTML> ------------------------------------------------------------- checkpassword.asp <% CONST useSession =3D TRUE ' Retrieve Form Variables username =3D TRIM( Request( "username" ) ) password =3D TRIM( Request( "password" ) ) newUser =3D TRIM( Request( "newUser" ) ) newUsername =3D TRIM( Request( "newUsername" ) ) newPassword =3D TRIM( Request( "newPassword" ) ) addCookie =3D TRIM( Request( "addCookie" ) ) ' Retrieve Current Page nextPage =3D Request.ServerVariables( "SCRIPT_NAME" ) ' Ready Database Connection Set Con =3D Server.CreateObject( "ADODB.Connection" ) Con.Open "userDNS" ' Add New User IF newUser <> "" THEN IF newUsername =3D "" THEN showError "You must enter a username" END IF IF newPassword =3D "" THEN showError "You must enter a password" END IF IF usernameTaken( newUsername ) THEN showError "The username you entered has already " &_ "been chosen by a previous user. Please select " &_ "a new username" END IF sqlString =3D "INSERT INTO userlist ( user_username, user_password ) " = &_ "VALUES ('" & newUsername & "','" & newPassword & "')" Con.Execute sqlString username =3D newUsername password =3D newPassword IF useSession THEN Session( "loggedIn" ) =3D "Yes" END IF ' Authenticate User IF Session( "loggedIn" ) =3D "" THEN IF username =3D "" OR password =3D "" THEN loginMessage =3D "You must login before you can view this page." showLogin END IF result =3D validateLogin( username, password ) IF result =3D 1 THEN loginMessage =3D "You entered an unregistered username." showLogin END IF IF result =3D 2 THEN loginMessage =3D "You did not enter a valid password." showLogin END IF IF useSession THEN Session( "loggedIn" ) =3D "Yes" END IF ' Add a Cookie IF addCookie <> "" THEN Response.Cookies( "username" ) =3D username Response.Cookies( "username" ).Expires =3D "12/25/2037" Response.Cookies( "password" ) =3D password Response.Cookies( "password" ).Expires =3D "12/25/2037" END IF ' Create Security Query String Variable
Hi Wayne,
I sympathize: Quick suggestion: 1. Here is a pretty good code solution, however it uses sql server as = the backend. Good background reading: = http://www.siteexperts.com/tips/community/ts01/page1.asp Don't use a DNS connection...rather use an absolute path to the = database. Do a Google search for this. 2. Maybe try this solution: http://www.asp101.com/samples/login.asp [quoted text, click to view] "Wayne Smith" <wayne.smith2004(NoSpam)@ntlworld.com> wrote in message = I'm sure if I were more knowledgeable with ASP I would do just that, =news:AiDBc.85$G72.11@newsfe3-win.server.ntli.net... but alas I'm not and your reply helps me little [quoted text, click to view] "IPT" <iwan@swopt.com> wrote in message = What a complicated scripts you have, with lotsa unneccesary codes. =news:uvwzpFzVEHA.3472@TK2MSFTNGP09.phx.gbl... Throw that book away. "Wayne Smith" <wayne.smith2004(NoSpam)@ntlworld.com> wrote in = message news:ur1o0ssVEHA.2544@TK2MSFTNGP10.phx.gbl... Applies to: Microsoft FrontPage 2000, Microsoft Access 2000, IIS 5.0 Operating System: Microsoft Windows 2000 Professional I am trying to protect a portion of a web site by allowing users to = register a username and password & then login with those details, but so far = I am having only marginal success. I am far from an expert on ASP = programming, indeed the code I am using comes from "Sams Teach Yourself = E-Commerce Programming with ASP" but it is ideally suited for my purpose. In short, there are 3 .asp pages (register.asp, login.asp & checkpassword.asp - the code for each is below), a global.asa file = was automatically created and by following the instructions in the book, = I also created a small Access database called UserDB.mdb, which stores the = username & password of each user when they register & also verify's those = details when the user attempts to login again. The DNS connection has been setup within FrontPage and I have = verified that this connection works by clicking "Tools", "Web Settings" & the = "Database" tab, highlighting the DNS connection & clicking Verify. The problems seem to occur when I try to register a new username & = password, for some strange reason the details I enter are not being saved in = the database table, and to compound the problem further, if I register = just a username, or a password but not both, the page simply refreshes = itself with empty boxes instead of giving an error message to indicate that a = "username" or "password" must be entered, which if I have read the code = correctly on the "checkpassword.asp" page, should happen. To further confuse the situation, if I manually enter a username & = password into the database table and then attempt to click a hyperlink taking = me to a "test.asp" page, with the INCLUDE FILE: <!-- #INCLUDE FILE=3D"checkpassword.asp" -->, I am automatically taken to the = login.asp, where if I enter the username & password that I manually put into = the database table, it takes me to the selected "Protected" web page. In = my mind that clearly shows the DNS connection is working but yet it won't = store new registered details into the database table, which is extremely = confusing. If anyone can see what I may be doing wrong, or point me in the = right direction, your help & advice will be greatly appreciated. As I = pointed out earlier I am far from an expert, so any help you can give would be = ideally suited towards a newbie mentality. Below is the code for the three .asp pages: Many thanks in advance Wayne Smith register.asp <% nextPage =3D Request( "nextPage" ) newUsername =3D Request( "newUsername" ) newPassword =3D Request( "newPassword" ) %> <HTML> <HEAD><TITLE>Register"</TITLE></HEAD> <BODY> Register at this Web site by selecting a username and password: <FORM METHOD=3D"post" ACTION=3D"<%=3DnextPage%>"> <INPUT NAME=3D"newUser" TYPE=3D"hidden" VALUE=3D"1"> <P><B>USERNAME:</B> <INPUT NAME=3D"newUsername" SIZE=3D20 MAXLENGTH=3D"20" VALUE=3D"<%=3DServer.HTMLEncode( newUsername )%>"> <P><B>PASSWORD:</B> <INPUT NAME=3D"newPassword" SIZE=3D20 MAXLENGTH=3D"20" VALUE=3D"<%=3DServer.HTMLEncode( newPassword )%>"> <P><INPUT TYPE=3D"submit" VALUE=3D"Register!"> </FORM> </BODY> </HTML> = -------------------------------------------------------------------------= --- ------ login.asp <HTML> <HEAD><TITLE>Login</TITLE></HEAD> <BODY> <%=3DloginMessage%> <FORM METHOD=3D"post" ACTION=3D"<%=3DnextPage%>"> <P><B>USERNAME:</B> <INPUT NAME=3D"username" SIZE=3D20 MAXLENGTH=3D"20" VALUE=3D"<%=3DServer.HTMLEncode( username )%>"> <P><B>PASSWORD:</B> <INPUT NAME=3D"password" SIZE=3D20 MAXLENGTH=3D"20" VALUE=3D"<%=3DServer.HTMLEncode( password )%>"> <p><INPUT NAME=3D"addCookie" TYPE=3D"Checkbox" VALUE=3D"1"> Remember = me with a cookie <P><INPUT TYPE=3D"submit" VALUE=3D"Login"> </FORM> <p> <a href=3D"register.asp?nextpage=3D<%Server.URLEncode( nextpage = )%>"> Click here to register</a> </BODY> </HTML> ------------------------------------------------------------- checkpassword.asp <% CONST useSession =3D TRUE ' Retrieve Form Variables username =3D TRIM( Request( "username" ) ) password =3D TRIM( Request( "password" ) ) newUser =3D TRIM( Request( "newUser" ) ) newUsername =3D TRIM( Request( "newUsername" ) ) newPassword =3D TRIM( Request( "newPassword" ) ) addCookie =3D TRIM( Request( "addCookie" ) ) ' Retrieve Current Page nextPage =3D Request.ServerVariables( "SCRIPT_NAME" ) ' Ready Database Connection Set Con =3D Server.CreateObject( "ADODB.Connection" ) Con.Open "userDNS" ' Add New User IF newUser <> "" THEN IF newUsername =3D "" THEN showError "You must enter a username" END IF IF newPassword =3D "" THEN showError "You must enter a password" END IF IF usernameTaken( newUsername ) THEN showError "The username you entered has already " &_ "been chosen by a previous user. Please select " &_ "a new username" END IF sqlString =3D "INSERT INTO userlist ( user_username, user_password ) = " &_ "VALUES ('" & newUsername & "','" & newPassword & "')" Con.Execute sqlString username =3D newUsername password =3D newPassword IF useSession THEN Session( "loggedIn" ) =3D "Yes" END IF ' Authenticate User IF Session( "loggedIn" ) =3D "" THEN
Don't see what you're looking for? Try a search.
|
June 2003
July 2003
August 2003
September 2003
October 2003
November 2003
December 2003
January 2004
February 2004
March 2004
April 2004
May 2004
June 2004
July 2004
August 2004
September 2004
October 2004
November 2004
December 2004
January 2005
February 2005
March 2005
April 2005
May 2005
June 2005
July 2005
August 2005
September 2005
October 2005
November 2005
December 2005
January 2006
February 2006
March 2006
April 2006
May 2006
June 2006
July 2006
August 2006
September 2006
October 2006
November 2006
December 2006
January 2007
February 2007
March 2007
April 2007
May 2007
June 2007
July 2007
August 2007
September 2007
October 2007
November 2007
| home · blog · groups | Questions? Comments? Contact the dn |