Re: Access trouble..

"Dan" wrote in message
news:11158fto8e7h0aa@corp.supernews.com...
> Can't seem to see what I'm doing wrong here..
>
> I have attached the three files that I am using... When i run
> default.asp in ie, i get the message
>
> ---------------------------------------------------
> Microsoft JET Database Engine (0x80040E10)
> No value given for one or more required parameters.
> /Phone/admin/login.inc, line 16
> ---------------------------------------------------
>
> I cant seem to figure out what i broke... I had this working before..
> Please note that strConnString is defined in adoArgs.inc not login.inc.
>
> I am new to asp, so I'm having trouble figuring out who to troubleshoot
> this. I usually use perl. In that case I would have it print out the
> variables in question then exit before the place were it brakes.. How
> can i do this in asp?? specifically how can i get it to exit before the
> error occurs??
>
>
> Thank you
>


------------------------------------------------------------ ----------------
----


> <%
>
>
>
> if len(session("user")) >0 or len(session("pass")) > 0 then
>
> ' identify data source
> Set DBConn = Server.CreateObject("ADODB.Connection")
> DBConn.Open strConnString
>
> 'Setup the recordset object & make sql statement
> Set rstListing = Server.CreateObject("ADODB.Recordset")
> strSQL = "SELECT Name,passwd,AlterAdmin FROM Admins WHERE login = '" &
session("user") & "' and passwd = '" & session("pass") & "';"
> 'response.write(strSQL)
>
> rstListing.Open strSQL, DBConn,adOpenForwardOnly,adLockReadOnly
>
> if rstlisting.BOF or rstlisting.EOF then
> session("LoggedIn") = "FAIL"
> else
> if session("pass") = rstlisting("passwd") then
> session("LoggedIn") = "YES"
> session("alteradmin") = rstlisting("AlterAdmin")
> else
> session("LoggedIn") = "FAIL"
> end if
> end if
>
>
> else
> session("LoggedIn")="NO"
> end if
>
>
>
> %>


------------------------------------------------------------ ----------------
----


> <%@ Language=VBScript %>
> <% ' PHONE BOOK ADMIN PAGE
>
>
> if session("LoggedIn") = "YES" then
> session.Abandon
> ' This is needed. with this removed the login page will
> ' allow you to login no matter what you have typed in
> ' if someone else has had a valid session.
> end if
>
> session("user")=request.form("user")
> session("pass")=request.form("pass")
>
> %>
>
>
> <%
> if session("LoggedIn") = "YES" then
> ' A new login.
> Response.Redirect("main.asp")
> end if
> %>
>
>
>
>
>
>
>
>
>
>

border="0">
height="57" border="0">		height="24">							height="57" border="0">
		border="0">
border="0">	border="0" cellspacing="0" cellpadding="0"> > > > > <% if session("LoggedIn") = "FAIL" then > Response.Write("") > session.Abandon > else > 'Response.Write("LOG=" & session("LoggedIn")) > end if > %> > Please login to access the Administration panel INVALID USERNAME OR PASSWORD! >   > > cellspacing="0"> > > > > > > > > > > > > > > Username: > " /> > Password: > > > > > > > >									border="0">
	border="0">