<% 'ܼ baId = ReqTxt(Request("baId")) Set rsba = Server.CreateObject("ADODB.RecordSet") SQLStr = "SELECT * FROM TOP_Banner WHERE AutoID = '" & baId & "'" Set rsba = conn.Execute(SQLStr) If rsba.EOF Then Response.Redirect("http://nobol.gameflier.com/") Response.End Else GoUrl = Trim(rsba("BannerUrl")) SQLStr1 = "UPDATE TOP_Banner SET BannerCount = BannerCount + 1 WHERE AutoID = '" & baId & "'" conn.Execute(SQLStr1) Response.Redirect(GoUrl) Response.End End If %>