home *** CD-ROM | disk | FTP | other *** search
/ 202.53.64.216 / 202.53.64.216.tar / 202.53.64.216 / revelationindia / home.asp < prev    next >
Text File  |  2004-09-27  |  3KB  |  100 lines
  1. <% Response.Buffer = True
  2.    Response.Expires = 0
  3. %>
  4.  
  5. <% 
  6.     dim Gender
  7.     dim Title
  8.     dim Name
  9.     dim UserCount
  10.     
  11.     Gender = Request.QueryString("gender")
  12.     Name = Request.QueryString("name")
  13.     
  14.     if Gender = "Male" then
  15.         Title = "Bro. "
  16.     elseif Gender = "Female" then
  17.         Title = "Sis. "
  18.     end if
  19.     
  20.     'BlnFlag = AddToUserCount()
  21.     
  22.     'Response.Write BlnFlag
  23.     'Response.End
  24.     
  25.     'if BlnFlag = True then
  26.         'UserCount = GetMaxUserCount()
  27.     'end if
  28.     
  29.     'Response.Write "Count = " & application("usercount")
  30.     'Response.End
  31.     
  32. %>
  33.     
  34.  
  35. <HTML>
  36. <HEAD>
  37. <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
  38. <style>
  39. A
  40. {
  41.   text-decoration : none;
  42.  }
  43. A:hover
  44. {
  45.     COLOR: maroon;  
  46. }
  47. </style>
  48. </HEAD>
  49. <BODY topmargin = 0 leftmargin=0>
  50. <!-- #include file= "include\top.inc" -->
  51. <TABLE border=0 cellPadding=0 cellSpacing=0 width=780 >
  52.   <TBODY>
  53.   <TR>
  54.     <TD valign = top width=20><!--#include file = "include\left.inc"--></TD>
  55.     <TD>  </TD>
  56.     <TD valign = top align = middle>
  57.             
  58.     <TH colspan = 2 valign = top>
  59.     <center><font color = purple size = 3 face = "times new roman"><b>
  60.         <br><i>You are Vistor No.</font><font color=orange  face  = "verdana" ="3">
  61.         <%=Application("usercount")%> </font><font color =purple size = 3 face = "times new roman">Browsing this Site</I></B>
  62.         </font></center>
  63.         <br>
  64.       <center>
  65.        <IMG src="images\peacedove.gif" >
  66.        <br>
  67.        <IMG src = "images\christcircle.gif">
  68.      </center> 
  69.        <%if Request.QueryString("Enquiry") = "success" then %>
  70.             <br>
  71.             <font size = 2 face = verdana color = maroon><b>
  72.             <%=Title %> <%=Name%> 
  73.             <font size = 2 face = verdana color = navy>
  74.             Thanks For Your Enquiry ! <br><br>
  75.             We will get back to you very shortly.
  76.             </b></font>
  77.        <% elseif Request.QueryString("Prayer") = "success" then %>
  78.             <br>
  79.             <font size = 2 face = verdana color = maroon><b>
  80.             <%=Title %> <%=Name%> 
  81.             <font size = 2 face = verdana color = navy>
  82.             Do not worry ! Trust the LORD<br><br>
  83.             HE will do wonders in your life.
  84.             </b></font>
  85.         <% elseif Request.QueryString("Partnership") = "success" then %>
  86.             <br>
  87.             <font size = 2 face = verdana color = maroon><b>
  88.             Dear <%=Name%> 
  89.             <font size = 2 face = verdana color = navy>
  90.             Thanks for your contribution.<br><br>
  91.             May the LORD bless you abundantly.
  92.             </b></font>    
  93.       <% end if %>
  94.       </FONT></FONT>
  95.     </TH>    
  96.     </TR></TBODY>
  97.      </TABLE></TD></TR></TBODY></TABLE></FORM>
  98. </BODY>
  99. </HTML>
  100.