Long Island Farms & Vineyards


Information and helpful links to Farms & Wineries in Nassau & Suffolk Counties

<%@ Language="vbscript" %> <% Dim r, ID, title, strsql, rst, rs, rsarray ID = request.querystring("ID") If IsNull(ID) or (trim(ID)="") Then ID = 1 End If 'Grab the category to put in the header hsql = "SELECT tblcategories.pgtitle FROM tblcategories WHERE tblcategories.catID = " & ID set rshead = Server.CreateObject("ADODB.Recordset") rshead.Open hsql, Objconn If rshead.EOF then title = " " Else title = rshead.fields("pgtitle") End If rshead.Close set rshead=nothing 'Grab child headings strsql = "SELECT tblsubcats.child, tblsubcats.heading " &_ "FROM tblsubcats WHERE tblsubcats.parent=" & ID &_ " ORDER BY tblsubcats.heading;" set rst = Server.CreateObject("ADODB.Recordset") rst.Open strsql, Objconn, 3, 3 totrows=-1:totcols=0 'If there are no children If rst.EOF then response.write (" ") Else rstarray = rst.getrows totrows = Ubound(rstarray, 2) totcols = Ubound(rstarray, 1) rst.Close set rst=nothing %> " & chr(13)) response.write ("" & chr(13)) %>
    <% Dim n n = totrows\2 For r=0 to n %>
  • <%=rstarray(1,r)%>
  • <% Next 'Close the loop and column response.write ("
    " & chr(13)) r = n+1 For r=r to totrows %>
  • <%=rstarray(1,r)%>
  • <% Next 'Close the loop and column response.write ("
<% End If 'Display any links sql = "SELECT Trim(tbllinks.title) AS Exp1, tbllinks.url, tbllinks.description, Trim(tblrelations.heading) AS Exp2, tbllinks.date, tbllibrarians.initials, tbllibrarians.email " &_ "FROM tbllibrarians INNER JOIN (tbllinks INNER JOIN tblrelations ON tbllinks.linkID = tblrelations.link) ON " &_ "tbllibrarians.libID = tbllinks.librarian WHERE tblrelations.category=" & ID & " ORDER BY Trim(tblrelations.heading), Trim(tbllinks.title);" set rs=Server.CreateObject("ADODB.Recordset") rs.Open sql, Objconn, 3, 3 totrows2=-1:totcols2=0 If rs.EOF Then response.write (" ") Else rsarray = rs.getrows totrows2 = Ubound(rsarray, 2) totcols2 = Ubound(rsarray, 1) rs.Close set rs=nothing Dim sPrevCat, sCat sPrevCat = "" sCat = "" For q=0 to totrows2 SPrevCat = sCat sCat=rsarray(3,q) If isNull (sCat) Then sCat = "" End If If strcomp(sPrevCat, sCat) <> 0 Then response.write("" & rsarray(3,q) & "") Else response.write ("") End If %>

<%=rsarray(0,q)%>
<% If isNull (rsarray(2,q)) OR (rsarray(2,q)) = "" Then response.write ("") Else response.write (rsarray(2,q) & "
") End If %>

<% Next %> <% End If Objconn.Close set Objconn=nothing %>


Do you have information to add? Then please contact Diane Holliday.

Last Modified on January 31, 2012, at 10:04 AM by LPR


Questions - We Need Your Help!

Contribute Content

About Us

Dowling College Library Created Resources

Dowling College Photos

Historic Oakdale

Listening Tour of South Shore History

Long Island Genealogy Web Links

Map of Long Island Estates and Cultural Institutions 1860 - 1930

Map of Vanderbilt Estates in the Gilded Age

Podcasts at Dowling College Library

Related Links

AmericanTowns: Oakdale, NY

Explore the South Shore

Historic Houses Blog

Historic Long Island

Historic Newspapers

Long Island Oddities

Oakdale, NY

Local Museums and Historical Societies

Disclaimer

Dowling College Library Homepage

Whats New

Bulletin Board

PmWiki

SideBar