<% Set oCon = Server.CreateObject("ADODB.Connection") Set oRS = Server.CreateObject("ADODB.Recordset") sSQL = "SELECT * FROM homepages" conString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("indexdb\admin.mdb") oCon.Open conString oRS.Open sSQL, oCon, 1, 3 Dim intLowerBound Dim intUpperBound Dim intRangeSize Dim sngRandomValue Dim intRandomInteger 'response.write "oRS.RecordCount = " & oRS.RecordCount intUpperBound = oRS.RecordCount intLowerBound = 1 Randomize() intRangeSize = intUpperBound - intLowerBound + 1 sngRandomValue = intRangeSize * Rnd() sngRandomValue = sngRandomValue + intLowerBound intRandomInteger = Int(sngRandomValue) oRS.Close sSQL = "SELECT content FROM homepages WHERE id = " & intRandomInteger oRS.Open sSQL, oCon dispText = oRS("content") %> Cape May NJ Hotels, Cape May Hotels, Cape May New Jersey Hotels, Hotels cape May NJ, Hotels Cape May New Jersey, Hotels in Cape May NJ, Hotels in Cape May New Jersey, Hotels in Cape May, Hotels Cape May, The Virginia Hotel Cape May NJ



<%=dispText%>The Virginia offers 24 intimate rooms in an impeccably restored 1879 landmark building and is the foremost luxury hotel in Cape May NJ. Nestled on Jackson Street in the heart of the famed historic district of Cape May New Jersey, the Virginia Hotel offers its guests a flawless integration of service and style, with a timeless glamour.