Validar si el usuario existe

[jahman]

Gracias por la respuesta, aunque lo resolvi de otra forma, gracias por la disposicion de su ayuda

pongo a disposicion de ud el codigo

Código:

If (CStr(Request("MM_insert")) = "form1") Then

rut=Request.Form("rut")
dig=Request.Form("dig")
username=Request.Form("username")

Dim usuario
Dim usuario_numRows
Dim Repeat__numRows
Dim Repeat__index

Set usuario = Server.CreateObject("ADODB.Recordset")
usuario.ActiveConnection = MM_acceso_STRING
usuario.Source = "SELECT * FROM usuarios_alma"
usuario.CursorType = 0
usuario.CursorLocation = 2
usuario.LockType = 1
usuario.Open()
usuario_numRows = 0

Repeat__numRows = -1
Repeat__index = 0
usuario_numRows = usuario_numRows + Repeat__numRows

While ((Repeat__numRows <> 0) AND (NOT usuario.EOF)) 
	IF usuario.Fields("username") = username THEN
		Response.Redirect("fallo.asp")
		Repeat__numRows = 0
	ELSE
			MM_editConnection = MM_acceso_STRING
			  MM_editTable = "usuarios_alma"
			  MM_editRedirectUrl = "ok.asp"
			  MM_fieldsStr  = "nombre|value|apellido_pat|value|apellido_mat|value|email|value|rut|value|dig|value|pform_m|value|supervisor|value|login|value|username|value|password|value|pregunta_secreta|value|respuesta|value"
			  MM_columnsStr = "nombre|',none,''|apellido_pat|',none,''|apellido_mat|',none,''|email|',none,''|rut|',none,''|dig|',none,''|plataforma|',none,''|id_supervisor|',none,''|login|',none,''|username|',none,''|password|',none,''|pregunta_secreta|',none,''|respuesta|',none,''"
			
			  ' create the MM_fields and MM_columns arrays
			  MM_fields = Split(MM_fieldsStr, "|")
			  MM_columns = Split(MM_columnsStr, "|")
			  
			  ' set the form values
			  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
				MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
			  Next
			
			  ' append the query string to the redirect URL
			  If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
				If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
				  MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
				Else
				  MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
				End If
			  End If
			  Dim MM_tableValues
Dim MM_dbValues
	If (CStr(Request("MM_insert")) <> "") Then
		
		  ' create the sql insert statement
		  MM_tableValues = ""
		  MM_dbValues = ""
		  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
			MM_formVal = MM_fields(MM_i+1)
			MM_typeArray = Split(MM_columns(MM_i+1),",")
			MM_delim = MM_typeArray(0)
			If (MM_delim = "none") Then MM_delim = ""
			MM_altVal = MM_typeArray(1)
			If (MM_altVal = "none") Then MM_altVal = ""
			MM_emptyVal = MM_typeArray(2)
			If (MM_emptyVal = "none") Then MM_emptyVal = ""
			If (MM_formVal = "") Then
			  MM_formVal = MM_emptyVal
			Else
			  If (MM_altVal <> "") Then
				MM_formVal = MM_altVal
			  ElseIf (MM_delim = "'") Then  ' escape quotes
				MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
			  Else
				MM_formVal = MM_delim + MM_formVal + MM_delim
			  End If
			End If
			If (MM_i <> LBound(MM_fields)) Then
			  MM_tableValues = MM_tableValues & ","
			  MM_dbValues = MM_dbValues & ","
			End If
			MM_tableValues = MM_tableValues & MM_columns(MM_i)
			MM_dbValues = MM_dbValues & MM_formVal
		  Next
		  MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

		  If (Not MM_abortEdit) Then
			' execute the insert
			Set MM_editCmd = Server.CreateObject("ADODB.Command")
			MM_editCmd.ActiveConnection = MM_editConnection
			MM_editCmd.CommandText = MM_editQuery
			MM_editCmd.Execute
			MM_editCmd.ActiveConnection.Close
		
			If (MM_editRedirectUrl <> "") Then
			  Response.Redirect(MM_editRedirectUrl)
			End If
		  End If
	End If
			Repeat__numRows = 0	
	END IF
	Repeat__index=Repeat__index+1
	Repeat__numRows=Repeat__numRows-1
usuario.MoveNext()
Wend
END IF