adding to database

benbacardi · #1 Aug 13th, 2004, 08:44

can someone tell me (in simple terms!!) how to add a password (pwd) and a username (uid) to a database?

Smokie · #2 Aug 13th, 2004, 11:16

Set objRS = objConn.Execute("INSERT INTO table (username,password) VALUES ('admin','secret')")

benbacardi · #3 Aug 13th, 2004, 15:47

thanks... is that it?! seems so simple...

benbacardi · #4 Aug 13th, 2004, 15:59

it says:

Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required: 'objConn'
/login/slog/regcheck.asp, line 56

any ideas?

fluff · #5 Aug 16th, 2004, 08:21

there is a tutorial at www.webthang.co.uk, (select dreamweaver tutorials) the tutorials here are really easy to follow step by step, the way I need them.

Smokie · #6 Aug 16th, 2004, 08:33

objConn should be the name of your connection object.

benbacardi · #7 Aug 16th, 2004, 11:32

it is, i put the exact code you showed me... but it doesn't like it for some reason...

Smokie · #8 Aug 16th, 2004, 11:55

can you post the code for your asp page so i can take a look?

benbacardi · #9 Aug 16th, 2004, 12:04

will do as soon as I get home!

benbacardi · #10 Aug 16th, 2004, 17:37

heres the code: index.asp posts the data to check.asp:

check.asp:

Code: Select all

<%
'here is the connection string
Set conn = server.createobject("adodb.connection")
'this connection uses JET 4 it is the prefered method of connecting to an access database
DSNtemp = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("login.mdb")
'if you cant use JET then comment out the line above and uncomment the line below
'DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("/slog/login.mdb")
conn.Open DSNtemp

'here we are getting the info from the login form
If InStr(Request.Form("uid"),"'") Then
uid = Replace(Request.Form("uid"),"'"," ")
Else
uid = Request.Form("uid")
End If
If InStr(Request.Form("pwd"),"'") Then
pwd = Replace(Request.Form("pwd"),"'"," ")
Else
pwd = Request.Form("pwd")
End If
If InStr(Request.Form("pwd2"),"'") Then
pwd2 = Replace(Request.Form("pwd2"),"'"," ")
Else
pwd2 = Request.Form("pwd2")
End If

If uid = "" or pwd = "" or pwd2 = "" Then
response.redirect("all.asp")
end if

'now we will querry the database for a match
SQL = "Select * From users Where uid = '" & uid & "' And pwd = '" & pwd & "'"
Set RS = Conn.Execute(SQL)

'if the user is found we will redirect the user to the already found username page
If Not RS.EOF Then
 response.redirect("used.asp")
	
	'always always always destroy recordsets and close connections!
	Set RS = Nothing
	Conn.Close


Else

if pwd = pwd2 then


Set objRS = objConn.Execute("INSERT INTO users (uid,pwd) VALUES (uid,pwd)"
)
response.redirect("welcome.asp") 
Set objRS = Nothing
objConn.Close

else
response.redirect("checkpwd.asp")
end if
 
   
   	'AGAIN always always always destroy recordsets and close connections!
	Set RS = Nothing
	Conn.Close
  
End If
%>

thanks

Rob · #11 Aug 16th, 2004, 19:11

Change this code:-

Code: Select all

Set objRS = objConn.Execute("INSERT INTO users (uid,pwd) VALUES (uid,pwd)"
)
response.redirect("welcome.asp") 
Set objRS = Nothing
objConn.Close

to this:-

Code: Select all

Set objRS = Conn.Execute("INSERT INTO users (uid,pwd) VALUES (uid,pwd)"
)
response.redirect("welcome.asp") 
Set objRS = Nothing
objConn.Close

benbacardi · #12 Aug 16th, 2004, 19:55

i get this problem now...

check.asp:

Code: Select all

<%
'here is the connection string
Set conn = server.createobject("adodb.connection")
'this connection uses JET 4 it is the prefered method of connecting to an access database
DSNtemp = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("login.mdb")
'if you cant use JET then comment out the line above and uncomment the line below
'DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("/slog/login.mdb")
conn.Open DSNtemp

'here we are getting the info from the login form
If InStr(Request.Form("uid"),"'") Then
user = Replace(Request.Form("uid"),"'"," ")
Else
user = Request.Form("uid")
End If
If InStr(Request.Form("pwd"),"'") Then
pword = Replace(Request.Form("pwd"),"'"," ")
Else
pword = Request.Form("pwd")
End If
If InStr(Request.Form("pwd2"),"'") Then
pword2 = Replace(Request.Form("pwd2"),"'"," ")
Else
pword2 = Request.Form("pwd2")
End If

If user = "" or pword = "" or pword2 = "" Then
response.redirect("all.asp")
end if

'now we will querry the database for a match
SQL = "Select * From users Where uid = '" & user & "' And pwd = '" & pword & "'"
Set RS = Conn.Execute(SQL)

'if the user is found we will redirect the user to the already found username page
If Not RS.EOF Then
 response.redirect("used.asp")
	
	'always always always destroy recordsets and close connections!
	Set RS = Nothing
	Conn.Close


Else

if pword = pword2 then

Set objRS = Conn.Execute("INSERT INTO users (uid,pwd) VALUES (user,pword)")
response.redirect("welcome.asp") 
Set objRS = Nothing
objConn.Close

else
response.redirect("checkpwd.asp")
end if
 
   
   	'AGAIN always always always destroy recordsets and close connections!
	Set RS = Nothing
	Conn.Close
  
End If
%>

error:

Error Type:
Microsoft JET Database Engine (0x80040E10)
No value given for one or more required parameters.
/login/slog/regcheck.asp, line 48

ideas?!

Smokie · #13 Aug 17th, 2004, 08:07

Ben, A good way to find out which parameter is missing (or is incorrect) is to write out the SQL query to the screen, like this:

Code: Select all

SQL = "Select * From users Where uid = '" & user & "' And pwd = '" & pword & "'"
Response.Write SQL
Set RS = Conn.Execute(SQL)

That will show you the actual query that is being send to MS Acces. If you cant see the problem from that, then open up Access, click on the Queries tab, create and new query, in the top left, select SQL instead of design view, paste in the query which you have Response.Write to the screen, and click the execute button, Access should then prompt you for the missing parameter or highlight the problem for.

Hope that helps!

benbacardi · #14 Aug 17th, 2004, 18:55

nothings working... all the values ARE there

Smokie · #15 Aug 18th, 2004, 08:22

So when you response.write SQL it looks fine?

benbacardi · #16 Aug 18th, 2004, 11:36

yea it looks as it should

Smokie · #17 Aug 18th, 2004, 12:04

and what error message are you getting now?

benbacardi · #18 Aug 18th, 2004, 12:28

same one...

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Adding a new page	crackafaza	PHP Forum	7	Feb 8th, 2008 22:08
Adding quizzes	hawashp	Web Page Design	12	Oct 5th, 2007 12:04
Adding a calendar?	Stefan83	Website Planning	1	May 8th, 2007 19:18
XML Code for transfering data from one SQL Server Database to another database	plolla	Other Programming Languages	1	Aug 3rd, 2006 18:37
Adding RETURN line breaks to a database	Lizard-	Classic ASP	2	Aug 19th, 2004 09:49

		Webforumz.com > Main Forums > Program Your Website > Classic ASP
adding to database