The South East Regional Adder Project

The Adder Project is a collaborative working group of regional herpetological specialist groups with the common goal of creating and populating a geographic and information technology toolset to generate an accurate distribution map for the adder (Vipera berus) across the south east of England.

By pooling resources, and providing distribution data on an internet-based geographical information system, the partnership hopes to generate a definitive, verified and temporal distribution for the adder. By overlaying the known distribution on geological layers and aerial mapping, it is hoped to identify habitat corridors and to improve knowledge of the distribution for the species. Cross-county border mapping is designed to improve each group's understanding of the adder's distribution, leading to targeted survey effort and an expansion of the adder's known range.

An early focus for the project will be to increase the number of known meta-populations of adder between the M25 motorway and London. Only six such sites are currently recognised, and it is expected that the project will increase this number in the first year. Eventually, we hope to increase the number of known adder sites within Greater London, above the four known sites.

Main effort: Expand the known range of the adder across the South East region, by:

Datasets currently fused within the project:

Download the data sharing agreement

<% Set adoCon = Server.CreateObject("ADODB.Connection") adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("/cgi-bin/SARGBASE/AdderProject.mdb") Set RsSargBase = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM DataSets ORDER BY Nrecords DESC;" RsSargBase.Open strSQL, adoCon TotalRecords=0 OrgString="" 'csv string of logo file names Do While not RsSargBase.EOF Response.write("" & "") TotalRecords=TotalRecords+RsSargBase("Nrecords") OrgString=OrgString & RsSargBase("Org") & "," RsSargBase.MoveNext Loop OrgString=left(OrgString,len(OrgString)-1) 'remove final comma RsSargBase.Close Set RsSargBase = Nothing Set adoCon = Nothing %>
Dataset Number of records Primary area covered Last update
 
" & RsSargBase("Org") & " " & RsSargBase("Nrecords") & " " & RsSargBase("Description") & " " & RsSargBase("LastUpdate") & "

Total: <%=TotalRecords%> adder records
 
<% OrgArray=split(OrgString,",") ImagePath = "/SARG/Org Logos/" For Each Org in OrgArray Response.write("") Response.write("") Response.write("") Next %>
 
 

<% Function GetWebsite(DataSet) Set adoCon = Server.CreateObject("ADODB.Connection") adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("/cgi-bin/SARGBASE/AdderProject.mdb") Set RsSargBase = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM DataSets WHERE Org='" & DataSet & "';" 'response.write(srSQL & "
") RsSargBase.Open strSQL, adoCon GetWebsite=RsSargBase("Website") RsSargBase.Close Set RsSargBase = Nothing Set adoCon = Nothing End Function Function GetLogo(DataSet) Set adoCon = Server.CreateObject("ADODB.Connection") adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("/cgi-bin/SARGBASE/AdderProject.mdb") Set RsSargBase = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM DataSets WHERE Org='" & DataSet & "';" RsSargBase.Open strSQL, adoCon GetLogo=RsSargBase("Logo") RsSargBase.Close Set RsSargBase = Nothing Set adoCon = Nothing End Function %>