|
|
|
|
<%
Dim pg
Dim tmp
Dim ix
Dim mail
Dim FieldName
Dim fieldValue
'tmp = "The Following Information was submitted via the Form on your website at " & Now() & ":"
pg = Request.QueryString(uCase("pg"))
'DEBUG
' Response.Write pg
If IsBlank(Request.Form) Then
If Not IsBlank(pg) then
Select Case pg
Case "ABT"
Response.Write " Welcome to Fanchers Campground... "
Response.Write " "
Response.Write "We are located in Dandridge Tennessee, on beautiful Douglas Lake. "
Response.Write " We are a family owned and operated business, started in 1976, by our parents Alex and Gail Fancher. "
Response.Write " We have been in business for 28 years, and are a member of the Jefferson County Chamber of Commerce, TNARVC, NARVC & AAA. "
Response.Write " We are down to earth country people and we would love to have you come camp with us. "
Response.Write " "
Response.Write "LOCATION: We are located 2 miles off I-40 on Douglas Lake. Take Exit 424 turn right at end of ramp, go to stop sign "
Response.Write "and turn left. Cross Swann's Bridge, take the first left at end of bridge on Roadhouse Road."
Response.Write " Go 1/4 mile turn left at first set of double gates. PRINT DIRECTIONS "
' Response.Write "
"
Response.Write "
"
' INNER TABLE #1
Response.Write "| | "
Response.Write "OUR CAMPGROUND INCLUDES: "
Response.Write "- SEASONAL CAMPING SITES."
Response.Write "
- OPEN ALL YEAR ROUND.
- RATES: $1200.00 to $1500.00
"
' Response.Write "OVERNIGHT CAMPING- FULL HOOKUPS
- 50AMP/30AMP/20AMP
- RATES: $ 25.00 per NIGHT
"
Response.Write "- RENTAL CABINS"
Response.Write "
- PARK MODEL SALES"
Response.Write "
- STORE / OFFICE
"
Response.Write "- CAMPING SUPPLIES"
Response.Write "
- RV PARTS"
Response.Write "
- GROCERIES
- SWIMMING POOL (Newly remodeled in 2004)
- CONCRETE BOAT RAMP
- LAUNDRY MAT (New Maytag Washers & Dryers)
"
Response.Write " - SMALL LINE OF FOOD ITEMS"
Response.Write "
- L. P. GAS"
Response.Write "
- CONCRETE BOAT RAMP"
Response.Write "
- SWIMMING POOL
"
Response.Write " ACTIVITIES:"
Response.Write "- FISHING:
- We have lots of different species, Bass, Blue Gills, Catfish, Crappie, Walleye, Sauger and Stripes.
"
Response.Write "
- BOATING:
- PLEASURE BOATING.... Smoky Mtn. Leisure Rentals and Swann's Marina have fishing boats and pontoons to rent."
Response.Write "
- JET SKIING
- WATER SKIING
- SWIMMING
- BIKING
"
Response.Write "HOLIDAYS & EVENTS: "
Response.Write "- MAY - SEPTEMBER;
- Church Services Each Sunday.
"
Response.Write "- ANNUAL 4TH OF JULY;
- Kids Tournament in our fishing pond.
"
' Response.Write " - KARAOKE;
- LIVE BANDS;
- MOUNTAIN EDGE BAND
- BYBEE BEATS
"
Response.Write " |
"
Response.Write " PLUS... All The Great Area Attractions!"
Case "PMSCR"
Response.Write " Park Model Sales & Cabin Rentals... "
Response.Write " "
Response.Write "Park Models Sales: "
Response.Write " "
Response.Write "We are a dealer for Breckenridge, Chariot Eagle and "
Response.Write "Quailridge by Forest River. We have " Lake Front Lots " available "
Response.Write "to park one of these Great Vacation Homes. "
Response.Write "
"
' PARK HOMES
Response.Write "| | "
Response.Write "Follow The Links to View Your Next Vacation Home!"
Response.Write ""
Response.Write " |
"
Response.Write "
"
Response.Write "We also have TWO Beautiful Rental Cabins! "
Response.Write "Cabin rentals include access to: Swimming Pool, Boat Ramp and Fishing Pond. "
Response.Write " "
' LOG CABINS
Response.Write ""
Response.Write "Fancher's Lakefront Log Cabin"
Response.Write " $ 150.00 per night
($ 40.00 Cleaning Fee)
2 night minimum."
Response.Write "  "
Response.Write "4 BEDROOMS
1 KING
3 FULL
2 FULL BATHS
ALL BEDROOMS HAVE TV'S
2 NIGHT MINIMUM
ALL ONE LEVEL "
Response.Write " | "
'Response.Write "
"
Response.Write "Fancher's Lakefront Loft"
Response.Write " $ 100.00 per night
$ 30.00 Cleaning Fee
2 night minimum."
Response.Write "  "
Response.Write "2 BEDROOMS
1 KING
bunkbeds (Full on Bottom / Twin on Top)
1 FULL BATH
2 NIGHT MINIMUM "
Response.Write " |
"
Response.Write "
"
Response.Write " PLUS... All The Great Area Attractions!"
Case "CUS"
Response.Write ""
'FORM VALIDATE REQUIRED FIELDS
%>
<%
Case "AA"
' MAPS
Response.Write ""
Response.Write "
"
Response.Write " | "
Response.Write "We Are In A Centrally Located Area: "
Response.Write "- SEVIERVILLE .... 25 Mi."
Response.Write "
- PIGEON FORGE / DollyWood .... 30 Mi."
Response.Write "
- GATLINBURG .... 40 Mi."
Response.Write "
- CHEROKEE N.C. / Harrah's Casino .... 100 Mi."
Response.Write "
- KNOXVILLE / Zoo .... 40 Miles"
Response.Write "
- MORRISTOWN .... 20 Mi."
Response.Write "
- BRISTOL MOTOR SPEEDWAY .... 80 Mi."
Response.Write "
- WHITE PINE .... 10 Mi."
Response.Write "
- BANEBERRY / GOLF .... 8 Mi."
Response.Write "
- DANDRIDGE .... 5 Mi.
- Dandridge is the second oldest town in Tennessee,"
Response.Write " Dandridge has lots of historical interests and unique shops.
"
Response.Write " | "
Response.Write " "
' GOLF
Response.Write ""
Response.Write " | "
Response.Write "AREA ACTIVITIES: "
Response.Write "Golf courses are abundant in our area, here are just a few...."
Response.Write "- PARRIOT HILLS .... 10 Miles"
Response.Write "
- BANEBERRY .... 8 Miles"
Response.Write "
- DANDRIDGE COUNTRY CLUB .... 6 Miles"
Response.Write "
- MILLSTONE GOLD COURSE .... 15 Miles"
Response.Write "
- EAGLE ISLAND .... 35 Miles"
Response.Write "
| |
"
Response.Write " "
' SHOPPING
Response.Write ""
Response.Write "
"
Response.Write " "
Response.Write "COMING 2005: "
Response.Write " - BASS PRO SHOP"
Response.Write "
- PLANETARIUM "
Response.Write "
| "
Response.Write "SHOPPING: "
Response.Write "- SEVIERVILLE .... "
Response.Write "
- PIGEON FORGE ....
- Beltx Outlet Mall
- Red Roof Mall
- Tanger Outlets
"
Response.Write " - GATLINBURG .... "
Response.Write "
- KNOXVILLE ....
- East Town Mall
- West Town Mall
"
Response.Write " - MORRISTOWN .... "
Response.Write "
|
"
Case "MAP"
Response.Write "Click Map for large view and printable directions. "
Response.Write ""
Response.Write ""
Response.Write " "
Response.Write "LOCATION: We are located 2 miles off I-40 on Douglas Lake. Take Exit 424 turn right at end of ramp, go to stop sign "
Response.Write "and turn left. Cross Swann's Bridge, take the first left at end of bridge on Roadhouse Road."
Response.Write " Go 1/4 mile turn left at first set of double gates. "
' Response.Write "
"
Response.Write "
"
Response.Write " | "
Response.Write " "
End Select
End If
Else
' tmp = "The Following Information was submitted via the Form on your website at " & Now() & ":"
for ix = 1 to Request.Form.Count
fieldName = Request.Form.Key(ix)
fieldValue = Request.Form.Item(ix)
tmp = tmp & "
" & fieldName & ": .... " & replace(fieldValue,vbCrLf,"
")
Next
set mail = server.CreateObject("Persits.MailSender")
mail.AddAddress(Application("FeedbackEmail"))
Mail.Subject = "Request From Fancherscampground.com"
Mail.Body = tmp
Mail.username = "information@fancherscampground.com"
mail.Password = "fish"
Mail.Host = "mail.fancherscampground.com"
Mail.From = Request.Form("Email")
Mail.FromName = Request.Form("Name")
mail.IsHtml = True
mail.send
%>
<%
End If
%>
|