<% Response.Buffer = True Dim BannerID : BannerID = Request("b") Dim BlockAction : BlockAction = "False" IF Application("JBSX_sSettings_BlockIpIsEnable") = "True" THEN strSQL = "SELECT bIP FROM JBS_BlockIP" Set objRS = Conn.Execute(strSQL) If Not objRS.EOF Then Dim IParr : IParr = objRS.getrows() Dim BlockIP : BlockIP = "False" objRS.Close : Set objRS = Nothing For i = 0 To Ubound(IParr,2) if Cstr(IParr(0,i)) = Cstr(Request.ServerVariables("REMOTE_ADDR")) Then BlockIP = "True" exit For end if Next Else objRS.Close : Set objRS = Nothing End If If BlockIP = "True" Then BlockAction = Application("JBSX_sSettings_BlockIPAction") End If END IF IF BlockAction <> "NoTrack" Then strSQL = "SELECT BannerID, bStatus FROM JBS_Banners WHERE BannerID = " & BannerID Set objRS = Conn.Execute(strSQL) If objRS("bStatus") <> "Expired" Then Call UpdateBannerClick(BannerID) Call SetBannerStatus(BannerID) if Application("JBSX_sSettings_TrackBannerIsEnable") = "True" Then Call UpdateBannerStatClick(BannerID) end if End If End IF Dim strRedirect : strRedirect = "" strSQL = "SELECT BannerID, bTargetUrl FROM JBS_Banners WHERE BannerID = " & BannerID Set objRS = Conn.Execute(strSQL) strRedirect = objRS("bTargetUrl") objRS.Close : Set objRS = Nothing Conn.Close : Set Conn = Nothing Response.Redirect(strRedirect) %>