Everybody! This is important. In a few days, these forums will be moving over to using the totally sweet Discourse platform. To ensure this migration happens smoothly with no loss of content, these forums are currently in a read-only mode. I do apologize for the inconvenience.

There is never a good time to turn the forums off for an extended period of time, but I promise the new forums will be a billion times better. I'm pretty sure of it.

See you all on the other side in a few days, and if you have any (non-technical) questions, please e-mail me at kirupa@kirupa.com. For technical questions, try to find a tutorial that corresponds to what you are looking for and post in the comments section of that page.

Cheers,
Kirupa

Results 1 to 4 of 4

Thread: uh oh ASP

  1. #1

    uh oh ASP

    ok. Im making an updating area for my bands site.

    i think something is really wrong with my code. Im a newb, so dont be TOO harsh on myy coding



    this is tha page where you log in
    Code:
     <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
    "http://www.w3.org/TR/html4/loose.dtd">
    <html>
    <head>
    <link rel="stylesheet" type="text/css" href="standard.css">
    <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
    <title>Dinkum : Admin</title>
    </head>
    <%
    method = Request.QueryString("s")
    Select Case s
    Case "badinfo"
    %>
    <table width="750" height="279" border="0">
    <tr>
    	<td width="210" valign="top"><div class="module" id="side"><img src="images/menu.gif" width="162" height="34"><br>
    		<a href="default.asp">Home</a><br>
    		<a href="news">News</a><br>
    		<a href="../street">Street Team</a><br>
    		<a href="../list">Mailing List</a><br>
    		</div></td>
    	<td width="530" valign="top"><div class="module" id="main"><strong>Error : Invalid Username or Password. <br>
    		 <br>
    	</strong>
    		<form action="logincheck.asp" method="post" name="login" id="login">
    		 <table width="163">
    		 <tr>
    			<td width="59">Username : </td>
    			<td width="92">
    			 <input name="username" type="text" id="username" size="15">
    			</td>
    		 </tr>
    		 <tr>
    			<td width="59">Password : </td>
    			<td><input name="password" type="password" id="password" size="15"></td>
    		 </tr>
    		</table>
     
    		<input name="go" type="submit" class="module" id="go" value="go">
    		</form>
    		<strong><br>
    		</strong>
    	 </div></td>
    </tr>
    </table>
    </div>
    <%
    CASE "loggedin"
    %>
    <%
    set username = Session("username")
    %>
    <table width="750" height="279" border="0">
    <tr>
    	<td width="210" valign="top"><div class="module" id="side"><img src="images/menu.gif" width="162" height="34"><br>
    		<a href="default.asp">Home</a><br>
    		<a href="news">News</a><br>
    		<a href="../street">Street Team</a><br>
    		<a href="../list">Mailing List</a><br><br>
    		<img src="images/news.gif" width="161" height="28"><br>
    		<a href="add.asp">Add a News Update</a> <br>
    		<a href="edit.asp">Edit a News Update</a><br>
    		<a href="delete.asp">Delete a News Update</a> <br>
    		</div></td>
    	<td width="530" valign="top"><div class="module" id="main"><strong>Welcome to Dinkum's Updating Control Panel, <%Response.Write ""& username &"" %>
    	 .</strong><strong><br>
    		</strong>
    	 </div></td>
    </tr>
    </table>
    </div>
     
    <%
    Case else
    %>
    <table width="750" height="279" border="0">
    <tr>
    	<td width="210" valign="top"><div class="module" id="side"><img src="images/menu.gif" width="162" height="34"><br>
    		<a href="default.asp">Home</a><br>
    		<a href="news">News</a><br>
    		<a href="../street">Street Team</a><br>
    		<a href="../list">Mailing List</a><br>
    		</div></td>
    	<td width="530" valign="top"><div class="module" id="main"><strong>Login to Dinkum's Updating Control Panel.<br>
    		 <br>
    	</strong>
    		<form action="logincheck.asp" method="post" name="login" id="login">
    		 <table width="163">
    		 <tr>
    			<td width="59">Username : </td>
    			<td width="92">
    			 <input name="username" type="text" id="username" size="15">
    			</td>
    		 </tr>
    		 <tr>
    			<td width="59">Password : </td>
    			<td><input name="password" type="password" id="password" size="15"></td>
    		 </tr>
    		</table>
     
    		<input name="go" type="submit" class="module" id="go" value="go">
    		</form>
    		<strong><br>
    		</strong>
    	 </div></td>
    </tr>
    </table>
    </div>
    <%
    end select
    %>
    </body>
    </html>

    then this is the logincheck.asp page

    Code:
    <html>
    <head>
    <%
    username = Request.Form("username")
    password = Request.Form("password")
    Set Conn = Server.CreateObject("ADODB.Connection")
    lpath = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("main.mdb")
    Conn.Open(lpath)
    set RS = Server.CreateObject("ADODB.Recordset")
    RS.Open "SELECT username, password, level FROM members WHERE username LIKE"& username &"AND password LIKE "& password &";", Conn
    If Not(RS.EOF) then 
    Session("username") = RS("username")
    Session("login") = "1"
    Session("level") = RS("level")
    Response.Redirect("default.asp?s=loggedin")
    ELSE
    Response.Redirect("default.asp?s=badinfo")
    RS.close
    set Rs = nothing
    Conn.close
    set Conn = nothing
    %>
    </head>
    <body>
    </body>
    </html>


    its probably ALL wrong.

    thanks for any help,
    -Naaman

  2. #2
    this bit is causing some problems

    Code:
    If Not(RS.EOF) then 
    Session("username") = RS("username")
    Session("login") = "1"
    Session("level") = RS("level")
    Response.Redirect("default.asp?s=loggedin")
    ELSE
    Response.Redirect("default.asp?s=badinfo")
    RS.close
    set Rs = nothing
    Conn.close
    set Conn = nothing
    it should be
    Code:
    If Not(RS.EOF) then 
    Session("username") = RS.fields.item("username")
    Session("login") = "1"
    Session("level") = RS.fields.item("level")
    if [INSERT WHATEVER FIELD UR CHECKING] then
    Response.Redirect("default.asp?s=loggedin")
    ELSE
    Response.Redirect("default.asp?s=badinfo")
    end if 
    RS.close
    set Rs = nothing
    end if
    Conn.close
    set Conn = nothing
    try that and let us know how it goes
    now with blog, click here

  3. #3
    thanks for helping me(again ) Rab.

    i tried putting in what you told me... and i got this error


    Code:
     
    
    
    Microsoft OLE DB Provider for ODBC Drivers- Error '80040e14'
    
    [Microsoft][ODBC Microsoft Access Driver] The LEVEL clause includes a reserved word or argument that is misspelled or missing, or the punctuation is incorrect. /admin/logincheck.asp, line 11
    -Naaman

  4. #4
    OK, i looked over the code as much as i can with my knowledge of asp (which isnt that much), and i didnt find anything wrong.

    Code:
     <html>
    <head>
    <%
    username = Request.Form("username")
    password = Request.Form("password")
    Set Conn = Server.CreateObject("ADODB.Connection")
    lpath =  "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("main.mdb")
    Conn.Open(lpath)
    set RS = Server.CreateObject("ADODB.Recordset")
    RS.Open "SELECT username, password, level FROM members WHERE username LIKE" & username & "AND password LIKE " & password & ";", Conn
    If Not(RS.EOF) then 
    Session("username") = RS.fields.item("username")
    Session("login") = 1
    Session("level") = RS.fields.item("level")
    if Session("login") = 1 AND Session("level") >1 then
    Response.Redirect("default.asp?s=loggedin")
    ELSE
    Response.Redirect("default.asp?s=badinfo")
    end if 
    RS.close
    set Rs = nothing
    end if
    Conn.close
    set Conn = nothing
    %>
    </head>
    <body>
    </body>
    </html>
    im stumped

    -Naaman

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Home About kirupa.com Meet the Moderators Advertise

 Link to Us

 Credits

Copyright 1999 - 2012