<% 'on error resume next dim strStateName dim strCountryName dim objCon dim strCon dim str dim objRs Dim addFlag addFlag=False strCon="Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Server.MapPath(".") & "/database/Obesity.mdb;" & _ "Jet OLEDB:Database Password=obesitydb" set objCon=Server.CreateObject("ADODB.Connection") objCon.connectionstring=strCon objCon.open strCon 'If Request.ServerVariables("Request_Method") = "POST" Then If Request.Form("Submit")="Submit" Then Call Add_Member() Else Call Member_Display() End If Sub Add_Member() Str="Select * from UserTable Where UserName='" & LTrim(RTrim(Request.Form("txtUserName"))) & "'" Set objRsUT=Server.CreateObject("ADODB.Recordset") objRsUT.Open Str,objCon,3,3 If (objRsUT.EOF=True And objRsUT.BOF=True) Then Str=" Insert into UserTable(UserName,UserPassword,UserType) Values(" & _ "'" & LTrim(RTrim(Request.Form("txtUserName"))) & "'," & _ "'" & LTrim(RTrim(Request.Form("txtPassword"))) & "','OU')" objCon.Execute Str Str="Select * from UserTable Where UserName='" & LTrim(RTrim(Request.Form("txtUserName"))) & "'" Set objRsUT1=Server.CreateObject("ADODB.Recordset") objRsUT1.Open Str,objCon,3,3 'If Not (objRsUT.EOF=True And objRsUT.BOF=True) Then strStateCountryId=Request.Form("cmbCountry") Str="Insert Into MemberTable(MemberTitle,MemberSurName,MemberFirstName,MemberGender,MemberDegree," & _ "MemberHomeAddress,MemberLocation,MemberStateCountryId,MemberCity,MemberZipCode,MemberEmail," & _ "MemberFax,MemberMobile,MemberPhone,MemberWebsite,MemberRemarks,UserId,MemberCategoryId) Values ( " & _ "'" & LTrim(RTrim(Request.Form("cmbTitle"))) & "'," & _ "'" & LTrim(RTrim(Request.Form("txtFirstName"))) & "'," & _ "'" & LTrim(RTrim(Request.Form("txtLastName"))) & "'," & _ "'" & LTrim(RTrim(Request.Form("radioGender"))) & "'," & _ "'" & LTrim(RTrim(Request.Form("txtDegree"))) & "'," & _ "'" & LTrim(RTrim(Request.Form("txtHomeAddress"))) & "'," & _ "'" & LTrim(RTrim(Request.Form("txtContactAddress"))) & "'," & _ "" & strStateCountryId & "," & _ "'" & LTrim(RTrim(Request.Form("txtCity"))) & "'," & _ "'" & LTrim(RTrim(Request.Form("txtZipCode"))) & "'," & _ "'" & LTrim(RTrim(Request.Form("txtEmail"))) & "'," & _ "'" & LTrim(RTrim(Request.Form("txtFax"))) & "'," & _ "'" & LTrim(RTrim(Request.Form("txtMobileNumber"))) & "'," & _ "'" & LTrim(RTrim(Request.Form("txtPhoneNumber"))) & "'," & _ "'" & LTrim(RTrim(Request.Form("txtWebSite"))) & "'," & _ "'" & LTrim(RTrim(Request.Form("txtRemarks"))) & "'," & _ "" & objRsUT1.Fields(0) & "," & _ "" & Request.Form("cmbCategory") & ")" objCon.Execute Str Response.Redirect "Login.asp?Uid=" & objRsUT1.Fields(0) Response.End Else addFlag=True Session.Contents("Status")="****Try With Another UserName****" 'Response.Redirect "Register.asp?CID=" & Request.Form("cmbCountry") Call Member_Display() End If End Sub %> <% Sub Member_Display() 'Server.Execute("CommonTop.asp") %> Obesity.org.au- Obesity weight loss surgery Bariatrics bariatric surgery Australia
obesity.org.au


       
obesity.org.au obesity.org.au  
Weight (Kg) : 
Height (cm) : 
The BMI is : 
According to the Panel on Energy, Obesity, and Body Weight Standards published by American Journal of Clinical Nutrition, your category is:
Click here to find out more about
Body Mass Index BMI
Login Details
User Name: "") Then Response.Write Request.Form("txtUserName") End If %>"> <% If addFlag Then Response.Write "" & Session.Contents("Status") & "" addFlag=False End If %>
Password: "") Then Response.Write Request.Form("txtPassword") End If %>">
Confirm Password: "") Then Response.Write Request.Form("txtCPassword") End If %>">

Member Details
Category:
Title:
First Name: "") Then Response.Write Request.Form("txtFirstName") End If %>">
Last Name: "") Then Response.Write Request.Form("txtLastName") End If %>">
Gender: "") Then If Request.Form("radioGender")="M" Then Response.Write space(1) & "Checked" End If End If %> >Male "") Then If Request.Form("radioGender")="F" Then Response.Write space(1) & "Checked" End If End If %> >FeMale
Degree: "") Then Response.Write Request.Form("txtDegree") End If %>">
Home Address:
Contact Address:
Country:
City: "") Then Response.Write Request.Form("txtCity") End If %>">
Post Code: "") Then Response.Write Request.Form("txtZipCode") End If %>">
Email: "") Then Response.Write Request.Form("txtEmail") End If %>">
Fax: "") Then Response.Write Request.Form("txtFax") End If %>">
Mobile Number: "") Then Response.Write Request.Form("txtMobileNumber") End If %>">
Phone Number: "") Then Response.Write Request.Form("txtPhoneNumber") End If %>">
WebSite: "") Then Response.Write Request.Form("txtWebsite") End If %>">
Remarks:
 
  
<% Server.Execute("CommonBottom.asp") End Sub %>