Converter codigo php em asp

[dckarpov]

OLá pessoal,

Gostaria da ajuda de vocês para solucionar um código meu que quero mudar de Php para asp.

Estou tentando ganhar uma grana e estou desenvolvendo um sistema em asp e tenho alguns codigos em php e gostaria de mudá-los para asp. Segue abaixo o codigo em php. Quem puder me ajudar a mudá-lo para asp eu agradeceria muito.

function parcelanfCR($nf,$parc,$venc){
 //echo "0;na function";exit;
    $quitada = 'N';
        if($parc < 0){
        $parc = 1;
        $quitada = 'S';
    }

        if($nf){
            /*
            $dupl = exeBD("SELECT DUP_COD FROM DUPLICATAS AS D
                           INNER JOIN CONTAS_A_RECEBER AS CR ON CR.CR_COD = D.CR_COD
                           WHERE CR.NF_NUM = $nf");

            while($linha = ibase_fetch_assoc($dupl)){
                exeBD("DELETE FROM DUPLICATAS WHERE DUP_COD = ".$linha["DUP_COD"]);
            }
            */
            exeBD("DELETE FROM CONTAS_A_RECEBER WHERE NF_NUM = $nf AND CR_QUITADA = 'N'");
            $valor = exeBD("select NF_VALOR FROM NOTAS_FISCAIS
                            WHERE NF_NUM = $nf");
            $valor = ibase_fetch_assoc($valor);
            $pago = exeBD("SELECT SUM(CR_VALOR) FROM CONTAS_A_RECEBER
                            WHERE NF_NUM = $nf
                            AND CR_QUITADA = 'S'");
            $pago= ibase_fetch_assoc($pago);
            $ordem = exeBD("SELECT MAX(CR_ORDEM) FROM CONTAS_A_RECEBER
                            WHERE NF_NUM = $nf");
            $ordem = ibase_fetch_assoc($ordem);

            $restante = $valor["NF_VALOR"]-$pago["SUM"];
            //$vencimento = exeBD("SELECT NF_VENCIMENTO FROM NOTAS_FISCAIS WHERE NF_NUM = $nf");
            //$vencimento = ibase_fetch_assoc($vencimento);
            $vencimento = $venc;
            //$vencimento = date("m/d/Y", $vencimento);
            $vcto = explode("/",$vencimento);
            $mes = $vcto[1];
            $dia = $vcto[0];
            $ano = $vcto[2];

            $parcela = $restante/$parc;
            $parcela = reais($parcela);
            $parcela = str_replace(".","",$parcela);
            $parcela = str_replace(",",".",$parcela);
            $hoje = date("m/d/Y");

            if($restante > 0){

                for($i=$ordem["MAX"]+1;$i<=$parc+$ordem["MAX"];$i++){
                    if($dia >28 && $mes == 2)
                        $dia = 28;

                    $vcto = $mes."/".$dia."/".$ano;
                    $sql = ("INSERT INTO CONTAS_A_RECEBER(
                                    CR_COD, NF_NUM, CR_VALOR, CR_DATA, CR_VENCIMENTO, CR_QUITADA, CR_ORDEM)
                                    VALUES(
                                    gen_id(SEQ_CONTAS_R,1), $nf, '$parcela', '$hoje', '$vcto', '$quitada', '$i')");
                    //echo $sql;
                    $gravou = exeBD($sql);


                    if($quitada == 'S')
                            movCaixa("PAGAMENTO A VISTA NF $nf","$parcela",$nf,'null');
                    //echo $gravou;
                    //exit;
                    $mes++;
                    if($mes > 12){
                        $mes = 1;
                        $ano++;
                    }
                }
                return "1";
            }
            else
                return "Esta NF não possui contas a receber pendentes.";
        }
}