Exmoor Casting Supplies

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Set rsFind = adoConn.Execute("SELECT * FROM KeyPage WHERE k_ref ='1'") bodytext = rsFind.Fields("k_text") bodytitle = rsFind.Fields("k_title") %> Exmoor Casting Supplies

Advanced Search

View Basket

Check Out


	<% IF rsFind.Fields("k_pic1") <> "" THEN mypicstring = "" bodytext = Replace(bodytext,"XxXpic1XxX",mypicstring) bodytitle = Replace(bodytitle,"XxXpic1XxX",mypicstring) END IF IF rsFind.Fields("k_pic2") <> "" THEN mypicstring = "" bodytext = Replace(bodytext,"XxXpic2XxX",mypicstring) bodytitle = Replace(bodytitle,"XxXpic2XxX",mypicstring) END IF IF rsFind.Fields("k_pic3") <> "" THEN mypicstring = "" bodytext = Replace(bodytext,"XxXpic3XxX",mypicstring) bodytitle = Replace(bodytitle,"XxXpic3XxX",mypicstring) END IF IF rsFind.Fields("k_pic4") <> "" THEN mypicstring = "" bodytext = Replace(bodytext,"XxXpic4XxX",mypicstring) bodytitle = Replace(bodytitle,"XxXpic4XxX",mypicstring) END IF rsFind.Close Set rsFind = Nothing %> <%=bodytitle%> <%=bodytext%>

<% ' menu for all but the department-store & display pages. sqlString = "SELECT * FROM eCats ORDER BY ecat_do ASC" SET rsMenu = adoConn.Execute( sqlString ) Do While NOT rsMenu.EOF Response.Write vbcrlf & "" & vbcrlf & "" & vbcrlf & "" rsMenu.MoveNext Loop rsMenu.Close Set rsMenu = Nothing %>

Home

Quick Search

" & rsMenu.Fields("ecat_name") & "

Quick Links

Products On Special Offer

Advanced Product Search

<%=bodytitle%>