/old_tpl/m001tpl213.asp

http://github.com/boss2009/ASP-site · ASP · 167 lines · 166 code · 1 blank · 0 comment · 1 complexity · bab1c9c948b6efebb1c412cfc64a6699 MD5 · raw file 

    

  1. <%@language="JAVASCRIPT"%>
    2. 

  2. <!--#include file="../inc/ASPUtility.inc" -->
    3. 

  3. <!--#include file="../Connections/cnnASP02.asp" -->
    4. 

  4. <% Response.ContentType = "application/msword" %>
    5. 

  5. <%
    6. 

  6. var rsContact__intpAdult_id = String(Request.QueryString("intAdult_id"));
    7. 

  7. var rsContact__intContact_id = String(Request.QueryString("intContact_id"));
    8. 

  8. var rsContact = Server.CreateObject("ADODB.Recordset");
    9. 

  9. rsContact.ActiveConnection = MM_cnnASP02_STRING;
    10. 

  10. rsContact.Source = "{call dbo.cp_Cntct_Detail("+ rsContact__intpAdult_id.replace(/'/g, "''") + ","+ rsContact__intContact_id.replace(/'/g, "''") + ")}";
    11. 

  11. rsContact.CursorType = 0;
    12. 

  12. rsContact.CursorLocation = 2;
    13. 

  13. rsContact.LockType = 3;
    14. 

  14. rsContact.Open();
    15. 

  15. 

  16. var rsClient__intpAdult_id = String(Request.QueryString("intAdult_id"));
    17. 

  17. var rsClient = Server.CreateObject("ADODB.Recordset");
    18. 

  18. rsClient.ActiveConnection = MM_cnnASP02_STRING;
    19. 

  19. rsClient.Source = "{call dbo.cp_Idv_Adult_Client("+ rsClient__intpAdult_id.replace(/'/g, "''") + ")}";
    20. 

  20. rsClient.CursorType = 0;
    21. 

  21. rsClient.CursorLocation = 2;
    22. 

  22. rsClient.LockType = 3;
    23. 

  23. rsClient.Open();
    24. 

  24. %>
    25. 

  25. <html>
    26. 

  26. <head>
    27. 

  27. <title>VRS Loan Extension</title>
    28. 

  28. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
    29. 

  29. <link rel="stylesheet" href="../css/aspform.css" type="text/css">
    30. 

  30. </head>
    31. 

  31. <body text="#000000" bgcolor="#FFFFFF">
    32. 

  32. <table width="725" border="0" class="HdrReg">
    33. 

  33.   <tr> 
    34. 

  34.     <td colspan="3">&nbsp;</td>
    35. 

  35.   </tr>
    36. 

  36.   <tr> 
    37. 

  37.     <td nowrap colspan="3"><%=(rsContact.Fields.Item("chvTitle").Value)%> <%=(rsContact.Fields.Item("chvFst_Name").Value)%> <%=(rsContact.Fields.Item("chvLst_Name").Value)%></td>
    38. 

  38.   </tr>
    39. 

  39.   <tr> 
    40. 

  40.     <td colspan="3"><%=(rsContact.Fields.Item("chvJob_title").Value)%></td>
    41. 

  41.   </tr>
    42. 

  42.   <tr> 
    43. 

  43.     <td colspan="3"><%=(rsContact.Fields.Item("chvWork_Name").Value)%></td>
    44. 

  44.   </tr>
    45. 

  45.   <tr> 
    46. 

  46.     <td colspan="3"><%=(rsContact.Fields.Item("chvAddress").Value)%></td>
    47. 

  47.   </tr>
    48. 

  48.   <tr> 
    49. 

  49.     <td nowrap colspan="3"><%=(rsContact.Fields.Item("chvCity").Value)%> <%=(rsContact.Fields.Item("chvProv").Value)%> <%=(rsContact.Fields.Item("chvCntry_Name").Value)%></td>
    50. 

  50.   </tr>
    51. 

  51.   <tr> 
    52. 

  52.     <td colspan="3"><%=(rsContact.Fields.Item("chvPostal_Zip").Value)%></td>
    53. 

  53.   </tr>
    54. 

  54.   <tr> 
    55. 

  55.     <td colspan="3">&nbsp;</td>
    56. 

  56.   </tr>
    57. 

  57.   <tr> 
    58. 

  58.     <td colspan="3">Dear <%=(rsContact.Fields.Item("chvTitle").Value)%> <%=(rsContact.Fields.Item("chvLst_Name").Value)%></td>
    59. 

  59.   </tr>
    60. 

  60.   <tr> 
    61. 

  61.     <td colspan="3">&nbsp;</td>
    62. 

  62.   </tr>
    63. 

  63.   <tr> 
    64. 

  64.     <td colspan="3"> 
    65. 

  65.       <table width="480" border="0">
    66. 

  66.         <tr> 
    67. 

  67.           <td width="14" class="HdrReg">re:</td>
    68. 

  68.           <td width="456" class="HdrReg"><%=(rsClient.Fields.Item("chvName").Value)%></td>
    69. 

  69.         </tr>
    70. 

  70.       </table>
    71. 

  71.     </td>
    72. 

  72.   </tr>
    73. 

  73.   <tr> 
    74. 

  74.     <td colspan="3"> 
    75. 

  75.       <table width="725" border="0">
    76. 

  76.         <tr> 
    77. 

  77.           <td width="701" class="HdrReg">As Manager of the Adult Services Project, 
    78. 

  78.             I am writing you with regards to your request to extend <%=(rsClient.Fields.Item("chvName").Value)%>'s equipment loan. We are pleased to inform you that Adult 
    79. 

  79.             Services Project is able to extend the loan for:</td>
    80. 

  80.           <td width="14">&nbsp;</td>
    81. 

  81.         </tr>
    82. 

  82.       </table>
    83. 

  83.     </td>
    84. 

  84.   </tr>
    85. 

  85.   <tr> 
    86. 

  86.     <td colspan="3">&nbsp;</td>
    87. 

  87.   </tr>
    88. 

  88.   <tr> 
    89. 

  89.     <td colspan="3"> 
    90. 

  90.       <table width="728" border="0">
    91. 

  91.         <tr> 
    92. 

  92.           <td width="30">&nbsp;</td>
    93. 

  93.           <td width="688" class="HdrReg">xxx months to allow for <%=(rsClient.Fields.Item("chvName").Value)%>'s health to stabilize</td>
    94. 

  94.         </tr>
    95. 

  95.         <tr> 
    96. 

  96.           <td width="30">&nbsp;</td>
    97. 

  97.           <td width="688" class="HdrReg">xxx months to secure other employment 
    98. 

  98.             or PSTP position</td>
    99. 

  99.         </tr>
    100. 

  100.         <tr> 
    101. 

  101.           <td width="30">&nbsp;</td>
    102. 

  102.           <td width="688" class="HdrReg">xxx months</td>
    103. 

  103.         </tr>
    104. 

  104.       </table>
    105. 

  105.     </td>
    106. 

  106.   </tr>
    107. 

  107.   <tr> 
    108. 

  108.     <td colspan="3">&nbsp;</td>
    109. 

  109.   </tr>
    110. 

  110.   <tr> 
    111. 

  111.     <td colspan="3" height="30">
    112. 

  112.       <table width="709" border="0">
    113. 

  113.         <tr> 
    114. 

  114.           <td width="703" class="HdrReg">After this period, we will require written 
    115. 

  115.             confirmation that <%=(rsClient.Fields.Item("chvName").Value)%> meets ASP's eligibility criteria. A new CIP may also 
    116. 

  116.             be required should <%=(rsClient.Fields.Item("chvName").Value)%> find 
    117. 

  117.             other employment. Otherwise, arrangements will need to be made to 
    118. 

  118.             return the equipment.</td>
    119. 

  119.         </tr>
    120. 

  120.       </table>
    121. 

  121.     </td>
    122. 

  122.   </tr>
    123. 

  123.   <tr> 
    124. 

  124.     <td colspan="3">&nbsp;</td>
    125. 

  125.   </tr>
    126. 

  126.   <tr> 
    127. 

  127.     <td colspan="3">If you have any further questions or concerns regarding this 
    128. 

  128.       decision, please feel free to contact me at 264-8295</td>
    129. 

  129.   </tr>
    130. 

  130.   <tr> 
    131. 

  131.     <td colspan="3">&nbsp;</td>
    132. 

  132.   </tr>
    133. 

  133.   <tr> 
    134. 

  134.     <td colspan="3">&nbsp;</td>
    135. 

  135.   </tr>
    136. 

  136.   <tr> 
    137. 

  137.     <td colspan="3">Yours truly,</td>
    138. 

  138.   </tr>
    139. 

  139.   <tr> 
    140. 

  140.     <td colspan="3">&nbsp;</td>
    141. 

  141.   </tr>
    142. 

  142.   <tr> 
    143. 

  143.     <td colspan="3">&nbsp;</td>
    144. 

  144.   </tr>
    145. 

  145.   <tr> 
    146. 

  146.     <td colspan="3">Gladys Loewen,</td>
    147. 

  147.   </tr>
    148. 

  148.   <tr> 
    149. 

  149.     <td colspan="3">Program Manager</td>
    150. 

  150.   </tr>
    151. 

  151.   <tr> 
    152. 

  152.     <td colspan="3">&nbsp;</td>
    153. 

  153.   </tr>
    154. 

  154.   <tr> 
    155. 

  155.     <td colspan="3">cc: <%=(rsClient.Fields.Item("chvName").Value)%></td>
    156. 

  156.   </tr>
    157. 

  157.   <tr> 
    158. 

  158.     <td colspan="3">&nbsp;</td>
    159. 

  159.   </tr>
    160. 

  160. </table>
    161. 

  161. <p>&nbsp;</p>
    162. 

  162. </body>
    163. 

  163. </html>
    164. 

  164. <%
    165. 

  165. rsContact.Close();
    166. 

  166. rsClient.Close();
    167. 

  167. %>
    168.