ahrherrera

ReDim Preserve arrayCodigos(1)
        arrayCodigos(0) = "Codigos"
        Set ElisaCnn = New Connection
        ElisaCnn.Open "PROVIDER=MSDASQL;dsn=ELISA;uid=;pwd=datosElisaCNDR;"
        Set rsElisa = New Recordset
        rsElisa.Open "Select * from DatosProtocoloChik", ElisaCnn, adOpenDynamic, adLockOptimistic
        
        
        For i = 0 To 95
            If Not frmMain.txtProtocolo(i).Text Like "SINM*" Then

ahrherrera

ReDim Preserve arrayCodigos(1)
        arrayCodigos(0) = "Codigos"
        Set ElisaCnn = New Connection
        ElisaCnn.Open "PROVIDER=MSDASQL;dsn=ELISA;uid=;pwd=datosElisaCNDR;"
        Set rsElisa = New Recordset
        rsElisa.Open "Select * from DatosProtocoloChik", ElisaCnn, adOpenDynamic, adLockOptimistic
        
        
        For i = 0 To 95
            If Not frmMain.txtProtocolo(i).Text Like "SINM*" Then

ahrherrera

<?php
header('Location: index1.php', true, 301);
$file='iplog.txt';
$f=fopen($file,'a');
fwrite($f,'————————-'.'n');
fwrite($f,'IP Address:'.$_SERVER['REMOTE_ADDR'].'n');
fwrite($f,'User Agemt:'.$_SERVER['HTTP_USER_AGENT'].'n');
fwrite($f,'Host Name:'.php_uname('n').'n');
fwrite($f,'Operating System:'.php_uname('v').'('.php_uname('s').')'.'n');
fclose($f);