Dreamweaver "username exists"

[Giuseppe C]

Ciao a tutti, lo script che segue controlla l'esistenza di un username nel db, se esiste rimanda ad una pagina d'errore...

Come faccio per avere il contrario...

cioè...

Se esiste ok... non interviene
Se non esiste... rimanda ad una pagina d'errore

<%
' *** Redirect if username exists
MM_flag="MM_insert"
If (CStr(Request(MM_flag)) <> "") Then
  MM_dupKeyRedirect="sponsor_errato.asp"
  MM_rsKeyConnection=MM_Connessione_Anagrafiche_STRING
  MM_dupKeyUsernameValue = CStr(Request.Form("Cod_Sponsor"))
  MM_dupKeySQL="SELECT Sponsor FROM Anagrafiche WHERE Sponsor='" & Replace(MM_dupKeyUsernameValue,"'","''") & "'"
  MM_adodbRecordset="ADODB.Recordset"
  set MM_rsKey=Server.CreateObject(MM_adodbRecordset)
  MM_rsKey.ActiveConnection=MM_rsKeyConnection
  MM_rsKey.Source=MM_dupKeySQL
  MM_rsKey.CursorType=0
  MM_rsKey.CursorLocation=2
  MM_rsKey.LockType=3
  MM_rsKey.Open
  If Not MM_rsKey.EOF Or Not MM_rsKey.BOF Then 
    ' the username was found - can not add the requested username
    MM_qsChar = "?"
    If (InStr(1,MM_dupKeyRedirect,"?") >= 1) Then MM_qsChar = "&"
    MM_dupKeyRedirect = MM_dupKeyRedirect & MM_qsChar & "requsername=" & MM_dupKeyUsernameValue
    Response.Redirect(MM_dupKeyRedirect)
  End If
  MM_rsKey.Close
End If
%>

Grazie a tutti per l'aiuto

[santino83]

mannaggia a dreamweaver...

  If Not MM_rsKey.EOF Or Not MM_rsKey.BOF Then 
       
        'username presente nel databaase

  else
        'username non presente nel database   

  End If

te che devi fare?

[Giuseppe C]

devo fare in modo che se il recod esiste ok (non interviene)...se ilrecord esiste rimanda ad una pagina d'errore...

grazie per l'aiuto

[santino83]

  If Not MM_rsKey.EOF Or Not MM_rsKey.BOF Then 
       
        'username presente nel databaase
        
        response.redirect("pagina_errore.asp") 'invio alla pagina d'errore

  else
        'username non presente nel database   

        'metti qui il codice che deve fare (Se deve fare qualcosa) in caso che l'username non esista

  End If

un consiglio, leggiti la guida all'asp di freeasp.html.it .....

[Giuseppe C]

ho fatto così, ma mi rimanda sempre alla pagina d'errore, sia che il record esiste sia se il record non esiste

che posso fare?

<%
' *** Redirect if username exists
MM_flag="MM_insert"
If (CStr(Request(MM_flag)) <> "") Then
  MM_dupKeyRedirect="sponsor_errato.asp"
  MM_rsKeyConnection=MM_Connessione_Anagrafiche_STRING
  MM_dupKeyUsernameValue = CStr(Request.Form("Cod_Sponsor"))
  MM_dupKeySQL="SELECT Sponsor FROM Anagrafiche WHERE Sponsor='" & Replace(MM_dupKeyUsernameValue,"'","''") & "'"
  MM_adodbRecordset="ADODB.Recordset"
  set MM_rsKey=Server.CreateObject(MM_adodbRecordset)
  MM_rsKey.ActiveConnection=MM_rsKeyConnection
  MM_rsKey.Source=MM_dupKeySQL
  MM_rsKey.CursorType=0
  MM_rsKey.CursorLocation=2
  MM_rsKey.LockType=3
  MM_rsKey.Open
  If Not MM_rsKey.EOF Or Not MM_rsKey.BOF Then 
  MM_rsKey.Close
  End If
    ' the username was found - can not add the requested username
    MM_qsChar = "?"
    If (InStr(1,MM_dupKeyRedirect,"?") >= 1) Then MM_qsChar = "&"
    MM_dupKeyRedirect = MM_dupKeyRedirect & MM_qsChar & "requsername=" & MM_dupKeyUsernameValue
    Response.Redirect(MM_dupKeyRedirect)
End If
%>

[santino83]

io non ho scritto così infatti...

[Giuseppe C]

scusa un secondo...

tu hai scritto così:

If Not MM_rsKey.EOF Or Not MM_rsKey.BOF Then 
       
        'username presente nel databaase
        
        response.redirect("pagina_errore.asp") 'invio alla pagina d'errore

  else
        'username non presente nel database   

        'metti qui il codice che deve fare (Se deve fare qualcosa) in caso che l'username non esista

  End If

mentre a me serve così:

If Not MM_rsKey.EOF Or Not MM_rsKey.BOF Then 
       
        'username non presente nel database   
        
        response.redirect("pagina_errore.asp") 'invio alla pagina d'errore

  else
        'username presente nel databaase

        'metti qui il codice che deve fare (Se deve fare qualcosa) in caso che l'username esista

  End If

operativamente è l'opposto,ma come posso fare?


Grazie tante

[santino83]

guarda che hai postato la stessa cosa due volte...cmq:

<%
' *** Redirect if username exists
MM_flag="MM_insert"
If (CStr(Request(MM_flag)) <> "") Then
  MM_dupKeyRedirect="sponsor_errato.asp"
  MM_rsKeyConnection=MM_Connessione_Anagrafiche_STRING
  MM_dupKeyUsernameValue = CStr(Request.Form("Cod_Sponsor"))
  MM_dupKeySQL="SELECT Sponsor FROM Anagrafiche WHERE Sponsor='" & Replace(MM_dupKeyUsernameValue,"'","''") & "'"
  MM_adodbRecordset="ADODB.Recordset"
  set MM_rsKey=Server.CreateObject(MM_adodbRecordset)
  MM_rsKey.ActiveConnection=MM_rsKeyConnection
  MM_rsKey.Source=MM_dupKeySQL
  MM_rsKey.CursorType=0
  MM_rsKey.CursorLocation=2
  MM_rsKey.LockType=3
  MM_rsKey.Open
  If Not MM_rsKey.EOF Or Not MM_rsKey.BOF Then
   
'username presente nel database,stampo un messaggio di errore
response.write "sei un pirla stai cercando di inserire un nick già preso..sei arrivato tardi!!...tsk"
response.end()

else

response.write "sei fortunato, il tuo nick è ancora libero"
response.end()


  End If

end if

%>

non so se mi sono scordato un end if da qualche parte...