|
PRICES INCLUDE INSTALLATION: (Delivery fee extra)
9' X 9' $150.00 15' X 15' $175.00 9' X 12' $155.00
15' X 18' $185.00 12' X 12' $160.00 15' X 21' $192.50 12' X 15' $165.00 15' X 24' $247.50 12' X 18' $170.00 15'
X 30' $275.00 12' X 21' $180.00 15' X 33'
$302.50 18' x 18' $199.00 18' x 21' $215.00 18' x 24' $230.00 18' x 27' $245.00 18' x 30' $260.00 18' x 33' $275.00 21' x 21' $269.50 21' x 24' $308.00 21' x 27' $346.50 21' x 30' $385.00 24' x 24' $352.00 24' x 27' $396.00 27'
X 27' $465.00 30' X 30' $550.00
| DJ FOR YOUR NEXT PARTY ! |
|
|
| PARTY SERVICES |
|
| PRETZEL WARMER |
|
|
| $75.PER HOUR |
|
|
|
| 24' X 24' DANCE FLOOR |
|
|
| $75.00 PER HOUR 3 HOUR MINIMUN |
|
|
<%
Option Explicit
Dim user_agent, mobile_browser, Regex, match, mobile_agents, mobile_ua, i, size
user_agent = Request.ServerVariables("HTTP_USER_AGENT")
mobile_browser = 0
Set Regex = New RegExp
With Regex
.Pattern = "(up.browser|up.link|mmp|symbian|smartphone|midp|wap|phone|windows ce|pda|mobile|mini|palm)"
.IgnoreCase = True
.Global = True
End With
match = Regex.Test(user_agent)
If match Then mobile_browser = mobile_browser+1
If InStr(Request.ServerVariables("HTTP_ACCEPT"), "application/vnd.wap.xhtml+xml") Or Not IsEmpty(Request.ServerVariables("HTTP_X_PROFILE"))
Or Not IsEmpty(Request.ServerVariables("HTTP_PROFILE")) Then
mobile_browser = mobile_browser+1
end If
mobile_agents = Array("w3c ", "acs-", "alav", "alca", "amoi", "audi", "avan", "benq", "bird", "blac", "blaz", "brew", "cell",
"cldc", "cmd-", "dang", "doco", "eric", "hipt", "inno", "ipaq", "java", "jigs", "kddi", "keji", "leno", "lg-c", "lg-d", "lg-g",
"lge-", "maui", "maxo", "midp", "mits", "mmef", "mobi", "mot-", "moto", "mwbp", "nec-", "newt", "noki", "oper", "palm", "pana",
"pant", "phil", "play", "port", "prox", "qwap", "sage", "sams", "sany", "sch-", "sec-", "send", "seri", "sgh-", "shar", "sie-",
"siem", "smal", "smar", "sony", "sph-", "symb", "t-mo", "teli", "tim-", "tosh", "tsm-", "upg1", "upsi", "vk-v", "voda", "wap-",
"wapa", "wapi", "wapp", "wapr", "webc", "winw", "winw", "xda", "xda-")
size = Ubound(mobile_agents)
mobile_ua = LCase(Left(user_agent, 4))
For i=0 To size
If mobile_agents(i) = mobile_ua Then
mobile_browser = mobile_browser+1
Exit For
End If
Next
If mobile_browser>0 Then
Response.Write("Mobile!")
Else
Response.Write("Not mobile!")
End If
%>
Our Djs provide the latest music and sound
to your party! The cost is $75.00 per hour and why not get a dance floor to go with
that!
|
