<%@Language=VBScript%> <%Response.Buffer=true If Trim(Request.ServerVariables("HTTP_REFERER"))="" Then Response.Redirect("/visitor-medical-insurance/")%> Visitors Medical Insurance Policy Comparison and Online quote
<% 'On Error Resume Next Dim noOfDependants, countryOfCitizenship, placeOfResidence, mailingAddress, USarrival, maxCoverage, countryOfCoverage Dim varDeductible,varDeductible2, monthsOfCoverage, daysOfCoverage, departureDate, returnDate, calculatedMonthsOfCoverage, calculatedDaysOfCoverage, buycounter, priorCoverage Dim age,spouseAge,affiliateName,rowType,rowheader, isFixed, policyfont, policytitle, bottomborder,rowcell,dedVal maxCoverage = Request.Form("MaxPolicyLimit") If Instr(Request.Form("MaxPolicyLimit"),"-") Then max = Split(Request.Form("MaxPolicyLimit"),"-") If IsArray(max) Then LmaxCoverage=max(0) UmaxCoverage=max(1) End if Else LmaxCoverage=Request.Form("MaxPolicyLimit") UmaxCoverage=Request.Form("MaxPolicyLimit") End if dedVal = Request.Form("Deductible") If Instr(Request.Form("Deductible"),"-") Then take=Split(Request.Form("Deductible"),"-") varDeductible=CCur(take(0)) varDeductible2=CCur(take(1)) Else varDeductible = CCur(Request.Form("Deductible")) varDeductible2= CCur(Request.Form("Deductible")) End If calculatedMonthsOfCoverage = Request.Form("monthsOfCoverage") calculatedDaysOfCoverage = Request.Form("daysOfCoverage") placeOfResidence=Request.Form("Residence") If IsNumeric(placeOfResidence)= true Then residenceAddress="" Else residenceAddress=Request.Form("Residence") 'Request.Form("Residence")=2 End if mailingAddress=Request.Form("MailingAddress") countryOfCitizenship = Request.Form("CountryOfCitizenship") USarrival = Request.Form("USarrival") If Trim(USarrival)="" Then USarrival=-1 countryOfCoverage = CInt(Request.Form("CountryforCoverage")) If Trim(Request.Form("affiliate")) <> "" Then affiliateName=Request.Form("affiliate") Else affiliateName="nriol" End If ' For the redirect page Dim dep0, dep1,dep2,dep3,dep4,dep5, depNum depNum = Request.Form("NumberOfChildren") dep0 = Request.Form("dependant0") dep1 = Request.Form("dependant1") dep2 = Request.Form("dependant2") dep3 = Request.Form("dependant3") dep4 = Request.Form("dependant4") dep5 = Request.Form("dependant5") youngest=-1 younger=-1 If Request.Form("NumberOfChildren") <> "0" Then noOfDependants = CInt(Request.Form("NumberOfChildren")) Dim depArray,temp If Request.Form("NumberOfChildren") <> "0" Then If CInt(noOfDependants) > 2 Then Redim depArray(noOfDependants-1) for i=0 to noOfDependants-1 depArray(i)=CInt(Request.Form("dependant"&i)) If IsEmpty(childs) Then childs=depArray(i) Else childs=childs&", "&depArray(i) End If next If IsArray(depArray)=True Then for i=0 to UBound(depArray) for j=0 to UBound(depArray) if depArray(i) < depArray(j) then temp=depArray(i) depArray(i)=depArray(j) depArray(j)=temp end if next next youngest=depArray(0) younger=depArray(1) End if 'End of IsArray(depArray) Elseif CInt(noOfDependants)=2 Then 'If CInt(noOfDependants) > 2 If CInt(Request.Form("dependant0")) < CInt(Request.Form("dependant1")) Then youngest=Request.Form("dependant0") younger =Request.Form("dependant1") Else youngest=Request.Form("dependant1") younger =Request.Form("dependant0") End if childs=youngest&", "&younger Else youngest=Request.Form("dependant0") younger=-1 childs=youngest End if 'EndIf CInt(noOfDependants) > 2 End if 'End of Request.Form("NumberOfChildren") <> "0" Function daysInMon(y, mon) daysInMon = 31 If (mon = 4 or mon = 6 or mon = 9 or mon = 11) Then 'if Apr, Jun, Sep or Nov daysInMon = 30 Elseif (mon = 2) Then if( y Mod 4 <> 0 ) then daysInMon = 28 'odd year 1997 elseif y Mod 100 = 0 and y Mod 400 <> 0 then daysInMon = 28 else daysInMon = 29 'even but only 1800, 1900 ... not 1600 end if End if End Function departureDate = Request.Form("DepartureYear")& "/" &Request.Form("DepartureMonth")& "/" &Request.Form("DepartureDay") returnDate = Request.Form("ReturnYear")& "/" &Request.Form("ReturnMonth")& "/" &Request.Form("ReturnDay") If IsDate(departureDate)=true Then departureDate=DateValue(departureDate) Else departureDate=Date+1 End if If IsDate(returnDate)=true Then returnDate =DateValue(returnDate) Else returnDate =DateAdd("d",calculateddaysOfCoverage,DateAdd("m",calculatedMonthsOfCoverage,Date)) End if 'date adjustment logic %> <% 'End of date adjustment Logic If IsDate(departureDate)=true and IsDate(returnDate)=true Then TotalDaysOfCoverage=DateDiff("d",departureDate,returnDate)+1 noOfDaysInThePreviousToRedurnDateMonth=daysInMon(Year(returnDate),Month(returnDate)-1) End if age = CInt(Request.Form("Age")) If Trim(Request.Form("spouseAge")) <> "" Then spouseAge = Request.Form("spouseAge") If CInt(age) > CInt(spouseAge) Then primaryage=age secondaryage=CInt(spouseAge) Else primaryage=CInt(spouseAge) secondaryage=age End if priorCoverage = -1 If CInt(USarrival) <5 And (primaryage >= 65 Or secondaryage >= 65) Then If Not (IsEmpty(Request.Form("PriorCoverage")) Or Request.Form("PriorCoverage") = "") Then priorCoverage = Request.Form("PriorCoverage") End If End If Dim rs, days, months Dim clicktlBuylink, clicktlBuyName, clicktlBuyButton, clicktlRecordingPg Dim objConn,objCmd,mainarray,objParam,residenceAddress,prm,srm,drm,halfmonthly,bVisitUSA If countryOfCitizenship = 1 and countryOfCoverage=1 and IsNumeric(placeOfResidence)=false Then Response.Redirect "http://www.nriol.net/nriol/insurance/assurant/stm.html" 'If countryOfCitizenship = 1 and countryOfCoverage=3 Then Response.Redirect("http://www.nriol.net/international-health-insurance-quote-form/index.asp?primaryageN=" &primaryage &"&spouseAgeN=" &spouseAge & "&depNumN=" &depNum & "&depN0=" &dep0 & "&depN1=" &dep1 & "&depN2=" &dep2 & "&depN3=" &dep3 & "&depN4=" &dep4 & "&depN5=" &dep5 & "&DeductibleN=" &dedVal & "&mailingAddressN=" &mailingAddress & "&residenceAddressN=" &residenceAddress & "&countryOfCoverageN=" &"3" &"&redirFlgN=" &"1") Set objConn=Server.CreateObject("ADODB.Connection") objConn.Provider="Microsoft.Jet.OLEDB.4.0" objConn.Open server.mappath("/DB/Travel.mdb") Set objCmd = Server.CreateObject ("ADODB.Command") Set mainRecordSet = Server.CreateObject("ADODB.RecordSet") Set objCmd.ActiveConnection = objConn rowType=false isFixed = True bVisitUSA = False 'Response.Write("MaxCoverage -->"+CStr(LmaxCoverage)+"secondaryage -->"+CStr(secondaryage)+"varDeductible -->"+CStr(varDeductible)+"varDeductible2 -->"+CStr(varDeductible2)+"primaryage -->"+CStr(primaryage)+"UmaxCoverage -->"+CStr(UmaxCoverage)+"CountryOfResidence -->"+CStr(placeOfResidence)+"mailingAddress -->"+CStr(mailingAddress)+"countryOfCitizenship -->"+CStr(countryOfCitizenship)+"priorCoverage -->"+CStr(priorCoverage)+"ResidenceState -->"+CStr(residenceAddress)+"countryOfCoverage -->"+CStr(countryOfCoverage)+"USArrival -->"+CStr(USarrival)) If maxcoverage <> "" THEN With objCmd .CommandType = 4 .CommandText = "[PremiumBenefitsMain]" .Parameters.Append .CreateParameter("@maxCoverageLowerLimit",3,1,,LmaxCoverage) .Parameters.Append .CreateParameter("@age2",3,1,,secondaryage) .Parameters.Append .CreateParameter("@deductible",3,1,,varDeductible) .Parameters.Append .CreateParameter("@deductible2",3,1,,varDeductible2) .Parameters.Append .CreateParameter("@age1",3,1,,primaryage) .Parameters.Append .CreateParameter("@maxCoverageUpperLimit",3,1,,UmaxCoverage) .Parameters.Append .CreateParameter("@immigrantFlag",11,1,,False) .Parameters.Append .CreateParameter("@Greencard",3,1,,-1) if IsNumeric(placeOfResidence) = true Then .Parameters.Append .CreateParameter("@CountryOfResidence",3,1,,2) else .Parameters.Append .CreateParameter("@CountryOfResidence",3,1,,1) end if .Parameters.Append .CreateParameter("@MailingState",8,1,,mailingAddress) .Parameters.Append .CreateParameter("@CountryOfCitizenship",3,1,,countryOfCitizenship) .Parameters.Append .CreateParameter("@PriorCoverage",3,1,,priorCoverage) .Parameters.Append .CreateParameter("@ResidenceState",8,1,,residenceAddress) .Parameters.Append .CreateParameter("@CountryOfCoverage",3,1,,countryOfCoverage) .Parameters.Append .CreateParameter("@USArrival",3,1,,USarrival) .Parameters.Append .CreateParameter("@europeFlag",11,1,,False) .Parameters.Append .CreateParameter("@affiliate",8,1,,affiliateName) End With mainRecordSet.Open objCmd Set mainRecordSet = objCmd.Execute If Not mainRecordSet.Eof Then mainRecordSet.MoveFirst() policytype=mainRecordSet("PolicyType") affName=mainRecordSet("AffiliateFullName") End if Set objCmd = Nothing If Request.Form("NumberOfChildren") <> "0" Then Set objCmd = Server.CreateObject ("ADODB.Command") Set depRecordSet=Server.CreateObject("Adodb.RecordSet") Set objCmd.ActiveConnection = objConn With objCmd .CommandType = 4 .CommandText = "[DependantPremium]" .Parameters.Append .CreateParameter("@maxCoverageLowerLimit",3,1,,LmaxCoverage) .Parameters.Append .CreateParameter("@ageD1",3,1,,youngest) .Parameters.Append .CreateParameter("@age1",3,1,,primaryage) .Parameters.Append .CreateParameter("@ageD2",3,1,,younger) .Parameters.Append .CreateParameter("@age2",3,1,,secondaryage) .Parameters.Append .CreateParameter("@deductible",3,1,,varDeductible) .Parameters.Append .CreateParameter("@deductible2",3,1,,varDeductible2) .Parameters.Append .CreateParameter("@MailingState",8,1,,mailingAddress) .Parameters.Append .CreateParameter("@ResidenceState",8,1,,residenceAddress) .Parameters.Append .CreateParameter("@countryOfCoverage",3,1,,countryOfCoverage) .Parameters.Append .CreateParameter("@usArrival",3,1,,USarrival) .Parameters.Append .CreateParameter("@affiliate",8,1,,affiliateName) .Parameters.Append .CreateParameter("@europeFlag",11,1,,False) .Parameters.Append .CreateParameter("@immigrantFlag",11,1,,False) .Parameters.Append .CreateParameter("@countryOfCitizenship",3,1,,countryOfCitizenship) if IsNumeric(placeOfResidence) = true Then .Parameters.Append .CreateParameter("@countryOfResidence",3,1,,2) else .Parameters.Append .CreateParameter("@countryOfResidence",3,1,,1) end if End With depRecordSet.Open objCmd Set depRecordSet = objCmd.Execute If Not depRecordSet.Eof Then depArray=depRecordSet.GetRows() Set objCmd = Nothing End if End If buycounter = 0 Dim strStyle, strCommand,strCmd, strImgCmd effectiveMonths=calculatedMonthsOfCoverage effectiveDays=calculatedDaysOfCoverage effectivetotalDays=TotalDaysOfCoverage february=0 If Day(departureDate)=daysInMon(Year(departureDate), Month(departureDate)) then february=1 %>
<% If Not (mainRecordSet.Bof And mainRecordSet.Eof) Then mainRecordSet.MoveFirst If Not mainRecordSet.Eof Then If mainRecordSet("PolicyType")=1 Then Response.Write "" Else Response.Write "
" End If policytype=mainRecordSet("PolicyType") headerflag=True Do While Not mainRecordSet.Eof maxlife=Split(mainRecordSet("MaxPolicyPeriod")," ") IF (CInt(calculatedMonthsOfCoverage)mainRecordSet("PolicyType") Then policytype=mainRecordSet("PolicyType") Response.Write"
" Response.Write "" If mainRecordSet("PolicyType")=1 Then Response.Write "" Response.Write "
Comprehensive Policies (Most medical expenses covered up to Policy Maximum)
" Response.Write "" isFixed = False Else Response.Write "" ' Response.Write "Type: Fixed Benefits *" Response.Write "
Fixed Benefits Policies (Each medical expense has limited coverage)
" Response.Write "" isFixed = True End If headerflag=true End If 'End of policytype<>mainRecordSet("PolicyType") If isFixed = True Then rowheader = "fixedheader" rowcell = "fixedcell" bottomborder = "fixedgrid" Else rowheader = "comprehensiveheader" rowcell = "comprehensivecell" bottomborder = "comprehensivegrid" End If If headerflag=true Then Response.Write "" Response.Write "" Response.Write "" Response.Write "" if primaryAge < 70 or spouseAge = 0 Then Response.Write "" Response.Write "" Response.Write "" Response.Write "" elseif primaryage >= 70 and secondaryage <> 0 Then Response.Write "" Response.Write "" Response.Write "" Response.Write "" end If Response.Write "" headerflag=false End if 'End of headerflag = true 'Logic to collapse the fixed benefit policy with higher premium strStyle = "" 'strCommand = "-
Hide" strCommand = "Hide" strCmd = "-" strImgCmd = "" If mainRecordSet("PolicyType") = 0 Then strStyle = "style='display:none;'" 'strCommand = "+
Show" strCommand = "Show" strCmd = "+" strImgCmd = "" 'Commented it based on more req.- All FIxed policies can be collapsed - Nirmala 'If mainRecordSet("Policy.PolicyId")= PPOPolicyId Or mainRecordSet("Policy.PolicyId")= noPPOPolicyId Then 'strStyle = "" 'strCommand = "-
Hide" ' End If End If policyId = mainRecordSet("PremiumBenefits.Policy.PolicyId") ageLowerLimit = mainRecordSet("AgeLowerLimit") effectiveMonths=calculatedMonthsOfCoverage effectiveDays=calculatedDaysOfCoverage effectivetotalDays=TotalDaysOfCoverage 'If mainRecordSet("PolicyType") = 1 or skipFixed = False Then %> <% Call PremiumCalculator If isFixed = True Then If rowType=false then Response.Write "" rowType=true Else Response.Write "" rowType=false End If Else If rowType=false then Response.Write "" rowType=true Else Response.Write "" rowType=false End If End If If isFixed = True Then clicktlBuylink = "BuyLinkClick- Fixed" clicktlBuyName = "BuyPolicyNameClick - Fixed" clicktlBuyButton = "BuyButtonClick - Fixed" Else clicktlBuylink = "BuyLinkClick- Compre" clicktlBuyName = "BuyPolicyNameClick - Compre" clicktlBuyButton = "BuyButtonClick - Compre" End If Response.Write "" Response.Write "" Response.Write "" Response.Write "" If primaryAge < 70 or spouseAge = 0 Then Response.Write "" Response.Write "" 'End of sixth column Response.Write "" 'End of seventh column ElseIf primaryAge >= 70 and spouseAge <> 0 Then Response.Write "" 'End of alternate fifth column Response.Write "" 'End of alternate sixth column Response.Write "" 'End of alternate seventh column End If Response.Write "" %> <% 'End If 'End if of mainRecordSet("PolicyType") = 0 And skipFixed = False End If 'End of cond (CInt(calculatedMonthsOfCoverage)
   POLICY NAME  PREMIUMInformation  PLAN DETAILSInformation  PLAN LIMITS   MEDICAL BENEFITS  OTHER BENEFITS       PLAN DETAILSInformation  PLAN LIMITS   PLAN LIMITS PRIMARY  PLAN LIMITS SPOUSE    
" ' td containing first column Response.write "" Response.Write "
" & strCommand & "" Response.Write "
" & strCmd & "" Response.write "
" ' td containing second column Response.Write "" 'Response.Write "" Response.Write "" Response.Write "" 'hidden span polId = mainRecordSet("PremiumBenefits.Policy.PolicyId") Response.Write "
" 'If (polId=10 or polId=20 or polId=27 or polId=32 or polId=83 or polId=61 or polId=62 or polId= 63 or polId= 68 or polId=69) then ' Response.Write "
" 'else ' Response.Write "
" 'End if Response.Write "" Response.Write "" Response.Write "
" & mainRecordSet("PolicyName") & "" Response.Write "" 'change done for image -- remove width and height param 'Response.Write "
" Response.Write "

" 'Response.Write "
" Response.Write "
" 'third column Response.Write "" Response.Write "
" Response.Write "" Response.Write "Traveler: $" & FormatNumber(primarypremium) & "
" If Trim(spouseAge) <> "" Then Response.Write "Spouse: $" & FormatNumber(spousepremium) &"
" If Request.Form("NumberOfChildren") <> "0" Then Response.Write "Dependant: (" & noOfDependants & ")" & childs & ": $" & FormatNumber(dependantpremium) & "
" Response.Write "Application Fee: $" & FormatNumber(applicationFee) & "
" Response.Write "
" 'hidden span Response.Write "TOTAL" If ((mainRecordSet("PremiumBenefits.Policy.PolicyId")=6 Or mainRecordSet("PremiumBenefits.Policy.PolicyId")=5) And ((primaryage >69 And mainRecordSet("PremiumBenefits.B.PremiumFactors.MaxCoverage")> 50000) Or (primaryage >79 And mainRecordSet("PremiumBenefits.B.PremiumFactors.MaxCoverage")> 15000))) Then Response.Write " with Medical
Buy-Up
" Response.Write ": " Response.Write "$" & FormatNumber(primarypremium+spousepremium+dependantpremium+applicationFee) & " for
"%> <% Response.Write "
" 'fourth column Response.Write "" Response.Write "
" Response.Write "" 'If mainRecordSet("PolicyType")=1 Then ' Response.Write "Type: Comprehensive *" 'Else ' Response.Write "Type: Fixed Benefits *" 'End if If polId = 28 Or polId = 29 Then Response.Write "Underwriter: Unicare Or HM Life" ElseIf ( polId = 10 Or polId = 11 Or polId = 61 ) And (mailingAddress = "CA" Or mailingAddress = "CT" Or mailingAddress = "IN" Or mailingAddress = "MD" Or mailingAddress = "ME" Or mailingAddress = "MT" Or mailingAddress = "NH" Or mailingAddress = "NY" Or mailingAddress = "OR" Or mailingAddress = "RI" Or mailingAddress = "VT") Then Response.Write "Underwriter: Lloyds" Response.Write "
AM Rating: A (Excellent)Information" Else Response.Write "Underwriter: " & mainRecordSet("UnderWriterName") & "" Response.Write "
AM Rating: " & mainRecordSet("AMRating") & "Information" End If Response.Write "
" 'hidden span if mainRecordSet("PrimaryProviderNetwork") = "Depends on provider" then Response.Write "Direct Billing: Depends on providerInformation" else Response.Write "Direct Billing: " 'For Comprehensive policies and Diplomat policies, PPO discounts apply If mainRecordSet("PolicyType")=1 Or (polId=17 Or polId=18 Or polId=84 Or (polId > 37 And polId < 41) Or (polId > 71 And polId < 76)) Then Response.Write "Possible via PPO Network; PPO discounts applyInformation" Else Response.Write "Possible via PPO Network; no PPO discountsInformation" End If end If Response.Write "" If mainRecordSet("PrimaryProviderNetwork") = "Depends on provider" Then Response.Write "
Hospitals/Doctors: No PPO, any hospital or doctor" Else Response.Write "
Hospitals/Doctors:  " & mainRecordSet("HospitalDoctorsNetWork") & "" End If Response.Write "
" 'hidden span Response.Write "" Response.write "
" 'fifth column Response.Write "" Response.Write "" Response.write "
" Response.Write "Policy MaxInformation: $" & FormatNumber(mainRecordSet("PremiumBenefits.B.PremiumFactors.MaxCoverage"),0,-2,-2,-1) If (mainRecordSet("MaxLimitType") = "Per Life of Plan") Then Response.Write "  Per Life of Plan" ElseIf (mainRecordSet("MaxLimitType") = "Per Injury Sickness") Then Response.Write " Per Injury Sickness" Else Response.Write " Per Policy Period" End If Response.write " Information
" data=mainRecordSet("PremiumBenefits.B.Premium.Deductible") If data=101 Then data=100 Response.write "DeductibleInformation: $" & FormatNumber(data,0,-2,-2,-1) if (mainRecordSet("DeductibleType") = "Annual") Then Response.write " Annual" elseif (mainRecordSet("DeductibleType") = "Per Policy Period") Then Response.write " Per Policy Period" elseif (mainRecordSet("DeductibleType") = "Per Injury Sickness") Then Response.write " Per Injury Sickness" else Response.write " " & mainRecordSet("DeductibleType") End If Response.write "Information
" Response.Write "" Response.write "Co InsuranceInformation: " If countryOfCoverage=1 and mainRecordSet("CoInsuranceInsideUS")<>"" Then Response.Write mainRecordSet("CoInsuranceInsideUS") Elseif countryOfCoverage=3 Then If mainRecordSet("CoInsuranceOutsideUS")<>"" Then Response.Write "Inside USA "&mainRecordSet("CoInsuranceInsideUS") If mainRecordSet("CoInsuranceOutsideUS")<>"" Then Response.Write " Outside USA "&mainRecordSet("CoInsuranceOutsideUS") Elseif countryOfCoverage=4 and mainRecordSet("CoInsuranceOutsideUS")<>"" Then Response.Write mainRecordSet("CoInsuranceOutsideUS") End If Response.write "
" 'hidden span 'Nirmala Response.Write "" 'End if Response.write "
" Response.Write "
" 'sixth column Response.Write "" Response.Write "" Response.write "
" If isFixed Then Response.Write "
Several Sub-limits Exist
" Else Response.Write "
Sub-limits rarely Exist
" End If 'data is numeric for comprehensive benefits and text for fixed benefits. Response.Write "" data=mainRecordSet("PremiumBenefits.B.Benefits.HospitalRoom") If IsNumeric(mainRecordSet("PremiumBenefits.B.Benefits.HospitalRoom"))=true Then data="$"&FormatNumber(mainRecordSet("PremiumBenefits.B.Benefits.HospitalRoom"),0,-2,-2,-1) 'Response.Write "Hospital*" & data & "" 'tooltip working fine nirmala Response.Write "HospitalInformation" Response.Write "" & data & "" Response.Write "" data=mainRecordSet("PremiumBenefits.B.Benefits.IntensiveCare") If IsNumeric(mainRecordSet("PremiumBenefits.B.Benefits.IntensiveCare"))=true Then data="$"&FormatNumber(mainRecordSet("PremiumBenefits.B.Benefits.IntensiveCare"),0,-2,-2,-1) 'Response.Write "
Intensive Care*: " & data & "
" Response.Write "
Intensive CareInformation: " Response.Write "" & data & "
" data=mainRecordSet("PremiumBenefits.B.Benefits.InPatientSurgery") If IsNumeric(mainRecordSet("PremiumBenefits.B.Benefits.InPatientSurgery"))=true Then data="$"&FormatNumber(mainRecordSet("PremiumBenefits.B.Benefits.InPatientSurgery"),0,-2,-2,-1) Response.Write "Surgery: " & data & "
" data=mainRecordSet("PremiumBenefits.B.Benefits.PrescriptionDrugs") If IsNumeric(mainRecordSet("PremiumBenefits.B.Benefits.PrescriptionDrugs"))=true Then data="$"&FormatNumber(mainRecordSet("PremiumBenefits.B.Benefits.PrescriptionDrugs"),0,-2,-2,-1) Response.Write "Rx Drugs: " & data & " " Response.Write "
" 'hidden span 'Nirmala Response.Write "" Response.write "
" Response.write "
" 'seventh column Response.Write "" Response.Write "" Response.Write "
" Response.Write "" If LCase(mainRecordSet("Renewability")) = "yes" Then Response.Write "RenewalsInformation: " Response.Write " " & Mid(mainRecordSet("RenewalNotice"),1,15) & " ..." Else Response.Write " RenewalsInformation: No" End If Response.Write "
" 'hidden span If (InStr(LTrim(mainRecordSet("PremiumBenefits.B.Benefits.PreExConditionMedical")), "Not Covered") = 1) Then Response.Write "Pre Existing ConditionsInformation: " Else Response.Write "Pre Existing ConditionsInformation: " End If If strStyle = "" Then Response.Write "" Response.Write mainRecordSet("PremiumBenefits.B.Benefits.PreExConditionMedical") Response.Write "" Response.Write "" Else Response.Write "" Response.Write " " & Mid(mainRecordSet("PremiumBenefits.B.Benefits.PreExConditionMedical"),1,35) & " ..." Response.Write "" Response.Write "" End If If (InStr(LTrim(mainRecordSet("PremiumBenefits.B.Benefits.PreExConditionMedical")), "Not Covered") <> 1) Then Response.Write "" data=mainRecordSet("Evacuation") Response.Write "" If IsNumeric(data) Then data="$"&FormatNumber(mainRecordSet("Evacuation"),0,-2,-2,-1) Response.write "
EvacuationInformation: "& data data=mainRecordSet("Note") If data <> "" Then Response.write "
Note: "& data End If Response.Write "
" 'hidden span 'If (LCase(strCommand) ="show" or strCmd="+") then Response.Write "
" 'End if Response.write "
" 'End of seventh column Response.write "
" 'alternate fifth column Response.write "" Response.write "
" 'Response.Write "" if LCase(mainRecordSet("Renewability")) = "yes" Then Response.Write "RenewalsInformation: " Response.write " " & Mid(mainRecordSet("RenewalNotice"),1,15) & " ..." Else Response.Write "RenewalsInformation: No" end If data = mainRecordSet("PremiumBenefits.B.Benefits.PreExConditionMedical") If (InStr(LTrim(data), "Not Covered") = 1) Then Response.Write "
Pre Existing ConditionsInformation: " Else Response.Write "
Pre Existing ConditionsInformation: " End If If strStyle = "" Then Response.Write "" & data & "" Response.Write "" Else Response.Write "" Response.Write " " & Mid(data,1,23) & " ..." Response.Write "" Response.Write "" End If Response.Write "" Response.write "
Co-InsuranceInformation: " If countryOfCoverage=1 and mainRecordSet("CoInsuranceInsideUS")<>"" Then Response.Write mainRecordSet("CoInsuranceInsideUS")& "
" Elseif countryOfCoverage=3 Then If Trim(mainRecordSet("CoInsuranceInsideUS"))<>"" Then Response.Write "Inside USA "&mainRecordSet("CoInsuranceInsideUS")&"
" If Trim(mainRecordSet("CoInsuranceOutsideUS"))<>"" Then Response.Write " Outside USA "&mainRecordSet("CoInsuranceOutsideUS")&"
" Elseif countryOfCoverage=4 and mainRecordSet("CoInsuranceOutsideUS")<>"" Then Response.Write mainRecordSet("CoInsuranceOutsideUS")&"
" End If Response.Write "Minimum Policy PeriodInformation: "&mainRecordSet("MinPolicyPeriod") Response.write "
" 'hidden span 'Chithra -- ticket number 351 'If(mainRecordSet("PremiumBenefits.Policy.PolicyId") = 19 Or mainRecordSet("PremiumBenefits.Policy.PolicyId") = 21 Or 'mainRecordSet("PremiumBenefits.Policy.PolicyId") = 22) Then ' data=mainRecordSet("Note") ' If data <> "" Then ' Response.write "Note: "& data ' End If ' Response.Write "
" 'hidden span 'End If Response.Write "" Response.Write "
" Response.Write "
" 'alternate sixth column Response.write "" Response.write "" Response.write "
" Response.Write "" If isFixed Then Response.Write "
Several Sub-limits Exist
" Else Response.Write "
Sub-limits rarely Exist
" End If Response.Write "
" 'hidden span Response.Write "
" If IsNumeric(mainRecordSet("PremiumBenefits.B.PremiumFactors.MaxCoverage"))=true Then data="$" & FormatNumber( mainRecordSet("PremiumBenefits.B.PremiumFactors.MaxCoverage"),0,-2,-2,-1) Response.Write "Policy MaxInformation: " If mainRecordSet("PremiumBenefits.B.PremiumFactors.MaxCoverage") <> mainRecordSet("PremiumBenefits.B.S.MaxCoverage") Then 'bold the policy max value if the value for the primary and the spouse are different Response.Write "" & data & "" Else Response.Write data End If If (mainRecordSet("MaxLimitType") = "Per Life of Plan") Then Response.Write " Per Life of PlanInformation" ElseIf (mainRecordSet("MaxLimitType") = "Per Injury Sickness") Then Response.Write " Per Injury SicknessInformation" Else Response.Write " Per Policy PeriodInformation" End If data=mainRecordSet("PremiumBenefits.B.Benefits.HospitalRoom") If IsNumeric(mainRecordSet("PremiumBenefits.B.Benefits.HospitalRoom"))=true Then data="$"&FormatNumber(mainRecordSet("PremiumBenefits.B.Benefits.HospitalRoom"),0,-2,-2,-1) Response.Write "
HospitalInformation" if isFixed Then If strStyle = "" Then Response.Write "" Response.Write "" & data & "" Response.Write "" Response.Write "" Else Response.Write "" Response.Write " " & Mid(data,1,28) & " ..." Response.Write "" Response.Write "" End If else If strStyle = "" Then Response.Write "" Response.Write "" & data & "" Response.Write "" Response.Write "" Else Response.Write "" Response.Write data Response.Write "" Response.Write "" End If End if Response.Write "" data=mainRecordSet("PremiumBenefits.B.Premium.Deductible") If data=101 Then data=100 Response.write "
DeductibleInformation: $" & FormatNumber(data,0,-2,-2,-1) If (mainRecordSet("DeductibleType") = "Annual") Then Response.write " AnnualInformation" ElseIf (mainRecordSet("DeductibleType") = "Per Injury Sickness") Then Response.write " Per Injury SicknessInformation" Elseif (mainRecordSet("DeductibleType") = "Per Policy Period") Then Response.write " Per Policy Period" Else Response.write " " & mainRecordSet("DeductibleType") End If data=mainRecordSet("PremiumBenefits.B.Benefits.InPatientSurgery") If IsNumeric(mainRecordSet("PremiumBenefits.B.Benefits.InPatientSurgery"))=true Then data="$"&FormatNumber(mainRecordSet("PremiumBenefits.B.Benefits.InPatientSurgery"),0,-2,-2,-1) Response.write "
Surgery:
" & data & "" Response.Write "" 'hidden span Response.Write "" Response.Write "
" Response.Write "
" ' alternate seventh column Response.Write "" Response.write "" Response.write "
" Response.Write "" If isFixed Then Response.Write "
Several Sub-limits Exist
" Else Response.Write "
Sub-limits rarely Exist
" End If Response.Write "
" 'hidden span Response.Write "
" If IsNumeric( mainRecordSet("PremiumBenefits.B.S.MaxCoverage"))=true Then data="$"&FormatNumber( mainRecordSet("PremiumBenefits.B.S.MaxCoverage"),0,-2,-2,-1) Response.Write "Policy MaxInformation: " If mainRecordSet("PremiumBenefits.B.PremiumFactors.MaxCoverage") <> mainRecordSet("PremiumBenefits.B.S.MaxCoverage") Then 'bold the policy max value if the value for the primary and the spouse are different Response.Write "" & data & "" Else Response.Write data End If If (mainRecordSet("MaxLimitType") = "Per Life of Plan") Then Response.Write " Per Life of PlanInformation" ElseIf (mainRecordSet("MaxLimitType") = "Per Injury Sickness") Then Response.Write " Per Injury SicknessInformation" Else Response.Write " Per Policy PeriodInformation" End If data=mainRecordSet("PremiumBenefits.B.S.HospitalRoom") If IsNumeric(mainRecordSet("PremiumBenefits.B.S.HospitalRoom"))=true Then data="$"&FormatNumber(mainRecordSet("PremiumBenefits.B.S.HospitalRoom"),0,-2,-2,-1) 'Response.write "
Hospital Expense: " & data & "
" Response.Write "
HospitalInformation" if isFixed Then If strStyle = "" Then Response.Write "" Response.Write "" & data & "" Response.Write "" Response.Write "" Else Response.Write "" Response.Write " " & Mid(data,1,28) & " ..." Response.Write "" Response.Write "" End If else If strStyle = "" Then Response.Write "" Response.Write "" & data & "" Response.Write "" Response.Write "" Else Response.Write "" Response.Write data Response.Write "" Response.Write "" End If End if Response.Write "" data=mainRecordSet("PremiumBenefits.B.S.Deductible") If data=101 Then data=100 Response.write "
DeductibleInformation: $" & FormatNumber(data,0,-2,-2,-1) If (mainRecordSet("DeductibleType") = "Annual") Then Response.write " AnnualInformation" ElseIf (mainRecordSet("DeductibleType") = "Per Injury Sickness") Then Response.write " Per Injury SicknessInformation" ElseIf (mainRecordSet("DeductibleType") = "Per Policy Period") Then Response.write " Per Policy Period" Else Response.write " " & mainRecordSet("DeductibleType") End If data=mainRecordSet("PremiumBenefits.B.S.InPatientSurgery") If IsNumeric(mainRecordSet("PremiumBenefits.B.S.InPatientSurgery"))=true Then data="$"&FormatNumber(mainRecordSet("PremiumBenefits.B.S.InPatientSurgery"),0,-2,-2,-1) Response.write "
Surgery:
" & data & "" Response.Write "" 'hidden span Response.Write "
" Response.write "
" Response.write "
" mainRecordSet.MoveFirst Response.Write"" mainRecordSet.Close Set mainRecordSet=Nothing objConn.Close Set objConn=Nothing End If 'End of If Not mainRecordSet.Eof %>
"> "> "> "> "> "> "> <% If secondaryage < 1 Then %> <%Else%> <%End If %> "> "> "> "> "> "> "> "> ">
  SUMMARY: Insured Ages:    <% If spouseAge <> "" Then Response.Write "Primary: "&primaryage & " yrs, Spouse: " & secondaryage & " yrs." Else Response.Write "Primary "&primaryage& " yrs." End if %> Coverage Dates(mm/dd/yyyy):    <% If IsDate(departureDate)=true and IsDate(returnDate)=true Then Response.Write departureDate& " to " &returnDate%> Country of Citizenship:    <%If Request.Form("CountryofCitizenship") = 1 Then Response.Write "USA" Else Response.Write "Non-USA" End if %>
  Insurance Coverage In:    <% if countryOfCoverage= "1" then Response.Write "USA Only" elseif countryOfCoverage= "3" then Response.Write "ALL INCL USA" else countryOfCoverage= "4" Response.Write "ALL EXCL USA" end if %> Deducitble:    US$ <% If Instr(Request.Form("Deductible"),"-") Then take=Split(Request.Form("Deductible"),"-") If take(0)=101 Then take(0)=100 Response.Write CCur(take(0))&"-"&CCur(take(1)) Else Response.Write CCur(Request.Form("Deductible")) End if %> Medical Coverage Limit:    US$ <% If Instr(Request.Form("MaxPolicyLimit"),"-") Then Response.Write FormatNumber(LmaxCoverage,0,-2,-2,-1)&"-"&FormatNumber(UmaxCoverage,0,-2,-2,-1) Else Response.Write FormatNumber(LmaxCoverage,0,-2,-2,-1) End If %>
<% If CInt(primaryAge) < 70 or CInt(spouseAge) = 0 Then clicktlRecordingPg = "http://www.nriol.net/nriol/insurance/concise/htmlconcise.asp" ElseIf primaryAge >= 70 and spouseAge <> 0 Then clicktlRecordingPg = "http://www.nriol.net/nriol/insurance/concise/htmlseniorconcise.asp" End If %>