home *** CD-ROM | disk | FTP | other *** search
/ 202.53.64.216 / 202.53.64.216.tar / 202.53.64.216 / revelationindia / postloginmatrimonial.asp < prev    next >
Text File  |  2004-09-27  |  848b  |  34 lines
  1. <!--#include file = "increvelation.asp"-->
  2. <%
  3.     dim UsrName,Pwd
  4.     dim Category,UserCode
  5.     dim BlnFlag
  6.         
  7.     UsrName = Request.Form("username")
  8.     Pwd = Request.Form("password")
  9.     
  10.     Category = Request.QueryString("category")
  11.     UserCode = Request.QueryString("user")
  12.         
  13.     BlnFlag = ValidateLoginMatrimonial(UsrName,Pwd)
  14.     
  15.     'Response.Write BlnFlag
  16.     'Response.End
  17.     
  18.     if cbool(BlnFlag) = True then
  19.         session("loginid") = UserCode
  20.         session("paid")="YES"
  21.             
  22.         if Category = cstr("bride") then
  23.             Response.Redirect "bridedetails.asp?user=" & UserCode
  24.         elseif Category = "groom" then
  25.             Response.Redirect "groomdetails.asp?user=" & UserCode
  26.         end if
  27.         
  28.     elseif cbool(BlnFlag) = False then
  29.         session("paid")="NO"
  30.         Response.Redirect "loginmatrimonial.asp?login=fail&category=" & Category & "&user=" & UserCode
  31.     end if
  32.  
  33.     
  34. %>