<% Response.Buffer = true %>
<html>
<head>
</head>
<body background="C:\Documents and Settings\db2admin\My Documents\JTR - HTML - Project 01\Pics\snowflake.bmp">
<%
dim data_source,insertpatient,insertkin,insertlifestyle,insertbcomplaint,inserti_mcomplaint,conn,rs
dim opid,firstname,middlename,lastname,sex,dob,current_address,permanent_address,tel_home,mobile,tel_work,pager,fax,email
dim kin_name,relationship,kin_address,kin_telhome,kin_mobile,kin_telwork,kin_pager,kin_fax,kin_email
dim maritalstatus,no_of_dependents,height,weight,blood_type
dim occupation,annualincome
dim vegetarian,smoker,avgcig,consumealc,nodrinks,stimulant2,stimulants,consumect,consumefd,meals,food
dim statement,histreat,history,phy_hospital
dim diabetic,diadesc,hypertansive,hypdesc,cardiac,cardesc,respiratory,respdesc,digestive,digdesc,orthopedic,ortdesc,muscular,musdesc,neuro,neudesc,allergies,al_desc,surgeries,surgdesc
opid = Request.Form ("opid")
firstname = Request.Form ("firstname")
middlename = Request.Form ("middlename")
lastname = Request.Form ("lastname")
sex = Request.Form ("sex")
dob = CDate (Request.Form ("birthmonth") & "/" & Request.Form ("birthdate") & "/" & Request.Form ("birthyear"))
current_address = Request.Form ("current_address")
permanent_address = Request.Form ("permanent_address")
tel_home = Request.Form ("tel_home")
mobile = Request.Form ("mobile")
tel_work = Request.Form ("tel_work")
pager = Request.Form ("pager")
fax = Request.Form ("fax")
email = Request.Form ("email")
kin_name = Request.Form ("kin_name")
relationship = Request.Form ("relationship")
kin_address = Request.Form ("kin_address")
kin_telhome = Request.Form ("kin_telhome")
kin_mobile = Request.Form ("kin_mobile")
kin_telwork = Request.Form ("kin_telwork")
kin_pager = Request.Form ("kin_pager")
kin_fax = Request.Form ("kin_fax")
kin_email = Request.Form ("kin_email")
maritalstatus = Request.Form ("maritalstatus")
no_of_dependents = Request.Form ("no_of_depentents")
height = Request.Form ("height")
weight = Request.Form ("weight")
blood_type = Request.Form ("blood_type")
occupation = Request.Form ("occupation")
annualincome = Request.Form ("annualincome")
vegetarian = Request.Form ("vegetarian")
smoker = Request.Form ("smoker")
avgcig = Request.Form ("avgcig")
consumealc = Request.Form ("consumealc")
nodrinks = Request.Form ("nodrinks")
stimulants = Request.Form ("stimulants")
stimulant2 = Request.Form ("stimulant2")
consumect = Request.Form ("consumect")
consumefd = Request.Form ("consumefd")
meals = Request.Form ("meals")
food = Request.Form ("food")
statement = Request.Form ("statement")
history = Request.Form ("history")
histreat = Request.Form ("histreat")
phy_hospital = Request.Form ("phy_hospital")
diabetic = Request.Form ("diabetic")
diadesc = Request.Form ("diadesc")
hypertensive = Request.Form ("hypertansive")
hypdesc = Request.Form ("hypdesc")
cardiac = Request.Form ("cardiac")
cardesc = Request.Form ("cardesc")
respiratory = Request.Form ("respiratory")
respdesc = Request.Form ("respdesc")
digestive = Request.Form ("digestive")
digdesc = Request.Form ("digdesc")
orthopedic = Request.Form ("orthopedic")
ortdesc = Request.Form ("ortdesc")
muscular = Request.Form ("muscular")
muscdesc = Request.Form ("muscdesc")
neuro = Request.Form ("neuro")
neudesc = Request.Form ("neudesc")
allegries = Request.Form ("allergies")
al_desc = Request.Form ("al_desc")
surgeries = Request.Form ("surgeries")
surgdesc = Request.Form ("surgdesc")
insertpatient = "INSERT INTO add_patient (opid,firstname,middlename,lastname,sex,dob,current_address,permanent_address,tel_work,tel_home,mobile,pager,fax,email,maritalstatus,no_of,dependents,height,weight,blood_type,occupation,annualincome) VALUES ('" & opid & "','" & firstname & "','" & middlename & "','" & lastname & "','" & sex & "','" & dob & "','" & current_address & "','" & permanent_address & "','" & tel_work & "','" & tel_home & "','" & mobile & "','" & pager & "','" & fax & "','" & email & "','" & maritalstatus & "','" & no_of_dependents & "','" & height & "','" & weight & "','" & blood_type & "','" & occupation & "','" & annualincome & "')"
insertkin = "INSERT INTO add_nextofkin (opid,kin_name,relationship,kin_address,kin_telhome,kin,mobile,kin_telwork,kin_pager,kin_fax,kin_email) VALUES ('" & opid & "','" & kin_name & "','" & relationship & "','" & kin_address & "','" & kin_telhome & "','" & kin_mobile & "','" & kin_telwork & "','" & kin_pager & "','" & kin_fax & "','" & kin_email & "')"
insertlifestyle = "INSERT INTO lifestyle (opid,vegetarian,smoker,avgcig,consumealc,nodrinks,stimulants,stimulant2,consumect,consumefd,meals,food) VALUES ( '" & opid & "','" & vegetarian & "','" & smoker & "','" & avgcig & "','" & consumealc & "','" & nodrinks & "','" & stimulants & "','" & stimulant2 & "','" & consumect & "','" & consumefd & "','" & meals & "','" & food & "')"
insertbcomplaint = "INSERT INTO bcomplaint (opid,statement,history,histreat,phy_hospital) VALUES ('" & opid & "','" & statement & "','" & history & "','" & histreat & "','" & phy_hospital & "')"
inserti_mcomplaint = "INSERT INTO i_mcomplaint (opid,diabetic,diadesc,hypertensive,hypdesc,cardiac,cardesc,respiratory,respdesc,digestive,digdesc,orthopedic,ortdesc,muscular,muscdesc,neuro,neudesc,allergic,al_desc,surgeries,surgdesc) VALUES ('" & opid & "','" & diabetic & "','" & diadesc & "','" & hypertensive & "','" & hypdesc & "','" & cardiac & "','" & cardesc & "','" & respiratory & "','" & respdesc & "','" & digestive & "','" & digdesc & "','" & orthopedic & "','" & ortdesc & "','" & muscular & "','" & muscdesc & "','" & neuro & "','" & neudesc & "','" & allergic & "'.'" & al_desc & ",'" & surgeries & "','" & surgdesc & "')"
data_source = "DSN = projectvirgo"
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Connection")
conn.Open data_source
conn.Execute insertpatient
conn.Execute insertkin
conn.Execute insertlifestyle
conn.Execute insertbcomplaint
conn.Execute inserti_mcomplaint
Set conn = nothing
%>
<h2><FONT color=BLUE>Patient '" & opid & "', Mr./Ms./Mrs. '" & lastname & "', has been added to the database. Thank you... </FONT></h2>
<FONT color=GOLD>To view records click</FONT> <a href="view.asp"><h3><FONT color=SILVER>here</FONT></h3></a>
</body>
</html>