<%@ LANGUAGE="VBSCRIPT" %> Labour Holme Valley - Colne Valley Labour Parliamentary Constituency - useful links

Welcome

Useful Links

A selection of related web sites which may be of interest.   [all links open in a new browser window]

<% GetUsefulLinksEntries() %>
<% Function GetUsefulLinksEntries() intCounter = 0 set Conn=Server.CreateObject("ADODB.Connection") set Cmd=Server.CreateObject("ADODB.Command") set Rst=Server.CreateObject("ADODB.Recordset") 'response.write(strConnectionString) 'response.write("

") Conn.CommandTimeout=40 Conn.ConnectionString = strConnectionString2 Conn.Open Cmd.ActiveConnection = Conn Cmd.CommandType = adCmdText ' 1 = text cmdSQL_select = "SELECT * FROM tbl_Useful_Links " & _ "WHERE bitActive = TRUE " & _ "ORDER BY strName" Rst.Open cmdSQL_select, Conn, adOpenDynamic, adLockOptimistic 'response.write(cmdSQL_select) 'response.write("

") if Not(Rst.EOF) then while NOT(Rst.EOF) intCounter = intCounter + 1 strLinkName = Rst("strName") strLinkURL = Rst("strHref") DisplayUsefulWebLink strLinkName, strLinkURL Rst.MoveNext wend else ' no entries ? Response.Write("
There are currently no entries in the Useful Links section.") end if Rst.Close set Rst = nothing Conn.Close set Conn = nothing End Function %> <% Function DisplayUsefulWebLink(strLinkName, strLinkURL) strLinkURL = Trim(strLinkURL) strHTTPUrl = "http://" & strLinkURL %>

 <%=strLinkName%>

    <%=strLinkURL%>

<% End Function %>