/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. <!--#include file="../inc/ASPUtility.inc" -->
  3. <!--#include file="../Connections/cnnASP02.asp" -->
  4. <% Response.ContentType = "application/msword" %>
  5. <%
  6. var rsContact__intpAdult_id = String(Request.QueryString("intAdult_id"));
  7. var rsContact__intContact_id = String(Request.QueryString("intContact_id"));
  8. var rsContact = Server.CreateObject("ADODB.Recordset");
  9. rsContact.ActiveConnection = MM_cnnASP02_STRING;
  10. rsContact.Source = "{call dbo.cp_Cntct_Detail("+ rsContact__intpAdult_id.replace(/'/g, "''") + ","+ rsContact__intContact_id.replace(/'/g, "''") + ")}";
  11. rsContact.CursorType = 0;
  12. rsContact.CursorLocation = 2;
  13. rsContact.LockType = 3;
  14. rsContact.Open();
  15. var rsClient__intpAdult_id = String(Request.QueryString("intAdult_id"));
  16. var rsClient = Server.CreateObject("ADODB.Recordset");
  17. rsClient.ActiveConnection = MM_cnnASP02_STRING;
  18. rsClient.Source = "{call dbo.cp_Idv_Adult_Client("+ rsClient__intpAdult_id.replace(/'/g, "''") + ")}";
  19. rsClient.CursorType = 0;
  20. rsClient.CursorLocation = 2;
  21. rsClient.LockType = 3;
  22. rsClient.Open();
  23. %>
  24. <html>
  25. <head>
  26. <title>VRS Loan Extension</title>
  27. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
  28. <link rel="stylesheet" href="../css/aspform.css" type="text/css">
  29. </head>
  30. <body text="#000000" bgcolor="#FFFFFF">
  31. <table width="725" border="0" class="HdrReg">
  32. <tr>
  33. <td colspan="3">&nbsp;</td>
  34. </tr>
  35. <tr>
  36. <td nowrap colspan="3"><%=(rsContact.Fields.Item("chvTitle").Value)%> <%=(rsContact.Fields.Item("chvFst_Name").Value)%> <%=(rsContact.Fields.Item("chvLst_Name").Value)%></td>
  37. </tr>
  38. <tr>
  39. <td colspan="3"><%=(rsContact.Fields.Item("chvJob_title").Value)%></td>
  40. </tr>
  41. <tr>
  42. <td colspan="3"><%=(rsContact.Fields.Item("chvWork_Name").Value)%></td>
  43. </tr>
  44. <tr>
  45. <td colspan="3"><%=(rsContact.Fields.Item("chvAddress").Value)%></td>
  46. </tr>
  47. <tr>
  48. <td nowrap colspan="3"><%=(rsContact.Fields.Item("chvCity").Value)%> <%=(rsContact.Fields.Item("chvProv").Value)%> <%=(rsContact.Fields.Item("chvCntry_Name").Value)%></td>
  49. </tr>
  50. <tr>
  51. <td colspan="3"><%=(rsContact.Fields.Item("chvPostal_Zip").Value)%></td>
  52. </tr>
  53. <tr>
  54. <td colspan="3">&nbsp;</td>
  55. </tr>
  56. <tr>
  57. <td colspan="3">Dear <%=(rsContact.Fields.Item("chvTitle").Value)%> <%=(rsContact.Fields.Item("chvLst_Name").Value)%></td>
  58. </tr>
  59. <tr>
  60. <td colspan="3">&nbsp;</td>
  61. </tr>
  62. <tr>
  63. <td colspan="3">
  64. <table width="480" border="0">
  65. <tr>
  66. <td width="14" class="HdrReg">re:</td>
  67. <td width="456" class="HdrReg"><%=(rsClient.Fields.Item("chvName").Value)%></td>
  68. </tr>
  69. </table>
  70. </td>
  71. </tr>
  72. <tr>
  73. <td colspan="3">
  74. <table width="725" border="0">
  75. <tr>
  76. <td width="701" class="HdrReg">As Manager of the Adult Services Project,
  77. 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
  78. Services Project is able to extend the loan for:</td>
  79. <td width="14">&nbsp;</td>
  80. </tr>
  81. </table>
  82. </td>
  83. </tr>
  84. <tr>
  85. <td colspan="3">&nbsp;</td>
  86. </tr>
  87. <tr>
  88. <td colspan="3">
  89. <table width="728" border="0">
  90. <tr>
  91. <td width="30">&nbsp;</td>
  92. <td width="688" class="HdrReg">xxx months to allow for <%=(rsClient.Fields.Item("chvName").Value)%>'s health to stabilize</td>
  93. </tr>
  94. <tr>
  95. <td width="30">&nbsp;</td>
  96. <td width="688" class="HdrReg">xxx months to secure other employment
  97. or PSTP position</td>
  98. </tr>
  99. <tr>
  100. <td width="30">&nbsp;</td>
  101. <td width="688" class="HdrReg">xxx months</td>
  102. </tr>
  103. </table>
  104. </td>
  105. </tr>
  106. <tr>
  107. <td colspan="3">&nbsp;</td>
  108. </tr>
  109. <tr>
  110. <td colspan="3" height="30">
  111. <table width="709" border="0">
  112. <tr>
  113. <td width="703" class="HdrReg">After this period, we will require written
  114. confirmation that <%=(rsClient.Fields.Item("chvName").Value)%> meets ASP's eligibility criteria. A new CIP may also
  115. be required should <%=(rsClient.Fields.Item("chvName").Value)%> find
  116. other employment. Otherwise, arrangements will need to be made to
  117. return the equipment.</td>
  118. </tr>
  119. </table>
  120. </td>
  121. </tr>
  122. <tr>
  123. <td colspan="3">&nbsp;</td>
  124. </tr>
  125. <tr>
  126. <td colspan="3">If you have any further questions or concerns regarding this
  127. decision, please feel free to contact me at 264-8295</td>
  128. </tr>
  129. <tr>
  130. <td colspan="3">&nbsp;</td>
  131. </tr>
  132. <tr>
  133. <td colspan="3">&nbsp;</td>
  134. </tr>
  135. <tr>
  136. <td colspan="3">Yours truly,</td>
  137. </tr>
  138. <tr>
  139. <td colspan="3">&nbsp;</td>
  140. </tr>
  141. <tr>
  142. <td colspan="3">&nbsp;</td>
  143. </tr>
  144. <tr>
  145. <td colspan="3">Gladys Loewen,</td>
  146. </tr>
  147. <tr>
  148. <td colspan="3">Program Manager</td>
  149. </tr>
  150. <tr>
  151. <td colspan="3">&nbsp;</td>
  152. </tr>
  153. <tr>
  154. <td colspan="3">cc: <%=(rsClient.Fields.Item("chvName").Value)%></td>
  155. </tr>
  156. <tr>
  157. <td colspan="3">&nbsp;</td>
  158. </tr>
  159. </table>
  160. <p>&nbsp;</p>
  161. </body>
  162. </html>
  163. <%
  164. rsContact.Close();
  165. rsClient.Close();
  166. %>