<% catid = request.querystring("catid") cattitle = request.querystring("cattitle") 'response.write "catid; " & catid & "
" 'response.write "cattitle; " & cattitle & "
" urltype0 = 0 oRs.Open "add_getCatDirectory" & "'" & catid &_ "'",connectionObject,3,3 %>

<% While not oRs.EOF '+++ do the AD reviews first IF oRs("urltype") = "1" THEN if oRs("urlaffilprog") = "1" then afilliate = "affiliate" else afilliate = "" end if if oRs("signup") = "1" then signup = "joined" else signup = "" end if if oRs("signup") = "1" then signup = "joined" else signup = "" end if if oRs("urlreviewers") <> "0" then reviews = "" + cstr(oRs("urlreviewers")) + "Reviews" else reviews = "" end if rate = "pixel.gif" if oRs("urlstars") <> "" then stars = cstr(trim(oRs("urlstars"))) 'stars = "0.0" 'response.write "stars; " & stars & "
" select case stars case "0" rate = "pixel.gif" case "1.0" rate = "stars-1-0.gif" case "1.5" rate = "stars-1-5.gif" case "2.0" rate = "stars-2-0.gif" case "2.5" rate = "stars-2-5.gif" case "3" rate = "stars-3-0.gif" case "3.5" rate = "stars-3-5.gif" case "4.0" rate = "stars-4-0.gif" case "4.5" rate = "stars-4-5.gif" case "5.0" rate = "stars-5-0.gif" case else rate = "pixel.gif" end select end if sstr = "" %> <% ELSE %>
Featured Sites
eHarmony.com - Dating For A Serious Relationship
DatingStage.com - Find your perfect partner from one in a million.
Jumpdates.com - 100% Free online dating site with many picture personals
<%=cattitle%> (sites reviewed by Advanced Dating)
" onMouseOver="window.status='<%=oRs("urllink")%>';return true;" onMouseOut="window.status=' ';return true;"><%=oRs("urlname")%>   <%=sstr%>
<%=oRs("urldesc")%>

Cost: <%=oRs("urlotherf1")%>
Other: <%=oRs("urlother")%>
">Write your own review    <%=reviews%>    <%=signup%>   <%=afilliate%>


<% if oRs("urlaffilprog") = "1" then affil = "Affiliate Program" else affil = "" end if if oRs("urlbann") = "1" then bann = "Banners/Links" else bann = "" end if if oRs("urlthemeid") = "0" then theme = "" + oRs("urlother") + "" else theme = "" + oRs("urlthemeval") + "" end if %> <% END IF urlcount = urlcount + 1 oRs.MoveNext Wend %>
<%=cattitle%> (submitted by site owners)
" onMouseOver="window.status='<%=oRs("urllink")%>';return true;" onMouseOut="window.status=' ';return true;"><%=oRs("urlname")%>
<%=oRs("urldesc")%>

Theme: <%=theme%>    Language: <%=oRs("languageval")%>    Coverage: <%=oRs("urlcoverageVal")%>    User Base: <%=oRs("urlBaseVal")%>    ">Features    None: <%=oRs("urlnone")%>    Avail: <%=oRs("urlavail")%>    Free: <%=oRs("urlfree")%>    Pay: <%=oRs("urlpay")%>    Hits: <%=oRs("urlhits")%>    <%=affil%>    <%=bann%>    ">Reviews <% stars = cstr(trim(oRs("urlstars"))) 'stars = "0.0" 'response.write "stars; " & stars & "
" select case stars case "0" rate = "stars-0-0.gif" case "1.0" rate = "stars-1-0.gif" case "1.5" rate = "stars-1-5.gif" case "2.0" rate = "stars-2-0.gif" case "2.5" rate = "stars-2-5.gif" case "3" rate = "stars-3-0.gif" case "3.5" rate = "stars-3-5.gif" case "4.0" rate = "stars-4-0.gif" case "4.5" rate = "stars-4-5.gif" case "5.0" rate = "stars-5-0.gif" end select 'response.write "rate== " & rate & "
" response.write "" + " " + cstr(oRs("urlreviewers")) + "
" %>




Copyright AdvancedDating.com 2011
All rights Reserved