Ver Mensaje Individual
  #2 (permalink)  
Antiguo 23/09/2007, 17:37
Evac12
 
Fecha de Ingreso: septiembre-2007
Mensajes: 8
Antigüedad: 17 años, 9 meses
Puntos: 0
Re: Como validar campo repetido ASP - Access

Bueno ya encontre una serie de inconsistencias y ahora el script esta asi. Pero aun no funciona !!

Código:
<%
Response.Buffer = true
dim cnn,rst

'Conection

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

'Pick data

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")

'Query with Execute

Dim strSQL
strSQL = "SELECT Identificacion FROM Club WHERE Identificacion = '" & ids & "'"
Set rst = cnn.Execute(strSQL)

If Not rst.EOF Then
Response.Write("Your ID is already in the system")
  
Else
'Ad a new entry

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
cnn.execute(strSQL)
End If
%>
Alguna luz ? gracias por adelantado.