function existeDato(tabla,columna,condicion)
set registros = Server.CreateObject("ADODB.RecordSet")
cadena = "SELECT " & columna & " FROM " & tabla & " WHERE " & condicion
registros.open cadena,conexion
if registros.eof = false OR registros.bof = false then
existeDato = True
else
existeDato = False
end if
set registros = nothing
end function