adding to database

[benbacardi]

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

[Smokie]

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

[benbacardi]

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

[benbacardi]

it says:

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

any ideas?

[fluff]

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]

objConn should be the name of your connection object.

[benbacardi]

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

[Smokie]

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

[benbacardi]

will do as soon as I get home!

[benbacardi]

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]

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]

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]

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]

nothings working... all the values ARE there

[Smokie]

So when you response.write SQL it looks fine?

[benbacardi]

yea it looks as it should

[Smokie]

and what error message are you getting now?

[benbacardi]

same one...