Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
 Password:
Save Password
Forgot your Password?

 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/O Code)
 Not displaying background image for mobile browser		  New Topic  Reply to Topic
 Printer Friendly
Author Previous Topic Topic Next Topic  

Webbo
Average Member

United Kingdom
982 Posts
Posted - 14 July 2014 :  16:12:47  Show Profile  Visit Webbo's Homepage  Reply with Quote
Is it possible to edit this code for calling up the background image of the forum so that it does not display it if a user is viewing the forum with a mobile browser?

The code:


if strPageBGImageURL = "" then
   strTmpPageBGImageURL = ""
elseif Instr(strPageBGImageURL,"/") > 0 or Instr(strPageBGImageURL,"\") > 0 then
      strTmpPageBGImageURL = " background=""" & strPageBGImageURL & """" & " bgproperties=""fixed"""
else
      strTmpPageBGImageURL = " background=""" & strImageUrl & strPageBGImageURL & """" & " bgproperties=""fixed"""

end if


Thanks

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 14 July 2014 :  20:29:49  Show Profile  Reply with Quote
Try this:


if strPageBGImageURL = "" then
	strTmpPageBGImageURL = ""
elseif Instr(strPageBGImageURL,"/") > 0 or Instr(strPageBGImageURL,"\") > 0 then
	strTmpPageBGImageURL = " background=""" & strPageBGImageURL & """" & " bgproperties=""fixed"""
else
	strTmpPageBGImageURL = " background=""" & strImageUrl & strPageBGImageURL & """" & " bgproperties=""fixed"""
end if
Dim Match
Set Regex = New RegExp
With Regex
	.Pattern = "(Android|Avantgo|Bada|BlackBerry|Blazer|Compal|Dolfin|Dolphin|Elaine|en-ph|Fennec|Hiptop|(hpw|web)OS|iP(hone|od|ad)|Iris|Kindle|LGE|Maemo|midp|Minimo|mmp|Mobile|NetFront|Opera M(obi|ini)|Palm|pda|Plucker|Pocket|PSP|Samsung|Silk-Accelerated|Skyfire|smartphone|symbian|Treo|up.browser|up.link|Vodafone|wap|windows ce|XDA|Xiino|Zune)"
	.IgnoreCase = True
	.Global = True
End With
If Regex.Test(Request.ServerVariables("HTTP_USER_AGENT")) Then
	strTmpPageBGImageURL = ""
End If
Go to Top of Page

Webbo
Average Member

United Kingdom
982 Posts
Posted - 15 July 2014 :  16:51:50  Show Profile  Visit Webbo's Homepage  Reply with Quote
Works well on Blackberry. I'll see if any users report any problems

Many thanks
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 15 July 2014 :  17:20:46  Show Profile  Reply with Quote
You're welcome. If they experience issues, we'll need to get a look at their user agent string.
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Reply to Topic
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.12 seconds. Powered By: Snitz Forums 2000 Version 3.4.07