DaniWeb Forum Index > Web Development > ASP

Need help with Login/Database

Please support our ASP advertiser: PostgreSQL or MySQL? Compare and contrast the two most popular open source databases

•

Join Date: Dec 2007

Posts: 2

Reputation: hoasabi is an unknown quantity at this point

Solved Threads: 0

hoasabi

Offline

Newbie Poster

Need help with Login/Database

Dec 3rd, 2007

Hi, I need some help with ASP. I''m only familiar with the language but now I have to do project.

I have 3 pages: login.asp, login_script.asp and admin.asp and i'm using access database

When the user logs into the login.asp page, it checks the database to see if that username and password exist, if so, the forms sends it to the login_script.asp and redirect to admin.asp.

Well my script seems to stalled at login_script.asp and refuses to redirect to admin.asp. Like it never gets pass that point. Can someone please help me? Thanks for your time!

database: tnt.mdb, table: user
Fields: loginType, usersname, password, loginType, Company, status

login.asp

 Help with Code Tags 
 ASP Syntax (Toggle Plain Text) 
<form name="form1" method="post" action="login_script.asp">
           <table width="100%"  border="0" cellspacing="0" cellpadding="5">
               <tr>
                 <td align="right">Username:</td>
                 <td width="439"><input name="username" type="text" class="field" id="username"></td>
               </tr>
               <tr>
                 <td align="right">Password:</td>
                 <td><input name="Password" type="password" class="field" id="Password"></td>
               </tr>
               <tr>
                 <td align="right">&nbsp;</td>
                 <td><input type="submit" name="Submit" value="Submit">
                 <input type="reset" name="Submit2" value="Reset"></td>
               </tr>
           </table>
         </form>
<form name="form1" method="post" action="login_script.asp">
           <table width="100%"  border="0" cellspacing="0" cellpadding="5">
               <tr>
                 <td align="right">Username:</td>
                 <td width="439"><input name="username" type="text" class="field" id="username"></td>
               </tr>
               <tr>
                 <td align="right">Password:</td>
                 <td><input name="Password" type="password" class="field" id="Password"></td>
               </tr>
               <tr>
                 <td align="right">&nbsp;</td>
                 <td><input type="submit" name="Submit" value="Submit">
                 <input type="reset" name="Submit2" value="Reset"></td>
               </tr>
           </table>
         </form>

the login_script.asp code:

 Help with Code Tags 
 ASP Syntax (Toggle Plain Text) 
<%
usersname=request.form("Usersname")
password=request.form("Password")
 
If Request.Form("username") = "" AND Request.Form("password") = "admin" Then
Session("loggedIn") = True
Response.Redirect "admin.asp"
 
end if
%>
<%
usersname=request.form("Usersname")
password=request.form("Password")

If Request.Form("username") = "" AND Request.Form("password") = "admin" Then
Session("loggedIn") = True
Response.Redirect "admin.asp"

end if
%>

admin.asp

 Help with Code Tags 
 ASP Syntax (Toggle Plain Text) 
 
<!--#include virtual="connection.asp"-->
<%
if session("loggedin") <> "admin" then
	 response.redirect "login_admin.asp"
end if
%>
 
<!--#include virtual="connection.asp"-->
<%
if session("loggedin") <> "admin" then
	 response.redirect "login_admin.asp"
end if
%>

the connection.asp

 Help with Code Tags 
 ASP Syntax (Toggle Plain Text) 
<%
'Create an ADO connection object
Set adoCon = Server.CreateObject("ADODB.Connection")
 
'Set an active connection to the Connection object using a DSN-less connection
adoCon.Mode = 3
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=c:\Inetpub\wwwroot\vmSight\database\tnt.mdb"
%>
<%
'Create an ADO connection object
Set adoCon = Server.CreateObject("ADODB.Connection")

'Set an active connection to the Connection object using a DSN-less connection
adoCon.Mode = 3
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=c:\Inetpub\wwwroot\vmSight\database\tnt.mdb"
%>