Hola a todos,
Quisiera validar en una forma enviada desde Flash, si el id de una persona esta ya inscrito en la base de datos y que envie un mensaje de error.
Tengo el siguiente script pero no funciona,
Alguna luz o ayuda o sugerencia?
Muchas gracias por adelantado
Código:
<%
Response.Buffer = true
dim cnn,rst
' Creamos la conexión a la base de datos sin DSN
set cnn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")
cnn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/clubquest.mdb")
sqltext = "SELECT * FROM Club"
rst.Open sqltext,cnn,3,3
'Recogemos los datos
dim nombres, ids, emails, tels, fechas, direccions, ciudads
nombres = Request.Form("nomclub")
emails = Request.Form("mailclub")
tels = Request.Form("telclub")
fechas = Request.Form("naciclub")
direccions = Request.Form("dirclub")
ciudads = Request.Form("ciuclub")
ids = Request.Form("cedclub")
'Validamos campos repetidos
Private Sub Text1_Validate(Cancel As Boolean)
Dim ceds As String
Dim Campo As String
ceds = ids
OpenDB3 StringCnn, "Club", "*", "ORDER BY Identificacion"
Do Until RsVerificar.EOF
Campo = UCase(RsVerificar.Fields("Identificacion").Value)
If ceds = Campo Then
Cancel = True
MsgBox "Su cedula ya se encuentra en el sistema."
Exit Do
End If
RsVerificar.MoveNext
Loop
RsVerificar.Close
Set RsVerificar = Nothing
End Sub
'Si está todo correcto, procedemos a ingresar los datos a la base de datos
rst.AddNew
rst("Nombre") = nombres
rst("Mail") = emails
rst("Telefono") = tels
rst("Direccion") = direccions
rst("Ciudad") = ciudads
rst("Fecha") = fechas
rst("Identificacion") = ids
rst.update
'Terminamos e imprimimos un mensaje
Response.write "su ingreso a finalizado"
%>