Personal Analysis Information
		<% //lire l'e-mail et les autres paramètres Set EmailEntered = Request.Form("Email") Set Firstname = Request.Form("Firstname") Set Lastname = Request.Form("Lastname") Set PostalAddress = Request.Form("Postaladdress") Set Postcode = Request.Form("Postcode") Set Country = Request.Form("Country") Set Tel = Request.Form("Tel") Set Paymethod = Request.Form("Paymethod") Set HeardAboutBabyChoice = Request.Form("HeardAboutBabyChoice") Set Amount = Request.Form("ChosenCurrency") Set Tongue = Request.Form("Language") Set DateofToday = Request.Form("Date") Set PasswordEntered = Request.Form("Password") //verifier si la monnaie est partie if Amount = 0 then response.redirect("Stepp6.asp?Email=" & EmailEntered & "&Firstname=" & Firstname & "&Lastname=" & Lastname & "&Postaladdress=" & PostalAddress & "&Postcode=" & Postcode & "&Country=" & Country & "&Tel=" & Tel & "&Paymethod=" & Paymethod & "&DateofToday=" & DateofToday & "&HeardAboutBabyChoice=" & HeardAboutBabyChoice & "&Password=" & PasswordEntered) //connecter à la BdD Set Conn = Server.CreateObject("ADODB.Connection") sConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & "\\premfs2\sites\premium6\materna\database\BabyChoice.mdb;" & "Persist Security Info=False;" Conn.Open(sConn) //lire les e-mails de la BdD SQLVerification="SELECT Email FROM Clients WHERE Email='" & EmailEntered & "'" Set EmailRead = Conn.Execute(SQLVerification) //écrire selon les cas de figure SQLWrite = "INSERT INTO Clients (Firstname,Lastname,Postaladdress,Postcode,Country,Tel,Email,Paymethod,HeardAboutBabyChoice,Amount,DateOfToday,Status,Tongue,C_Password) VALUES ('" & Firstname & "','" & Lastname & "','" & Postaladdress & "','" & Postcode & "','" & Country & "','" & Tel & "','" & EmailEntered & "','" & Paymethod & "','" & HeardAboutBabyChoice & "','" & Amount & "','" & DateOfToday & "','Pending','" & Tongue & "','" & PasswordEntered & "')" if EmailRead.EOF then Set Write = Conn.Execute(SQLWrite) else SQLUpdateFirstname = "UPDATE Clients SET Firstname ='" & Firstname & "' WHERE Email = '" & EmailEntered & "'" SQLUpdateLastname = "UPDATE Clients SET Lastname ='" & Lastname & "' WHERE Email = '" & EmailEntered & "'" SQLUpdatePostalAddress = "UPDATE Clients SET PostalAddress ='" & PostalAddress & "' WHERE Email = '" & EmailEntered & "'" SQLUpdatePostcode = "UPDATE Clients SET Postcode ='" & Postcode & "' WHERE Email = '" & EmailEntered & "'" SQLUpdateCountry = "UPDATE Clients SET Country ='" & Country & "' WHERE Email = '" & EmailEntered & "'" SQLUpdateTel = "UPDATE Clients SET Tel ='" & Tel & "' WHERE Email = '" & EmailEntered & "'" SQLUpdatePaymethod = "UPDATE Clients SET Paymethod ='" & Paymethod & "' WHERE Email = '" & EmailEntered & "'" SQLUpdateHeardAboutBabyChoice = "UPDATE Clients SET HeardAboutBabyChoice ='" & HeardAboutBabyChoice & "' WHERE Email = '" & EmailEntered & "'" SQLUpdateAmount = "UPDATE Clients SET Amount ='" & Amount & "' WHERE Email = '" & EmailEntered & "'" SQLUpdateTongue = "UPDATE Clients SET Tongue ='" & Tongue & "' WHERE Email = '" & EmailEntered & "'" SQLUpdateStatus = "UPDATE Clients SET Status ='Pending' WHERE Email = '" & EmailEntered & "'" SQLUpdateDate = "UPDATE Clients SET DateofToday ='" & DateofToday & "' WHERE Email = '" & EmailEntered & "'" SQLUpdateC_Password = "UPDATE Clients SET C_Password ='" & PasswordEntered & "' WHERE Email = '" & EmailEntered & "'" Set UpdateFirstname = Conn.Execute(SQLUpdateFirstname) Set UpdateLastname = Conn.Execute(SQLUpdateLastname) Set UpdatePostalAddress = Conn.Execute(SQLUpdatePostalAddress) Set UpdatePostcode = Conn.Execute(SQLUpdatePostcode) Set UpdateCountry = Conn.Execute(SQLUpdateCountry) Set UpdateTel = Conn.Execute(SQLUpdateTel) Set UpdatePaymethod = Conn.Execute(SQLUpdatePaymethod) Set UpdateHeardAboutBabyChoice = Conn.Execute(SQLUpdateHeardAboutBabyChoice) Set UpdateAmount = Conn.Execute(SQLUpdateAmount) Set UpdateTongue = Conn.Execute(SQLUpdateTongue) SQL_CheckStatus = "SELECT * FROM Clients WHERE Email = '" & EmailEntered & "'" Set SQL_CheckStatus_Action = Conn.Execute(SQL_CheckStatus) Final_Status = "" While not SQL_CheckStatus_Action.EoF Final_Status = SQL_CheckStatus_Action.Fields("Status") SQL_CheckStatus_Action.MoveNext Wend If Final_Status <> "PaymentConfirmed" then If Final_Status <> "2Bsent" then If Final_Status <> "PaymentConfirmedFrench" then If Final_Status <> "2BsentFrench" then Set UpdateStatus = Conn.Execute(SQLUpdateStatus) End If End If End If End If Set UpdateDate = Conn.Execute(SQLUpdateDate) Set UpdateC_Password = Conn.Execute(SQLUpdateC_Password) end if //fermer la BdD Conn = close %> Gender choice ??? Baby Girl Baby Boy Your date of birth ?? 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 ?? Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec ???? 1952 1953 1954 1955 1956 1957 1958 1959 1960 1961 1962 1963 1964 1965 1966 1967 1968 1969 1970 1971 1972 1973 1974 1975 1976 1977 1978 1979 1980 1981 1982 1983 1984 1985 1986 1987 1988 1989 Your blood type O+ A+ B+ O- AB+ B- A- AB- Select start month of your 12 month calendar <% Starting_Months = "" For I = 1 to 12 select_Starting_m = "" If I = DatePart("m",Now()) then select_Starting_m = " selected " If I = 1 then Month_Name = "Jan" If I = 2 then Month_Name = "Feb" If I = 3 then Month_Name = "Mar" If I = 4 then Month_Name = "Apr" If I = 5 then Month_Name = "May" If I = 6 then Month_Name = "Jun" If I = 7 then Month_Name = "Jul" If I = 8 then Month_Name = "Aug" If I = 9 then Month_Name = "Sep" If I = 10 then Month_Name = "Oct" If I = 11 then Month_Name = "Nov" If I = 12 then Month_Name = "Dec" Starting_Months = Starting_Months & "" & Month_Name & "" Next Starting_Years = "" For I = DatePart("yyyy",Now())-1 to DatePart("yyyy",Now())+1 select_Starting_y = "" If I = DatePart("yyyy",Now()) then select_Starting_y = " selected " Starting_Years = Starting_Years & "" & I & "" Next %> <%= Starting_Months%> <%= Starting_Years%> Age at which your first period occured : ???? early 10-11 normal 12-14 late 15-16 years old Are you using the pill/coil just given up no yes Date of the start of your last period* : <% //mettons le au jour d'aujourd'hui //1 la case des jours - de 1 a 31 //2 la case des mois - de 1 à douze //3la case de l'année - de l'année précédente à l'année suivante Bleeding_Days = "" For I = 1 to 31 select_bleeding_d = "" If I = DatePart("d",Now()) then select_bleeding_d = " selected " Bleeding_Days = Bleeding_Days & "" & I & "" Next Bleeding_Days = "na" & Bleeding_Days & "na" Bleeding_Months = "" For I = 1 to 12 select_bleeding_m = "" If I = DatePart("m",Now()) then select_bleeding_m = " selected " If I = 1 then Month_Name = "Jan" If I = 2 then Month_Name = "Feb" If I = 3 then Month_Name = "Mar" If I = 4 then Month_Name = "Apr" If I = 5 then Month_Name = "May" If I = 6 then Month_Name = "Jun" If I = 7 then Month_Name = "Jul" If I = 8 then Month_Name = "Aug" If I = 9 then Month_Name = "Sep" If I = 10 then Month_Name = "Oct" If I = 11 then Month_Name = "Nov" If I = 12 then Month_Name = "Dec" Bleeding_Months = Bleeding_Months & "" & Month_Name & "" Next Bleeding_Months = "na" & Bleeding_Months & "na" Bleeding_Years = "" For I = DatePart("yyyy",Now())-1 to DatePart("yyyy",Now())+1 select_bleeding_y = "" If I = DatePart("yyyy",Now()) then select_bleeding_y = " selected " Bleeding_Years = Bleeding_Years & "" & I & "" Next Bleeding_Years = "na" & Bleeding_Years & "na" %> <%= Bleeding_Days%> <%= Bleeding_Months%> <%= Bleeding_Years%> Your period cycle <% Menstruation_Days = "" For I = 20 to 45 select_menstrual = "" If I = 28 then select_menstrual = " selected " Menstruation_Days = Menstruation_Days & "" & I & " days" Next Menstruation_Days = "do not know" & Menstruation_Days & "do not know" %> <%= Menstruation_Days%> number of days from ovulation to next period <% Luteal_Days = "" For I = 10 to 23 select_Luteal = "" If I = 14 then select_Luteal = " selected " Luteal_Days = Luteal_Days & "" & I & " days" Next Luteal_Days = "do not know" & Luteal_Days & "do not know" %> <%=Luteal_Days%> Are your periods regular or irregular regular irregular varies do not know How many children by your present partner Boys : 0 1 2 3 4 5 6 7 ; Girls : 0 1 2 3 4 5 6 7 How many months did you take to achieve your last 2 conceptions ?? 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 not planned no first baby and ?? 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 not planned no second baby Do you take medication to increase your fertility ?? yes no

Previous Parents questions on completing the analysis information

If you have another question at the stage of completing the analysis information please email us

Answers

I am still breast feeding, when should I request the calendar? As soon as you have resumed your periods

other questions

Where do I find my blood group? If you already had one baby, your doctor or clinic will have it in their files. A frequent blood group would be O+.

other questions

Does spotting mean a start of my last period ? No, your period starts when you have a full bleed.

other questions

I am using contraceptive pills, when do I stop ? It is better if you allow for a natural bleed after having stopped the pill before ordering your calendar. However you can decide to order your calendar and stop the pill now, as your first favorable days may not occur for another month or more from now.

other questions

What do you mean by how many months to achieve my last conceptions? From the time you decided to have a baby to the time you conceived in each case and as far as you can remember.

other questions

What is a regular period? Regular periods can easily become irregular but as far as you know, do you menstruate within 5 days of the last dates most months. If so that is a regular cycle. The answer to this question is for background information on your file.

other questions

Can I order my calendar by post instead of online? Yes send us an email on "contact us" link.

other questions

I am using fertility aides and vitamins does that matter ? No, it is OK to do so.

other questions

I will be moving from Europe to USA in 3 months time, can I still use my calendar? the calendar is prepared for your zone of residence if you move timezones then you will have to alter your calendar by the hour difference.

other questions

Am I given further details and instructions for my calendar and tips for the best diet? Yes, when you become a member after payment you will be able to access to the member's section of the website with your password and ID which is your chosen email address. A full usage instructions and information are shown there as well as your calendar.

other questions

close window