%
Dim Conn, dbPath
dbPath = "c:\inetpub\wwwroot\fpdb\afic_up.mdb"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath
Set Session("_conn") = conn
%>
<%
sqlTitle = "SELECT * FROM t_Articles INNER JOIN t_Articles2Categories ON t_Articles.Article_ID = t_Articles2Categories.Article_ID Where t_Articles2Categories.Cat_ID = ("& Request.QueryString("ID")&")Order by ArticleDate desc"
sqlCat = "SELECT * FROM t_Categories Where Cat_ID = "& Request.QueryString("ID")&""
Set rsTitle = Server.CreateObject("ADODB.Recordset")
Set rsCat = Server.CreateObject("ADODB.Recordset")
rsTitle.Open sqlTitle, conn, 3, 3
rsCat.Open sqlCat, conn, 3, 3
%>
Calculate your Body Mass Index
Calculate your Body Mass Index
Body mass index (BMI) is an
internationally recognised measure of an individual's weight status in
relation to height. BMI is based on a mathematical formula (body weight
in kilogrammes divided by the square of height in metres), and more
closely correlates with body fat than any other indicator of weight and
height
To use:
Enter your weight and height using
Imperial or
Metric measures.
Click on compute and your BMI will appear in the
BMI Green box.