#!/usr/bin/perl # msgpart1.pl #-- insert part 1 of a healthboards message print "Content-type: text/html\n\n"; $forum_name = $ENV{'QUERY_STRING'}; $forum_name =~ s/-/ /g; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\"HealthBoards.com\"\n"; print "\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "
Message Boards on Health Related Topics\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "\n"; print "

--> $forum_name message board

"; print "
"; print "\n"; print "
\n";

Re: Upper back pain
#!/usr/bin/perl # msgpart2.pl #-- insert part 2 of a healthboards message $board_name = $ENV{'QUERY_STRING'}; srand(time ^ $$); $num = int (rand(9998))+1; # Pick a Random Number #Determine zone and alt for banner rotation $alt="Please visit our sponsor."; $zone="ros"; if ($board_name eq "") { $zone = "ros"; } elsif ($board_name eq "acne") { $zone = "ros"; } elsif ($board_name eq "add") { $zone = "ros"; } elsif ($board_name eq "addiction-and-recovery") { $zone = "ros"; } elsif ($board_name eq "addisons-disease") { $zone = "ros"; } elsif ($board_name eq "aging-issues") { $zone = "ros"; } elsif ($board_name eq "allergies") { $zone = "ros"; } elsif ($board_name eq "als") { $zone = "ros"; } elsif ($board_name eq "alternative-medicine") { $zone = "ros"; } elsif ($board_name eq "alzheimers") { $zone = "ros";$alt="Click for info and support."; } elsif ($board_name eq "anemia") { $zone = "ros"; } elsif ($board_name eq "arthritis") { $zone = "ros";$alt="Click for info and support."; } elsif ($board_name eq "asthma") { $zone = "ros"; } elsif ($board_name eq "autism") { $zone = "ros";$alt="Click for info and support."; } elsif ($board_name eq "back-problems") { $zone = "ros"; } elsif ($board_name eq "bowel-disorders") { $zone = "ros"; } elsif ($board_name eq "brain-and-nervous-system-disorders") { $zone = "ros"; } elsif ($board_name eq "cancer") { $zone = "ros";$alt="Click for info and support."; } elsif ($board_name eq "caregivers") { $zone = "ros";$alt="Click for info and support."; } elsif ($board_name eq "carpal-tunnel-syndrome") { $zone = "ros"; } elsif ($board_name eq "cerebral-palsy") { $zone = "ros"; } elsif ($board_name eq "childrens-health") { $zone = "ros"; } elsif ($board_name eq "chronic-fatigue") { $zone = "ros"; } elsif ($board_name eq "common-cold") { $zone = "ros"; } elsif ($board_name eq "cosmetic-surgery") { $zone = "ros"; } elsif ($board_name eq "cystic-fibrosis") { $zone = "ros"; } elsif ($board_name eq "dental-problems") { $zone = "ros"; } elsif ($board_name eq "depression") { $zone = "ros";$alt="Click for info and support."; } elsif ($board_name eq "diabetes") { $zone = "ros";$alt="Click for info and support."; } elsif ($board_name eq "diet-and-nutrition") { $zone = "ros"; } elsif ($board_name eq "digestive-disorders") { $zone = "ros"; } elsif ($board_name eq "disabilities") { $zone = "ros"; } elsif ($board_name eq "down-syndrome") { $zone = "ros";$alt="Click for info and support."; } elsif ($board_name eq "eating-disorders") { $zone = "ros"; } elsif ($board_name eq "epilepsy") { $zone = "ros"; } elsif ($board_name eq "exercise-and-fitness") { $zone = "ros"; } elsif ($board_name eq "eye-and-vision") { $zone = "ros"; } elsif ($board_name eq "fibromyalgia") { $zone = "ros"; } elsif ($board_name eq "foot-problems") { $zone = "ros"; } elsif ($board_name eq "general-health") { $zone = "ros"; } elsif ($board_name eq "gulf-war-syndrome") { $zone = "ros"; } elsif ($board_name eq "headaches") { $zone = "ros"; } elsif ($board_name eq "hearing-disorders") { $zone = "ros"; } elsif ($board_name eq "heart-disorders") { $zone = "ros";$alt="Click for info and support."; } if ($board_name eq "hepatitis") { $zone = "ros"; } elsif ($board_name eq "herpes") { $zone = "ros"; } elsif ($board_name eq "high-blood-pressure") { $zone = "ros"; } elsif ($board_name eq "high-cholesterol") { $zone = "ros"; } elsif ($board_name eq "hiv-aids") { $zone = "ros"; } elsif ($board_name eq "immune-disorders") { $zone = "ros"; } elsif ($board_name eq "infectious-diseases") { $zone = "ros"; } elsif ($board_name eq "infertility") { $zone = "ros"; } elsif ($board_name eq "inner-ear-disorders") { $zone = "ros"; } elsif ($board_name eq "irritable-bowel-syndrome") { $zone = "ros"; } elsif ($board_name eq "kidney-disorders") { $zone = "ros"; } elsif ($board_name eq "leukemia") { $zone = "ros"; } elsif ($board_name eq "lung-and-respiratory") { $zone = "ros"; } elsif ($board_name eq "lupus") { $zone = "ros"; } elsif ($board_name eq "lyme-disease") { $zone = "ros"; } elsif ($board_name eq "menopause") { $zone = "ros"; } elsif ($board_name eq "mens-health") { $zone = "ros"; } elsif ($board_name eq "mental-health") { $zone = "ros"; } elsif ($board_name eq "multiple-sclerosis") { $zone = "ros";$alt="Click for info and support."; } elsif ($board_name eq "muscular-dystrophy") { $zone = "ros"; } elsif ($board_name eq "myositis") { $zone = "ros"; } elsif ($board_name eq "neuromuscular-diseases") { $zone = "ros"; } elsif ($board_name eq "neuropathy") { $zone = "ros"; } elsif ($board_name eq "osteoporosis") { $zone = "ros"; } elsif ($board_name eq "pain-management") { $zone = "ros"; } elsif ($board_name eq "parkinsons-disease") { $zone = "ros";$alt="Click for info and support."; } elsif ($board_name eq "polio") { $zone = "ros"; } elsif ($board_name eq "pregnancy") { $zone = "ros"; } elsif ($board_name eq "rare-disorders") { $zone = "ros"; } elsif ($board_name eq "restless-leg-syndrome") { $zone = "ros"; } elsif ($board_name eq "sexual-health") { $zone = "ros"; } elsif ($board_name eq "sexually-transmitted-diseases") { $zone = "ros"; } elsif ($board_name eq "sids") { $zone = "ros"; } elsif ($board_name eq "skin-hair-and-nail-problems") { $zone = "ros"; } elsif ($board_name eq "sleep-disorders") { $zone = "ros"; } elsif ($board_name eq "smoking-cessation") { $zone = "ros"; } elsif ($board_name eq "spinal-cord-disorders") { $zone = "ros"; } elsif ($board_name eq "stress-and-anxiety") { $zone = "ros"; } elsif ($board_name eq "stroke") { $zone = "ros"; } elsif ($board_name eq "thyroid-disorders") { $zone = "ros"; } elsif ($board_name eq "tmj-disorder") { $zone = "ros"; } elsif ($board_name eq "tuberculosis") { $zone = "ros"; } elsif ($board_name eq "viagra") { $zone = "ros"; } elsif ($board_name eq "vitamins-and-supplements") { $zone = "ros"; } elsif ($board_name eq "weight-loss") { $zone = "ros"; } elsif ($board_name eq "womens-health") { $zone = "ros"; } print "Content-type: text/html\n\n"; print "
\n"; if ($zone eq "ros") { # Value Click print "\n"; print "
\n"; print "
\n"; print "\n"; print "\n"; print "\"Please\n"; print "
\n"; print "\n"; print "Click Here to Visit our Sponsor
\n"; print "\n"; print "
\n"; print "\n"; print "\n"; } else { # Banner Rotation print "\n"; print "
\n"; print "
\n"; print "\n"; print "\n"; print "\"$alt\"\n";\n"; print "
\n"; print "\n"; print "Click Here to Visit our Sponsor
\n"; print "\n"; print "
\n"; print "\n"; print "\n"; } print "
\n"; #Postmaster Direct print "

\n"; print "
\n"; print " \n"; print " \n"; print " \n"; print " \n"; print "
FREE HealthBoards.com info from vendors!   Select:
\n"; print "
Signup
\n"; if ($board_name eq "") { print "
Health - new products and services
\n"; } elsif ($board_name eq "acne") { print "
Acne - new products and services
\n"; } elsif ($board_name eq "add") { print "
Attention Deficit Disorder - new products and services
\n"; } elsif ($board_name eq "addiction-and-recovery") { print "
Addiction & Recovery - new products and services
\n"; } elsif ($board_name eq "addisons-disease") { print "
Health - new products and services
\n"; } elsif ($board_name eq "aging-issues") { print "
Aging - new products and services
\n"; } elsif ($board_name eq "allergies") { print "
Allergies - new products and services
\n"; } elsif ($board_name eq "als") { print "
ALS - new products and services
\n"; } elsif ($board_name eq "alternative-medicine") { print "
Alternative Medicine - new products and services
\n"; } elsif ($board_name eq "alzheimers") { print "
Alzheimers Disease - new products and services
\n"; } elsif ($board_name eq "anemia") { print "
Anemia - new products and services
\n"; } elsif ($board_name eq "arthritis") { print "
Arthritis - new products and services
\n"; } elsif ($board_name eq "asthma") { print "
Asthma - new products and services
\n"; } elsif ($board_name eq "autism") { print "
Autism - new products and services
\n"; } elsif ($board_name eq "back-problems") { print "
Back Care - new products and services
\n"; } elsif ($board_name eq "bowel-disorders") { print "
Bowel Disorders - new products and services
\n"; } elsif ($board_name eq "brain-and-nervous-system-disorders") { print "
Brain & Nervous System - new products and services
\n"; } elsif ($board_name eq "cancer") { print "
Cancer - new products and services
\n"; } elsif ($board_name eq "caregivers") { print "
Caregivers - new products and services
\n"; } elsif ($board_name eq "carpal-tunnel-syndrome") { print "
Carpal Tunnel Syndrome - new products and services
\n"; } elsif ($board_name eq "cerebral-palsy") { print "
Cerebral Palsy - new products and services
\n"; } elsif ($board_name eq "childrens-health") { print "
Childrens Health - new products and services
\n"; } elsif ($board_name eq "chronic-fatigue") { print "
Chronic Fatigue - new products and services
\n"; } elsif ($board_name eq "common-cold") { print "
Common Cold - new products and services
\n"; } elsif ($board_name eq "cosmetic-surgery") { print "
Cosmetic Surgery - new products and services
\n"; } elsif ($board_name eq "cystic-fibrosis") { print "
Cystic Fibrosis - new products and services
\n"; } elsif ($board_name eq "dental-problems") { print "
Dental - new products and services
\n"; } elsif ($board_name eq "depression") { print "
Depression - new products and services
\n"; } elsif ($board_name eq "diabetes") { print "
Diabetes - new products and services
\n"; } elsif ($board_name eq "diet-and-nutrition") { print "
Diet & Nutrition - new products and services
\n"; } elsif ($board_name eq "digestive-disorders") { print "
Digestive Disorders - new products and services
\n"; } elsif ($board_name eq "disabilities") { print "
Disabilities - new products and services
\n"; } elsif ($board_name eq "down-syndrome") { print "
Down Syndrome - new products and services
\n"; } elsif ($board_name eq "eating-disorders") { print "
Eating Disorders - new products and services
\n"; } elsif ($board_name eq "epilepsy") { print "
Epilepsy - new products and services
\n"; } elsif ($board_name eq "exercise-and-fitness") { print "
Exercise & Fitness - new products and services
\n"; } elsif ($board_name eq "eye-and-vision") { print "
Eye & Vision - new products and services
\n"; } elsif ($board_name eq "fibromyalgia") { print "
Fibromyalgia - new products and services
\n"; } elsif ($board_name eq "foot-problems") { print "
Foot Care - new products and services
\n"; } elsif ($board_name eq "general-health") { print "
Health - new products and services
\n"; } elsif ($board_name eq "gulf-war-syndrome") { print "
Gulf War Syndrome - new products and services
\n"; } elsif ($board_name eq "headaches") { print "
Headaches - new products and services
\n"; } elsif ($board_name eq "hearing-disorders") { print "
Hearing Disorders - new products and services
\n"; } elsif ($board_name eq "heart-disorders") { print "
Heart Care - new products and services
\n"; } if ($board_name eq "hepatitis") { print "
Hepatitis - new products and services
\n"; } elsif ($board_name eq "herpes") { print "
Herpes - new products and services
\n"; } elsif ($board_name eq "high-blood-pressure") { print "
High Blood Pressure - new products and services
\n"; } elsif ($board_name eq "high-cholesterol") { print "
High Cholesterol - new products and services
\n"; } elsif ($board_name eq "hiv-aids") { print "
AIDS - new products and services
\n"; } elsif ($board_name eq "immune-disorders") { print "
Immune Disorders - new products and services
\n"; } elsif ($board_name eq "infectious-diseases") { print "
Infectious Diseases - new products and services
\n"; } elsif ($board_name eq "infertility") { print "
Infertility & Reproduction - new products and services
\n"; } elsif ($board_name eq "inner-ear-disorders") { print "
Inner Ear Disorders - new products and services
\n"; } elsif ($board_name eq "irritable-bowel-syndrome") { print "
Irritable Bowel Syndrome - new products and services
\n"; } elsif ($board_name eq "kidney-disorders") { print "
Kidney Disorders - new products and services
\n"; } elsif ($board_name eq "leukemia") { print "
Leukemia - new products and services
\n"; } elsif ($board_name eq "lung-and-respiratory") { print "
Lung & Respiratory Disorders - new products and services
\n"; } elsif ($board_name eq "lupus") { print "
Lupus - new products and services
\n"; } elsif ($board_name eq "lyme-disease") { print "
Lyme Disease - new products and services
\n"; } elsif ($board_name eq "menopause") { print "
Menopause - new products and services
\n"; } elsif ($board_name eq "mens-health") { print "
Mens Health - new products and services
\n"; } elsif ($board_name eq "mental-health") { print "
Mental Health - new products and services
\n"; } elsif ($board_name eq "multiple-sclerosis") { print "
Multiple Sclerosis - new products and services
\n"; } elsif ($board_name eq "muscular-dystrophy") { print "
Muscular Dystrophy - new products and services
\n"; } elsif ($board_name eq "myositis") { print "
Myositis - new products and services
\n"; } elsif ($board_name eq "neuromuscular-diseases") { print "
Neuromuscular Disease - new products and services
\n"; } elsif ($board_name eq "neuropathy") { print "
Neuropathy - new products and services
\n"; } elsif ($board_name eq "osteoporosis") { print "
Osteoporosis - new products and services
\n"; } elsif ($board_name eq "pain-management") { print "
Pain Management - new products and services
\n"; } elsif ($board_name eq "parkinsons-disease") { print "
Parkinsons Disease - new products and services
\n"; } elsif ($board_name eq "polio") { print "
Post Polio - new products and services
\n"; } elsif ($board_name eq "pregnancy") { print "
Pregnancy - new products and services
\n"; } elsif ($board_name eq "rare-disorders") { print "
Health - new products and services
\n"; } elsif ($board_name eq "restless-leg-syndrome") { print "
Restless Leg Syndrome - new products and services
\n"; } elsif ($board_name eq "sexual-health") { print "
Sexuality - new products and services
\n"; } elsif ($board_name eq "sexually-transmitted-diseases") { print "
Sexually Transmitted Diseases - new products and services
\n"; } elsif ($board_name eq "sids") { print "
Sudden Infant Death Syndrome - new products and services
\n"; } elsif ($board_name eq "skin-hair-and-nail-problems") { print "
Skin Hair & Nail Care - new products and services
\n"; } elsif ($board_name eq "sleep-disorders") { print "
Sleep Disorders - new products and services
\n"; } elsif ($board_name eq "smoking-cessation") { print "
Stop Smoking - new products and services
\n"; } elsif ($board_name eq "spinal-cord-disorders") { print "
Spinal Cord Disorders - new products and services
\n"; } elsif ($board_name eq "stress-and-anxiety") { print "
Stress Management - new products and services
\n"; } elsif ($board_name eq "stroke") { print "
Stroke - new products and services
\n"; } elsif ($board_name eq "thyroid-disorders") { print "
Thyroid Disorders - new products and services
\n"; } elsif ($board_name eq "tmj-disorder") { print "
TMJ - new products and services
\n"; } elsif ($board_name eq "tuberculosis") { print "
Tuberculosis - new products and services
\n"; } elsif ($board_name eq "viagra") { print "
Viagra - new products and services
\n"; } elsif ($board_name eq "vitamins-and-supplements") { print "
Vitamins & Supplements - new products and services
\n"; } elsif ($board_name eq "weight-loss") { print "
Weight Loss - new products and services
\n"; } elsif ($board_name eq "womens-health") { print "
Womens Health - new products and services
\n"; } print "\n"; print "Aging \n"; print "Alternative Medicine \n"; print "Back Care \n"; print "Beauty \n"; print "Exercise & Fitness \n"; print "Free Stuff \n"; print "Health Products\n"; print "Herbal Products \n"; print "Natural Healing \n"; print "Nutrition \n"; print "Pain Mgmt \n"; print "Quit Smoking \n"; print "Sexuality \n"; print "Skin Care \n"; print "Stress Mgmt\n"; print "Viagra \n"; print "Vitamins \n"; print "Weight Loss \n"; print "Yoga \n"; print "\n"; print "
Click here for more topics!
 \n"; print "Enter your email address:
\n"; print "
\n"; print "Enter your zip/postal code:
\n"; print "
\n"; print "
\n"; print "
\n"; print "
\n"; print "
\n"; #print "
"; #print " # # Respond to a message and win \$300!"; #print "

"; print "

\n"; print "

THIS BOARD IS CLOSED!
PLEASE GO TO OUR NEW BOARDS

\n"; print "
"; #---- BEGIN GOOGLE ADSENSE CODE print "\n"; print "\n"; #---- END GOOGLE ADSENSE CODE print "

"; print "

\n"; print "
\n"; print "
[ Home ] [ Follow Ups ] [ Post Followups ] [ FAQ ]
\n"; print "
\n"; print "
\n"; [ Back to Messages ]

Message

Posted by Millie on November 09, 2000 at 14:31:35:

In Reply to: Re: Upper back pain posted by Christina DeMaio on August 17, 2000 at 13:16:43:

I've had the same burning pain,right shoulder area
for sometime,on and off. However,7 weeks ago I
broke my right upper arm - hunerus shaft, and now
after the shouldeer restraint for 4 weeks,now a
sling for 2 wks,trying to straighten arm, its
crooked, the pain is now on a daily basis, on and
off all day. Will stopif I sit,then start
again on movementwalking etc. I'm tryping with
left hand. Any help appreciated.......Millie



#!/usr/bin/perl # msgpart3.pl #-- insert part 3 of a healthboards message print "Content-type: text/html\n\n"; print "

\n";
Follow Ups


Post a Followup

#!/usr/bin/perl # msgpart4.pl #-- insert part 4 of a healthboards message print "Content-type: text/html\n\n"; print "If you post a followup:\n"; print "
    \n"; print "
  • Please review our message board guidelines.\n"; print "
  • Please keep messages on topic.\n"; print "
  • Advertising messages are not permitted on this board.\n"; print "
  • Please report any violations to webmaster\@healthboards.com\n"; print "
\n"; print "Name:
\n"; print "E-Mail (optional):
\n"; print "please note: your e-mail address will be visible for others to see.

"; Subject:

Message: (add your reply here)

#!/usr/bin/perl # msgpart5.pl #-- insert part 5 of a healthboards message srand(time ^ $$); $num = int (rand(998))+1; # Pick a Random Number print "Content-type: text/html\n\n"; print "Optional Link URL:
\n"; print "Link Title:
\n"; print "Optional Image URL:

\n"; print "Note: The moderator has the right to delete any message deemed inappropiate for this board. Repeat violators of healthboards policy will be permanently barred from the boards.

\n"; print " Reminder - No ad messages permitted!\n\n"; print "

\n"; print "

\n"; print "

\n"; print "

Help us enforce our NO ADS POLICY!

\n"; print "\n"; print "

Please read our message board guidelines!

\n"; print "\n"; print "

HealthBoards.com disclaimer

\n"; print "\n"; print "\n"; print "

Tell a friend about HealthBoards.com! Click here!
\n"; print "

\n"; print "

\n"; #-- BEGIN LINKEXCHANGE CODE print "

\n"; print "\"\" \n"; print "

\n"; #-- END LINKEXCHANGE CODE print "\n"; print "

\n"; print "\n"; print "\n"; print "\n";