Related Items
Contact Us

Eye4Design
Trends House
Carley Drive, Westfield
Sheffield
S20 8NQ
Tel: 0844-870-8591

Download Latest News

About Eye4Design

Eye4Design was established in 1996 which makes us one of the oldest web design agencies in Yorkshire.

Back then we had just 1 part time developer. Today we have 4 full time developers, 3 Internet consultants, full time graphic designers and 2 dedicated trainers not to mention freelancers and associates.

In addition to web development we also provide a wide range of Internet marketing solutions and work extensively with many of our customers to provide ongoing marketing and support.

New for 2009 are our Internet marketing training courses. Many of our customers like to take a 'hands-on' approach to their Internet marketing and to facilitate that we have invested in our training suite to deliver high quality Internet marketing training.

We are confident that our web design team can help you with your project so please feel free to call us on 0844-870-8591 to discuss your requirements.

 

 

 

 

 

 

Accreditations

Eye4Design are proud to be:

Approved Business Link Consultants

Recognised Training to Gain training providers.

Approved suppliers to the Yorkshire Forward 'Yorkshire & Humber Brokerage Platform'.

Approved training provider to Sheffield Chamber of Commerce.

Members of the UK Web Design Association

About Eye4Design - Internet Marking Training Course's
About Eye4Design - View Portfolio
<% 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 Dim objConn , objRS Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open(sConnection) Set objRS = objConn.Execute("SELECT DISTINCT wp_posts.* FROM wp_posts LEFT JOIN wp_term_relationships ON (wp_posts.ID = wp_term_relationships.object_id) LEFT JOIN wp_term_taxonomy ON (wp_term_relationships.term_taxonomy_id = wp_term_taxonomy.term_taxonomy_id) WHERE wp_posts.post_status = 'publish' AND wp_term_taxonomy.taxonomy = 'category' AND wp_term_taxonomy.term_id IN (25) ORDER BY post_date DESC LIMIT 2") 'Response.Write "
    " While Not objRS.EOF Dim sPost sPost = stripHTML(objRS.Fields("post_content")) Dim sTitle, sURL sTitle = objRS.Fields("post_title") sURL= replace(lcase(stitle)," ","-") Response.Write "
    " & sTitle & "
    " & left(sPost,220) & "... Read More
    " objRS.MoveNext Wend objRS.Close Set objRS = Nothing objConn.Close Set objConn = Nothing %>