+ Rispondi al Thread
Visualizzazione dei risultati da 1 a 3 su 3

Discussione: Verifica.inc

  1. #1
    djremix non è in linea Novello
    Luogo
    Lecce
    Post
    34

    Verifica.inc

    Salve, ho preso da voi uno script su coem creare una pagina protetta da password in ASP. Tutto va bene tranne la pagina verifica.inc che da il seguente errore:

    codice:
    Microsoft VBScript runtime  error '800a01a8' 
     Object required: 'con' 
     /login/verifica.inc, line 14



    Vi posto il codice della pagina:


    codice:
    <% 
    'Se la sessione login è diversa da uno allora esegue la verifica 
    if session("login") <> 1 then 
          
         'Richiama i valori inseriti nel form di Login.asp 
         username = request("username") 
         password = request("password") 
          
         'Stringa SQL che seleziona l'username e la password 
         'dalla tabella del database 
         Strsql = "SELECT username, password FROM Results" 
         Strsql = Strsql & "WHERE username = '" & username & "'" 
         Strsql = Strsql & "AND password = '" & password & "'" 
         set rs = con.execute(strsql)
               
         'Se i dati sono presenti nella tabella, session("login") 
         'assume il valore di uno altrimenti viene eseguito 
         'il reindirizzamento alla pagina Login.asp 
         if not rs.eof then 
              session("login") = 1 
         else 
              response.redirect "Login.asp" 
         end if 
          
         rs.close 
         set rs = nothing 
    end if 
    %>

    Grazie per l'aiuto, Marco.

  2. #2
    L'avatar di maximum
    maximum non è in linea Scolaretto
    Post
    468
    Dove definisci 'con'?

  3. #3
    djremix non è in linea Novello
    Luogo
    Lecce
    Post
    34
    In un file chiamato conn.asp
    codice:
    <%
    ' dichiaro la variabile che conterrà l'oggetto Connection
    Dim con
    'creo l'oggetto Connection
    Set con = Server.CreateObject("ADODB.Connection")
    'apro la connessione con la fonte di dati
    con.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("../fpdb/add1.mdb")
    %>
    che lo ho invluso in verifica.inv e l'errore stavolta è questo
    codice:
    Microsoft VBScript compilation  error '800a0411'
    
    Name redefined
    
    /login/conn.asp, line 3
    
    Dim con
    ----^

+ Rispondi al Thread

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi