Ver Mensaje Individual
  #9 (permalink)  
Antiguo 24/06/2004, 16:19
Avatar de LeCLUB
LeCLUB
 
Fecha de Ingreso: abril-2003
Ubicación: Barcelona (España)
Mensajes: 205
Antigüedad: 22 años
Puntos: 1
Bueno, vamos a ver, yo no se si es esto lo que buscas, pero el siguiente código muestra:

* El total de apuestas realizadas
* El total de apuestas que ha terminado
* El total de apuestas a las que se ha retirado
* La media ponderada siendo esta PUNTOS_TOTALES/APUESTAS TOTALES (se puede modificar)

Suponiendo que en la tabla tengas estos datos (los dos campos son de tipo TEXTO)

CORREDOR(texto) - PUNTOS(texto)
============================
Pepe - 1
Pepe - Retirado
Pepe - 2
Pepe - 5

El resultado del código que te pongo debajo mostraría este resultado:

El jugador Pepe ha realizado un total de 4 apuestas

Ha terminado un total de 3 y se ha retirado de 1 apuestas

Tiene un total de 8 puntos

Su media ponderada es de 2 puntos


Aquí tienes el código:

Código PHP:
<%
corredor "Pepe"
 
Conexion "Driver={Microsoft Access Driver (*.mdb)};DBQ=" Server.MapPath(".\db.mdb")
Set Conn Server.CreateObject("ADODB.Connection")
set Rs CreateObject("ADODB.Recordset")
Conn.open Conexion
SQL 
"Select * from Tabla1 where corredor='" corredor "'"
Rs.open SQLConn1,3
 
contador 
Rs.RecordCount
 
if NOT Rs.EOF then
 
Puntos 
0
terminado 
0
retirado 
0

While NOT Rs.EOF
 
If Isnumeric(Rs("puntos")) Then
puntos 
Puntos Rs("puntos")
terminado terminado 1
else
retirado retirado 1
End 
if

Rs.MoveNext()
Wend

Response
.write "El jugador <b> " corredor " </b> ha realizado un total de <b> " contador " </b> apuestas <br><br>"
Response.write "Ha terminado un total de <b> " terminado " </b> y se ha retirado de <b> " retirado " </b> apuestas <br><br>"
Response.write "Tiene un total de <b> " puntos " </b> puntos <br><br>"
Response.write "Su media ponderada es de <b> " puntos/contador " </b> puntos <br>"

End if
 
Rs.close
Conn
.close
set Rs 
Nothing
set Conn 
Nothing
%> 

Por otro lado, comentarte tres cosas:

1. Cambia el nombre de tu BBDD
2. En la variable corredor = "Pepe" utiliza Request.QueryString("campo") donde "campo" es el nombre del INPUT del Formulario que le envía los datos
3. Si tienes muchos registros, lo mejor será utilizar GetRows(), o saturarás mucho el servidor, pero eso lo haces tú, que sino no tiene gracia ;)

Espero que te sirva

Un saludo
__________________
Documentación de VBScript V5.6 en Español:
http://download.microsoft.com/downlo...ES/scd56es.exe