Some other sites you may find of interest;
<%
' (c) 2005 All rights reserved link-vault.com
dim lv_ScriptVersion
lv_ScriptVersion = "1.4.01"
Server.ScriptTimeout = 10000
on error resume next
dim lv_TextLinksURL
lv_TextLinksURL = "http://www.link-vault.com/comms.asp?sc=n9VFRuef1DQ3Tnvs"
dim lv_p, lv_q, lv_DLsp
if right(Request.ServerVariables("SCRIPT_NAME"),22) = "lvn9VFRuef1DQ3Tnvs.asp" then
Select Case Request("action")
case "resetsite"
Application("Reseting") = True
Application("URLs") = GetHTTP(lv_TextLinksURL & "&action=givemeallurls")
Application("URLCount") = (len(Application("URLs")) - len(Replace(Application("URLs"),"","",1,-1,vbTextCompare)))/5
Application("NewURLs") = ""
Application("NewURLCount") = 0
Application("Links") = GetHTTP(lv_TextLinksURL & "&action=givemealllinks")
Application("LinkOnURLs") = GetHTTP(lv_TextLinksURL & "&action=givemeallplacements")
Application("LastCommunication") = Now()
Application("TestMode") = (Request("testmode") = "on")
Application("MaxPages") = Request("maxpages")
Application("Reseting") = False
%>success<%
case "getnewlinks"
Application("Links") = GetHTTP(lv_TextLinksURL & "&action=givemealllinks")
Application("LinkOnURLs") = GetHTTP(lv_TextLinksURL & "&action=givemeallplacements")
%>success<%
case "newurl"
if instr(1,Application("URLs"),"" & Request("NewURL") & "" & Request("Slots") & ":" & Request("URLID"),vbTextCompare) = 0 then
lv_p = instr(1,Application("URLs"),"" & Request("NewURL") & "",vbTextCompare)
lv_q = instr(lv_p+1,Application("URLs"),"",vbTextCompare)
if lv_p > 0 then
if lv_p = 1 then
if lv_q > 0 then
Application("URLs") = mid(Application("URLs"),lv_q)
else
Application("URLs") = ""
end if
else
if lv_q > 0 then
Application("URLs") = left(Application("URLs"),lv_p-1) & mid(Application("URLs"),lv_q)
else
Application("URLs") = left(Application("URLs"),lv_p-1)
end if
end if
end if
Application("URLs") = Application("URLs") & "" & Request("NewURL") & "" & Request("Slots") & ":" & Request("URLID")
end if
case "getnewurls"
if Application("NewURLs") <> "" then
%><%=Application("NewURLs")%><%
Application("NewURLCount") = 0
Application("NewURLs") = ""
end if
Application("TestMode") = (Request("testmode") = "on")
case "settestmode"
Application("TestMode") = (Request("testmode") = "on")
%>success<%
case "getscriptversion"
%><%=lv_ScriptVersion%><%
case "commscheck"
%><%=GetHTTP(lv_TextLinksURL & "&action=commscheck")%><%
end select
Response.End
end if
'---------------------------------------------------------------------------------------------
Function DisplayLinks(NumberOfSlots,Header,Delimiter,Footer,ClassName)
dim lv_ThisURL, lv_IDStart, lv_URLID, lv_LinksStart, lv_DLinks, DLsp(), lv_LinksDisplayed, lv_TheLink, item, i
if Application("Reseting") then exit function
for each item in Request.QueryString
if len(Request.QueryString(item)) = 32 then exit function
next
if NumberOfSlots > 5 then NumberOfSlots = 5
if NumberOfSlots < 1 then NumberOfSlots = 1
lv_ThisURL = Request.ServerVariables("REQUEST_URI")
if lv_ThisURL = "" then
lv_ThisURL = Request.ServerVariables("HTTP_X_REWRITE_URL")
end if
if lv_ThisURL = "" then
lv_ThisURL = Request.ServerVariables("PATH_INFO")
if Request.QueryString <> "" then
lv_ThisURL = lv_ThisURL & "?" & Request.QueryString
end if
end if
if lv_ThisURL = "" then
lv_ThisURL = Request.ServerVariables("SCRIPT_NAME")
if Request.QueryString <> "" then
lv_ThisURL = lv_ThisURL & "?" & Request.QueryString
end if
end if
if Application("URLs") = "" and Application("Reseting") = "" then
Application("Reseting") = True
Application("URLs") = GetHTTP(lv_TextLinksURL & "&action=givemeallurls")
Application("URLCount") = (len(Application("URLs")) - len(Replace(Application("URLs"),"","",1,-1,vbTextCompare)))/5
Application("NewURLs") = ""
Application("NewURLCount") = 0
Application("Links") = GetHTTP(lv_TextLinksURL & "&action=givemealllinks")
Application("LinkOnURLs") = GetHTTP(lv_TextLinksURL & "&action=givemeallplacements")
Application("LastCommunication") = Now() - 1
Application("TestMode") = (GetHTTP(lv_TextLinksURL & "&action=givemetestmode") = "on")
Application("MaxPages") = GetHTTP(lv_TextLinksURL & "&action=givememaxpages")
Application("Reseting") = False
end if
if Application("TestMode") then
%>Page : <%=lv_ThisURL%> : <%
end if
if Application("URLs") = "" and Application("NewURLs") = "" then
Application("NewURLs") = "" & lv_ThisURL & "" & NumberOfSlots
Application("NewURLCount") = 1
else
if instr(1,Application("URLs"),"" & lv_ThisURL & "",vbTextCompare) = 0 then
if Application("MaxPages") > Application("URLCount") and instr(1,Application("NewURLs"),"" & lv_ThisURL & "",vbTextCompare) = 0 then
Application("NewURLs") = Application("NewURLs") & "" & lv_ThisURL & "" & NumberOfSlots
Application("NewURLCount") = Application("NewURLCount") + 1
Application("URLCount") = Application("URLCount") + 1
end if
else
if instr(1,Application("URLs"),"" & lv_ThisURL & "" & NumberOfSlots,vbTextCompare) = 0 then
Application("NewURLs") = Application("NewURLs") & "" & lv_ThisURL & "" & NumberOfSlots
Application("NewURLCount") = Application("NewURLCount") + 1
Application("URLCount") = Application("URLCount") + 1
end if
lv_IDStart = instr(1,Application("URLs"),"" & lv_ThisURL & "",vbTextCompare) + len("" & lv_ThisURL & "")
lv_IDStart = instr(lv_IDStart,Application("URLs"),":") + 1
if lv_IDStart > 1 then
if instr(lv_IDStart,Application("URLs"),"<") > 0 then
lv_URLID = mid(Application("URLs"),lv_IDStart,instr(lv_IDStart,Application("URLs"),"<")-lv_IDStart)
else
lv_URLID = mid(Application("URLs"),lv_IDStart)
end if
lv_LinksStart = instr(1,Application("LinkOnURLs"),"U" & lv_URLID & ";",vbTextCompare) + len(lv_URLID) + 2
if lv_LinksStart > len(lv_URLID) + 2 then
lv_DLinks = mid(Application("LinkOnURLs"),lv_LinksStart,instr(lv_LinksStart,Application("LinkOnURLs"),":")-lv_LinksStart)
lv_DLsp = Split(lv_DLinks,",")
lv_LinksDisplayed = 0
for i = 0 to ubound(lv_DLsp)
lv_LinksStart = instr(1,Application("Links"),"",vbTextCompare) + len(lv_DLsp(i)) + 6
if lv_LinksStart > 6 then
if lv_LinksDisplayed > 0 then
%><%=Delimiter%><%
else
%><%=Header%><%
end if
lv_TheLink = mid(Application("Links"),lv_LinksStart,instr(lv_LinksStart,Application("Links"),"",vbTextCompare)-lv_LinksStart)
if ClassName <> "" then
lv_TheLink = Replace(lv_TheLink,""">",""" class=""" & ClassName & """>",1,-1,vbTextCompare)
end if
%><%=lv_TheLink%><%
lv_LinksDisplayed = lv_LinksDisplayed + 1
end if
next
end if
end if
end if
end if
if Application("TestMode") then
if lv_LinksDisplayed = 0 then
%><%=Header%><%
end if
for i = lv_LinksDisplayed + 1 to NumberOfSlots
if i > 1 then
%><%=Delimiter%><%
end if
%> "" then
%> class="<%=ClassName%>"<%
end if
%>>TestLink<%=i%><%
next
lv_LinksDisplayed = NumberOfSlots
end if
if lv_LinksDisplayed > 0 then
%><%=Footer%><%
end if
Application("NewURLCount") = (len(Application("NewURLs")) - len(Replace(Application("NewURLs"),"","",1,-1,vbTextCompare)))/5
if (Application("NewURLCount") > 9 or (Application("NewURLCount") > 0 and abs(DateDiff("n",Application("LastCommunication"),now)) > 15)) then
if abs(DateDiff("s",Now(),Application("LastCommunication"))) > 60 then
Application("LastCommunication") = now()
GetHTTP lv_TextLinksURL & "&action=talktome"
end if
end if
end function
'---------------------------------------------------------------------------------------------
Private Function GetHTTP(File)
Dim wHTTP
Set wHTTP = server.CreateObject("WinHttp.WinHttpRequest.5.1")
wHTTP.settimeouts 2000,2000,5000,60000
wHTTP.Open "GET", File, false
wHTTP.Send
If wHTTP.WaitForResponse(5) = True Then
GetHTTP = wHTTP.ResponseText
End If
Set wHTTP=nothing
end function
'---------------------------------------------------------------------------------------------
%>
<%=DisplayLinks(5,""," - ","","")%>
Search engine optimisation for the uk
In 1685 Lord Chief Justice Jeffreys, infamously known as the 'hanging judge', came to Dorchester to hold his 'bloody assizes', the trials of the supporters of the Duke of Monmouth following his failed rebellion. The trials resulted in 74 executions, 175 transportations and 29 pardons and the lodgings where Judge Jeffreys stayed is today a restaurant of the same name.