<%@ Language=VBScript%>
<%Option Explicit%>
<%Response.buffer=true%>
Pay Report
<%
Sub FormValidation
Dim blnOK
If Request.Form("txtEmployeeName") = "" Then
Response.Write("Error Information
")
Response.Write("You must enter an Employee name!
")
Response.Write("You click the back button on your browser to fix your errors!")
Response.End
Else
blnOK = (Trim(Request.Form("txtHours0")) = "") OR (Trim(Request.Form("txtHours1")) = "") OR (Trim(Request.Form("txtHours2")) = "") OR (Trim(Request.Form("txtHours3")) = "") _
OR (Trim(Request.Form("txtHours4")) = "") OR (Trim(Request.Form("txtHours5")) = "") OR (Trim(Request.Form("txtHours6")) = "")
If blnOK Then
Response.Write("Error Information
")
Response.Write("You must enter all the hours!
")
Response.Write("You click the back button o `n your browser to fix your errors!")
Response.End
End If
End If
End Sub
Sub Create_Collection
Dim Hours()
Redim Hours(7)
Hours(0) = Cint(Request.Form("txtHours0"))
Hours(1) = Cint(Request.Form("txtHours1"))
Hours(2) = Cint(Request.Form("txtHours2"))
Hours(3) = Cint(Request.Form("txtHours3"))
Hours(4) = Cint(Request.Form("txtHours4"))
Hours(5) = Cint(Request.Form("txtHours5"))
Hours(6) = Cint(Request.Form("txtHours6"))
End Sub
Sub Calc_All
Call Calc_TotalHours
Call Calc_Overtime
Call Calc_TotalPay
End Sub
Sub Calc_TotalHours
Dim intTotalHours, count, sum
count = 0
DO WHILE count < 7
intTotalHours = intTotalHours + Hours(count)
count = count + 1
LOOP
End Sub
Sub Calc_Overtime
Dim intOvertime
intOvertime = intTotalHours - 35
End Sub
Sub Calc_TotalPay
Dim intTotalPay
'intTotalPay = (35 * Cint(Trim(Request.Form("txtWageRate"))) + _
'(intOvertime * (Cint(Trim(Request.Form("txtWageRate"))*1.5))
intTotalPay = 53
End Sub
%>
<%
Call FormValidation
Call Create_Collection
Call Calc_All
Response.Write("Total Pay is " & intTotalPay & ".")
Response.End
Session.Abandon
%>