<%@LANGUAGE="VBScript"%> <% Dim strTranCode strTranCode = TranCode() Function TranCode() Dim n2c, strCode n2c = "ABCDEF0GHIJK1LMNOP2QRSTU3VWXYZ4abcde5fghij6klmno7pqrst8uvwxyz9" n2c = n2c & n2c thisDate = Now strCode = "" strCode = strCode & Mid(n2c, Second(thisDate)+1, 1) strCode = strCode & Mid(n2c, ((Timer * 150) mod 100)+1, 1) strCode = strCode & Mid(n2c, Cint(Right(DatePart("yyyy",thisDate),2))+1, 1) strCode = strCode & Mid(n2c, Minute(thisDate)+1, 1) strCode = strCode & Mid(n2c, Cint(Left(DatePart("yyyy",thisDate),2))+1, 1) strCode = strCode & Mid(n2c, Month(thisDate)+1, 1) strCode = strCode & Mid(n2c, Hour(thisDate)+1, 1) strCode = strCode & Mid(n2c, Day(thisDate)+1, 1) strCode = strCode & Mid(n2c, ((Timer * 100) mod 100)+1, 1) TranCode = strCode End Function %> Donations

Home Search Links
 

Welcome to our donation page

Our annual budget depends on donations.
And donations depend on your generosity.

Donations can be made in any amount and are appreciated
no matter if it is $1, $5, $7.35, $50, $100, or more.

You may make a donation here on this page
using PayPal (including Credit Card)
or in person at these locations

 

If you prefer to make your donation in some other form,
Contact TRSAR at (928) 468-8685
or by EMail.

 

 

 

Click to send an email to the TRSAR Commander

Copyright © 2009 Tonto Rim Search and Rescue Squad