This is a very simplistic solution to your problem.
<%
Dim intHrlyRate, intWeeklyRate, intMonthlyRate, intAnnualRate
intHrlyRate = 10 '// $ rate per hour
intWeeklyRate = intHrlyRate * 40 '// hourly rate multiplied by hours per week
intMonthlyRate = 4.33 * intWeeklyRate '// 52 weeks divided by 12 months multiplied by the weekly rate
intAnnunalRAte = 52 * intWeeklyRate '// 52 weeks multiplied by the weekly rate
Response.write "Hourly Rate = $" & intHrlyRate & ""
Response.write "Weekly Rate = $" & intWeeklyRate & ""
Response.write "Monthly Rate = $" & intMonthlyRate & ""
Response.write "Annual Rate = $" & intAnnunalRate & ""
%>