<% Option Explicit '================================================================ ' name: views.asp 4/1/2001 ' Description: Flex Page Slide Show from the Inn '================================================================ 'Receive counter start for displaying items dim counterStart, ID If request.QueryString("counterStart") <> "" Then counterStart = request.QueryString("counterStart") Else counterStart = 0 End If If request.QueryString("ID") <> "" Then ID = request.QueryString("ID") Else response.redirect "views_from_mt_pisgah.asp?counterStart=" & counterStart End If %> Views From Pisgah Inn, North Carolina - The Peak of the Parkway
<% dim rs dim sqlString dim connectionString, strDatabaseName, strPhysicalPath dim prelist, whichfile dim count, recordCount, i 'Set count to zero count = 0 'Set connection details strPhysicalPath = Server.MapPath("databases") strDatabaseName = "photo.mdb" connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _ & strPhysicalPath & "\" & strDatabaseName 'Set sql string sqlString = "select * from MY where id=" & ID 'Create a recordset set rs = Server.CreateObject("ADODB.Recordset") 'Populate Recordset rs.Open sqlString, connectionString 'If EOF is not true, a record was found, 'so display it If rs.EOF <> true Then rs.MoveFirst %>

" border="0">
<%= RS("story")%>
<% 'Otherwise no records were found, so tell the user that Else response.write "

Image Not Found

" End If 'Close the recordset rs.Close Set rs = Nothing %>

Click here to Return to Gallery

Copyright © 2004-2008, Pisgah Inn
Blue Ridge Parkway Milepost 408.6
PO Box 749, Waynesville, NC 28786
(828) 235-8228 - www.pisgahinn.com

Accommodations & Rates
Dining & Banquet Facilities
Crafts & Gift Shop
Country Store
History of Pisgah Inn
Area Activities
Employment Opportunities
Employment Application
Daily News from the Inn
Views from the Mountain
Reserve Your Room
How to Get Here
Email Bruce
Home Page