<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim Text__MMColParam Text__MMColParam = "1" If (Request("MM_EmptyValue") <> "") Then Text__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Text Dim Text_numRows Set Text = Server.CreateObject("ADODB.Recordset") Text.ActiveConnection = MM_croft_STRING Text.Source = "SELECT * FROM History WHERE ID = " + Replace(Text__MMColParam, "'", "''") + "" Text.CursorType = 0 Text.CursorLocation = 2 Text.LockType = 1 Text.Open() Text_numRows = 0 %> <% Dim Photo1__MMColParam Photo1__MMColParam = "2" If (Request("MM_EmptyValue") <> "") Then Photo1__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Photo1 Dim Photo1_numRows Set Photo1 = Server.CreateObject("ADODB.Recordset") Photo1.ActiveConnection = MM_croft_STRING Photo1.Source = "SELECT * FROM Photos WHERE PhotoID = " + Replace(Photo1__MMColParam, "'", "''") + "" Photo1.CursorType = 0 Photo1.CursorLocation = 2 Photo1.LockType = 1 Photo1.Open() Photo1_numRows = 0 %> <% Dim Photo__MMColParam Photo__MMColParam = "1" If (Request("MM_EmptyValue") <> "") Then Photo__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Photo Dim Photo_numRows Set Photo = Server.CreateObject("ADODB.Recordset") Photo.ActiveConnection = MM_croft_STRING Photo.Source = "SELECT * FROM Photos WHERE PhotoID = " + Replace(Photo__MMColParam, "'", "''") + "" Photo.CursorType = 0 Photo.CursorLocation = 2 Photo.LockType = 1 Photo.Open() Photo_numRows = 0 %> The Croft Story
The Douro Valley
The Grape Varieties
The Fortification Process
The Ageing Process
Port Styles
Wood Aged Ports
Bottle Aged Ports
Declared Vintage
Single Quinta Vintage
Serving Vintage Port
 
« main menu

    site map
    contact us
    legal information

 
<% Text.Close() Set Text = Nothing %> <% Photo1.Close() Set Photo1 = Nothing %> <% Photo.Close() Set Photo = Nothing %>