I could post the code, but it is close to 2000 lines of code. I will post part
<form name="form1" method="post" onSubmit="return(checkit())">
<p class="apartmentwhite">Please Select which month your timesheet is
for.
<select name = "select1" size="1" onChange="if(this.value!= '01') this.form.MonthName.value=this.options[this.selectedIndex].text;">
<% Do while NOT dbrs.EOF %>
<option value="<%=dbrs("monthnumber"

.Value%>">
<%=dbrs("monthname"

.Value %></option>
<% dbrs.MoveNext %>
<% Loop %>
</select><input type="submit" value="Show Current Entries" name="showthem" onClick="this.form.showanswers.value='5'">
<input type="hidden" name="supervisor" value="<%=(rs2.Fields.Item("supervisoremail"

.Value)%>">
<input type="hidden" name="MonthName" value ="January">
<p>Please Select the number of days you will be entering if > 0:
<select name="numdays" id="numdays" onChange="fillthemin()">
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
<option value="6">6</option>
<option value="7">7</option>
<option value="8">8</option>
<option value="9">9</option>
<option value="10">10</option>
<option value="11">11</option>
<option value="12">12</option>
<option value="13">13</option>
<option value="14">14</option>
<option value="15">15</option>
<option selected> </option>
</select>
</p>
<br>
<% If (Request.Form("select1"

<> ""

Then %>
<%dbrs3.open ("Select * From Timesheet where loginID = '" & loginname& "' and month = '" & monthname(cint(request("select1"

))& "'" ), dbconn, 0, 1 %>
<table width="89%" border="1" align="center" cellpadding="0" cellspacing="0" class="apartmenttable">
<tr>
<td>
<div align="center"><b>Month</b></div>
</td>
<td>
<div align="center"><b>Date</b></div>
</td>
<td>
<div align="center"><b>Hours</b></div>
</td>
<td><b>Code</b></td>
</tr>
<%dbrs3.movefirst %>
<%
Dim y
y = 1
%>
<% Do While NOT dbrs3.EOF %>
<tr>
<td class="apartmentinside"><%=(dbrs3.Fields.Item("month"

.Value)%></td>
<td class="apartmentinside">
<%=(dbrs3.Fields.Item("date"

.Value)%>
</td>
<td class="apartmentinside">
<%=(dbrs3.Fields.Item("hour"

.Value)%>
</td>
<td class="apartmentinside">
<%=(dbrs3.Fields.Item("code"

.Value)%>
</td>
</tr>
<%dbrs3.movenext %>
<%y = y + 1%>
<% Loop %>
</table>
<% dbrs3.close %>
<p><font size="+1" color="#FFFF00">You Must Reselect the Month</font></p>
<p>
<% End If %>
</p>
<p>By submitting this time sheet, the employee acknowledges working his/her
regular work schedule with the exceptions noted below. For non-exempt
employees in determining overtime hours, our workweek is measured
from 12:01 a.m. Monday through 12:00 midnight Sunday. </p>
<table width="100%" border="0">
<tr>
<td width="33%" class="apartmentinside">
<p>Enter Date(s)<br>
(MM/DD/YYYY)</p></td>
<td width="10%" class="apartmentinside">Hours</td>
<td width="57%" class="apartmentinside">Code (see above)</td>
</tr>
<tr class="apartmentinside">
<td width="33%" class="apartmentinside">
<select name="month1" id="month1">
<% dbrs.MoveFirst %>
<% Do while NOT dbrs.EOF %>
<option value="<%=dbrs("monthnumber"

.Value%>"> <%=dbrs("monthnumber"

.Value %></option>
<% dbrs.MoveNext %>
<% Loop %>
</select>
<select name="day1" id="day1" >
<% days.MoveFirst %>
<% Do while NOT days.EOF %>
<option value="<%=days("day"

.Value%>"> <%=days("day"

.Value %></option>
<% days.MoveNext %>
<% Loop %>
</select>
<select name="year1" id="year1" >
<% years.MoveFirst %>
<% Do while NOT years.EOF %>
<option value="<%=years("year"

.Value%>"> <%=years("year"

.Value %></option>
<% years.MoveNext %>
<% Loop %>
</select> </td>
<td width="10%">
<div align="left">
<input name="hour1" type="text" value="0" size="4" maxlength="4">
</div></td>
<td width="57%"><select name="code1" id="code1" onChange="showAnswers()">
<option value="v">v</option>
<option value="j">j</option>
<option value="s">s</option>
<option value="m">m</option>
<option value="o">o</option>
<option value="r">r</option>
<option value="x">x</option>
<option selected> </option>
</select> </td>
</tr>
<tr class="apartmentinside">
<td width="33%" height="28">
<select name="month2" id="month2">
<% dbrs.MoveFirst %>
<% Do while NOT dbrs.EOF %>
<option value="<%=dbrs("monthnumber"

.Value%>"> <%=dbrs("monthnumber"

.Value %></option>
<% dbrs.MoveNext %>
<% Loop %>
</select>
<select name="day2" id="day2" >
<% days.MoveFirst %>
<% Do while NOT days.EOF %>
<option value="<%=days("day"

.Value%>"> <%=days("day"

.Value %></option>
<% days.MoveNext %>
<% Loop %>
</select>
<select name="year2" id="year2" >
<% years.MoveFirst %>
<% Do while NOT years.EOF %>
<option value="<%=years("year"

.Value%>"> <%=years("year"

.Value %></option>
<% years.MoveNext %>
<% Loop %>
</select> </td>
<td width="10%">
<div align="left">
<input type="text" name="hour2" size="4" maxlength="4">
</div></td>
<td width="57%"><select name="code2" id="code2" onChange="showAnswers()">
<option value="v">v</option>
<option value="j">j</option>
<option value="s">s</option>
<option value="m">m</option>
<option value="o">o</option>
<option value="r">r</option>
<option value="x">x</option>
<option selected> </option>
</select> </td>
</tr>
<tr class="apartmentinside">
<td width="33%"><select name="month3" id="month3">
<% dbrs.MoveFirst %>
<% Do while NOT dbrs.EOF %>
<option value="<%=dbrs("monthnumber"

.Value%>"> <%=dbrs("monthnumber"

.Value %></option>
<% dbrs.MoveNext %>
<% Loop %>
</select>
<select name="day3" id="day3" >
<% days.MoveFirst %>
<% Do while NOT days.EOF %>
<option value="<%=days("day"

.Value%>"> <%=days("day"

.Value %></option>
<% days.MoveNext %>
<% Loop %>
</select>
<select name="year3" id="year3" >
<% years.MoveFirst %>
<% Do while NOT years.EOF %>
<option value="<%=years("year"

.Value%>"> <%=years("year"

.Value %></option>
<% years.MoveNext %>
<% Loop %>
</select> </td>
<td width="10%">
<input type="text" name="hour3" size="4" maxlength="4">
</td>
<td width="57%"><select name="code3" id="code3" onChange="showAnswers()">
<option value="v">v</option>
<option value="j">j</option>
<option value="s">s</option>
<option value="m">m</option>
<option value="o">o</option>
<option value="r">r</option>
<option value="x">x</option>
<option selected> </option>
</select> </td>
</tr>
<tr class="apartmentinside">
<td width="33%"><select name="month4" id="month4">
<% dbrs.MoveFirst %>
<% Do while NOT dbrs.EOF %>
<option value="<%=dbrs("monthnumber"

.Value%>"> <%=dbrs("monthnumber"

.Value %></option>
<% dbrs.MoveNext %>
<% Loop %>
</select>
<select name="day4" id="day4" >
<% days.MoveFirst %>
<% Do while NOT days.EOF %>
<option value="<%=days("day"

.Value%>"> <%=days("day"

.Value %></option>
<% days.MoveNext %>
<% Loop %>
</select>
<select name="year4" id="year4" >
<% years.MoveFirst %>
<% Do while NOT years.EOF %>
<option value="<%=years("year"

.Value%>"> <%=years("year"

.Value %></option>
<% years.MoveNext %>
<% Loop %>
</select> </td>
<td width="10%">
<input type="text" name="hour4" size="4" maxlength="4">
</td>
<td width="57%"><select name="code4" id="code4" onChange="showAnswers()">
<option value="v">v</option>
<option value="j">j</option>
<option value="s">s</option>
<option value="m">m</option>
<option value="o">o</option>
<option value="r">r</option>
<option value="x">x</option>
<option selected> </option>
</select> </td>
</tr>