home *** CD-ROM | disk | FTP | other *** search
/ 202.53.64.216 / 202.53.64.216.tar / 202.53.64.216 / revelationindia / adminreplyprayerrequest.asp < prev    next >
Text File  |  2004-09-27  |  3KB  |  94 lines
  1. <!--#include file="increvelation.asp"-->
  2. <%
  3.     if len(session("adminid"))= 0 then
  4.         Response.Redirect "adminlogin.asp"
  5.     end if
  6. %>
  7.  
  8. <%
  9.     dim EnquiryId,Email,Message1
  10.     dim Flag
  11.     dim rsPrayer
  12.     
  13.     EnquiryId = Request.QueryString("enqid")
  14.         
  15.     Flag = Request.QueryString("flag")
  16.     
  17.     set rsPrayer = server.CreateObject("adodb.recordset")
  18.     
  19.     set rsPrayer = GetEnquiries(Flag,EnquiryId)
  20.     
  21.     'if rsPrayer.EOF = true and rsPrayer.BOF = true then
  22.         
  23.     'end if
  24.     
  25.     Email = rsPrayer.Fields("email")
  26.     Message1 = rsPrayer.Fields("message")
  27.     
  28.     
  29. %> 
  30.  
  31. <html>
  32. <head>
  33. <title>RevelationIndia-Admin</title>
  34. <style>
  35. A
  36.             {
  37.                 COLOR : white; Text-Decoration : None
  38.             }
  39.  
  40.             A:Hover
  41.             {
  42.                 COLOR : #cc0000;Text-Decoration : None
  43.             }
  44. </style>
  45. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
  46. </head>
  47. <body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onload = "document.frmreply.message.focus()">
  48.  <!--#include file ="include\admintop.inc"--> 
  49.  <form action = "postadminreplyprayer.asp?enqid=<%=Enquiryid%>&flag=<%=Flag%>" method = "post" name = "frmreply" >
  50. <table width="779" border="0" cellspacing="0" cellpadding="0" height="500">
  51.   <tr> 
  52.     <td width="150" rowspan="9" valign="top"> 
  53.    <%' <!--#include file ="include\lefthome.inc"-->  %>
  54.     </td>
  55.     <td colspan="2" align="center" valign="top" rowspan="9" width="700"> 
  56. <CENTER>
  57.  <% if Request.QueryString("postreply") = "fail" then %>
  58.             <br><font color=red face = verdana size=2>
  59.             <b>Unable to send a mail !!</b>
  60.             </font>
  61.             <br>
  62.     <%end if%><br>
  63. <font color = #ad0010 size=4 face = verdana >
  64. <b><% if flag="Prayer" then%>
  65. Reply To <%=Flag%> Request
  66. <%else%>
  67. Reply To <%=Flag%>
  68. <%end if%>
  69. </b></font>
  70. </CENTER>
  71. <br>
  72. <TABLE WIDTH="75%" BORDER=0 CELLSPACING=2 CELLPADDING=5 align = center>
  73.     <TR>
  74.         <TD><font size=2 color = navy face=verdana><b>To</b></font></TD>
  75.         <TD><input name = "to" size = 45 value="<%=Email%>"></TD>
  76.     </TR>
  77.     <TR>
  78.         <TD><font size=2 color = navy face=verdana ><b>Subject</b></font></TD>
  79.         <TD><INPUT name="subject" size=45 value="RE: <%=Message1%>" ></TD>
  80.     </TR>
  81.     <TR>
  82.         <TD><font size=2 color = navy face=verdana><b>Message</b></font></TD>
  83.         <TD><TEXTAREA cols=65 name="message" rows=15></TEXTAREA></TD>
  84.     </TR>
  85.     <TR>
  86.         <TD> </TD>
  87.         <TD align = right><INPUT type="submit" value=" Post " id=submit1 name=submit1 >
  88.         <INPUT type="reset" value="Cancel" id=reset1 name=reset1>
  89.         <INPUT type="button" value="Back" id=back name=back onclick="javascript:history.back(1)"></TD>
  90.     </TR>
  91. </TABLE></CENTER></FONT>
  92.  
  93. </BODY>
  94. </HTML>