home *** CD-ROM | disk | FTP | other *** search
/ 202.53.64.216 / 202.53.64.216.tar / 202.53.64.216 / revelationindia / postregistermatrimonial.asp < prev    next >
Text File  |  2004-09-27  |  8KB  |  210 lines
  1. <!--#include file = "increvelation.asp"-->
  2. <% Response.Buffer = True %>
  3. <%
  4.  
  5.     dim Fname,Lname,Gender,DOB,Bday,Bmonth,Byear,Height,Complexion
  6.     dim Mothertongue,Church,Personality,Marital
  7.     dim Street,City,State,Country,Zip,Phone,Fax,Email
  8.     dim Exam1,College1,Year1,Marks1
  9.     dim Exam2,College2,Year2,Marks2
  10.     dim Exam3,College3,Year3,Marks3
  11.     dim Courses,Designation,Org,Officeaddress,Achievements
  12.     dim Hobbies,Intetests,Ailments,Teetotaller,Others
  13.     dim Fathername,Mothername,Fatherjob,Motherjob
  14.     dim Fatherchurch,Motherchurch,Fathernative,Mothernative
  15.     dim Sisters,Brothers,AboutMe,Refname1,Refaddress1,Refphone1
  16.     dim Refname2,Refaddress2,Refphone2
  17.     dim Baptised,Bornagain,Spiritfilled
  18.     dim Biblecount,BibleStudy,Tith,Gospel
  19.     dim Partneredu,Partnerjob,Abroad,Partnerheight,Partnercomplexion
  20.     dim Partnerage,Partnernative,Partnerstatus,Partnermove,Aboutpartner,Filledby
  21.     dim Username,Password,UserCode,Enabled,RegisteredDate
  22.     dim BlnFlag
  23.     
  24.     dim PhotoFilename
  25.     dim strPath,strData,objDic,objScriptObject,objMyFile,i,strFolder
  26.         
  27.     PhotoFilename = ""
  28.     
  29.     
  30.     strPath=server.MapPath(Request.ServerVariables("path_info")) 
  31.     
  32.     
  33.     
  34.     strPath=left(strPath,len(strPath)-27) 'Path till filename excluding length of filename
  35.     
  36.     
  37.     set objDic = ParseRequest(Request.BinaryRead(Request.TotalBytes))
  38.  
  39.     Username = objDic.Item("username").Item("Value")
  40.     
  41.     strData = objDic.Item("photo").Item("Value")
  42.     
  43.   '    Create FileSytemObject Component
  44.     Set objScriptObject = Server.CreateObject("Scripting.FileSystemObject")
  45.         
  46.          if len(objDic.Item("photo").Item("Value"))>0 then
  47.             PhotoFilename= Username & "_" & objScriptObject.GetFileName(objDic.Item("photo").Item("FileName"))
  48.             
  49.                                             
  50.             ' Create and Write to a File
  51.         
  52.             strPath = strPath & "Matrimonial_Photos\" & PhotoFilename
  53.             
  54.             'session("photo") = PhotoFilename
  55.             
  56.             'Response.Write session("photo")
  57.             'Response.End
  58.             
  59.             'session("photo") = "me_bride"
  60.             
  61.             'strFolder = "Matrimonial_Photos\" & PhotoFilename
  62.                 
  63.             Set objMyFile = objScriptObject.CreateTextFile(strPath)
  64.             
  65.             For i = 1 to LenB(strData) 
  66.                 objMyFile.Write chr(AscB(MidB(strData, i, 1)))
  67.             Next
  68.             objMyFile.Close
  69.  
  70.         else
  71.             PhotoFilename = "None"
  72.         end if        
  73.         
  74.     '************************************************************************************
  75.     
  76.     Fname = objDic.Item("fname").Item("Value")
  77.     Lname = objDic.Item("lname").Item("Value")
  78.     Gender = objDic.Item("gender").Item("Value")
  79.     DOB = objDic.Item("dob")
  80.     Bday = objDic.Item("bday").Item("Value")
  81.     Bmonth = objDic.Item("bmonth").Item("Value")
  82.     Byear = objDic.Item("byear").Item("Value")
  83.     DOB = Bmonth & "/" & Bday & "/" & Byear
  84.     Height = objDic.Item("height").Item("Value")
  85.     Complexion = objDic.Item("complexion").Item("Value")
  86.     
  87.     Mothertongue = objDic.Item("mothertongue").Item("Value")
  88.     Church = objDic.Item("church").Item("Value")
  89.     Personality = objDic.Item("personality").Item("Value")
  90.     Marital = objDic.Item("marital").Item("Value")
  91.     
  92.     Street = objDic.Item("street").Item("Value")
  93.     City = objDic.Item("city").Item("Value")
  94.     State = objDic.Item("state").Item("Value")
  95.     Country = objDic.Item("country").Item("Value")
  96.     Zip = objDic.Item("zip").Item("Value")
  97.     Phone = objDic.Item("phone").Item("Value")
  98.     Email = objDic.Item("email").Item("Value")
  99.     
  100.     Exam1 = objDic.Item("exam1").Item("Value")
  101.     College1 = objDic.Item("college1").Item("Value")
  102.     Year1 = objDic.Item("year1").Item("Value")
  103.     Marks1 = objDic.Item("marks1").Item("Value")
  104.     
  105.     Exam2 = objDic.Item("exam2").Item("Value")
  106.     College2 = objDic.Item("college2").Item("Value")
  107.     Year2 = objDic.Item("year2").Item("Value")
  108.     if len(Year2) = 0 then
  109.         Year2 = 0
  110.     end if 
  111.     Marks2 = objDic.Item("marks2").Item("Value")
  112.     
  113.     Exam3 = objDic.Item("exam3").Item("Value")
  114.     College3 = objDic.Item("college3").Item("Value")
  115.     Year3 = objDic.Item("year3").Item("Value")
  116.     if len(Year3) = 0 then
  117.         Year3 = 0
  118.     end if 
  119.     Marks3 = objDic.Item("marks3").Item("Value")
  120.     
  121.     Courses = objDic.Item("courses").Item("Value")
  122.     Designation = objDic.Item("designation").Item("Value")
  123.     Org = objDic.Item("org").Item("Value")
  124.     Officeaddress = objDic.Item("officeaddress").Item("Value")
  125.     Achievements = objDic.Item("achievements").Item("Value")
  126.     
  127.     Hobbies = objDic.Item("hobbies").Item("Value")
  128.     Interests = objDic.Item("interests").Item("Value")
  129.     Ailments = objDic.Item("ailments").Item("Value")
  130.     Teetotaller = objDic.Item("teetotaller").Item("Value")
  131.     Others = objDic.Item("others").Item("Value")
  132.     
  133.     Fathername = objDic.Item("fathername").Item("Value")
  134.     Mothername = objDic.Item("mothername").Item("Value")
  135.     Fatherjob = objDic.Item("fatherjob").Item("Value")
  136.     Motherjob = objDic.Item("motherjob").Item("Value")
  137.     
  138.     Fatherchurch = objDic.Item("fatherchurch").Item("Value")
  139.     Motherchurch = objDic.Item("motherchurch").Item("Value")
  140.     Fathernative = objDic.Item("fathernative").Item("Value")
  141.     Mothernative = objDic.Item("mothernative").Item("Value")
  142.     
  143.     Sisters = objDic.Item("sisters").Item("Value")
  144.     Brothers = objDic.Item("brothers").Item("Value")
  145.     AboutMe = objDic.Item("aboutme").Item("Value")
  146.     Refname1 = objDic.Item("refname1").Item("Value")
  147.     Refaddress1 = objDic.Item("refaddress1").Item("Value")
  148.     Refphone1 = objDic.Item("refphone1").Item("Value")
  149.     Refname2 = objDic.Item("refname2").Item("Value")
  150.     Refaddress2 = objDic.Item("refaddress2").Item("Value")
  151.     Refphone2 = objDic.Item("refphone2").Item("Value")
  152.     
  153.     Baptised = objDic.Item("baptised").Item("Value")
  154.     Bornagain = objDic.Item("bornagain").Item("Value")
  155.     Spiritfilled = objDic.Item("spiritfilled").Item("Value")
  156.     
  157.     Biblecount = objDic.Item("biblecount").Item("Value")
  158.     Biblestudy = objDic.Item("biblestudy").Item("Value")
  159.     Tith = objDic.Item("tith").Item("Value")
  160.     Gospel = objDic.Item("gospel").Item("Value")
  161.     
  162.     Partneredu = objDic.Item("partneredu").Item("Value")
  163.     Partnerjob = objDic.Item("partnerjob").Item("Value")
  164.     Abroad = objDic.Item("abroad").Item("Value")
  165.     Partnerheight = objDic.Item("partnerheight").Item("Value")
  166.     Partnercomplexion = objDic.Item("partnercomplexion").Item("Value")
  167.     
  168.     Partnerage = objDic.Item("partnerage").Item("Value")
  169.     Partnernative = objDic.Item("partnernative").Item("Value")
  170.     Partnerstatus = objDic.Item("partnerstatus").Item("Value")
  171.     Partnermove = objDic.Item("partnermove").Item("Value")
  172.     Aboutpartner = objDic.Item("aboutpartner").Item("Value")
  173.     Filledby = objDic.Item("filledby").Item("Value")
  174.     
  175.     UserCode = 0
  176.     Username = objDic.Item("username").Item("Value")
  177.     Password = objDic.Item("password").Item("Value")
  178.     Enabled = "YES"
  179.     RegisteredDate = now()
  180.     
  181.     
  182.     BlnFlag = AddToMatrimonial(FName,LName,Gender,cdate(DOB),Height,Complexion,Mothertongue, _
  183.                             Church,Personality,Marital,PhotoFilename,Street,City,State,Country,Zip, _
  184.                             Phone,Fax,Email,Exam1,College1,cint(Year1),Marks1,_
  185.                             Exam2,College2,Year2,Marks2,Exam3,College3,Year3,Marks3, _
  186.                             Courses,Designation,Org,OfficeAddress,Achievements,Hobbies, _
  187.                             Interests,Ailments,TeeTotaller,Others,Fathername,Fatherjob, _
  188.                             Fatherchurch,Fathernative,Mothername,Motherjob,Motherchurch, _
  189.                             Mothernative,Sisters,Brothers,AboutMe,RefName1,RefAddress1,RefPhone1, _
  190.                             RefName2,RefAddress2,RefPhone2,Baptised,Bornagain, _
  191.                             SpiritFilled,BibleCount,BibleStudy,Tith,Gospel, _
  192.                             PartnerEdu,PartnerJob,Abroad,PartnerHeight,PartnerComplexion, _
  193.                             PartnerAge,PartnerNative,PartnerStatus,PartnerMove, _
  194.                             AboutPartner,FilledBy,UserCode,UserName,Password,Enabled,cdate(RegisteredDate))
  195.     
  196.     'Response.Write BlnFlag
  197.     'Response.End
  198.     
  199.     if BlnFlag = True then
  200.         Response.Redirect "matrimonial.asp?matriregister=success&fname=" & FName
  201.         Response.end
  202.     elseif BlnFlag = False then
  203.         Response.Redirect "registermatrimonial.asp?matriregister=fail"
  204.     elseif BlnFlag = "Exists" then
  205.         Response.Redirect "registermatrimonial.asp?matriregister=exists"
  206.     end if
  207.     
  208. %>
  209.     
  210.