<% 'usage /sourcecode.asp?code=test&URL=/index.asp Dim sSrcCode Dim redirectURL 'sSrcCode = getRequestValue("code") sSrcCode = "vdayship" redirectURL = getRequestValue("URL") If sSrcCode <> "" then deleteCookie SOURCECODE_COOKIE setCookie SOURCECODE_COOKIE, sSrcCode, 1 end if If redirectURL = "" then Response.Redirect HTTP_HOST & "index.asp" else Response.Redirect redirectURL end if %>