<% demospot = "../demos/" name = Request("name") Set paper = CN.Execute("SELECT * FROM RP_service WHERE identifier='" & name & "'") Set extras = ParseExtras(paper.Fields("extras")) lang = "en" If extras("language") <> "" Then lang = extras("language") If Request("lang") <> "" Then lang = Request("lang") longName = paper.Fields("description") snip = Instr(LongName, " Crossword") If (snip > 0) Then shortName = Left(LongName, snip) Else shortName = LongName End If sv_currency = paper.Fields("currency") If (sv_currency = "GBP") Then symbol = "£" ElseIf (sv_currency = "USD") Then symbol = "$" ElseIf (sv_currency = "NZD") Then symbol = "NZ$" ElseIf (sv_currency = "EUR") Then symbol = "€" End If %> Crossword Introduction <% If Request("align") = "right" Then %> <% End If %> <% If Not Request("align") = "right" Then %> <% End If %>

<%=LangText(lang, "crossword", "sim.1", "This is a simulation of a typical crossword") %>

<%= longName %>

<%=LangText(lang, "crossword", "body.1", "PDAs and crosswords are an ideal partnership.") %>

<%=Replace(LangText(lang, "crossword", "body.2", "With Roundpoint and {{TITLE}} you can now take your favourite puzzles anywhere!"), "{{TITLE}}", shortName) %>

<% body = Replace(LangText(lang, "crossword", "body.3", "Get the latest crosswords from {{TITLE}} delivered to your PDA daily for a monthly subscription of just {{MONCOST}}, or save with an annual subscription of {{ANNCOST}}."), "{{TITLE}}", shortName) body = Replace(body, "{{MONCOST}}", symbol & paper.Fields("mon")) body = Replace(body, "{{ANNCOST}}", symbol & paper.Fields("ann")) Response.Write body %>

<%=Replace(LangText(lang, "crossword", "body.4", "Sign up now for crosswords on the move. You'll wonder how you ever left home without them."), "{{TITLE}}", shortName) %>
<%=LangText(lang, "crossword", "sim.1", "This is a simulation of a typical crossword") %>
<%=LangText(lang, " width="150" height="30">
<%=LangText(lang, " width="150" height="30">
<%=LangText(lang, " width="150" height="30">