<% Response.CacheControl = "no-store" Response.AddHeader "Pragma", "no-cache" Response.Expires = -1 %> SocialGrid: Transforming Google to find American Singles and Soulmate
The Soulmate Manifesto
    Read It Online
    Download It Free
    Theories About Soulmates
    Definition of Soulmates
    Evidence of Soulmates
    Soulmate Calculator
    Current Dating Services
    Dating Advice
    Dating Tips
    Dating References
    Love Economics
    Rules of Attraction
    Love Advice
    Relationship Advice
    Breaking Up
Our Dating Service
    Help Solve Dating
    Campaign Statistics
    Support the Campaign
    About Us and Contact Info
Other Dating Resources
    Dating Directories
    Dating Sites
    Love Sites
    Soulmate Sites
    Supportors' Sites

Home > Soulmates > Soulmate Calculator

Soulmate Calculator for American Singles

<% Response.Write "" Response.Write "" %> <% Function makeRow(label, NAMEType, startno, endno) NAMEvar=Replace(NAMEType,"F","") NAMEvarb=NAMEvar & "b" typeStrstart = "" labeStr ="" topLimit1 = "" End Function headerStr="" Response.Write "
" If Session("ReportString")="" Then stringVar ="This Soulmate Calculator will calculate the number of American singles you must meet to find your soulmate. It uses the latest statistics from the U.S. Census and the National Center for Health Statistics." Else stringVar =Session("ReportString") End If Response.Write stringVar Response.Write "

Number of American Singles You Have to Meet- step-by-step explanations on how the result was calculated." Response.Write "
" Response.Write "

" Response.Write "
  General Preferences
  Gender Preference I am a " Response.Write " Looking For a " Response.Write "" %>
  Height: <% Response.Write makeHeight("HeightStartF") Response.Write " to " Response.Write makeHeight("HeightEndF") %>
  Age Range: " Response.Write typeStrstart %> to " Response.Write typeStrend %>
  Are you willing to move?
<% Response.Write "" Call makeEthnic ("asian","All Asian") Call makeEthnic ("black","Black/African American") Call makeEthnic ("white","White / Caucasian") Response.Write "" Response.Write "" Call makeEthnic ("asianindian","Asian Indian") Call makeEthnic ("americanindian","American Indian") Call makeEthnic ("otherrace","Other") Response.Write "" Response.Write "" Call makeEthnic ("chinese","Chinese") Call makeEthnic ("hispanic","Hispanic/Latino") Call makeEthnic ("anyethnic","Any") Response.Write "" Response.Write "" Call makeEthnic ("flipino","Filipino") Call makeEthnic ("middleeastern","Middle Eastern") Response.Write "" Response.Write "" Response.Write "" Call makeEthnic ("japanese","Japanese") Call makeEthnic ("pacific","Pacific Islander") Response.Write "" Response.Write "" Response.Write "" Call makeEthnic ("korean","Korean") Response.Write "" Response.Write "" Response.Write "" Response.Write "" Call makeEthnic ("vietnamese","Vietnamese") Response.Write "" Response.Write "" Response.Write "" Response.Write "" Call makeEthnic ("otherasian","Other Asian") Response.Write "" Response.Write "" Response.Write "" Sub makeEthnic(NAMEvar,Labelvar) If Session(NAMEvar)="True" Then checkVar="CHECKED" Else checkVar="" End If Response.Write "" Response.Write "" End Sub %>

" Response.Write "" & Labelvar & "
<% Response.Write "" Call makeEthnic ("Christian","All Christians") Call makeEthnic ("BuddistToaist","Buddhist/Taoist") Call makeEthnic ("Atheist","Atheist") Response.Write "" Response.Write "" Call makeEthnic ("Catholic","Christian: Catholic") Call makeEthnic ("Jewish","Jewish") Call makeEthnic ("Agnostic","Agnostic") Response.Write "" Response.Write "" Call makeEthnic ("Protestant","Christian: Protestant") Call makeEthnic ("Hindu","Hindu") Call makeEthnic ("Spiritual","Spiritual") Response.Write "" Response.Write "" Call makeEthnic ("Mormon","Christian: Mormon") Call makeEthnic ("Muslim","Muslim") Call makeEthnic ("OtherReligion","Other") Response.Write "" Response.Write "" Call makeEthnic ("OtherChristian","Christian: Other") Response.Write "" Response.Write "" Call makeEthnic ("AnyReligion","Any") Response.Write "" %>
" Response.Write "

  Relationship Status
<% Response.Write "" Call makeEthnic ("Single","Never Married") Call makeEthnic ("Divorced","Divorced") Call makeEthnic ("AnyMarriageStatus","Any") Response.Write "" Response.Write "" Call makeEthnic ("Separated","Separated") Call makeEthnic ("Widowed","Widowed") Response.Write "" Response.Write "" %>

  Set Bottom limit to top 100% percentile if you don't care     Click Here for Help
   top percentile
    " & label & " to  top
 Bottom LimitUpper Limit
" Response.Write headerStr Response.Write makeRow("Face Attractiveness", "input1F", 1, 20) Response.Write makeRow("Body Attractiveness", "input2F", 1, 20) Response.Write makeRow("Intelligence", "input3F", 1, 20) Response.Write makeRow("Emotional Intell.", "input4F", 1, 20) Response.Write makeRow("Spiritualism", "input5F", 1, 20) Response.Write makeRow("Optimism", "input6F", 1, 20) Response.Write makeRow("Energy", "input7F", 1, 20) Response.Write makeRow("Risk Tolerance", "input8F", 1, 20) Response.Write makeRow("Ambition", "input9F", 1, 20) Response.Write makeRow("Compassion", "input10F", 1, 20) Response.Write makeRow("Humor", "input11F", 1, 20) Response.Write makeRow("Artistic Talent", "input12F", 1, 20) Response.Write makeRow("Musical Talent", "input13F", 1, 20) Response.Write makeRow("Writing Talent", "input14F", 1, 20) Response.Write "
" %>

Try our Beta Versions

Ethnicity States and Cities
Asian Singles
Black Singles
Chinese Singles
Filipino Singles
Indian Singles
Iranian Singles
Japanese Singles
Korean Singles
Latin Singles
Russian Singles
Vietnamese Singles

Catholic Singles
Christian Singles
Jewish Singles
LDS Singles
Muslim Singles

Gender Preference
Gay Singles
Lesbian Singles
Alabama Singles
Alaska Singles
Arizona Singles
Arkansas Singles
California Singles
Colorado Singles
Connecticut Singles
Delaware Singles
Florida Singles
Georgia Singles
Hawaii Singles
Idaho Singles
Illinois Singles
Indiana Singles
Iowa Singles
Kansas Singles
Kentucky Singles
Louisiana Singles
Maine Singles
Maryland Singles
Massachusetts Singles
Michigan Singles
Minnesota Singles
Mississippi Singles
Missouri Singles
Montana Singles
Nebraska Singles
Nevada Singles
New Hampshire Singles
New Jersey Singles
New Mexico Singles
New York Singles
North Carolina Singles
North Dakota Singles
Ohio Singles
Oklahoma Singles
Oregon Singles
Pennsylvania Singles
Rhode Island Singles
South Carolina Singles
South Dakota Singles
Tennessee Singles
Texas Singles
Utah Singles
Vermont Singles
Virginia Singles
Washington Singles
West Virginia Singles
Wisconsin Singles
Wyoming Singles

Akron Singles
Albuquerque Singles
Anaheim Singles
Anchorage Singles
Arlington Singles, TX
Arlington Singles, VA
Atlanta Singles
Aurora Singles
Austin Singles
Bakersfield Singles
Baltimore Singles
Baton Rouge Singles
Birmingham Singles
Boston Singles
Buffalo Singles
Charlotte Singles
Chicago Singles
Cincinnati Singles
Cleveland Singles
Colorado Springs Singles
Columbus Singles, OH
Columbus Singles, GA
Corpus Christi Singles
Dallas Singles
Dayton Singles
Denver Singles
Des Moines Singles
Detroit Singles
El Paso Singles
Fort Wayne Singles
Fort Worth Singles
Fremont Singles
Fresno Singles
Garland Singles
Glendale Singles
Grand Rapids Singles
Greensboro Singles
Hialeah Singles
Honolulu Singles
Houston Singles
Huntington Beach Singles
Indianapolis Singles
Jackson Singles
Jacksonville Singles
Jersey City Singles
Kansas City Singles
Las Vegas Singles
Lexington Singles
Lincoln Singles
Little Rock Singles
Long Beach Singles
Los Angeles Singles
Louisville Singles
Lubbock Singles
Madison Singles
Memphis Singles
Mesa Singles
Miami Singles
Milwaukee Singles
Minneapolis Singles
Mobile Singles
Montgomery Singles
Nashville Singles
New Orleans Singles
New York Singles
Newark Singles
Norfolk Singles
Oakland Singles
Oklahoma City Singles
Omaha Singles
Orange County Singles
Philadelphia Singles
Phoenix Singles
Pittsburgh Singles
Portland Singles
Raleigh Singles
Richmond Singles
Riverside Singles
Rochester Singles
Sacramento Singles
San Antonio Singles
San Diego Singles
San Francisco Singles
San Jose Singles
Santa Ana Singles
Seattle Singles
Shreveport Singles
Spokane Singles
St. Louis Singles
St. Paul Singles
St. Petersburg Singles
Stockton Singles
Tacoma Singles
Tampa Singles
Toledo Singles
Tucson Singles
Tulsa Singles
Virginia Beach Singles
Washington, DC Singles
Wichita Singles
Yonkers Singles

Orange County Singles
Southern California Singles
Northern California Singles

<% Function makeHeight(nameVar) nameVar2=Replace(nameVar,"F","") If Session(nameVar2)="47" Then var47 = "SELECTED" Else var47 = "" End If If Session(nameVar2)="48" Then var48 = "SELECTED" Else var48 = "" End If If Session(nameVar2)="49" Then var49 = "SELECTED" Else var49 = "" End If If Session(nameVar2)="50" Then var50 = "SELECTED" Else var50 = "" End If If Session(nameVar2)="51" Then var51 = "SELECTED" Else var51 = "" End If If Session(nameVar2)="52" Then var52 = "SELECTED" Else var52 = "" End If If Session(nameVar2)="53" Then var53 = "SELECTED" Else var53 = "" End If If Session(nameVar2)="54" Then var54 = "SELECTED" Else var54 = "" End If If Session(nameVar2)="55" Then var55 = "SELECTED" Else var55 = "" End If If Session(nameVar2)="56" Then var56 = "SELECTED" Else var56 = "" End If If Session(nameVar2)="57" Then var57 = "SELECTED" Else var57 = "" End If If Session(nameVar2)="58" Then var58 = "SELECTED" Else var58 = "" End If If Session(nameVar2)="59" Then var59 = "SELECTED" Else var59 = "" End If If Session(nameVar2)="60" Then var60 = "SELECTED" Else var60 = "" End If If Session(nameVar2)="61" Then var61 = "SELECTED" Else var61 = "" End If If Session(nameVar2)="62" Then var62 = "SELECTED" Else var62 = "" End If If Session(nameVar2)="63" Then var63 = "SELECTED" Else var63 = "" End If If Session(nameVar2)="64" Then var64 = "SELECTED" Else var64 = "" End If If Session(nameVar2)="65" Then var65 = "SELECTED" Else var65 = "" End If If Session(nameVar2)="66" Then var66 = "SELECTED" Else var66 = "" End If If Session(nameVar2)="67" Then var67 = "SELECTED" Else var67 = "" End If If Session(nameVar2)="68" Then var68 = "SELECTED" Else var68 = "" End If If Session(nameVar2)="69" Then var69 = "SELECTED" Else var69 = "" End If If Session(nameVar2)="70" Then var70 = "SELECTED" Else var70 = "" End If If Session(nameVar2)="71" Then var71 = "SELECTED" Else var71 = "" End If If Session(nameVar2)="72" Then var72 = "SELECTED" Else var72 = "" End If If Session(nameVar2)="73" Then var73 = "SELECTED" Else var73 = "" End If If Session(nameVar2)="74" Then var74 = "SELECTED" Else var74 = "" End If If Session(nameVar2)="75" Then var75 = "SELECTED" Else var75 = "" End If If Session(nameVar2)="76" Then var76 = "SELECTED" Else var76 = "" End If If Session(nameVar2)="77" Then var77 = "SELECTED" Else var77 = "" End If If Session(nameVar2)="78" Then var78 = "SELECTED" Else var78 = "" End If If Session(nameVar2)="79" Then var79 = "SELECTED" Else var79 = "" End If If Session(nameVar2)="80" Then var80 = "SELECTED" Else var80 = "" End If If Session(nameVar2)="81" Then var81 = "SELECTED" Else var81 = "" End If If Session(nameVar2)="82" Then var82 = "SELECTED" Else var82 = "" End If If Session(nameVar2)="83" Then var83 = "SELECTED" Else var83 = "" End If If Session(nameVar2)="84" Then var84 = "SELECTED" Else var84 = "" End If If Session(nameVar2)="85" Then var85 = "SELECTED" Else var85 = "" End If If Session(nameVar2)="86" Then var86 = "SELECTED" Else var86 = "" End If If Session(nameVar2)="87" Then var87 = "SELECTED" Else var87 = "" End If If Session(nameVar2)="88" Then var88 = "SELECTED" Else var88 = "" End If If Session(nameVar2)="89" Then var89 = "SELECTED" Else var89 = "" End If If Session(nameVar2)="90" Then var90 = "SELECTED" Else var90 = "" End If If Session(nameVar2)="91" Then var91 = "SELECTED" Else var91 = "" End If If Session(nameVar2)="92" Then var92 = "SELECTED" Else var92 = "" End If If Session(nameVar2)="93" Then var93 = "SELECTED" Else var93 = "" End If If Session(nameVar2)="94" Then var94 = "SELECTED" Else var94 = "" End If If Session(nameVar2)="95" Then var95 = "SELECTED" Else var95 = "" End If If Session(nameVar2)="96" Then var96 = "SELECTED" Else var96 = "" End If If Session(nameVar2)="97" Then var97 = "SELECTED" Else var97 = "" End If If nameVar= "HeightStartF" Then anyStr ="