Converter PHP para ASP "Komerci redecard"

[bsaleze 0]

Nao estou conseguindo fazer a 4ª etapa do komerci da redecard, achei um codigo em php... alguel saberia converter para asp

 

<?

header('Content-Type: text/html; charset=utf-8');

include ("TMySQL.php");

//Abrindo conexao com o banco de dados

$MySQL = new TMySQL();

$MySQL->connect($host, $db, $user, $pass);

 

 

$DATA = $_GET['DATA'];//8 Data da transação

$NUMPEDIDO = $_GET['NUMPEDIDO']; //16 Número do Pedido

$NR_CARTAO = $_GET['NR_CARTAO']; //16 Número do Cartão mascarado

$ORIGEM_BIN = $_GET['ORIGEM_BIN']; //3 Código de Nacionalidade do Emissor

$NUMAUTOR = $_GET['NUMAUTOR']; //6 Número de Autorização

$NUMCV = $_GET['NUMCV']; //9 Número do Comprovante de Venda (NSU)

$NUMAUTENT = $_GET['NUMAUTENT']; //27 Número de Autenticação

$NUMSQN = $_GET['NUMSQN']; //12 Número seqüencial único

$NUMPRG = $_GET['NUMPRG']; //1 Número correspondente ao programa de captura utilizado

 

///CASO DE ERROS

$CODRET = $_GET['CODRET']; //2 Código de erro

$MSGRET = $_GET['MSGRET']; //200 Mensagem de erro

if ( !isset($CODRET) ) {

$consulta=$MySQL->query("select PRECO_TOTAL from pedidos_cliente where ID_PEDIDO_CLIENTE=$NUMPEDIDO");

list($PRECO_TOTAL) = mysql_fetch_array($consulta);

$url= "http://ecommerce.redecard.com.br/pos_virtual/confirma.asp?"

."DATA=$DATA&"

."TRANSACAO=203&"

."TRANSORIG=04&"

."PARCELAS=00&"

."FILIACAO=30355141&"

."DISTRIBUIDOR=&"

// ."TOTAL=$PRECO_TOTAL";

."TOTAL=0.01&"

."NUMPEDIDO=$NUMPEDIDO&"

."NUMAUTOR=$NUMAUTOR&"

."NUMCV=$NUMCV&"

."NUMSQN=$NUMSQN&"

."ORIGEM_BIN=$ORIGEM_BIN&"

."NUMPRG=$NUMPRG";

 

//AQUI JA FOI ENVIADA A SEGUNDA FASE3 E AGORA ESTA RECEBENDO O CÓDIGO DE CONFIRMAÇÃO.

//A função file irá enviar a url para a Redecard sem redirecionar(sair da NatureLavie) e, ao mesdo tempo, receber o rerorno da Redecdard

$file = file($url);

$retorna = $file[0];

$arrLinhas = explode("&", $retorna);

$i = 0;

foreach ($arrLinhas AS $line) {

list($variavel, $valor) = explode('=', ($line));

$variavel = trim($variavel);

$$variavel = $valor ;

$i ++;

print $variavel;

print "<br>";

print $valor;

}

$status = $_REQUEST['CODRET'];

if ($status > 1) {

$autent = $_REQUEST['MSGRET'];

}

else {

$URLCupom = "https://ecommerce.redecard.com.br/pos_virtual/cupom.asp?DATA=" . $data . "&TRANSACAO=201&NUMAUTOR=" . $arp . "&NUMCV=" . $cv;

?>

 

<script LANGUAGE=javascript>

<!--

vpos=window.open('<? echo $URLCupom; ?>','vpos','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=auto,resizable=no,copyhistory=no,width=280,height=440');

//-->

</SCRIPT>

<? }

}

else if (

$CODRET==50 or $CODRET==52 or $CODRET==54 or $CODRET==55 or $CODRET==57 or $CODRET==59 or $CODRET==61 or

$CODRET==62 or $CODRET==64 or $CODRET==66 or $CODRET==67 or $CODRET==68 or $CODRET==70 or $CODRET==71 or

$CODRET==73 or $CODRET==75 or $CODRET==78 or $CODRET==79 or $CODRET==80 or $CODRET==82 or $CODRET==83 or

$CODRET==84 or $CODRET==85 or $CODRET==87 or $CODRET==89 or $CODRET==90 or $CODRET==91 or $CODRET==93 or

$CODRET==94 or $CODRET==95 or $CODRET==97 or $CODRET==99

)

{ print $MSGRET; exit; }

else if ( $CODRET==51 or $CODRET==92 or $CODRET==98 ) { print $MSGRET; exit; }

else if ( $CODRET==53 ) { print $MSGRET; exit; }

else if ( $CODRET==76 or $CODRET==86 ) { print $MSGRET; exit; }

else if ( $CODRET==58 or $CODRET==63 or $CODRET==65 or $CODRET==69 or $CODRET==72 or $CODRET==77 or $CODRET==96 )

{ print $MSGRET; exit; }

else if ( $CODRET==56 or $CODRET==60 ) { print $MSGRET; exit; }

else if ( $CODRET==74 ) { print $MSGRET; exit; }

else if ( $CODRET==81 ) { print $MSGRET; exit; }

?>

[xanburzum 169]

dá uma olhada aqui

link2

link3