Newsgroup: it.comp.www.asp
Titolo: Aiuto urgente

Ho creato questa pagina di login e funziona. ma come posso fare in modo che
quando non viene inerito il nome o la password vengano visualizzate delle
finestre di avviso "inserisci nome utente" e "inserici password"?
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../Connections/connessione.asp" -->
<%
set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_connessione_STRING
Recordset1.Source = "SELECT * FROM tab"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
' *** 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("usr"))
 
If MM_valUsername <> "" Then
  MM_fldUserAuthorization=""
  MM_redirectLoginSuccess="/pagine/login.asp"
  MM_redirectLoginFailed="/pagine/errore.asp"
  MM_flag="ADODB.Recordset"
  set MM_rsUser = Server.CreateObject(MM_flag)
  MM_rsUser.ActiveConnection = MM_connessione_STRING
  MM_rsUser.Source = "SELECT username, password"
  %>
<%
  If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source &
"," & MM_fldUserAuthorization
  MM_rsUser.Source = MM_rsUser.Source & " FROM tab WHERE username='" &
MM_valUsername &"' AND password='" & CStr(Request.Form("psw")) & "'"
  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
%>
<html>
<head>
<title>index</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<form name="form1" method="post" action="<%=MM_LoginAction%>">
  <input type="text" name="usr">
  <input type="text" name="psw">
  <input type="submit" name="Submit" value="LOGIN">
</form>
</body>
</html>
<%
Recordset1.Close()
%>
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 "inserici password"?
puoi controllare lato client con javascript oppure controlli che i dati
vengono passati attraverso l'http... if request.form("usr") <> "" etc.etc.
ma sei sicura che il codice che hai postato funzioni? e' veramente
pessimo...
-- 
Lino Mari [mod - it.economia.e-commerce]
http://www.ebow.it
 - e-business on web!
http://www.dev2dev.it
 - La rete ha connesso nuove particelle - d2D004
Oggi, l'organigramma è fatto di link, non di gerarchie.
Il rispetto per la conoscenza vince su quello per l'autorità astratta.

 </html>
questo lato client e ti fa perdere meno tempo...
ops.. sarebbe OT :-)

 Recordset1.ActiveConnection = MM_connessione_STRING
[megacut]
Lo script che hai postato conta una sessantina di righe e una mezza 
dozzina di IF. 
Tutto quando, invece, l'avresti potuto fare A MANO in una dozzina di 
righe, e saresti anche riuscita a capire cosa e come avrebbe 
funzionato.
E' o non è il caso di usare DW per le pagine, ma NON per lo scripting?
E bada che ci son passato anch'io, anni fa. Non conoscendo ASP, facevo 
fare a DW. Poi ogni volta che dovevo modificare un nonnulla perdevo ore 
a cercare di capire come e dove intervenire.
Se invece fossi partito come si deve, da zero ma usando le guide (di 
cui la rete è piena), avrei risparmiato tempo e neuroni.
Se vuoi cominciare sul serio, noi siamo qui (prima però studiati 
connessioni e recordset per una mezz'oretta, fai un due prove).
Se vuoi scrivermi in privato, io ci sono (e la mail farebbe anche un 
giro "breve", sono in via Cividale).

 ha
scritto:

--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 pessimo...
E' roba di Dreamweaver.
E questo č niente. Vedessi quando si tratta di fare un INSERT o un 
UPDATE... oltre un centinaio di righe, IF, funzioni, array...
Giuro, oltre un centinaio.
E, naturalmente, se devi fare un insert o un update DEVI avere una 
form. Sennň non te lo fa fare: non accetta da querystring.

 generato dreamweaver!
per questo mi sono permesso... e per questo giudico i pezzi di codice
automatici pessimi... non voleva essere un'offesa...
-- 
Lino Mari [mod - it.economia.e-commerce]
http://www.ebow.it
 - e-business on web!
http://www.dev2dev.it
 - La rete ha connesso nuove particelle - d2D004
Gli iperlink sovvertono la gerarchia.