Ver Mensaje Individual
  #4 (permalink)  
Antiguo 04/05/2009, 13:47
darkmcloud
 
Fecha de Ingreso: octubre-2007
Mensajes: 191
Antigüedad: 17 años, 7 meses
Puntos: 0
Respuesta: Impedir registros duplicados

toc toc...permiso...jejeje

Mira Sonda...aqui te dejo un codigo el cual deberias completar de acuerdo a los campos que debes ingresar...en el que despues de mandar el formulario, haces un select, si el registro ya existe mandas a una pantalla de error en donde le dices que el registro ya existe....algo asi:

CODIGO PROCESA FORMULARIO
Código asp:
Ver original
  1. < %
  2.  
  3.                  if Not IsEmpty(Request.Form("campo")) then
  4. campo   =replace(Request.Form("campo"), "'","" )
  5.         end if
  6.  
  7.  
  8. set Cnn=Server.CreateObject("ADODB.Connection")
  9. set rs=Server.CreateObject("ADODB.Recordset")
  10. Cnn.Open Session("cnx")
  11.  
  12. strSQL ="select campo from Tu_tabla where campo='"&campo&"' "
  13. set rs =Cnn.Execute(strSQL)
  14.    
  15.         If Not rs.EOF then
  16. session("campo3") = rs.fields ("campo")
  17. Response.Redirect("existecampo.asp")
  18.         else
  19.  
  20. strSQL2 = "INSERT INTO Tblcliente (campo) VALUES ( " &campo& ")"
  21. set rs2 =Cnn.Execute(strSQL2)
  22.  
  23. Response.Redirect("ingreso_correcto.asp")
  24.    
  25. End If
  26. Cnn.Close
  27. set Cnn= nothing
  28. set rs=Nothing
  29. %>

Y para que se vea más presentable la pantalla de error:

CODIGO EXISTE CAMPO
Código asp:
Ver original
  1. <HTML>
  2. <HEAD>
  3. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
  4. </HEAD>
  5. <body bgcolor="#FFCC66">
  6. <center>
  7. <h2 align="center"> <br> <br> <br>
  8. No Se Puede Ingresar,</h2>
  9. <h2 align="center"> EXISTE EL CAMPO
  10. <%response.write session("campo3")%> ya Ingresado </h2>
  11.  
  12. <p><input name="button" type="button"
  13. onClick="JavaScript:history.back(1)" value="Volver Atras"></p>
  14. </center>
  15. </BODY>
  16. </HTML>

Esop...espero que te sirva ...Hasta Pronto