Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on May 10th, 2012  |  syntax: None  |  size: 2.46 KB  |  hits: 16  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. insert date from drop down list to the access database
  2. <td>Check-in Date</td>
  3. <td>:</td>
  4. <td><select name="inmonth" id="inmonth">
  5. <option value="-1">Month</option>
  6. <option value="0">January</option>
  7. <option value="1">February</option>
  8. <option value="2">March</option>
  9. <option value="3">April</option>
  10. <option value="4">May</option>
  11. <option value="5">June</option>
  12. <option value="6">July</option>
  13. <option value="7">August</option>
  14. <option value="8">September</option>
  15. <option value="9">October</option>
  16. <option value="10">November</option>
  17. <option value="11">December</option>
  18. </select>
  19.         &nbsp;
  20.         <select name="indate" id="indate">
  21.         <option value="-1">Date</option>
  22.         <option value="0">1</option>
  23.         <option value="1">2</option>
  24.         <option value="2">3</option>
  25.         <option value="3">4</option>
  26.         <option value="4">5</option>
  27.         <option value="5">6</option>
  28.         <option value="6">7</option>
  29.         <option value="7">8</option>
  30.         <option value="8">9</option>
  31.         <option value="9">10</option>
  32.         <option value="10">11</option>
  33.         <option value="11">12</option>
  34.         <option value="12">13</option>
  35.         <option value="13">14</option>
  36.         <option value="14">15</option>
  37.         <option value="15">16</option>
  38.         <option value="16">17</option>
  39.         <option value="17">18</option>
  40.         <option value="18">19</option>
  41.         <option value="19">20</option>
  42.         <option value="20">21</option>
  43.         <option value="21">22</option>
  44.         <option value="22">23</option>
  45.         <option value="23">24</option>
  46.         <option value="24">25</option>
  47.         <option value="25">26</option>
  48.         <option value="26">27</option>
  49.         <option value="27">28</option>
  50.         <option value="28">29</option>
  51.         <option value="29">30</option>
  52.         <option value="30">31</option>
  53.         </select>
  54. &nbsp;
  55. <select name="inyear" id="inyear">
  56. <option value="0">Year</option>
  57. <option value="2012">2012</option>
  58. <option value="2013">2013</option>
  59. <option value="2014">2014</option>
  60. <option value="2015">2015</option>
  61. <option value="2011">2016</option>
  62. </select></td>
  63.        
  64. Dim inmonth, indate, inyear, thedate
  65.  
  66. inmonth = CInt(Request.Form("inmonth")) + 1
  67. indate  = CInt(Request.Form("indate"))  + 1
  68. inyear  = Request.Form("inyear")
  69.  
  70. thedate = inyear & "-" & Right(CStr(inmonth + 100), 2) & "-" & Right(CStr(indate + 100), 2)
  71.  
  72. If NOT IsDate(thedate) Then
  73.     Response.Write "Invalid date"
  74. Else
  75.     ' do something else ... '
  76. End If
create a new version of this paste RAW Paste Data