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

codice:
<%
' *** 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...