<% lang=request.querystring("lang") by=request.querystring("by") page=request.querystring("page") if page="" then page=1 if lang="" then lang=2 %> sex4free.co.il - אינדקס האתרים של עולם הסקס של ענת


מתעדכן
לינקים
סרטים
סיפורים
תמונות
פורום
 
  סדר לפי:
<% lookup= CheckString(request("lookup")) dim odd dim count dim count1 dim start start=1 if page = 1 then count= 1 else count = (page -1)*15 count1=count odd=1 if request("lookup")<>"" then mySQL="select * from news where title like '%" & lookup & "%' and IsShow = 1 order by mark " set rstemp=conntemp.execute(mySQL) mySQL1="select count(*) from news where title like '%" & lookup & "%' and IsShow = 1 " set rstemp1=conntemp.execute(mySQL1) countmes=rstemp1(0) else if lang=1 then mySQL1="select count(*) from news where isheb = 1 and IsShow = 1" set rstemp1=conntemp.execute(mySQL1) countmes=rstemp1(0) if by="" then mySQL="select * from news where isheb = 1 and IsShow = 1 order by place " set rstemp=conntemp.execute(mySQL) end if if by="date" then mySQL="select * from news where isheb = 1 and IsShow = 1 order by addt desc" set rstemp=conntemp.execute(mySQL) end if if by="mark" then mySQL="select * from news where isheb = 1 and IsShow = 1 order by mark desc" set rstemp=conntemp.execute(mySQL) end if if by="in" then mySQL="select * from news where isheb = 1 and IsShow = 1 order by ins desc" set rstemp=conntemp.execute(mySQL) end if if by="name" then mySQL="select * from news where isheb = 1 and IsShow = 1 order by title" set rstemp=conntemp.execute(mySQL) end if end if if lang=0 then mySQL1="select count(*) from news where isheb = 0 and IsShow = 1" set rstemp1=conntemp.execute(mySQL1) countmes=rstemp1(0) if by="" then mySQL="select * from news where isheb = 0 and IsShow = 1 order by place " set rstemp=conntemp.execute(mySQL) end if if by="date" then mySQL="select * from news where isheb = 0 and IsShow = 1 order by addt desc" set rstemp=conntemp.execute(mySQL) end if if by="mark" then mySQL="select * from news where isheb = 0 and IsShow = 1 order by mark desc" set rstemp=conntemp.execute(mySQL) end if if by="in" then mySQL="select * from news where isheb = 0 and IsShow = 1 order by ins desc" set rstemp=conntemp.execute(mySQL) end if if by="name" then mySQL="select * from news where isheb = 0 and IsShow = 1 order by title" set rstemp=conntemp.execute(mySQL) end if end if if lang=2 then mySQL1="select count(*) from news where IsShow = 1" set rstemp1=conntemp.execute(mySQL1) countmes=rstemp1(0) if by="" then mySQL="select * from news where IsShow = 1 order by place " set rstemp=conntemp.execute(mySQL) end if if by="date" then mySQL="select * from news where IsShow = 1 order by addt desc" set rstemp=conntemp.execute(mySQL) end if if by="mark" then mySQL="select * from news where IsShow = 1 order by mark desc" set rstemp=conntemp.execute(mySQL) end if if by="in" then mySQL="select * from news where IsShow = 1 order by ins desc" set rstemp=conntemp.execute(mySQL) end if if by="name" then mySQL="select * from news where IsShow = 1 order by title" set rstemp=conntemp.execute(mySQL) end if end if end if if rstemp.eof then %>





מצטערים, לא נמצאו אתרים בנושא!!






<% end if do while not rstemp.eof if start >= count1 then if count < (page)*15 then r=(odd)mod(2) if r=0 then r="353E43" else r="212629" %>

<% =rstemp("message")%>

&id=<%=rstemp("NewsID")%>" target="blank" class="c2">   <%=rstemp("linktext")%> <%if rstemp("isnew")=true then%>   <%end if%>
.gif" alt="ציון"> <% if rstemp("gotm")=true then%> מתעדכן <%end if%> <% if rstemp("gotl")=true then%> לינקים <%end if%> <% if rstemp("gotv")=true then%> סרטים <%end if%> <% if rstemp("gots")=true then%> סיפורים <%end if%> <% if rstemp("gotp")=true then%> תמונות <%end if%> <% if rstemp("gotc")=true then%> פורום/צ'אט <%end if%> <%if rstemp("isheb")=true then%> <%else%> <%end if%>

<% end if count=count+1 end if start=start+1 rstemp.movenext odd=odd+1 loop conntemp.close set conntemp=Nothing set rstemp=Nothing set mySQL=Nothing set rstemp1=Nothing set mySQL1=Nothing %>
<% if not countmes<=15 then%>
<% u=1 do while countmes>0 %> <%=u %>  <% u=u+1 countmes=countmes-15 loop %> <%if lang=1 then%> לדף אתרים ישראלים מספר <%else if lang=0 then%> לדף אתרים מהעולם מספר <%else%> לדף <%end if%> <%end if%>
<% end if%>