1. Copy and paste the following between your HEAD tags:-

*********************************
2. Copy and paste the following code between your BODY tags where you want the input displayed:
<div style="position:absolute; left:?; top:?">
<center><table width=100% border=0 bordercolor=#ffff00 cellspacing="10" cellpadding="0"><tr><td>

<center><h3>Natural Family Planning</h3></center><ul type="square">
<li>Natural family planning can be used as one of many birth control methods since it permits you to calculate conception dates. 
<li>It helps identify the phases of a woman's menstrual cycle; when she is most fertile, as well as those phases when she is less fertile, and therefore, less likely to become pregnant. 
<li>If a woman's cycle is irregular, then birth control will be less reliable since it is more difficult to predict when ovulation is likely to occur.

<li>A woman usually ovulates 14 days before her next period. For example, if a woman has a regular 26-day menstrual cycle, counting the first day of her period as day one, then she will usually ovulate on day 12.
<li>The female egg released into the fallopian tubes has only 24 hours  to be fertilized by the male sperm. 
<li>However, the male sperm can survive for up to seven days in the female cavity.</ul>
 
<p id="again">Fill the details below and press 'Natural Family Planning Details'.
<br><br>
<fieldset>
<legend align="center" style="font-size:12pt">Fill in the details below</legend>
<table width=100% border=0 bordercolor=#ffff00 cellspacing="5" cellpadding="0">
<form name="NFPlanning" method="post" onSubmit="return perDate()" action="datNatural_Family_Planning1.asp">
<tr><td colspan=3>First Day Of Last Period==>                       
Year 
<input type="text" style="text-align:center" size=4 name="fyear" maxlength="4" onClick=value="" value=<%=year(date)%>>

<select name="Fmonth">
<option value=0>Month</option>
<option value=1>Jan</option>
<option value=2>Feb</option>
<option value=3>Mar</option>
<option value=4>Apr</option>
<option value=5>May</option>
<option value=6>Jun</option>
<option value=7>Jul</option>
<option value=8>Aug</option>
<option value=9>Sep</option>
<option value=10>Oct</option>
<option value=11>Nov</option>
<option value=12>Dec</option>
</select>

<tr><td colspan=2>
Shortest time between period in last 6 months==></td>

<tr><td colspan=2>
Longest time between period in last 6 months==></td>

<tr><td colspan="5" align="center"><br>
<input type="submit" value="Natural Family Planning Details" style="cursor:hand;">
</td></tr>
</form>
</table>
</fieldset></td></tr></table></center>
</div>
                ***********************************
3. Create a new page and name it datNatural_Family_Planning1.asp to receive the results of the visitor inputs along the following lines.

<BODY onLoad="StartClock()" onUnload="KillClock()">
<div style="position:absolute; left:250; top:?">
<h2 align="center">Natural Family Planning</h2>
<center><table width=100% border=0 bordercolor=#ffff00 cellspacing="10" cellpadding="0">
<tr><td>
<%
Dim shortest, longest, fdate, yr, fmonth, fday, ovulation1, ovulation2, thedate, fertile1, fertile2, fertile3, firstsafe1, firstsafe2, firstsafe3, secondsafe1, secondsafe2, secondsafe3, nextperiod1, nextperiod2,pos,ahead,ahead1,ahead2
shortest=request("shortest")
if shortest="Days" then Response.Redirect "datNatural_Family_Planning.asp"
longest=request("longest")
if longest="Days" then Response.Redirect "datNatural_Family_Planning.asp"
ahead=request("ahead")
if ahead="?" then ahead=1
yr=request("fyear")
if yr="?" or yr="" then yr=year(date)
fmonth=request("Fmonth")
if fmonth="Month" then Response.Redirect "datNatural_Family_Planning.asp"
fday=request("Fday")
if fday="Day" then Response.Redirect "datNatural_Family_Planning.asp"
thedate=DateSerial(yr, fmonth, fday)
ovulation1=DateAdd("d",shortest-14,thedate)
ovulation2=DateAdd("d",longest-14,thedate)
fertile1=DateAdd("d",-7,ovulation1) 
fertile2=DateAdd("d",1,ovulation1)
fertile3=DateAdd("d",1,ovulation2)
firstsafe1=FormatDateTime(thedate,1)
firstsafe2=FormatDateTime(DateAdd("d",-1,fertile1),1)
firstsafe3=FormatDateTime(DateAdd("d",-1,fertile2),1)
secondsafe1=FormatDateTime(DateAdd("d",1,fertile3),1)
secondsafe2=FormatDateTime(DateAdd("d",shortest,thedate),1)
secondsafe3=FormatDateTime(DateAdd("d",longest,thedate),1)
nextperiod1=FormatDateTime(DateAdd("d",shortest,thedate),1)
nextperiod2=FormatDateTime(DateAdd("d",longest,thedate),1)
ahead1=FormatDateTime((thedate+ahead*shortest),1)
ahead2=FormatDateTime((thedate+ahead*longest),1)

if fmonth="1" then fmonth="January"
if fmonth="2" then fmonth="February"
if fmonth="3" then fmonth="March"
if fmonth="4" then fmonth="April"
if fmonth="5" then fmonth="May"
if fmonth="6" then fmonth="June"
if fmonth="7" then fmonth="July"
if fmonth="8" then fmonth="August"
if fmonth="9" then fmonth="September"
if fmonth="10" then fmonth="October"
if fmonth="11" then fmonth="November"
if fmonth="12" then fmonth="December"

if fday=1 or fday=21 or fday=31 then 
pos="st"
elseif fday=2 or fday=22 then 
pos="nd"
elseif fday=3 or fday=23 then 
pos="rd"
else pos="th"
end if %>
<fieldset>
<legend align="center" style="font-size:12pt">Last Period Started On <%=fmonth+" "%><%=fday+pos+", "%><%=yr%></legend>
<table width=100% style="font-size:12">
<%if longest="0" or shortest=longest then%>
<tr style="background:#ffffde;color:#009900"><td>Length of period<td><%=shortest%> days

<tr style="background:#ffff00;color:#ff0000"><td>First safe period<td><%= firstsafe1%> --- <%=firstsafe2%>

<tr style="background:#ffffde;color:#009900"><td>Ovulation date<td><%=FormatDateTime(ovulation1,1)%>

<tr style="background:#ffffde;color:#009900"><td>Fertile period<td><%=FormatDateTime(fertile1,1)%> --- <%=FormatDateTime((ovulation1+1),1)%>

<tr style="background:#ffff00;color:#ff0000"><td>Second safe period<td><%=secondsafe1%> --- <%=secondsafe2%>

<tr style="background:#ffffde;color:#009900"><td>Next <%=shortest%> day period<td><%=nextperiod1%>

<%if ahead >1 then%>
<tr style="background:#ffffde;color:#009900"><td><%=ahead+" "%><%=shortest%>-days periods<td><%=ahead1%>
<% end if %>
<% else %>

<tr style="background:#ffffde;color:#009900"><td>Shortest period<td><%=shortest%> days

<tr style="background:#ffffde;color:#009900"><td>Longest period<td><%=longest%> days

<tr style="background:#ffff00;color:#ff0000"><td>First safe period<td><%=firstsafe1%> --- <%=firstsafe3%>

<tr style="background:#ffffde;color:#009900"><td>Fertile period<td><%=	FormatDateTime(fertile1,1)%> --- <%=FormatDateTime(fertile3,1)%>

<tr style="background:#ffffde;color:#009900"><td>Ovulation period<td><%=FormatDateTime(ovulation1,1)%> --- <%=FormatDateTime(ovulation2,1)%>

<tr style="background:#ffff00;color:#ff0000"><td>Second safe period<td><%=secondsafe1%> --- <%=secondsafe3%>

<tr style="background:#ffffde;color:#009900"><td>Next <%=shortest%> day period<td><%=nextperiod1%>

<tr style="background:#ffffde;color:#009900"><td>Next <%=longest%> day period<td><%=nextperiod2%>

<%if ahead >1 then %>
<tr style="background:#ffff00;color:#ff0000"><td><%=ahead+" " %><%=shortest%>-days periods<td><%=ahead1%>

<tr style="background:#ffff00;color:#ff0000"><td><%=ahead+" " %><%=longest%>-days periods<td><%=ahead2%>
<% end if %>
</td></tr></table>

<%if longest="0" or shortest=longest then%>
<p style="color:#ff0000">
If you have not had sexual intercourse since <%=FormatDateTime((fertile1-1),1)%> and have a very regular period, your fertile period can be  predicted as shorter than the above and may run from<span style="color:#0000ff"> <%=FormatDateTime((ovulation1-1),1)%></span> to <span style="color:#0000ff"><%=FormatDateTime((ovulation1+1),1)%></span>
</p>
<% end if 
end if %>
</fieldset>

<br>

Calculations are based on the following facts==>>
<p> 
<fieldset>
<ol>
<li>A woman usually ovulates 14 days before her next period. For example, if a woman has a regular 26-day menstrual cycle, counting the first day of her period as day one, then she will usually ovulate on day 12.
<p><li>The female egg released into the fallopian tubes has only 24 hours  to be fertilized by the male sperm. 
<p><li>However, the male sperm can survive for up to seven days in the female cavity.</ol>

</td></tr></table></center>
</div>
</body>
</html>

***********************************
Please Note
You can display where ever you like. You change the "left" and "top" values in the opening "div" tag above to whatever values you need. 
a) "top" is the vertical distance of the top left corner of the display starting at zero. The higher the number the lower down the page.
b) "left" is the horizontal distance of the top left corner of the display starting at zero. The higher the number the further across the page.
c) You can change also the color of the display and the background.

If you have any problems or questions please email us at info@datedial.com.

Linking Information:-
TITLE : Natural Family Planning
URL : http://www.datedial.com/datNatural_Family_Planning.asp
DESCRIPTION : Natural family planning helps to calculate conception dates.