Help with a script please

Tim356 · #1 Apr 9th, 2004, 07:24

Ok, I've been playing around with asp trying to create a user management site, just mucking around. I've been able to create the login and sign up pages, and everything works fine. Now I'm trying to create an admin section. I've included a field in the database to show whether a user is an admin or not and I have created the following code. Members must be logged in to view the page, and admins are redirected to another page of their own, admin.asp

Code: Select all

<%
Dim ConnectString, conn, rsAdmin

if Session("username") = "" then
  Response.Redirect("nologin.asp?page=membersonly.asp")
end if

ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/siteusers.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnectString

sql = "SELECT admin FROM Users WHERE username = '" & username & "'"
Set rsAdmin = Server.CreateObject("ADODB.Recordset")
rsAdmin.Open sql, conn, 3, 3 

if rsAdmin("admin")=1 then
 Reponse.Redirect("admin.asp")
else

%>
<html>
<head>
<title>Members only page</title>
</head>
<body bgcolor="#FFFFFF" link="#DD0000" vlink="#DD0000" alink="#000000">
<font face="arial,helvetica" size=2>

<h2>Members only page</h2>


Back to the home page</p>

</font>
</body>
</html> 

<%
end if

rsAdmin.close
set rsAdmin = nothing
conn.close
set conn = nothing

%>

But, I'm getting the error:

Error Type:
(0x80020009)
Exception occurred.
/membersonly.asp, line 16

but what is wrong with line 16?? What is the exception?

any help would be greatly appreciated.

Rob · #2 Apr 9th, 2004, 09:45

Try using this:-

Code: Select all

if cInt(rsAdmin("admin")) = 1 then

If this works, then it is because you are comparing an integer to a variant / string.

If this does not work, then post back along with a schema for the table including field types.

Cheers

Rob · #3 Apr 9th, 2004, 09:47

Actually.... it may be because you don't have a record...

Try this too:-

Code: Select all

sql = "SELECT admin FROM Users WHERE username = '" & session("username") & "'"

Tim356 · #4 Apr 10th, 2004, 01:08

of course...

I've just added at the top of the script:

Code: Select all

username = Session("username")

but now I get this error:

Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required: 'Reponse'
/secure/membersonly.asp, line 19

line 19 is
Response.Redirect("admin.asp")

I don't understand it. Sorry if these are really obvious mistakes, I'm learning...

Webforumz Staff · #5 Apr 10th, 2004, 02:51

'Reponse'

from that I'd say you have Reponse.Redirect on line 19 instead of Response.Redirect

Rob · #6 Apr 10th, 2004, 07:31

yes.... lol I do that all the time.... easy done.

Tim356 · #7 Apr 10th, 2004, 08:23

doh!

How stupid of me...I feel really embarrassed now.

Thanks guys! I'll read my script more carefully next time!

Tim356 · #8 Apr 10th, 2004, 08:26

That fixed it. Now I can get on with the admin's page. Thanks guys!

courtjester · #9 Apr 10th, 2004, 08:59

don't feel stupid Tim356 ... im still having problems with my log-in script, hahaha... I can get it to connect but not to check the passwords. Well, I will keep at it till I get it.

Tim356 · #10 Apr 10th, 2004, 10:14

Well, keep at it.

Now I'm having problems with adding stuff to my database... I'm just testing it by creating a simple forum type thing, but only for members, where they enter comments and then it displays all comments posted. I'm trying to set it up so that it automatically adds to the database which user is posting, but do you think I can?? It's ****ting me, cause I know it's simple, but I'm doing heaps of things wrong...

very frustrating, but I'll keep going...

Rob · #11 Apr 10th, 2004, 13:42

well.... post back if you get stuck!

Tim356 · #12 Apr 10th, 2004, 14:57

Thanks Rob, your help (everyone's help for that matter) is appreciated!

Webforumz Staff · #13 Apr 11th, 2004, 06:15

I guess I'd say try a cookie. You could always look at any of the free tag-board scripts out there and see how they do it to get ideas too.

courtjester · #14 Apr 11th, 2004, 07:08

only problem with cookies is that most people's browsers do not accept them. Actually, JavaScript AND VBScript can be disabled too.. Thats so sad.

Tim356 · #15 Apr 11th, 2004, 08:45

I'm still working out cookies...

Rob · #16 Apr 11th, 2004, 18:00

<blockquote id="quote"><font size="1" face="geneva, verdana, arial" id="quote">quote:<hr height="1" noshade id="quote">only problem with cookies is that most people's browsers do not accept them<hr height="1" noshade id="quote"></blockquote id="quote"></font id="quote"> Most browsers? Really Court Jester... you ought to check you facts. Nearly all browsers accept them, and nearly everyone has them enabled.

I've told you a thousand times not to exaggerate.

courtjester · #17 Apr 11th, 2004, 20:02

Really now? Hrmm.. Not what I have been reading up lately. Actually Most browsers don't accept them.. The default setting in Internet Explorer is to not accept cookies from most websites... and I know like 50% of the people using the net don't even know how to change thier settings... So At least 50% of them won't accept cookies... probably more, which makes it most people :wink:.

Now if you accept the websites privicy policy, or you accept their security settings, then yes you will be able to use cookies on that website witht the default settings of Internet explorer...

Code: Select all

Cookies or cookieless ? 
I just have a look at some stats on one of my project and I discovered that more than 53 % of the users of this website are still blocking cookies.

February 10th 2004

D3mon · #18 Apr 11th, 2004, 21:15

Did you know that 84% of statistics are made-up?

courtjester · #19 Apr 12th, 2004, 04:05

Sure they are D3mon.. I don't know about you, I am sure you make up yours, but mine aren't made up... they are cold hard facts.. Did you know that when people try to talk against statistics without any content they look unintellegint?

Webforumz Staff · #20 Apr 12th, 2004, 05:18

:wink: Why is it when people spell 'unintellegint' they come of looking unintelligent? :wink:

		Webforumz.com > Main Forums > Program Your Website > Classic ASP
Help with a script please