<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% IF Request("refid") = "" THEN refid = 1 ELSE refid = Cint(Request("refid")) END IF Set rsFind = adoConn.Execute("SELECT * FROM Pagez WHERE p_id = '" & refid & "'") IF Cint(rsFind.Fields("p_mainpage")) = 0 THEN wg = Cint(rsFind.Fields("p_id")) ELSE wg = Cint(rsFind.Fields("p_mainpage")) END IF Function stripHTML(strHTML) 'Strips the HTML tags from strHTML Dim objRegExp, strOutput Set objRegExp = New Regexp objRegExp.IgnoreCase = True objRegExp.Global = True objRegExp.Pattern = "<(.|\n)+?>" 'Replace all HTML tag matches with the empty string strOutput = objRegExp.Replace(strHTML, "") 'Replace all < and > with < and > strOutput = Replace(strOutput, "<", "<") strOutput = Replace(strOutput, ">", ">") stripHTML = strOutput 'Return the value of strOutput Set objRegExp = Nothing End Function pagetitle = Replace(rsFind.Fields("p_title"),"''","'") pagetitle = StripHTML(pagetitle) pagetitle = pagetitle & " | " & clientNm pagedesc = Replace(rsFind.Fields("p_text"),"''","'") pagedesc = Replace(pagedesc,"
"," ") pagedesc = StripHTML(pagedesc) pagedesc = Left(pagedesc,255) IF rsFind.Fields("p_kw") <> "" THEN pagekywd = rsFind.Fields("p_kw") ELSE pagekywd = clientKyWd END IF IF rsFind.Fields("p_alt1") <> "" THEN alt1 = rsFind.Fields("p_alt1") ELSE alt1 = clientNm END IF IF rsFind.Fields("p_alt2") <> "" THEN alt2 = rsFind.Fields("p_alt2") ELSE alt2 = clientNm END IF IF rsFind.Fields("p_alt3") <> "" THEN alt3 = rsFind.Fields("p_alt3") ELSE alt3 = clientNm END IF IF rsFind.Fields("p_alt4") <> "" THEN alt4 = rsFind.Fields("p_alt4") ELSE alt4 = clientNm END IF IF rsFind.Fields("p_alt5") <> "" THEN alt5 = rsFind.Fields("p_alt5") ELSE alt5 = clientNm END IF alt1 = Replace(alt1,"''","'") alt2 = Replace(alt2,"''","'") alt3 = Replace(alt3,"''","'") alt4 = Replace(alt4,"''","'") alt5 = Replace(alt5,"''","'") bodytitle = rsFind.Fields("p_title") bodytitle = Replace(bodytitle,"''","'") bodytext = rsFind.Fields("p_text") bodytext = Replace(bodytext,"''","'") IF rsFind.Fields("p_pic1") <> "" THEN picstring = vbcrlf & " " picstring = picstring & vbcrlf & " " picstring = picstring & vbcrlf & " " picstring = picstring & vbcrlf & " " IF rsFind.Fields("p_pic2") <> "" THEN picstring = picstring & vbcrlf & " " picstring = picstring & vbcrlf & " " picstring = picstring & vbcrlf & " " END IF IF rsFind.Fields("p_pic2") <> "" THEN picstring = picstring & vbcrlf & " " picstring = picstring & vbcrlf & " " picstring = picstring & vbcrlf & " " END IF IF rsFind.Fields("p_pic2") <> "" THEN picstring = picstring & vbcrlf & " " picstring = picstring & vbcrlf & " " picstring = picstring & vbcrlf & " " END IF IF rsFind.Fields("p_pic2") <> "" THEN picstring = picstring & vbcrlf & " " picstring = picstring & vbcrlf & " " picstring = picstring & vbcrlf & " " END IF picstring = picstring & vbcrlf & "
" ELSE picstring = "" END IF bodytext = Replace(bodytext,"
","
" & vbcrlf & " ") rsFind.Close Set rsFind = Nothing %> <%=pagetitle%>
Coastal Climate Action Home Contact Coastal Climate Action
Coastal Climate Action in North Devon
Climate Change Action

<%=bodytitle%>

<%=bodytext%> 		What can I do about global warming
 
Coastal Climate Action
<% Set rsMenu = adoConn.Execute("SELECT p_id, p_pagename, p_do, p_menlink, p_mainpage, p_pgn FROM Pagez WHERE p_level = '0' AND p_live = '1' AND p_id != '1' ORDER BY p_do ASC") Do While NOT rsMenu.EOF IF rsMenu.Fields("p_id") = wg THEN linkname = Replace(rsMenu.Fields("p_menlink"),"''","'") linkname = Replace(linkname," and "," & ") Response.Write vbcrlf & " " Response.Write vbcrlf & " " Response.Write vbcrlf & " " Response.Write vbcrlf & " " Set rsMenu2 = adoConn.Execute("SELECT p_id, p_pagename, p_do, p_menlink, p_mainpage, p_pgn FROM Pagez WHERE p_mainpage = '" & wg & "' AND p_live = '1' ORDER BY p_do ASC") linecount = 0 Do While NOT rsMenu2.EOF linecount = linecount +1 linkname = Replace(rsMenu2.Fields("p_menlink"),"''","'") linkname = Replace(linkname," and "," & ") Response.Write vbcrlf & " " Response.Write vbcrlf & " " Response.Write vbcrlf & " " Response.Write vbcrlf & " " rsMenu2.MoveNext Loop rsMenu2.Close Set rsMenu2 = Nothing ELSE linkname = Replace(rsMenu.Fields("p_menlink"),"''","'") linkname = Replace(linkname," and "," & ") Response.Write vbcrlf & " " Response.Write vbcrlf & " " Response.Write vbcrlf & " " Response.Write vbcrlf & " " END IF rsMenu.MoveNext Loop rsMenu.Close Set rsMenu = Nothing %>
Home
 Home
" & linkname & "
 " & linkname & "
" & linkname & "
Keep Informed
 Keep Informed
Contact Coastal Climate Action
 Contact CCA
Other Web Resources and Climate Action Websites
 Other Websites
Coastal Climate Action
 
Coastal Climate Action
<% Set rsMenu = adoConn.Execute("SELECT subj_id, subj_name, subj_count, subj_pgn, subj_title FROM subjectz6 ORDER BY subj_name ASC") Do While NOT rsMenu.EOF subj_name = "" subj_name = rsMenu.Fields("subj_name") subj_name = Replace(subj_name,"''","'") Response.Write vbcrlf & " " Response.Write vbcrlf & " " Response.Write vbcrlf & " " Response.Write vbcrlf & " " rsMenu.MoveNext Loop rsMenu.Close Set rsMenu = Nothing %>
Climate Action Articles Articles
" & subj_name & "
Coastal Climate Action
 
 
<% IF picstring <> "" THEN Response.Write picstring END IF 'snippet Set rsSnippet = adoConn.Execute("SELECT * FROM Snippets ORDER BY RAND() LIMIT 0,1") IF rsSnippet.EOf THEN 'do nothing ELSE ' Response.Write vbcrlf & "
" snippet = rsSnippet.Fields("snip_text") snippet = Replace(snippet,"
","
" & vbcrlf & " ") Response.Write vbcrlf & " " & snippet END IF rsSnippet.Close Set rsSnippet = nothing %>
North Devon Cimate Action
© Coastal Climate Action
<% adoConn.Close Set adoConn = Nothing Set strCon = Nothing %>