Navigazione

    Privacy - Termini e condizioni
    © 2020 Search On Media Group S.r.l.
    • Registrati
    • Accedi
    • CATEGORIES
    • Discussioni
    • Non letti
    • Recenti
    • Hashtags
    • Popolare
    • Utenti
    • Stream
    • Interest
    • Categories
    1. Home
    2. albertusa
    3. Post
    A

    albertusa

    @albertusa

    • Profilo
    • Chi segue 0
    • Da chi è seguito 0
    • Discussioni 1
    • Post 2
    • Migliore 0
    • Gruppi 0
    Iscrizione Ultimo Accesso
    0
    Reputazione
    9
    Post
    0
    Visite al profilo
    0
    Da chi è seguito
    0
    Chi segue
    User Newbie

    Post creati da albertusa

    • RE: Problema fantasma ASP...

      Ciao...

      Realmente e molto strano x che nel file flash quando mi arriva la comunicazione del asp e dove dice Erro 2 anche se era meglio Error 2 jajaja.
      Pero gia avevo detto che si controllo il db e tutto ok, non capisco...

      postato in Coding
      A
      albertusa
    • Problema fantasma ASP...

      Ciao ragazi...! Una domanda...

      :arrabbiato: Non capisco x che non mi passa la variabile corretta, quando invece ha fatto l' update nel db. Mi da sempre Error 2 ma se controllo il db tutto il nuovo update e stato eseguito bene.

      Che errore ce? Qui il file ASP

      <%
      Dim ChangePass
      Set ChangePass = Server.CreateObject("ADODB.Connection")
      ConnStr = "DRIVER={Microsoft Access Driver (*.mdb)}; "
      ConnStr = ConnStr & "DBQ=" & Server.MapPath("/mdb-database/mailinglist.mdb")
      ChangePass.Open(ConnStr)
      SQLtemp = "SELECT * FROM CustPassword WHERE Email = '" & Request.form("login") & "' "
      Set rs = ChangePass.Execute(SQLtemp)
      while not rs.eof
      If Request.Form("login") = rs("Email") AND Request.Form("oldpassword") = rs("Password") AND Request.Form("newpassword1") = Request.Form("newpassword2") then
      SQL = "UPDATE CustPassword SET Password = '" & Request.Form("newpassword2") & "' WHERE Email = '" & Request.Form("login") & "'"
      ChangePass.Execute(sql)

      Response.Write "&risultato= New password was changed..."

      Else

      Response.Write "&risultato=Error 1"

      End If
      rs.MoveNext
      Wend
      On Error Resume Next

      Response.Write "&risultato= Erro 2."

      rs.Close
      ChangePass.Close
      set ConnStr = Nothing
      %>

      postato in Coding
      A
      albertusa