<%@LANGUAGE="VBSCRIPT"%> <% Dim channel Dim pChoice Dim sectionHeader Dim sectionTitle channel=Request.QueryString("id") pChoice=Request.QueryString("id") %> <% Select Case pChoice Case "20" sectionHeader ="Travel Insurance" sectionTitle ="Annual, Single Trip, and Family Holiday Insurance" Case "21" sectionHeader ="Home Insurance" sectionTitle ="House and Contents Insurance" Case "22" sectionHeader ="Motor Insurance" sectionTitle ="Car and Vehicle Insurance" Case Else sectionHeader ="Insurance" sectionTitle ="Motor, Travel, and Home Insurance Services" End Select %> <% Response.Write (sectionHeader)%> - <% Response.Write (sectionTitle)%> - Online Shops and Retailers

DevonLink.co.uk Shopping Channel

<%=FormatDateTime(Now, vbLongDate)%>

> Home < > Home Insurance < > Motor Insurance < > Travel Insurance < > Internet < > Money < > Sports <

<% Response.Write (sectionHeader)%>

<% Response.Write (sectionTitle)%>

<%If channel=20 Then %> <%Elseif channel=21 Then %> <%Elseif channel=22 Then %> <% Else %>

Insurance Services

> Travel Insurance - Holiday travel insurance

> House & Home Insurance - House and contents insurance services

> Car & Motor Insurance - Vehicle insurance services

<% End If %>