Expand|Select|Wrap|Line Numbers
- <%@ Language=VBScript%>
- <%Option Explicit%>
- <html>
- <head>
- <title>SABF</title>
- <!--#include file="font.css"-->
- <!--#include file="func.inc"-->
- </head>
- <body>
- <!--#include file="head.inc"-->
- <%
- Dim R
- Dim R1
- Dim vempno, vempname, vdesign, vgrade, vOffstaff, vdob, vdoj, vdos, vndos, vdoa, vdojgr, vreason, voption, vcommutation
- Dim vrehabilitation, vBasic2003, vstag2003, vpersonalpay2003, vsplpay2003, vadhoc2003, vnpa2003, vda2003, vprotectedpay2003
- Dim vbasic, vstag, vpersonalpay, vsplpay, vadhoc, vnpa, vda, vprotectedpay,vbeneficiaryspouse, vdobos, valtnominee1,
- Dim valtnominee2, valtnominee3, valtnominee4, valtnominee5, valtnominee6, vaddress, vcontact, vassesseno, vtotal, v1third
- Dim vrefund, vmonthlypension, vchoiceopt
- Dim errorMsg
- Dim conn
- Dim i
- Dim vdobyyyy, vdobmm, vdobdd
- Dim vdojyyyy, vdojmm, vdojdd
- Dim vdosyyyy, vdosmm, vdosdd
- Dim vndosyyyy, vndosmm, vndosdd
- Dim vdoayyyy, vdoamm, vdoadd
- Dim vdojgryyyy, vdojgrmm, vdojgrdd
- Dim vdobosyyyy, vdobosmm, vdobosdd
- Dim no_of_day
- If Not IsEmpty(Request.Form("submit")) then
- vempno = Request.Form("vempno")
- vempname = Request.Form("vempname")
- vdesign = Request.Form("vdesign")
- vgrade = Request.Form("vgrade")
- vdobyyyy = Request.Form("vdobyyyy")
- vdobmm = Request.Form("vdobmm")
- vdobdd = Request.Form("vdobdd")
- vdojyyyy = Request.Form("vdojyyyy")
- vdojmm = Request.Form("vdojmm")
- vdojdd = Request.Form("vdojdd")
- vaddress = trim(vaddress)
- vassesseno = trim(vassesseno)
- vcontact = trim(vcontact)
- vchoiceopt = trim(vchoiceopt)
- %>
- <div style="Position:Absolute; top:120; left:50; background-color: #f0f0f0">
- <h2>SABF Entry</h3>
- <hr>
- <p>
- <form method="POST" action="sabf.asp">
- <%
- If len(errorMsg) > 0 Then
- Response.Write "<p><font color='red'>" & errorMsg & "</font></p>"
- End If
- %>
- <table width=900>
- <tr>
- <table align="center">
- <tr>
- <td align="center"><font face="arial"><h3>SABF Entry</h3></font></h3>
- </tr>
- <tr>
- <td align="center"><font face="arial" size=4>Creation</font></h3>
- </tr>
- </table>
- </tr>
- <tr>
- <table align="center">
- <tr>
- <td align="right"><font face="arial" size=2>Employee No : </font></td>
- <td align='left'><input type="text" style="width:100px" name="vempno"></td>
- <td align="right"><font face="arial" size=2>Employee Name : </font></td>
- <td align='left'><input type="text" style="width:300px" name="vempname"></td>
- </tr>
- <tr>
- <td align="right"><font face="arial" size=2>Designation : </font></td>
- <td align='left'><input type="text" style="width:300px" name="vdesig"></td>
- <td align="right"><font face="arial" size=2>Grade : </font></td>
- <td align='left'><input type="text" style="width:300px" name="vgrade"></td>
- </tr>
- <tr>
- <td align="right"><font face="arial" size=2>Category : </font></td>
- <td align="left">
- <font face="arial" size=2><select name="voffstaff">
- <option value="Officer">Officer</option>
- <option value"staff" selected>Staff</option></select>
- </font>
- </td>
- <td align="right"><font face="arial" size=2>Date of Birth : </font></td>
- <td>
- <select name="vdobyyyy">
- <%i=1965
- do while i <= year(date)
- If i = Cint(vdobyyyy) Then%>
- <option value="<%=vdobyyyy%>" selected><%=vdobyyyy%></option>
- <%Else
- If i = 2007 then
- If IsEmpty(vdobyyyy) Then%>
- <option value="<%=i%>" selected><%=i%></option>
- <%End If
- else%>
- <option value="<%=i%>"><%=i%></option>
- <%end If
- End If
- i = i + 1
- loop%>
- </select>
- <select name="vdobmm">
- <%i=1
- Do while i <= 12
- If i = Cint(vdobmm) then%>
- <option value="<%=vdobmm%>" selected><%=vdobmm%></option>
- <%Else%>
- <option value="<%=i%>"><%=i%></option>
- <%End If
- i = i + 1
- loop%>
- </select>
- <select name="vdobdd">
- <%If vdobyyyy mod 4 = 0 And vdobmm = 2 Then
- no_of_day = 29
- ElseIf vdobyyyy mod 4 <> 0 and vdobmm = 2 Then
- no_of_day = 28
- ElseIf vdobmm=4 or vdobmm=6 or vdobmm=9 or vdobmm=11 Then
- no_of_day = 30
- Else
- no_of_day = 31
- End If
- i=1
- Do while i <= no_of_day
- If i = Cint(vdobdd) Then%>
- <option value="<%=vdobdd%>" selected><%=vdobdd%></option>
- <%Else%>
- <option value="<%=i%>"><%=i%></option>
- <%End If
- i = i + 1
- loop%>
- </select><font color='blue' size=2>(yyyy-mm-dd)</font>
- </td>
- </tr>
- </table>
- </tr>
- <tr>
- <table align="center">
- <tr>
- <td align="center"><input type="Submit" name="submit" value="Save">
- <input type="reset" name="reset" value="Reset">
- </td>
- </tr>
- </table>
- </tr>
- </table>
- </form>
- </p>
- </div>
- <%
- End If
- %>
- <!--#include file="menu.inc"-->
- </body>
- </html>