session variable και select

session variable και select

Από {annpapad}

Γεια σας. Εχω το εξης πρόβλημα:
Κάνω σε μια σελίδα login και κρατάω το email που δίνει ο χρήστης σε μια μεταβλητή session ωστε να τη χρησιμοποιήσω και σε επόμενη σελίδα για να κάνει update των στοιχείων που έχει δώσει στην registration form. Δεν μπορώ να βάλω τη μεταβλητή sesssion μέσα σε μια select? Στέλνω και τον κώδικα.

<%
Dim adoCon 'Holds the Database Connection Object
Dim rsGuestbook 'Holds the recordset for the record to be updated
Dim strSQL 'Holds the SQL query for the database
Dim lngRecordNo 'Holds the record number to be updated

'Read in the record number to be updated
email = Session( "user" )

'Create an ADO connection odject
Set adoCon = Server.CreateObject("ADODB.Connection")

adoCon.Open "DSN=cinema"

'Create an ADO recordset object
Set rsGuestbook = Server.CreateObject("ADODB.Recordset")

strSQL = "SELECT registered_users.* FROM registered_users WHERE email=" & email

'Open the recordset with the SQL query
rsGuestbook.Open strSQL, adoCon
%>


View My Details



















































Name & Address Email & Password  
Last Name:
" >
Email Address:
" >
First Name: " > Password: " >
Address: " > Verify Password: " >
Postcode: " >    
Home Tel Number: " >    
Mobile Number: " >    
     









">




 









 



























 









 


 



<%
rsGuestbook.Close
Set rsGuestbook = Nothing
Set adoCon = Nothing
%>



Βγάζει λάθος στη σειρά : rsGuestbook.Open strSQL, adoCon

Ξέρει κανείς?

  1. 26/8/2004

    Νομίζω πως το πρόβλημα είναι δύο γραμμές πιο πάνω και συγκεκριμένα στη γραμμή:

    strSQL = "SELECT registered_users.* FROM registered_users WHERE email=" & email

    Πρέπει η ερώτηση στη βάση σου να είναι όλη μέσα στα " καθώς επίσης και η ίδια η μεταβλητή. Για τη μεταβλητή νομίζω επειδή είναι συμβολοσειρά πρέπει να υπάρχει μέσα σε " και πιο έξω να έχεις '.
    Άρα νομίζω πως πρέπει να γράψεις:

    strSQL = "SELECT registered_users.* FROM registered_users WHERE email= ' "& email" ' "

    Πες μου αν δούλεψε, ελπίζω να σε βοήθησα.




   Πίσω στην προηγούμενη σελίδα