Como adicionar um AND numa cláusula IF ?
OlaO código no final funciona normalmenteEu quero adicionar no if isMobile() then um AND .... por exemplo if isMobile() AND v > 0 then
Já tentei de várias formas sem sucesso ... se alguem hospeda site na godaddy e sabe como funciona poderia me ajudar ?
Já tentei
if isMobile() AND v > 0 then
if (isMobile() AND v > 0) then
if ((isMobile()) AND (v > 0)) then
Nenhum desse funcionou !!!!!!!!!!!!!!!!!!!!!!!!!!
Agradeço a atenção !
<%
Function isMobile()
Dim sys : sys = "android"
v = InStr(lCase(Request.ServerVariables("HTTP_USER_AGENT")),sys)
if v <> 0 then : isMobile = true : exit function : else : isMobile = false
End function
v1 = Request.ServerVariables("URL")
if isMobile() then
Response.Status = "301 Moved Permanently"
Response.AddHeader "Location", "https://play.google.com/store/apps/details?id=com.Conteudo_Animal"
End if
%>
Discussão (3)
Carregando comentários...