Reprogram PHP script into VB Script / Classic ASP

The project is straightforward, I need someone who can rewrite and test this script from PHP into Classic ASP. This script is needed on my website to create a payment with this 3rd party payment service provider. They don't have this pluging-code script available in classic ASP so I need someone who can write this for me. The rest of the project I can do myself. This PHP script is a 100% working script (I have tested myself), but because of security reasons I have hidden the API key and email address in this stage. When accepting this project please let me know that you have read this by using the word `apple` in your response. It cannot cost more than $100 as it will me no more work than 2 hours for an experienced programmer. Thank you.

<?php

$api = new PayProApi('YOU-GET-THIS-KEY-AFTER-ACCEPTING-PROJECT'); // The real API key you will get after we agreed about the project

$api->command = 'create_product_payment';
$api->set_param('product_id', '88340');
$api->set_param('consumer_email', 'type-here-a-real-email-address');
$api->set_param('psp_code', '0021');
$api->set_param('test_mode', 'true'); // Remove this when testing is done!
$returned = $api->execute();

echo $returned['return']['payment_url'];

header('Location: ' . $returned['return']['payment_url']);


class PayProApi {
var $command;
var $params = array();
var $apikey;

function __construct($apikey, $command=null, $params=null) {
$this->apikey = $apikey;
$this->command = $command;
if (is_array($params)) {
$this->params = $params;
}
}

function execute() {
$data_to_post = array(
"apikey" => $this->apikey,
"command" => $this->command,
"params" => json_encode($this->params)
);

$url = 'https://www.paypro.nl/post_api/';

$ch = curl_init();
curl_setopt($ch, CURLOPT_URL, $url);
curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);
curl_setopt($ch, CURLOPT_POSTFIELDS, $data_to_post);
$response = json_decode(curl_exec($ch), true);
curl_close($ch);
$params = array();
return $response;
}

function set_param($param, $value) {
$this->params[$param] = $value;
}

}
?>