Newsgroup: it.comp.www.asp
Titolo: UltraDev? Mmmh...

Perchč se cerco di usare il comportamento server "esegui login utente" e
imposto il campo "se il login riesce vai a..." ad un campo del recordset con
sfoglia/origini dati, UD4 mi scrive il codice a capocchia e non funziona,
mentre se lo imposto a tramite sfoglia/file system su un URL fisso sě?
PEO
www.studiopasquali.it
UD=UltraDelirio?
E' stranissimo, scrive il codice in maniera completamente confusa, oltre che
sbagliato. E' un bug non di UD4 (che io non so) o č un bug mio (probabile)?
Aiuto!!!!!!
P.S.: segue il codice generato nei due casi.
CASO LINK URL FISSO (funzia):
<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" +
Request.QueryString
MM_valUsername=CStr(Request.Form("txt1"))
If MM_valUsername <> "" Then
  MM_fldUserAuthorization=""
  MM_redirectLoginSuccess="esatto.htm"
  MM_redirectLoginFailed="errore.htm"
  MM_flag="ADODB.Recordset"
  set MM_rsUser = Server.CreateObject(MM_flag)
  MM_rsUser.ActiveConnection = MM_ConnBozze_STRING
  MM_rsUser.Source = "SELECT Login, Pws"
  If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source
& "," & MM_fldUserAuthorization
  MM_rsUser.Source = MM_rsUser.Source & " FROM tblBozze WHERE Login='" &
MM_valUsername &"' AND Pws='" & CStr(Request.Form("txt2")) & "'"
  MM_rsUser.CursorType = 0
  MM_rsUser.CursorLocation = 2
  MM_rsUser.LockType = 3
  MM_rsUser.Open
  If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then
    ' username and password match - this is a valid user
    Session("MM_Username") = MM_valUsername
    If (MM_fldUserAuthorization <> "") Then
      Session("MM_UserAuthorization") =
CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
    Else
      Session("MM_UserAuthorization") = ""
    End If
    if CStr(Request.QueryString("accessdenied")) <> "" And false Then
      MM_redirectLoginSuccess = Request.QueryString("accessdenied")
    End If
    MM_rsUser.Close
    Response.Redirect(MM_redirectLoginSuccess)
  End If
  MM_rsUser.Close
  Response.Redirect(MM_redirectLoginFailed)
End If
%>
CASO LINK URL TRAMITE CAMPO DB (non funzia, neanche un pň):
<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" +
Request.QueryString
MM_valUsername=CStr(Request.Form("txt1"))
If MM_valUsername <> "" Then
  MM_fldUserAuthorization=""
  MM_redirectLoginSuccess="<%=(rsLogin.Fields.Item("URLBozza").Value)%>
" MM_redirectLoginFailed="errore.htm" MM_flag="ADODB.Recordset" set
MM_rsUser
= Server.CreateObject(MM_flag) MM_rsUser.ActiveConnection =
MM_ConnBozze_STRING
MM_rsUser.Source = "SELECT Login, Pws" If MM_fldUserAuthorization <> "" Then
MM_rsUser.Source
= MM_rsUser.Source & "," & MM_fldUserAuthorization MM_rsUser.Source =
MM_rsUser.Source
& " FROM tblBozze WHERE Login='" & MM_valUsername &"' AND Pws='" &
CStr(Request.Form("txt2"))
& "'" MM_rsUser.CursorType = 0 MM_rsUser.CursorLocation = 2
MM_rsUser.LockType
= 3 MM_rsUser.Open If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then ' username
and
password match - this is a valid user Session("MM_Username") =
MM_valUsername
If (MM_fldUserAuthorization <> "") Then Session("MM_UserAuthorization") =
CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
Else Session("MM_UserAuthorization") = "" End If if
CStr(Request.QueryString("accessdenied"))
<> "" And false Then MM_redirectLoginSuccess =
Request.QueryString("accessdenied")
End If MM_rsUser.Close Response.Redirect(MM_redirectLoginSuccess) End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginFailed) End If %>


Moderatore di it.comp.www.asp
http://www.aspitalia.com
 Enjoy the .NET community!
http://www.dev2dev.it
 La rete ha connesso nuove particelle!

 nemmeno il coraggio di andare a leggere.
Perň cosě non mi aiuti! Pensi che non abbia cercato di farlo da solo?
Sto imparando, come devo fare?
Se qualcosa non so, chiedo... scusami se ero OT, ma io uso UD4 (e magari
anche qualcun altro).
Ciao e grazie comunque dell'attenzioe.
ilBabbo

 MM_redirectLoginSuccess="<%=(rsLogin.Fields.Item("URLBozza").Value)%>"
Tu imposti il MM_redirect... ad un campo di un recordset, ma sei sicuro 
che il recordset e la connessione al db siano gia state aperte ed 
impostate?
Ciao Sha

 Ciao e grazie comunque dell'attenzioe.
prego.


 
Mh...Ud mette (giustamente) il codice per il login per primo, in cima 
alla pagina.
Dunque non è ancora stato creato alcun recordset. L'avevi forse spostato 
tu a mano, creando PRIMA il recordset?
In ogni caso, UD è molto comodo per aumentare la produttività generale, 
io non potrei farne a meno, ma è chiaro che funzioni un attimo meno 
basilari te le devi scrivere a mano.
Poi ci sono anche delle stupidaggini, e dei bachetti.
Ad esempio, se crei un recordset, fai una pagina con dei campi form, poi 
aggiungi anche il Update record, e non funzionerà mai: perchè Ud mette il 
codice per l'update SOPRA quello del recordset (e fin qui va bene) ma il 
INCLUDE per la connessione al db resta immediatamente prima del recordset 
(in questo caso, andrebbe prima dell'UPDATE!). Lo si sposta a mano, e 
via.

 ha scritto nel messaggio
news:MPG.1756b5a06...@diesel.cu.mi.it...

Grazie a tutti, ora so cosa succede.
Avevo postato il mio problema anche su un NG Macromedia.
Il problema è legato ad un "piccolo" errore di UD4 il quale non considera la
variabile dell'URL.
Va modificata 1 riga di codice e un'altra va aggiunta...
Grazie lo stesso a chiunque abbia provato ad aiutarmi (in tutte le maniere),
per chi vuole saperne di più allego il link che mi ha permesso di risolvere
la questione:
http://www.macromedia.com/support/ultradev/ts/documents/login_otherpages.htm
Ciao.
ilBabbo
www.studiopasquali.it