<% '==================================== ' COMMON FUNCTIONS FOR PORTMORE GC '==================================== 'Portmore Header Sub accesskeysSkip() %>
Skip to contentSkip to menu
<% End Sub 'Portmore Header Sub portmoreHeader() %> <% End Sub ' 'Portmore Menu Sub portmoreMenu() %>
<% End Sub 'Portmore Footer Sub portmoreFooter() %> <% End Sub Function logPage(PageIn) Dim yearstr Dim monthstr yearstr = year(date()) monthstr = month(date()) set oFs = server.createobject("Scripting.FileSystemObject") set oTextFile = oFs.OpenTextFile(Server.MapPath("/cms/") & "/logs/hits_" & monthstr & "_" & yearstr & ".txt", 8, True) oTextFile.Write PageIn & "::" & now() & vbcrlf oTextFile.Close set oTextFile = nothing set oFS = nothing End Function ' DATABASE 'Select from Database ' Input: ' Recordset ' sql statement Sub dbSelect(RS,SQLSelect) Set RS = Server.CreateObject ("ADODB.Recordset") RS.Open SQLSelect, OBJdbConnection End Sub 'Insert return Insert ID ' Input: ' Recordset ' insert with select @@IDENTITY ' Returns inserted id Sub dbInsertReturnID(RS,SQLInsert,RetID) Set RS = OBJdbConnection.Execute(SQLInsert) varNewID = RS("NewID") 'response.write("INSERT ID: " & varNewID) RetID = varNewID End Sub 'Insert return Insert ID ' Input: ' Recordset ' insert with select @@IDENTITY ' Returns inserted id Sub dbInsert(RS,SQLInsert) Set RS = OBJdbConnection.Execute(SQLInsert) End Sub 'Update / Delete from Database ' Input: ' Recordset ' sql statement Sub dbUpdate(RS,SQLUpdate) Set RS = Server.CreateObject("ADODB.Connection") RS.Open application("ConnectionString") RS.Execute SQLUpdate RS.Close Set RS = Nothing End Sub 'Open a database connection Sub dbOpen() Set OBJdbConnection = Server.CreateObject("ADODB.Connection") OBJdbConnection.Open application("ConnectionString") End Sub 'Close the database connection Sub dbClose() OBJdbConnection.Close Set OBJdbConnection = Nothing End Sub %> <% '======================================================= ' Configuration file for Portmore golf park website. ' Entries begin cfg for clarity '======================================================= 'contact us email address Dim cfgContactUsToAddress cfgContactUsToAddress = "contact@portmoregolf.co.uk" 'Set ehich site we are coming from Dim cfgHostName cfgHostName = Request.ServerVariables("HTTP_HOST") 'Live Dim cfgLoggingOn cfgLoggingOn = false If cfgHostName = "www.portmoregolf.co.uk" Then cfgLoggingOn = true End If %> <% If cfgLoggingOn = true Then logPage "Landkey course" End If %> Portmore Golf Park - Barnstaple Golf~ Golf in North Devon, Devon | Landkey course
<% accesskeysSkip() %> <% portmoreHeader() %> <% portmoreMenu() %>
Golf course

Landkey course

Image of 1st Hole on the Landkey course


Landkey course

Click on each hole below to find out more information and view the pictures.

Graphic of the Landkey course layout. Clickable links to each hole on the course Hole 1 Hole 2 Hole 3 Hole 4 Hole 5 Hole 6 Hole 7 Hole 8 Hole 9

Hole Par Yards
1 3 150
2 3 175
3 3 177
4 3 203
5 3 195
6 3 165
7 3 249
8 3 137
9 3 135
<% portmoreFooter() %>