%
If Len(CStr(Request("id"))) > 0 and IsNumeric(Request("id")) then
Select Case Request("id")
Case 1: msg = strText_PackageNotAvailable & "
" & strText_NoPackage & ""
Case 2: msg = msgAdlimit
Case 3: msg = strText_OverAdsLimit & Request("limit") & " " & strText_Ads
End Select
End If
%>