<% page=1 %> <% set rs=server.createobject("Adodb.recordset") query="select p_text,p_title from pageinfo where p_id=" & page rs.open query,con %> <% set rst=server.createobject("Adodb.recordset") query="select e_id,e_name,e_active,e_new,e_thumb,e_medpic from escort where e_active='Y' and e_new='Y'" rst.open query,con %> <% Function Format2HTML (GetTheStr) Start = 1 whereis = 1 NewHTMLStringWithBreaks = "" RemaindingHTMLString = GetTheStr RemaindingHTMLString = RemaindingHTMLString & chr(13) do until (whereis = 0) Whereis = InStr (1, RemaindingHTMLString, Chr(13)) Chr13Position = Whereis - 1 LineOfHTMLBeforeNextChr13 = Mid(RemaindingHTMLString, 1 , Whereis) Chr13Position = Whereis + 2 LineOfHTMLAfterNextChr13 = Mid(RemaindingHTMLString, Chr13Position, Len(RemaindingHTMLString)) RemaindingHTMLString = LineOfHTMLAfterNextChr13 NewHTMLStringWithBreaks = NewHTMLStringWithBreaks & LineOfHTMLBeforeNextChr13 & "
" loop Format2HTML = NewHTMLStringWithBreaks End Function %> <% set rsk=server.createobject("Adodb.recordset") query="select e_medpic,e_name,e_id,e_incall from escort where e_girlofmonth='Y'" rsk.open query,con %>
  
<% lcounter=1 do while not rst.eof%> <%if lcounter=1 then%> <%end if %> <%if lcounter=2 then lcounter=0%> <% end if lcounter=lcounter+1 rst.movenext loop%>
New to London
"> " width="77" height="120" alt="<%=rst("e_name")%>" border="0">

<%=rs("p_title")%>
Bond & Mayfair Int.


<%=format2HTML(rs("p_text"))%>
Featured London Escort


Bond & Mayfair booking desk opening hours:

10.30am - 1.30am
Monday - Saturday

2pm - 12 midnight
on Sundays

020 7700 7272
or
07951 010707




  
<% con.close set con=nothing %>