<%@ Language=VBScript %> <%Option Explicit Response.Buffer=True Response.CacheControl = "no-cache" On Error Resume Next dim PAGE_NAME PAGE_NAME = "redirect.asp"%> <% dim Target dim r dim id dim aid dim rf dim objRS_Ads Target = trim(Request("Target")) r = trim(Request("r")) id = trim(Request("id")) aid = trim(Request("aid")) ' aid = the AD_ID of the ad that was clicked If len(aid) > 0 Then rf = Click_Ad(aid) set objRS_Ads = Get_ADVERTISEMENT_By_AD_ID(aid) If not (objRS_Ads.BOF AND objRS_Ads.EOF) Then Target = objRS_Ads("CLICK_URL") id = "e" 'If Instr(1, LCase(Target), "rivalryrecords.com") > 0 Then ' id = "i" 'Else ' id = "e" 'End If Else Response.Redirect "http://www.rivalryrecords.com" End If End If ' id is i for internal, e for external ' set id = i if none specified If len(id) = 0 Then id = "i" End If set objRS_Ads = nothing If id = "i" Then Response.Redirect "http://www.RivalryRecords.com/" & Target ElseIf id="e" Then Response.Redirect Target End If %>