Pagina 1 di 2 1 2 ultimoultimo
Visualizzazione dei risultati da 1 a 10 su 14

Discussione: Visualizzazione

  1. #1

    Visualizzazione

    Salve ho personalizzato delle pagine del mio sito per ogni utente in modo ke cn login e pwdpossono accedere alla loro pagina personale e rispettive opzioni.
    Ma come posso fare a estrarre dal database solo il la id ke riguarda l'utente interessato?
    Avevo provato ad estrarre l'id quando l'utente effetuava il login ma nn m va bene.
    Sareste gentilissimi ad aiutarmi.
    Grazie!

    Questo è lo script per controllare il login in cui ho estratto l'id dell'utente dal database:
    -------------------------------------------------------------------
    dim nick
    dim pwd
    dim url

    nick=replace(request.form("form_user"),"'","''")
    pwd=replace(request.form("form_password"),"'","''" )
    url=request.form("form_url")

    Dim Conn
    Set Conn = Server.CreateObject("ADODB.Connection")
    conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/incidentate.mdb")
    Set rs = Server.CreateObject("ADODB.Recordset")

    qry = "Select * from incidentate Where ((nick='"
    qry = qry & nick & "') AND (pwd='"
    qry = qry & pwd & "'));"

    rs.ActiveConnection = conn
    rs.CursorLocation = 2
    rs.Open qry

    dim id1
    id1=rs("id")

    Response.Expires=0

    if rs.EOF then
    response.redirect("check_out.asp")
    else
    session("registrato")="sicuro"

    rs.close
    set rs = nothing
    conn.close
    set conn = nothing
    response.redirect(url)
    end if
    -------------------------------------------------------------------
    Questo invece è lo script della pagina personale dell'utente in cui l'errore.
    -------------------------------------------------------------------
    if session("registrato") <> "sicuro" then
    response.redirect("validate.asp?url=index.asp")
    else

    Dim id1
    id1=request.querystring("id")

    Dim Conn
    Set Conn = Server.CreateObject("ADODB.Connection")
    conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/incidentate.mdb")
    Dim rs
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.Open "select * from incidentate where id="&id1, conn
    Do while NOT RS.EOF

    'varie varibili...

    RS.MoveNext
    Loop
    RS.Close
    Set RS = Nothing
    conn.Close
    Set conn=Nothing
    -------------------------------------------------------------------
    Dice che:
    Syntax error (missing operator) in query expression 'id ='

  2. #2
    Utente bannato
    Registrato dal
    Jun 2004
    Messaggi
    1,854
    personalmente non la aprirei cosi cmq:

    rs.Open "select * from incidentate where id= & id1 & " , conn

  3. #3
    rs.Open "select * from incidentate where id =" & id1 & "" , conn
    E' nato www.lombardiamotori.it

    www.universocase.it: il primo portale italiano di annunci immobiliari gratuiti e autogestiti!

  4. #4
    Utente bannato
    Registrato dal
    Jun 2004
    Messaggi
    1,854
    si pardon
    dimenticai le virgolette

  5. #5
    Capita....

    E' nato www.lombardiamotori.it

    www.universocase.it: il primo portale italiano di annunci immobiliari gratuiti e autogestiti!

  6. #6
    Ho fatto come avete detto ma mi da questo errore:

    -----------------------------------------------------------------
    Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

    [Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'id='.

    /admin_user/index.asp, line 16
    -----------------------------------------------------------------

    Cosa può essere?

  7. #7
    La variabile "id1" non è valorizzata. Per verificarlo, prima di eseguire la query (cioè appena sopra la riga rs.Open ecc. ecc.), fatti stampare il contenuto della variabile in questo modo:

    response.write("ID1 vale "&id1):response.end
    Lo script si bloccherà dopo la stampa e tu potrai controllare e sistemare.
    E' nato www.lombardiamotori.it

    www.universocase.it: il primo portale italiano di annunci immobiliari gratuiti e autogestiti!

  8. #8
    Non mi scrive nessun valore della variabile. Niente.

  9. #9
    Utente bannato
    Registrato dal
    Jun 2004
    Messaggi
    1,854
    e noi che ci possiamo fare???????????????????????????????

  10. #10
    Quindi è irrisolvibile....
    Ok vedrò in un altro modo.

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.