
18/01/2002, 11:36
|
 | | | Fecha de Ingreso: enero-2002 Ubicación: Urano
Mensajes: 577
Antigüedad: 23 años, 4 meses Puntos: 0 | |
Re: Evitar registros duplicados en la BD Checa esto.
Set rsCheckUser = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT tblUsers.Password FROM tblUsers WHERE tblUsers.UserID ='" & Ucase(strUserName) & "'"
rsCheckUser.Open strSQL, strCon
If NOT rsCheckUser.EOF Then
If (Ucase(Request.Form("txtUserPass"))) = rsCheckUser("Password") Then
Set adoCon = Nothing
Set strCon = Nothing
Set rsCheckUser = Nothing
Response.Redirect"pag_user_aut.asp?name=" ; & Ucase(strUserName)
End If
End If
Set adoCon = Nothing
Set strCon = Nothing
Set rsCheckUser = Nothing
Response.Write("Ya Existe")
Saludos |