Nuevo resaltador de código Geishi!

[piano_bar]

probando......

Código asp:

<script>
 
function AbrirConexion()
{
    var Conexion = new ActiveXObject("ADODB.Connection")
    var adOpenKeyset = 1
    var adLockOptimistic = 3
 
    Conexion.open("Provider=Microsoft.Access.OLEDB.4.0;Data Source=\\Inetpub\\wwwroot\\Quiniela\\DBTragaMonedas.mdb")
    
    return Conexion
}
 
function DevolverRecordset(strSQL)
{
    var Rs = new ActiveXObject("ADODB.Recordset")
    var cn = AbrirConexion()
    
    Rs.open(strSQL, cn, 3, 1)
    
    return Rs
}
 
function ExecutarConsulta(strSQL)
{
    var Rs = new ActiveXObject("ADODB.Recordset")
    var cn = AbrirConexion()
    
    Rs.open(strSQL, cn, 3, 1)
}
 
 
function checkValores()
{
    var rta;
    
    rta = true;
    if (!IsNumeric(document.getElementById("serie").value)){
        alert("los valores a ingresar deben ser numericos");
        rta = false;
        }
    
    return rta;
}
 
function IsNumeric(sText)
{
   var ValidChars = "0123456789.";
   var IsNumber=true;
   var Char;
 
 
   for (i = 0; i < sText.length && IsNumber == true; i++) 
      { 
      Char = sText.charAt(i); 
      if (ValidChars.indexOf(Char) == -1) 
         {
         IsNumber = false;
         }
      }
   return IsNumber;
}
 
function guardarConfiguracion()
{
    if (checkValores())
    {
        //guardo los valores en la tabla
        var sql;
        
        sql = 'UPDATE CONFIGURACION SET '
        sql += 'Serie = ' + document.getElementById("serie").value + ', ';
        sql += 'Ganadores = ' + document.getElementById("ganadores").value + ', ';
        sql += 'Bonus = ' + document.getElementById("bonus").value;
        sql += ' WHERE ID = 1'
        
        ExecutarConsulta(sql)
    }
}
 
function cargarConfiguracion()
{
    var rs;
    var sql;
    
    sql = 'SELECT * FROM CONFIGURACION WHERE ID = 1'
    rs = DevolverRecordset(sql)
    document.getElementById("serie").value = rs('Serie');
    document.getElementById("ganadores").value = rs('Ganadores');
    document.getElementById("bonus").value = rs('Bonus');
}
</script>