<% ' FP_ASP ASP Automatically generated by a Frontpage Component. Do not Edit. On Error Resume Next Session("FP_OldCodePage") = Session.CodePage Session("FP_OldLCID") = Session.LCID Session.CodePage = 65001 Err.Clear strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "0" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Cannot create connection" Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Cannot create record set" fp_conn.Open Application("contact_ConnectionString") FP_DumpError strErrorUrl, "Cannot open database" fp_rs.Open "Results", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Cannot open record set" fp_rs.AddNew FP_DumpError strErrorUrl, "Cannot add new record set to the database" Dim arFormFields0(3) Dim arFormDBFields0(3) Dim arFormValues0(3) arFormFields0(0) = "Text1" arFormDBFields0(0) = "Text1" arFormValues0(0) = Request("Text1") arFormFields0(1) = "FirstName" arFormDBFields0(1) = "FirstName" arFormValues0(1) = Request("FirstName") arFormFields0(2) = "LastName" arFormDBFields0(2) = "LastName" arFormValues0(2) = Request("LastName") FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 If Request.ServerVariables("REMOTE_HOST") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Remote_computer_name" End If If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Browser_type" End If FP_SaveFieldToDB fp_rs, Now, "Timestamp" If Request.ServerVariables("REMOTE_USER") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "User_name" End If fp_rs.Update FP_DumpError strErrorUrl, "Cannot update the database" fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=utf-8",_ "Form Confirmation",_ "Thank you for submitting the following information:",_ "contact.asp",_ "Return to the form." End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> Contact Us

Hid-In-Pines Vineyard

Best Viewed at 1280 x 1024

Contact Us

If you would like to visit us some time, feel free to drop by and I will show you around as time permits. Please use the map below to get directions to the vineyard. Just enter a starting address and using Google, you will be provided directions to the Vineyard and Winery!

View Larger Map

Mailing Address

Hid-In-Pines Vineyard

Richard Lamoy
456 Soper Street
Morrisonville, NY 12962



Hours of Operation

Currently we have no products for sale.

Driving Directions

  1. Take Route 22B south through Morrisonville, take right onto Flat Rock Road
  2. Go West 3/4 mile to left onto Soper Street, go south a half mile. Hid-In-Pines is on the left.

Contact us with comments

     Last Name

      Please Note this form is not functional yet!