<%=googletop()%>
>> Home
>> My Account
<%if request("mode")="wishlist" then%>
:: View My Wishlist
<%elseif request("mode")="gift" then%>
:: View My Gift Certificates
<%elseif request("mode")="points" then%>
:: View My Credit Points
<%elseif request("mode")="gogift" then%>
:: Apply Gift Certificate
<%elseif request("mode")="friend" or request("mode")="gomail" then%>
:: Refer a Friend
<%'elseif request("mode")="gomail" then%>
<%end if%>
<%if request("mode")="wishlist" then%>
<%else%>
<%
intCurrentPage = Request.Querystring("page")
IF intCurrentPage = "" THEN intCurrentPage = 1
intNumberOfPages = int(RS.RecordCount \ 10)
IF RS.RecordCount MOD 10<> 0 THEN intNumberOfPages = intNumberOfPages + 1
if request("pos")="" then
if intNumberOfPages>10 then
no=request.QueryString("page")
if request.QueryString("page")="" or request.QueryString("page")=1 or request.QueryString("page")<=10 then
FOR intDisplayPage = 1 TO 10
IF Cint(intDisplayPage) = Cint(intCurrentPage) THEN
Response.Write " " & intDisplayPage & " | "
ELSE
Response.Write " " & intDisplayPage &" | "
END IF
NEXT
if trim(request.QueryString("page"))=trim(totalpages) then
else
Response.Write " >> " &" Next" &" "
end if
elseif request.QueryString("page")>=10 then
Response.Write " << " &" Previous " &" "
j=1
FOR i =no-9 TO no
IF Cint(i) = Cint(intCurrentPage) THEN
Response.Write " " & i & " "
ELSE
Response.Write " " & i &" | "
END IF
j=j+1
NEXT
if trim(request.QueryString("page"))=trim(totalpages) then
else
Response.Write " >> " &" Next" &" "
end if
else
TotalPages = rs.PageCount
end if
else
FOR intDisplayPage = 1 TO intNumberOfPages
IF Cint(intDisplayPage) = Cint(intCurrentPage) THEN
Response.Write " " & intDisplayPage & " | | "
ELSE
Response.Write " " & intDisplayPage &" | "
END IF
NEXT
end if
else
no= request.QueryString("page")
if request("pos")="1" then
k=request("pos")
Response.Write "<< " &"Previous"&" "
FOR i =no TO no+9
IF Cint(i) = Cint(request.QueryString("page")) THEN
j=k
Response.Write " " & i & " | "
ELSE
k=k+1
Response.Write " " & i &" | "
END IF
NEXT
if trim(request.QueryString("page"))=trim(totalpages) then
else
Response.Write " >> " &" Next" &" "
end if
end if
if request("pos")="2" then
Response.Write " << " &"Previous"&" "
k=1
FOR i =no-1 TO no+8
IF Cint(i) = Cint(request.QueryString("page")) THEN
j=k
Response.Write " " & i & " | "
ELSE
Response.Write " " & i &" | "
END IF
k=k+1
NEXT
if trim(request.QueryString("page"))=trim(totalpages) then
else
Response.Write " >> " &" Next" &" "
end if
end if
if request("pos")="3" then
Response.Write " << "&"Previous"&" "
k=1
FOR i =no-2 TO no+7
IF Cint(i) = Cint(request.QueryString("page")) THEN
j=k
Response.Write " " & i & " | "
ELSE
Response.Write " " & i &" | "
END IF
k=k+1
NEXT
if trim(request.QueryString("page"))=trim(totalpages) then
else
Response.Write " >> " &" Next" &" "
end if
end if
if request("pos")="4" then
Response.Write " << Previous "
k=1
FOR i =no-3 TO no+6
IF Cint(i) = Cint(request.QueryString("page")) THEN
j=k
Response.Write " " & i & " | "
ELSE
Response.Write " " & i &" | "
END IF
k=k+1
NEXT
if trim(request.QueryString("page"))=trim(totalpages) then
else
Response.Write " >> " &" Next" &" | "
end if
end if
if request("pos")="5" then
Response.Write " << Previous "
k=1
FOR i =no-4 TO no+5
IF Cint(i) = Cint(request.QueryString("page")) THEN
j=k
Response.Write " " & i & " |"
k1=k
ELSE
Response.Write " " & i &" | "
END IF
k=k+1
NEXT
if trim(request.QueryString("page"))=trim(totalpages) then
else
Response.Write " >> Next "
end if
end if
if request("pos")="6" then
Response.Write " << " &" Previous" &" "
k=1
FOR i =no-5 TO no+4
IF Cint(i) = Cint(request.QueryString("page")) THEN
j=k
Response.Write " " & i & " | "
ELSE
Response.Write " " & i &" |"
END IF
k=k+1
NEXT
if trim(request.QueryString("page"))=trim(totalpages) then
else
Response.Write " >> "&"Next"&" "
end if
end if
if request("pos")="7" then
Response.Write " << Previous "
k=1
FOR i =no-6 TO no+3
IF Cint(i) = Cint(request.QueryString("page")) THEN
j=k
Response.Write " " & i & " | "
ELSE
Response.Write " " & i &" | "
END IF
k=k+1
NEXT
if trim(request.QueryString("page"))=trim(totalpages) then
else
Response.Write " >> Next "
end if
end if
if request("pos")="8" then
Response.Write " << Previous "
k=1
FOR i =no-7 TO no+2
IF Cint(i) = Cint(request.QueryString("page")) THEN
j=k
Response.Write " " & i & " | "
ELSE
Response.Write " " & i &" |"
END IF
k=k+1
NEXT
if trim(request.QueryString("page"))=trim(totalpages) then
else
Response.Write " >> Next "
end if
end if
if request("pos")="9" then
Response.Write " << Previous "
k=1
FOR i =no-8 TO no+1
IF Cint(i) = Cint(request.QueryString("page")) THEN
j=k
Response.Write " " & i& " | "
ELSE
Response.Write " " & i &" | "
END IF
k=k+1
NEXT
if trim(request.QueryString("page"))=trim(totalpages) then
else
Response.Write " >> Next "
end if
end if
if request("pos")="10" then
Response.Write " << Previous "
k=1
FOR i =no-9 TO no
IF Cint(i) = Cint(request.QueryString("page")) THEN
j=k
Response.Write " " & i & " | "
ELSE
Response.Write " " & i &" | "
END IF
k=k+1
NEXT
if trim(request.QueryString("page"))=trim(totalpages) then
else
Response.Write " >> Next "
end if
end if
end if%>