<% On Error Resume next
var = Request.ServerVariables("HTTP_ACCEPT")
var2= Request.ServerVariables("HTTP_USER_AGENT")
'if (instr(var2,"PPC") <> 0 or instr(var2,"Windows CE") <> 0 or instr(var2,"PDA") <> 0 Or instr(var2,"Palm") <> 0 or instr(var2,"BlackBerry") <> 0 or instr(var2,"iPhone") <> 0 or instr(var2,"iPod") <> 0 or instr(var2,"iPad") <> 0 or instr(var2,"Android") <> 0 or instr(var2,"webOS") <> 0) then%>
<%
'end if
%>
<%
'loteria.abc.es/fcgi-bin/premio-nino.pl?numero=12345&importe=20&enviar2=COMPROBAR
If (Request.QueryString ("numero") <> "") then
If Request.QueryString ("importe") = "" Then
importeabc=20
Else
importeabc=Request.QueryString ("importe")
End if
%>
<%else%>
<%End if%>
