Resource Directory

<% category = Request.QueryString("category") 'connect to database Dim sConnection, objConn , objRS sConnection = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=64.207.145.163; DATABASE=free1way; UID=free1way;PASSWORD=fr331w4yl1nks; OPTION=3" Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open(sConnection) if category = "" then Set objRS = objConn.Execute("SELECT id, category FROM categories") %> Resource Directory

Category Index and Featured Links

Google Ads

<% count = 0 While Not objRS.EOF count = count + 1 %> <% if count = 2 then Response.Write "" count = 0 end if objRS.MoveNext Wend %>

Categories
" class="links"><% Response.Write objRS.Fields("category") %>

"; ?>

Top

<% url = Request.QueryString("url") Set objRS = objConn.Execute("SELECT b.link_text, b.url_link FROM user a, resellers b WHERE b.uid = a.reseller_uid AND a.url = '" & url & "'") if not objRS.eof then link_text = objRS.Fields("link_text") url_link = objRS.Fields("url_link") else link_text = "Free one way links" url_link = "http://www.free1waylinks.com/" end if %> <% response.write(link_text) %>

<% else 'GETS the users database url = Request.QueryString("url") 'url = "www.ion-sss.com" if url = "/resource_directory.asp" then url = Request.ServerVariables("server_name") end if 'response.write url Set objRS = objConn.Execute("SELECT db, uid FROM user WHERE url = '" & url & "'") db = objRS.Fields("db") uid = objRS.Fields("uid") 'Selects the database if db = 1 then db = "lucy" db_link = "rachel" elseif db = 2 then db = "rachel" db_link = "jenny" else db = "jenny" db_link = "lucy" end if 'Selects the users ID Set objRS_week = objConn.Execute("SELECT id, week FROM " & db & " WHERE uid = " & uid & "") Set objRS_settings = objConn.Execute("SELECT week, links_per_week, keywordweek FROM settings") 'Works out what week the user begins in WTB_temp = (objRS_week.Fields("id") / objRS_settings.Fields("links_per_week")) if WTB_temp < 0.5 then WTB = Round(WTB_temp+0.5) else WTB = round(WTB_temp) end if 'response.write WTB 'echo $WTB."
"; 'echo $rs_week['id']."
"; 'echo $rs_settings['links_per_week']."
"; 'Works out the number of weeks NOFW = (objRS_settings.Fields("week") - WTB) + 1 'echo $rs_settings['week']."
"; 'echo $NOFW."
"; 'Selects the links if NOFW <= 0 then LOW = 0 elseif NOFW = 1 then LOW = 1 else for i=0 to NOFW step 1 LOW = LOW & i & "," next LOW = (LEFT(LOW,LEN(LOW) -1)) end if 'Workout what keyword we are on keywordweek = objRS_settings.Fields("keywordweek") 'response.write "SELECT count(*) AS totallinks FROM user a, " & db_link & " b WHERE a.uid = b.uid AND a.category = " & category & " AND a.status = 'Live' AND b.week in (" & LOW & ")" 'Pagination Set objRS_cont = objConn.Execute("SELECT count(*) AS totallinks FROM user a, " & db_link & " b WHERE a.uid = b.uid AND a.category = " & category & " AND a.status = 'Live' AND b.week in (" & LOW & ")") totallinks = objRS_cont.Fields("totallinks") page = Request.Querystring("page") if page = "" then page = 1 end if limit = 75 'limitvalue = 0 limitvalue = page * limit - (limit) Set objRS = objConn.Execute("SELECT a.url, a.kw" & keywordweek & " AS kw, a.description FROM user a, " & db_link & " b WHERE a.uid = b.uid AND a.category = " & category &" AND a.status = 'Live' AND b.week in (" & LOW & ") LIMIT " & limitvalue & "," & limit & "") Set objRS_cat = objConn.Execute("SELECT id, category FROM categories WHERE id = '" & category & "'") %> Resource Directory

<% Response.Write objRS_cat.Fields("category") %>

Categories Index > <% Response.Write objRS_cat.Fields("category") %>

<% While Not objRS.EOF %> <% objRS.MoveNext Wend %>

<% 'echo "Lastest News " . date("d/m/Y H:i a") . " "; %>

Found <% Response.Write totallinks %> links in this category
" target="_blank" class="links"><% Response.Write objRS.Fields("kw") %>
<% Response.Write objRS.Fields("description") %>
&page=<% response.write page - 1 %>"><< Prev \|\| <% start = page endno = page + 5 total = Round((CDbl(totallinks)/75)+0.5,0) if endno >= total then endno = total start = endno-5 end if if start <= 0 then endno = total start = 1 end if for i=start to i<=endno step 1 if i-1 >= total then else %> &page=<% response.write i %>"><% response.write i %> <% end if %> <% next %> <% if page = round(CDbl(totallinks)/75) then else %> \|\| &page=<% response.write page + 1 %>">Next >> <% end if %>

Top

<% end if %>