<%@ Language="vbscript" %>
<% option explicit %>
<%
const AUTHNET_API_LOGIN = "882WwFj5zFH"
const AUTHNET_TRANSACTION_KEY = "9Ep98V5DuD49CYzG"
const AUTHNET_GATEWAY_URL = "https://secure.authorize.net/gateway/transact.dll"
dim blnFormSubmitted
dim strFirstName
dim strLastName
dim strDescription
dim curAmount
dim tmpVal
if Trim(CStr(request.form("formSubmitted"))) = "1" then
blnFormSubmitted = true
curAmount = CCur(0)
strFirstName = Trim(CStr(request.form("x_first_name")))
strLastName = Trim(CStr(request.form("x_last_name")))
strDescription = "[ApplyTo:" & Trim(CStr(request.form("ApplyTo"))) & "] + [Country:" & Trim(CStr(request.form("ForCountry"))) & "]"
tmpVal = Trim(CStr(request.form("x_amount")))
if tmpVal <> "" then
if IsNumeric(tmpVal) then
curAmount = CCur(tmpVal)
end if
end if
end if
%>
Hope for the World - Donations
<% if not blnFormSubmitted then %>
Hope for the World
Online Donations
<% else %>
<% end if %>