<%response.Charset="utf-8"%> <% dim rst, sSQL Set rst = Server.CreateObject("ADODB.RecordSet") 'strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\mark\My Documents\mywebsites\directory\sites2003.mdb" '## MS Access 2000 strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\hshome\primodirectory\sites2003.mdb" '## MS Access 2000 %> <% dim rstUser, sSQLUser, strConnStringUser Set rstUser = Server.CreateObject("ADODB.RecordSet") 'strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\mark\My Documents\mywebsites\directory\sites2003.mdb" '## MS Access 2000 'response.write(Server.MapPath("users.mdb") & "
") strConnStringUser = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\hshome\primodirectory\users.mdb" '## MS Access 2000 %> <% Dim uChk sSQLUser = "Select * from tbl_users where uname_sha = '" & request.Cookies("primo")("un") & "' and upwd = '" & request.Cookies("primo")("pd") & "'" 'response.write sSQLUser rstUser.open sSQLUser, strConnStringUser,3,3 if not rstUser.EOF and not rstUser.BOF then rstUser.MoveFirst select case rstUser("ugrade") case "all" uChk = "all" case "sub" uChk = "sub" case else uChk = "" end select else ' failed authentication uChk = "" end if rstUser.Close 'response.write "here:" & request.Cookies("primo")("un") & " " & request.Cookies("primo")("pwd") set rstUser = Nothing %> <% 'On Error resume next '################################################### '# redirect them if they're trying non www '################################################### if lcase(trim(Request.ServerVariables("HTTP_HOST"))) = "primodirectory.com" then Response.Status = "301 Moved Permanently" Response.AddHeader "Location", "http://www.primodirectory.com/category.asp?c=" & request("c") Response.End end if '################################################### '# if theres no category ID just write out the about details page '################################################### if not isnumeric(request("c")) then Response.Status = "404 Not Found" response.end else if isnumeric(request("c")) and request("c") <> "" then sSQL = "Select * from Cat where CatID = " & request("c") rst.open sSQL, strConnString,3,3 if rst.RecordCount < 1 then Response.Status = "404 Not Found" response.end end if rst.Close end if end if if request("c") = "" then ' write out about page %> Primo Directory


home about primo contact primo privacy

<% if uChk <> "" then %> admin <% end if %> primo directory

About the PrimoDirectory

  
About the primodirectory

Submitting Sites

To submit a site browse to the appropriate category and click the "submit site" link in the top right of the site listing area.

There is no guarenteed listing and each site is reviewed by one of our editors. We may move your site to another category, or change the title or description.

Category Suggestions

If you would like to suggest a category please email info@primodirectory.com

Link to us

Link back are appreciated, and help the directory gain popularity. Of course, you can make up your own link, or here's some example links and images you could use (to use the images just right click and select the save option):

<a href="http://www.primodirectory.com/">Primo Web Directory</a>  text link

primo directory  Large Logo

primo directory  Small Logo


<% '################################################### '# start of the main sub category page code '################################################### else sSQL = "Select * from Cat where CatID = " & request("c") rst.open sSQL, strConnString,3,3 iVisited = rst("iVisited") if isnumeric(iVisited) then iVisited = iVisited + 1 else iVisited = 1 end if sSQL = "Update Cat set iVisited = " & iVisited & " where catID = " & request("c") 'response.write sSQL & "
" & rst("iVisited") rst.Close rst.open sSQL, strConnString,3,3 %> <% '###################################################### '# get category path '###################################################### i = 0 Dim sPath() if IsNumeric(request("c")) then iCat = request("c") else response.redirect "/index.asp" end if redim preserve sPath(0) Dim sHeading sSQL = "select CatDesc from Cat where CatID=" & request("c") rst.open sSQL, strConnString,3,3 if not rst.BOF and not rst.EOF then rst.MoveFirst sHeading = rst("CatDesc") end if rst.Close do sSQL = "select CatParent from Cat where CatID=" & iCat rst.open sSQL, strConnString,3,3 if not rst.EOF and not rst.BOF then rst.MoveFirst if iCat <> 0 then ' add another element to the array redim preserve sPath(i) end if sPath(i) = rst("CatParent") i = i + 1 iCat = rst("CatParent") else iCat=0 ' someones probably altered the URL end if rst.Close loop until iCat = 0 '###################################################### '# write out menu '###################################################### dim sMenu i = UBound(sPath) + 1 do i = i - 1 if sPath(i) <> 0 then sSQL = "select CatDesc from Cat where CatID=" & sPath(i) rst.open sSQL, strConnString,3,3 rst.MoveFirst sMenu = sMenu & "> " & rst("CatDesc") & "" rst.Close end if loop until i = LBound(sPath) sSQL = "select * from Sites Where CatID = " & request("c") & " and Active = True and sDeleted = False order by SiteTitle" rst.open sSQL, strConnString,3,3 if rst.RecordCount = 0 then bNoSites = "1" else bNoSites = "0" end if rst.Close %> <%=sHeading%> Category Primo Directory <% if bNoSites = "1" then %> <% end if%>


home about primo contact primo privacy

<% if uChk <> "" then %> admin <% end if %> primo directory

<%=sHeading%>

Home <%=sMenu & " > " & sHeading%>

  
<% sSQL = "select * from Sites Where CatID = " & request("c") & " and Active = True and sDeleted = False order by SiteTitle" rst.open sSQL, strConnString,3,3 %>
<% if not rst.BOF and not rst.EOF then rst.MoveFirst do %> <% rst.MoveNext loop until rst.EOF end if %>

Sites

">submit site

"><%=Trim(rst("SiteTitle"))%>

<% if uChk <> "" then %> ">edit <% end if %> <%=rst("Desc")%>
<%=rst("URL")%>

<% '###################################################### '# get the categories '###################################################### rst.Close sSQL = "select * from Cat Where CatParent = " & request("c") & " and RelatedLinkTo = 0 order by CatDesc" rst.open sSQL, strConnString,3,3 bCats = 0 if not rst.BOF and not rst.EOF then bCats = 1 %> <% rst.MoveFirst do %> <% rst.MoveNext loop until rst.EOF '###################################################### '# get the related cats if any '###################################################### sSQL = "select * from Cat Where CatParent = " & request("c") & " and RelatedLinkTo <> 0 order by CatDesc" rst.Close rst.open sSQL, strConnString,3,3 if not rst.EOF and not rst.BOF then bcats = 1 rst.MoveFirst %> <% do %> <% rst.MoveNext loop until rst.EOF end if else if bcats = 0 then rst.Close sSQL = "select * from Cat where CatParent = 0 order by CatDesc" rst.open sSQL, strConnString,3,3 %> <% do %> <% rst.MoveNext loop until rst.EOF end if end if %>

Sub Categories

"><%=rst("CatDesc")%>

Related
"><%=rst("CatDesc")%>@

Top Level Categories

"><%=rst("CatDesc")%>
<% end if %>