<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Sub Visita 'Añade una visita Dim oConn, rs, SQL Dim visitas set oConn=Server.CreateObject("ADODB.Connection") set rs=Server.CreateObject("ADODB.Recordset") ' Nos conectamos por OLEDB 'oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("visitas.mdb") oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\Inetpub\vhosts\leonberger.es\httpdocs\bd\Contadores.mdb" ' # es el delimitador para las Fechas en Access. ' Si vas a utilizar SQL Server, sustitúyelo por comilla simple (') SQL="SELECT * FROM ContadorMono2009 WHERE Fecha=#"&Date()&"#" rs.Open SQL, oConn, 1, 2 if rs.EOF then ' Es la primera visita hoy, por eso no hay ningún ' registro con la fecha actual rs.AddNew rs.Fields("Fecha")=Date() rs.Fields("Hits")=1 rs.Update else ' Tengo que sumar 1 a los Hits de hoy visitas=rs.Fields("Hits") rs.Fields("Hits")=visitas+1 rs.Update end if 'Cierro el Recordset y limpio la basura rs.Close oConn.Close set rs=nothing set oConn=nothing end sub %> <% ' Si es una nueva visita, nuestra variable estará vacía. if Session("Visitado")="" then Session("Visitado")=False end if 'Y ahora, miramos siempre esta variable antes de insertar if not Session("Visitado") then ' Ponemos a verdadero Session("Visitado")=True ' Llamamos a nuestro Sub para añadir la visita Visita end if %> Leo Spanish 2011
Resultados   -   Results   -   Résultats
 
Click Jueces/Judges/Juges: Mme. Christiane Courvoisier - Don José Felipe Ruíz Castañeda
 

Mejor Cachorro / Best Puppy and Leo Promesa / Most Promising

Radiant Star's Adonis Rosaceae
Mrs.Yvonne van Lobenstein de Heij (Netherlands)
Fiva's Charg x Knockandos Precious Piemonte
Mrs. Margaretha Stigell (Sweden)
   

Mejor Joven / Best Junior

Fantaisy de l'Arche de Caux
Mme. Aline Condamin (France)
Virgile du Nimbus Big Band x Aglae Bohemia Domaine Ponctuation
Mme. Virginie Hebert (France)
   

CAC Machos / CAC Males

Jack von der Boxmühle
Mme. Metha Stramer (France)
Hector von der Boxmühle x Hjalthrimul Löwe von Walhall
Mr. I & K. D. Kirsch (Germany)
   

CAC Hembras / CAC Females

Zir Ozzy's Pretty Women von Tulips
Mrs.Yvonne van Lobenstein de Heij (Netherlands)
Ch. Rosaceae Amaranthus x Zir Ozzy's Staying Alive
Mrs. Catrine Undebeck (Sweden)

 

Mejor Macho / Best Male and Best Opossite Sex

Ch. Rosaceae Amaranthus
Mrs.Yvonne van Lobenstein de Heij (Netherlands)
Aldan vom Wolfsblut x Sjo Bjornene Yin Yasmine
Mrs.Yvonne van Lobenstein de Heij (Netherlands)
   

Mejor Hembra / Best Female and Best of Breed / Best in Show

Ch. Changhai du Violon d'Or
Mme. Sandrine Doucet Boisseau (France)
Ch. Unkas Löwe vom Osning x Uzzia du Violon d'Or
Mme. Gisèle Cattoir (France)
   

Mejor Pareja / Best Braces

Mejor Grupo Cría / Best Breeder's Groups

Ch. Ares Abydos du Kalliste Wallenstein
Ch. Galatea von Löwenkraft
Rosaceae
Don Oliver Beracoechea Torregrosa (España)
Don Juan Carlos Mata Arias (España)
Mrs.Yvonne van Lobenstein de Heij (Netherlands)
   

Mejor Cabeza / Best Head

Mejor Movimiento / Best Movement

Jack von der Boxmühle
Zir Ozzy's Pretty Women von Tulips
Mme. Metha Stramer (France)
Mrs.Yvonne van Lobenstein de Heij (Netherlands)
   
Página anterior - Previous page - Page anterieur 
   
Fotos/Photos: Cristina Andrés y Fernando Valledor