%@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 %>
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 |
Rosaceae |
Don Oliver Beracoechea Torregrosa (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 |
|