Using input field for Query to db

streborr · Jan 16, 2002

I'm trying to set up a login page to verify username and password thru a table in a database, if the the username and password are valid I want to send the user to a page that will show information from a database based on what group they're in.
Fields in Table:
user_login_ID, user_name, user_pass, user_group, etc...

Here's my code:
The input fields are from the login page.
and sent to this page.
<body>
<INPUT TYPE="text" NAME="ID" value="<% =Request.Form("login&quot

%>" size="20"></INPUT>
<INPUT TYPE="text" NAME="pword" value="<% =Request.Form("password&quot

%>" size="20"></INPUT>

<%
Set fp_conn = Server.CreateObject("ADODB.Connection&quot

Set fp_rs = Server.CreateObject("ADODB.Recordset&quot

fp_conn.Open Application("leadinput1_ConnectionString&quot

fp_rs.Open "Select * From tblUser Where user_login_ID = '" & Request.Form("login&quot

& "' AND user_pass = '" & Request.Form("password&quot

& "'", fp_conn, 1, 3, 1
%>
<-- this is here just to see if data can be pulled from the DB. -->
<%=FP_FieldVal(fp_rs,"user_group&quot

%>

<%Set fp_conn = nothing%>
<%Set fp_rs = nothing%>
</body>
</html>

Here's the error I received:

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'FP_FieldVal'

/members/leadinput1_interface/Results/editor/users/user_login.asp, line 21

Why wont it return the group that this user belongs to?

krappleby025 · Jan 17, 2002

ok, i dont know the problem with the above, but here is the same script to do the same thing, in pure html... P.S this script assumes that you are using access, and that the input fields, are password, and name

**********************************************************

<%
Dim username, password
username=request.form("user&quot

password=request.form("pass&quot

if username="" or password="" then
%>
< form method="post" action="(name of this page)">
<BR>Login ID :<input type="text" name="user" >
<BR>Password :<input type="password" name="pass" >
<BR><input type="submit" value="submit" Name="Continue">
</Form>
<%
Else
dim con, query
Set con = server.Createobject( "ADODB.Connection" )
Con.Open( "DRIVER={Microsoft Access driver (*.mdb)}; DBQ=" & server.MapPath("(place the path of the database here)ie fpdb/laws.mdb" ) )
query=con.execute("SELECT * FROM table WHERE user_login_ID=" & username )
if password = query("user_pass&quot

Then
response.redirect ("" & user_group)
Else
response.redirect (" (page that is the error page) &quot

end if
end if
con.close
set con = nothing
%>

********************************************

please note that you will need to add some info the this line

response.redirect ("" & user_group)

if the webpage you want to redirect to is set up as the goup, ie group/1/ or group/2/ 1 or 2 being the group, then you will need to do the following

response.redirect ("group/" & user_group)

Hope that helps,. if you have a problem contact me

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Using input field for Query to db

streborr

IS-IT--Management

krappleby025

Programmer

Similar threads

Part and Inventory Search

Sponsor