<%Option Explicit%> Amazon Link Redirect <% Dim strKey, isbn1, isbn2, isbn3, isbn4, isbn5, isbn6, isbn7, isbn8, isbn9 Dim isbn10, url, boxlen, isbnx, pos, bad Dim a1, a2, a3, a4, a5, a6, a7, a8, a9, aa, ab, ac, ad, ae, af isbnx = Request.QueryString("isbn") isbnx = trim(isbnx) boxlen = len(isbnx) ' if 24 looks like we got both, just use the first one if boxlen = 24 then isbnx = left(isbnx, 10) boxlen = 10 end if ' if 10 digit isbn we are good to go, otherwise recalculate isbn to go back to 10 digit number if boxlen = 10 then isbn10 = isbnx else isbn1 = mid(isbnx, 4, 1) isbn2 = mid(isbnx, 5, 1) isbn3 = mid(isbnx, 6, 1) isbn4 = mid(isbnx, 7, 1) isbn5 = mid(isbnx, 8, 1) isbn6 = mid(isbnx, 9, 1) isbn7 = mid(isbnx, 10, 1) isbn8 = mid(isbnx, 11, 1) isbn9 = mid(isbnx, 12, 1) a1 = 10 * isbn1 a2 = 9 * isbn2 a3 = 8 * isbn3 a4 = 7 * isbn4 a5 = 6 * isbn5 a6 = 5 * isbn6 a7 = 4 * isbn7 a8 = 3 * isbn8 a9 = 2 * isbn9 aa = a1 + a2 + a3 + a4 + a5 + a6 + a7 + a8 + a9 ab = aa / 11 ac = int(ab) ad = ac * 11 ae = aa - ad af = 11 - ae if af = 10 then af = "x" end if isbn9 = mid(isbnx, 4, 9) isbn10 = isbn9 & af end if ' Use javascript to open a new browser with the following url: url= "http://www.amazon.com/exec/obidos/ASIN/" & isbn10 Response.Write "" %>