<%@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
<% 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
<% adoConn.Close Set adoConn = Nothing Set strCon = Nothing %>