Τι βάση δεδομένων έχεις;
Σε τι γλώσσσα θέλεις να είναι το πρόγραμμα;

Σε VBScript . Η Βάση δεδομένων σε ACCESS. Εχω ήδη δημιουργήσει το login αλλα δεν μπορώ να κάνω τον έλεγχο για το ΑΕΜ των μαθητών.

Apories mou prin sou proteinw kati,gia na sigourepsw oti 8a se voi8isw kai den 8a se xantakwsw.
Xmxmmxmxm ti einai to AEM?
Apo apopsh ASP programmatismou ksereis tipota?Dhladh an xreiastei mesa stous elegxous ths ASP gia na ginei to login,xreiastei na pros8eseis "xeirokinhta" ton elegxo autou tou AEM pou anafereis, 8a eisai se 8esh na to valeis?

Elpizw na voi8isa,
Euxaristw

To AEM έιναι ο Αριθμός μητρωου των μαθητών.Τώρα μαθάινω ASP και η εργασία αυτή που έχω είναι για την Πτυχιακή μου.Βρήκα ένα παράδειγμα login στο Internet και εκεί πάνω έκανα κάποιες τροποποιήσεις. Απλά τώρα δεν μπορώ να κάνω αυτόν έλεγχο για το ΑΕΜ.

Ο κώδικας είναι αυτός:


'Save entered username and password
Username = Request.Form("txtUsername")
Password = Request.Form("txtPassword")
Password2 = Request.Form("txtPassword2")

Firstname = Request.Form("txtFirstname")
Lastname = Request.Form("txtLastname")
AEM = Request.Form("txtAEM")
EmailAddress=Request.Form("txtEmailAddress")


'check if password not match with password2

if Password <> Password2 Then

Response.Redirect("login.asp?login=pass2failed")
end if




'Check if username and password are entered
if Username = "" then Response.redirect("login.asp?login=createnamefailed")
if Password = "" then Response.Redirect("login.asp?login=createpassfailed")
if FirstName = "" then Response.Redirect("login.asp?login=createfnamefailed")
if LastName = "" then Response.Redirect("login.asp?login=createlnamefailed")
if AEM = "" then Response.Redirect("login.asp?login=createaemfailed")

'Build connection
set conn = server.CreateObject ("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath ("users.mdb")
set rs = server.CreateObject ("ADODB.Recordset")
'Open all records
rs.Open "SELECT * FROM userlist", conn, 3, 3

'Check if username doesn't already exist
do while not rs.EOF
if rs("username")=Username then
set rs=nothing
set conn=nothing
Response.Redirect("login.asp?login=createnamefailed")
end if
rs.MoveNext
loop
/ΚΑΠΟΥ ΕΔΩ ΘΑ ΠΡΕΠΕΙ ΝΑ ΓΙΝΕΙ Ο ΕΛΕΓΧΟΣ ΓΙΑ ΤΟ ΑΕΜ , ΑΛΛΑ ΘΑ ΠΡΕΠΕΙ ΝΑ ΑΝΟΙΞΩ ΤΟΝ ΑΛΛΟ ΠΙΝΑΚΑ STUDENTS ΟΠΟΥ ΘΑ ΕΙΝΑΙ ΚΑΤΑΧΩΡΗΜΕΝΟΙ ΟΙ ΜΑΘΗΤΕΣ ΚΑΙ ΑΝ ΤΟ ΑΕΜ ΠΟΥ ΕΙΝΑΙ ΚΑΤΑΧΩΡΗΜΕΝΟ ΜΕΣΑ ΣΤΟΝ ΠΙΝΑΚΑ ΔΕΝ ΕΙΝΑΙ ΙΔΙΟ ΜΕ ΑΥΤΟ ΠΟΥ ΠΛΗΚΤΡΟΛΟΓΕΙ Ο ΧΡΗΣΤΗΣ , ΤΟΤΕ ΝΑ ΜΗΝ ΚΑΝΕΙ REGISTER.
'Add a record
rs.AddNew


'Put username and password in record
rs("username")=Username
rs("password")=Password
rs("firstname")=Firstname
rs("lastname")=Lastname
rs("aem")=AEM



'Save record
rs.Update


set rs=nothing
set conn=nothing

Response.Redirect("login.asp?login=creatednew")


%>

ελπίζω να είναι αυτό που θες
----------------------------------------

'Build connection
set conn = server.CreateObject ("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath ("users.mdb")

set rsa = server.CreateObject ("ADODB.Recordset")
'Open all records
rsa.Open "SELECT * FROM userlist", conn, 3, 3

'Check if username doesn't already exist
do while not rsa.EOF
if rsa("username")=Username then
flag_a=true
else
flag_a=false
end if
rsa.MoveNext
loop

if flag_a=true then
set rsa=nothing
Response.Redirect("login.asp?login=createnamefailed")
else
set rsb = server.CreateObject ("ADODB.Recordset")
'Open all records
rsb.Open "SELECT * FROM students", conn, 3, 3

'Check if AEM doesn't already exist
do while not rsb.EOF
if rsb("aem")=AEM then
flag_b=true
else
flag_b=false
end if
rsb.MoveNext
loop
set rsb=nothing

if flag_b=true then
Response.Redirect("login.asp?login=createnamefailed")
else
'Add a record
rsa.AddNew
'Put username and password in record
rsa("username")=Username
rsa("password")=Password
rsa("firstname")=Firstname
rsa("lastname")=Lastname
rsa("aem")=AEM
'Save record
rsa.Update
set rsa=nothing
Response.Redirect("login.asp?login=creatednew")
end if
end if

set conn=nothing

Ευχαριστώ πολύ , με βοήθησε αρκετά

Το πρόβλημα τώρα είναι ότι δημιουργεί λογαριασμό σε όλους τους χρήστες ακόμα και σε αυτούς που το ΑΕΜ τους δεν είναι καταχωρημένο στον πίνακα students.

Το πρόβλημα στον παρακάτω κώδικα που μου έγραψες :

'Build connection
set conn = server.CreateObject ("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath ("users.mdb")

set rsa = server.CreateObject ("ADODB.Recordset")
'Open all records
rsa.Open "SELECT * FROM userlist", conn, 3, 3

'Check if username doesn't already exist
do while not rsa.EOF
if rsa("username")=Username then
flag_a=true
else
flag_a=false
end if
rsa.MoveNext
loop

if flag_a=true then
set rsa=nothing
Response.Redirect("login.asp?login=createnamefailed")
else
set rsb = server.CreateObject ("ADODB.Recordset")
'Open all records
rsb.Open "SELECT * FROM students", conn, 3, 3
/ΕΔΩ ΠΟΥ ΓΙΝΕΤΕ Ο ΕΛΕΓΧΟΣ ΓΙΑ ΤΟ ΑΕΜ ΘΑ ΠΡΕΠΕΙ ΝΑ ΔΕΧΕΤΕ ΜΟΝΟ ΤΟΥΣ ΧΡΗΣΤΕ ΠΟΥ ΕΙΝΑΙ ΚΑΤΑΧΩΡΗΜΕΝΟΙ ΜΕΣΑ ΣΤΟΝ ΠΙΝΑΚΑ students.ΔΗΛΑΔΗ ΑΥΤΟΥΣ ΠΟΥ ΤΟ ΑΕΜ ΠΟΥ ΔΙΝΟΥΝ ΟΤΑΝ ΚΑΝΟΥΝ REGISTER ΕΙΝΑΙ ΙΔΙΟ ΜΕ ΑΥΤΟ ΠΟΥ ΕΙΝΑΙ ΜΕΣΑ ΣΤΟΝ ΠΙΝΑΚΑ STUDENTS.ΚΑΙ ΜΕΤΑ ΑΦΟΥ ΤΟ ΑΕΜ ΣΥΜΦΩΝΕΙ ΝΑ ΓΙΝΕΤΕ ΚΑΙ Η ΚΑΤΑΧΩΡΗΣΗ ΣΤΟΝ ΠΙΝΑΚΑ USERLIST.
'Check if AEM doesn't already exist
do while not rsb.EOF
if rsb("aem")=AEM then
flag_b=true
else
flag_b=false
end if
rsb.MoveNext
loop
set rsb=nothing

if flag_b=true then
Response.Redirect("login.asp?login=createnamefailed")
else
'Add a record
rsa.AddNew
'Put username and password in record
rsa("username")=Username
rsa("password")=Password
rsa("firstname")=Firstname
rsa("lastname")=Lastname
rsa("aem")=AEM
'Save record
rsa.Update
set rsa=nothing
Response.Redirect("login.asp?login=creatednew")
end if
end if

set conn=nothing

ΚΑΜΙΑ ΙΔΕΑ?