<%@LANGUAGE="VBSCRIPT" lcid=1033%> Toronto Massage | Erotic & Sensual Nude Body Massages | Allure <% 'Tirm strings by word Function neatTrim( strToTrim, desiredLength, jumpID ) strToTrim = trim( strToTrim ) if len( strToTrim ) < desiredLength then neatTrim = strToTrim exit function else if inStrRev( strToTrim, " ", desiredLength + 1 ) -1 > 0 then strToTrim = left( strToTrim, inStrRev( strToTrim, " ", desiredLength + 1 ) -1) & "...more" end if end if neatTrim = trim( strToTrim ) End Function %>

The Finest Erotic Massage In Toronto

Since 1993, ALLURE has been a leader in the Toronto nude, erotic, adult massage industry. Located  in Mississauga, near Brampton and the Toronto airport,  we are close to all of Toronto's major highways.

ALLURE is a female owned and operated boutique-style spa, focused heavily in customer service, striving for nothing less than to surpass your highest expectations. Guided  by a relentless focus, we strive to bring you ladies combining a perfect blend of beauty, sensuality and a passion for the erotic art of massage.

Our ladies have a knack, call it an intuition, for knowing how to unlock the  passion that is within you. This is a gift, and cannot be taught, it is simply something our ladies are born with.

From the moment you enter our spa, you will feel a sense of comfort, relaxation and tranquility. This has often been described by many of our clients as the 'ALLURE EXPERIENCE'. An experience that is uniquely ALLURE.

Book your appointment in advance, or walk-in at your convenience, and relax and mingle with our ladies in our comfortable, well equipped lounge prior to making your selection. Visit with us today and find out for yourself why ALLURE has been the top choice for discerning  gentlemen for the past 20 years.

The ladies of ALLURE.
<% 'Retrieve Day Shift 'response.write now() 'TodayDate = formatdatetime(dateadd("h",-8,now()),2) TodayDate = formatdatetime(dateadd("h",0,now()),2) d = split(date(),"/") k = d(1) & "/" & d(0) & "/" & d(2) SQL = "SELECT tblgirl.gid, tblgirl.name, tblgirl.bioimg, tblschedule.workday FROM tblschedule INNER JOIN tblgirl ON tblschedule.gID = tblgirl.gid WHERE tblschedule.workday=#" & TodayDate & "# AND tblschedule.shift=3" Set recordset = connection.execute (SQL) if recordset.eof then MidShift=False else MidShift=True end if SQL = "SELECT tblgirl.gid, tblgirl.name, tblgirl.bioimg, tblschedule.workday FROM tblschedule INNER JOIN tblgirl ON tblschedule.gID = tblgirl.gid WHERE tblschedule.workday=#" & TodayDate & "# AND tblschedule.shift=1 ORDER BY (Rnd(TimeValue(Now())*-10000000*[tblgirl.gid]))" Set recordset = connection.execute (SQL) If MidShift then 'Increase panel for Midshift response.write "
" Else 'Shrink panel no midshift response.write "
" End If %>
Today's Schedule - <%=formatdatetime(TodayDate,1)%>
<% i=0 k=0 Do While NOT Recordset.Eof response.Write "" response.Write (vbnewline) response.Write (vbtab) response.Write (vbtab) response.Write (vbtab) response.Write (vbtab) Recordset.MoveNext i=i+1 Loop If i < 6 then k=6-i for i = 1 to k response.Write "" response.Write (vbnewline) response.Write (vbtab) response.Write (vbtab) response.Write (vbtab) response.Write (vbtab) next end if %> <% 'Retrieve Mid Shift if there's a midshift If MidShift then d = split(date(),"/") k = d(1) & "/" & d(0) & "/" & d(2) SQL = "SELECT tblgirl.gid, tblgirl.name, tblgirl.bioimg, tblschedule.workday FROM tblschedule INNER JOIN tblgirl ON tblschedule.gID = tblgirl.gid WHERE tblschedule.workday=#" & TodayDate & "# AND tblschedule.shift=3 ORDER BY (Rnd(TimeValue(Now())*-10000000*[tblgirl.gid]))" Set recordset = connection.execute (SQL) %> <% i=0 k=0 Do While NOT Recordset.Eof response.Write "" response.Write (vbnewline) response.Write (vbtab) response.Write (vbtab) response.Write (vbtab) response.Write (vbtab) Recordset.MoveNext i=i+1 Loop If i < 6 then k=6-i for i = 1 to k response.Write "" response.Write (vbnewline) response.Write (vbtab) response.Write (vbtab) response.Write (vbtab) response.Write (vbtab) next end if %> <% end if 'Retrieve Night Shift d = split(date(),"/") k = d(1) & "/" & d(0) & "/" & d(2) SQL = "SELECT tblgirl.gid, tblgirl.name, tblgirl.bioimg, tblschedule.workday FROM tblschedule INNER JOIN tblgirl ON tblschedule.gID = tblgirl.gid WHERE tblschedule.workday=#" & TodayDate & "# AND tblschedule.shift=2 ORDER BY (Rnd(TimeValue(Now())*-10000000*[tblgirl.gid]))" Set recordset = connection.execute (SQL) 'Evening Shift (4:00pm-12:00am) %> <% i=0 k=0 Do While NOT Recordset.Eof response.Write "" response.Write (vbnewline) response.Write (vbtab) response.Write (vbtab) response.Write (vbtab) response.Write (vbtab) Recordset.MoveNext i=i+1 Loop If i < 6 then k=6-i for i = 1 to k response.Write "" response.Write (vbnewline) response.Write (vbtab) response.Write (vbtab) response.Write (vbtab) response.Write (vbtab) next end if %>
Day Shift (9:30AM-5:00pm)
" & recordset("name") & "
Mid Shift (1:00pm-9:00pm)
" & recordset("name") & "
Evening Shift (5:00pm-1:00am)
" & recordset("name") & "
What's New @ Allure
<% SQL = "SELECT NewsID, Date, Title, News, picture, link FROM tblNews WHERE ((Not (deleted)=True)) ORDER BY nOrder DESC, Date DESC " Set Recordset = connection.execute (SQL) do while not Recordset.eof response.Write "
" response.Write (vbnewline) response.Write "
" & left(monthname(month(Recordset("Date"))),3) & " " & day(Recordset("Date")) & " - " & Recordset("Title") & "
" response.Write (vbnewline) response.write "
" response.Write (vbnewline) if recordset("picture") <> "" then if recordset("link") <> "" then response.Write "
" response.Write (vbnewline) response.Write "" response.Write "" response.Write (vbnewline) response.Write "
" response.Write (vbnewline) else response.Write "
" response.Write (vbnewline) response.Write "" response.Write (vbnewline) response.Write "
" response.Write (vbnewline) end if end if if recordset("news") <> "" then response.Write "
" response.Write (vbnewline) response.Write neatTrim(Recordset("News"),165, recordset("NewsID")) 'response.Write recordset("News") response.Write "
" response.Write (vbnewline) else 'response.Write "
" end if response.Write "
" response.Write (vbnewline) response.Write (vbtab) Recordset.MoveNext loop %>
<% 'close the connection and recordset objects freeing up resources Recordset.Close Set Recordset=nothing Connection.Close Set Connection=nothing %>