| Hpathy WebLinks - Administrative Login | " response.write "
| " response.write " |
" response.write "" If request.querystring("err") = "wrongpass" then response.write "Sorry you entered an invalid password, please try again...
" End If End Sub '-------------------------------------------------------------------------- '-------- Process Login '-------------------------------------------------------------------------- Sub ProcessLogin If request.form("txtPassword") = AdministrativePassword then Session("LoggedIn") = "YES" response.redirect "index.asp" Else Session("LoggedIn") = "NO" response.redirect "index.asp?action=admin&err=wrongpass" End If End Sub '************************************************************************** '******** Log Off '************************************************************************** Sub LogOff Session("LoggedIn") = "NO" response.redirect "index.asp" End Sub '************************************************************************** '******** DrawTopCategories '************************************************************************** Sub DrawTopCategories SQL = "Select * From Categories Where ParentCategoryID = 0 Order By CategoryTitle;" Set RS=Server.CreateObject("adodb.Recordset") RS.Open SQL, dbc, 3, 3 response.write "
"
response.write "
| " %> <% response.write " | |||
| " %> <% response.write " |
"
response.write "
| " response.write " |
" End if RS.Close Set RS=Nothing End Sub '************************************************************************** '******** DrawTopNavigation '************************************************************************** Sub DrawTopNavigation SQL = "Select * From Categories Where CategoryID = " & SafeSQL(Category) Set RSp=Server.CreateObject("adodb.Recordset") RSp.Open SQL, dbc, 3, 3 If RSp.RecordCount > 0 then RSp.MoveFirst End If If Category <> 0 then TempCategory = RSp("CategoryID") TempNavCategory = " " & RSp("CategoryTitle") & "" TempCategoryID = RSp("ParentCategoryID") ParentCat = request.querystring("cat") AddCategory = TempCategory Else TempCategory = 0 TempNavCategory = "" TempCategoryID = 0 AddCategory = 0 ParentCat = 0 End If If TempCategoryID <> 0 then Do While Not TempCategoryID = 0 SQLi = "Select * From Categories Where CategoryID = " & SafeSQL(TempCategoryID) Set RSi=Server.CreateObject("adodb.Recordset") RSi.Open SQLi, dbc, 3, 3 RSi.MoveFirst TempCategory = RSi("CategoryID") TempNavCategory = "" & RSi("CategoryTitle") + " \" + TempNavCategory TempCategoryID = RSi("ParentCategoryID") Loop RSi.Close Set RSi=Nothing End If response.write "
"
response.write ""
response.write "Top \ "
response.write "" & TempNavCategory & "" response.write " | "
response.write ""
response.write ""
response.write " "
If Session("LoggedIn") <> "YES" then
If AddCategory <> 0 then
response.write "Add A Link | Whats New | Whats Hot | Search"
If chkAdmin="True" then
Response.write "| Admin"
End If
If Request.cookies("AdminLinks")="True" then
Response.write "| Admin"
End If
Else
response.write "Whats New | Whats Hot | Search"
If chkAdmin="True" then
Response.write "| Admin"
End If
If Request.cookies("AdminLinks")="True" then
Response.write "| Admin"
End If
End If
Else
response.write "ADMIN MODE: "
If AddCategory <> 0 then
response.write "Add A Link | Add A Category | Approve Links | Review Errors | Approve Reviews | Modify Config | Modify Style | Log Off"
Else
response.write "Add A Category | Approve Links | Review Errors | Approve Reviews | Modify Config | Modify Style | Log Off"
End If
End If
response.write " | "
response.write "
" RSp.Close Set RSp=Nothing End Sub '************************************************************************** '******** Add A Link '************************************************************************** Sub AddLink SQLh = "Select * From Categories Where CategoryID = " & SafeSQL(request.querystring("cat")) Set RSh=Server.CreateObject("adodb.Recordset") RSh.Open SQLh, dbc, 3, 3 If RSh.RecordCount <> 0 then RSh.MoveFirst AddCategoryID = request.querystring("cat") AddToCategory = RSh("CategoryTitle") TempCategoryID = RSh("ParentCategoryID") Else AddCategoryID = 0 AddToCategory = "Top" TempCategoryID = 0 End If If TempCategoryID <> 0 then Do While Not TempCategoryID = 0 SQLi = "Select * From Categories Where CategoryID = " & SafeSQL(TempCategoryID) Set RSi=Server.CreateObject("adodb.Recordset") RSi.Open SQLi, dbc, 3, 3 RSi.MoveFirst AddToCategory = RSi("CategoryTitle") + "\" + AddToCategory TempCategoryID = RSi("ParentCategoryID") Loop RSi.Close Set RSi=Nothing End If Call DrawTopNavigation response.write "
"
response.write "
| " %> <% response.write " |
| Hpathy WebLinks - Add A Link | " response.write "||||||||||||||
| The following was submitted to the administrator for approval... | ||||||||||||||
| The following was submitted added to the links database... | ||||||||||||||
"
response.write "
|
| Hpathy WebLinks - Add A Category | " response.write "
| " response.write " |
| Hpathy WebLinks - Add A Category | " response.write "||||||||
| The following category was added to the links database... | ||||||||
"
response.write "
|
| Hpathy WebLinks - Edit Category | " response.write "
| " response.write " |
| Hpathy WebLinks - Edit Link | " response.write "
| " response.write " |
" If RS.RecordCount <> 0 then RS.MoveFirst End If Call DrawTopNavigation response.write "
| Hpathy WebLinks - Approve Links | " response.write "
| " response.write " |
<% End Sub '-------------------------------------------------------------------------- '-------- Approve Links '-------------------------------------------------------------------------- Sub ApproveProcess SQL = "Update Links Set Live = 1 WHERE LinkID IN("&SafeSQL(request.form("toApprove"))&")" Set RS = dbc.Execute(SQL) Set RS=Nothing if request.querystring("rd")="" then response.redirect "index.asp" else response.redirect "index.asp?action=" & request.querystring("rd") end if End Sub '************************************************************************** '******** Delete Links '************************************************************************** Sub DeleteLink SQL = "DELETE FROM Links WHERE LinkID IN("& SafeSQL(request.querystring("link")) &")" Set RS = dbc.Execute(SQL) Set RS=Nothing if request.querystring("also")="clearerr" then Call ReviewErrorsProcess end if if request.querystring("rd")="" then response.redirect "index.asp" else response.redirect "index.asp?action=" & request.querystring("rd") end if End Sub '************************************************************************** '******** Delete Category '************************************************************************** Sub DeleteCategory SQLc = "Select * From Categories WHERE CategoryID = " & SafeSQL(request.querystring("cat")) Set RSc=Server.CreateObject("adodb.Recordset") RSc.Open SQLc, dbc, 3, 3 NewCategory = RSc("ParentCategoryID") RSc.Close Set RSc = Nothing SQLb = "Select * From Links WHERE CategoryID = " & SafeSQL(request.querystring("cat")) Set RSb=Server.CreateObject("adodb.Recordset") RSb.Open SQLb, dbc, 3, 3 If RSb.RecordCount <= 0 then SQL = "DELETE FROM Categories WHERE CategoryID IN("& SafeSQL(request.querystring("cat")) &")" Set RS = dbc.Execute(SQL) response.redirect "index.asp" Else response.write "
" response.write "Click here" End If RSb.Close Set RSb=Nothing End Sub '************************************************************************** '******** DrawWhatsNew '************************************************************************** Sub WhatsNew SQLf = "Select * From Links Order By LinkDateAdded DESC" Set RSf=Server.CreateObject("adodb.Recordset") RSf.Open SQLf, dbc, 3, 3 If NeedApproval = "YES" then RSf.Filter = "Live = '1'" End If If Not RSf.EOF then RSf.MoveFirst TempNumber = 1 If RSf.RecordCount > 0 then response.write "
" response.write "
| " & WhatsNewHeader & " | " response.write "" response.write " | ||
| " & TempNumber & "." response.write " | " & RSf("LinkTitle") & "" response.write " | " & RSf("LinkDateAdded")
response.write " " response.write " | "
TempNumber = TempNumber + 1
End If
RSf.MoveNext
if RSf.EOF then exit for
Next
If AreNew = 0 then
response.write "|
| There are currently no NEW listings!" response.write " | " End If response.write "|||
| " & WhatsNewHeader & " | " response.write "" response.write " | ||
| " & TempNumber & "." response.write " | " & RSf("LinkTitle") & " - " & RSf("LinkDescription") & "" response.write " | Date Added: " & RSf("LinkDateAdded")
response.write " " response.write " | "
TempNumber = TempNumber + 1
End If
RSf.MoveNext
if RSf.EOF then Exit For
Next
If AreNew = 0 then
response.write "|
| There are currently no NEW listings!" response.write " | " End If response.write "|||
| " & WhatsHotHeader & " | " response.write "" response.write " | ||
| " & TempNumber & "." response.write " | " & RSg("LinkTitle") & "" response.write " | Visits: " & RSg("LinkVisits")
response.write " " response.write " | "
TempNumber = TempNumber + 1
End If
RSg.MoveNext
if RSg.EOF then exit for
Next
If AreHot = 0 then
response.write "|
| There are currently no HOT listings!" response.write " | " End If response.write "|||
" End If End If RSg.Close Set RSg=Nothing End Sub '************************************************************************** '******** DrawWhatsHotFull '************************************************************************** Sub WhatsHotFull SQLg = "Select * From Links Order By LinkVisits DESC" Set RSg=Server.CreateObject("adodb.Recordset") RSg.Open SQLg, dbc, 3, 3 If NeedApproval = "YES" then RSg.Filter = "Live = '1'" End If If Not RSg.EOF then RSg.MoveFirst TempNumber = 1 Call DrawTopNavigation If RSg.RecordCount > 0 then response.write "
| " & WhatsHotHeader & " | " response.write "" response.write " | ||
| " & TempNumber & "." response.write " | " & RSg("LinkTitle") & " - " & RSg("LinkDescription") & "" response.write " | Visits: " & RSg("LinkVisits")
response.write " " response.write " | "
TempNumber = TempNumber + 1
End If
RSg.MoveNext
if rsg.eof then exit for
Next
If AreHot = 0 then
response.write "|
| There are currently no HOT listings!" response.write " | " End If response.write "|||
" End If End If RSg.Close Set RSg=Nothing End Sub '************************************************************************** '******** Goto A Link '************************************************************************** Sub GotoLink Dim SQLb SQL = "Select * From Links Where LinkID =" & SafeSQL(request.querystring("gotolink")) Set RS = dbc.Execute(SQL) Visits = RS("LinkVisits") + 1 SQLb ="Update Links Set LinkVisits =" & Visits & " Where [LinkID] = " & SafeSQL(request.querystring("gotolink")) response.write SQLb dbc.Execute(SQLb) Location = RS("LinkURL") RS.Close Set RS=Nothing response.redirect Location End Sub '************************************************************************** '******** Draw the Links '************************************************************************** Sub DrawLinks if SortBy = "ALPHA" then SQL = "Select * From Links Where CategoryID=" & SafeSQL(Category) & " ORDER BY LinkTitle;" end if if SortBy = "DATE" then SQL = "Select * From Links Where CategoryID=" & SafeSQL(Category) & " ORDER BY LinkDateAdded DESC, LinkTitle;" end if if SortBy = "HITS" then SQL = "Select * From Links Where CategoryID=" & SafeSQL(Category) & " ORDER BY LinkVisits DESC, LinkTitle;" end if 'SQL = "Select * From Links Where CategoryID=" & Category & " ORDER BY LinkTitle;" If ReadingReview = "TRUE" then SQL = "Select * From Links Where LinkID=" & SafeSQL(request.querystring("link")) End If set RS=Server.CreateObject("adodb.Recordset") RS.Open SQL, dbc, 3 , 3 If ReadingReview = "TRUE" then Category = RS("CategoryID") End If If NeedApproval = "YES" then RS.Filter = "Live = '1'" End If If Category <> 0 then If RS.RecordCount = 0 then response.write "" response.write "There are no links in this category!" exit sub End if If request.querystring("Page") = "" Then Page = 1 RS.Move First Else Page = Request.QueryString("Page") If Page = 1 then RS.Move First Else RS.Move CInt((Page * RecordsPerPage) - RecordsPerPage) End If End If FirstLink = ((Page * RecordsPerPage) - RecordsPerPage) + 1 LastLink = ((Page * RecordsPerPage) - RecordsPerPage) + RecordsPerPage TotalLinks = RS.RecordCount If LastLink > TotalLinks then LastLink = TotalLinks End if n = 0 RS.PageSize = RecordsPerPage If ReadingReview <> "TRUE" then Call DrawNavigation response.write "
" End If response.write "
"
Do until RS.EOF
if n = RecordsPerPage then
exit do
end if
response.write "
" RS.MoveNext n=n+1 loop Response.write " | " %> <% response.write " | ||||||||
| " %> <% Response.write " | |||||||||
" If ReadingReview <> "TRUE" then Call DrawNavigation End If End If RS.Close Set RS=Nothing End Sub '************************************************************************** '******** Search '************************************************************************** Sub Search Call DrawTopNavigation response.write "
| Hpathy WebLinks - Search | " response.write "
| " response.write " |
" & RS("LinkTitle") & ""
DaysNew = DateDiff("d", RS("LinkDateAdded"), Now)
Hot = RS("LinkVisits")
if DaysNew <= NumberOfDaysNew Then
response.write " "
end if
if Hot > HotRating Then
response.write " "
end if
If Session("LoggedIn") = "YES" then
response.write " Delete - "
response.write " Edit"
End If
response.write " | "
response.write ""
SQLx = "Select AVG(Rating) From Ratings Where LinkID=" & RS("LinkID") & ";"
set RSx=Server.CreateObject("adodb.Recordset")
RSx.Open SQLx, dbc, 3, 3
If RSx.EOF then
RatingAverage = "Not Rated"
Else
RatingAverage = RSx(0)
End If
RSx.Close
Set RSx=nothing
response.write " Rate This Link | Avg Rating: "
If RatingAverage <> "Not Rated" then
For Z = 1 to RatingAverage
response.write " | "
response.write "||||
"
response.write "
| |||||
" RS.MoveNext n=n+1 loop 'Call DrawNavigation RS.Close Set RS=Nothing End Sub '************************************************************************** '******** Rate A Link '************************************************************************** Sub RateLink UserIPAddress = Request.ServerVariables("Remote_Addr") SQL = "Select * From Links Where LinkID = " & SafeSQL(request.querystring("LinkID")) & ";" set RSz=Server.CreateObject("adodb.Recordset") RSz.Open SQL, dbc, 3, 3 Call DrawTopNavigation response.write "
| Hpathy WebLinks - Rate A Link | " response.write "
| " response.write " |
| " response.write "" response.write "Displaying Links: " & FirstLink & "-" & LastLink & " of " & TotalLinks response.write " | " response.write "" response.write "" if Page <> 1 then response.write "" response.write "<< Prev" end if if Page <> 1 then response.write " " end if For intCount = 1 to RS.PageCount If intCount = 1 then response.write " | " End If If cint(intCount) = cint(Page) then response.write "" & intCount & " | " Else response.write "" & intCount & " | " End If Next if cint(page) <> cint(RS.PageCount) then response.write "" response.write " Next >>" end if if cint(Page) = cint(RS.PageCount) then response.write "" end if response.write " | " response.write "
| Hpathy WebLinks | " response.write "||||||||||||||||
"
response.write "
|
| Hpathy WebLinks - Review A Link | " response.write "
| " response.write " |
" & RSr("ReviewTitle") & " "
For I = 1 to RSr("ReviewRating")
response.write " "
Next
response.write "Review By: " & RSr("ReviewerName") & " | " & RSr("ReviewDate") response.write " | "
response.write "|
"
response.write "
|
" RSr.MoveNext Loop RSr.Close Set RSr=Nothing RSz.Close Set RSz=Nothing End Sub '************************************************************************** '******** Draw the Report Error Page '************************************************************************** Sub ReportError SQL = "Select * From Links Where LinkID = " & SafeSQL(request.querystring("LinkID")) & ";" set RSz=Server.CreateObject("adodb.Recordset") RSz.Open SQL, dbc, 3, 3 Call DrawTopNavigation response.write "
| Hpathy WebLinks - Report An Error | " response.write "
| " response.write " |
| Hpathy WebLinks - Approve Reviews | " response.write "
| " response.write " |
<% End Sub '-------------------------------------------------------------------------- '-------- Approve Reviews Process '-------------------------------------------------------------------------- Sub ApproveReviewsProcess If Session("LoggedIn") <> "YES" then response.redirect "index.asp" SQL = "Update Reviews Set ReviewLive = 1 WHERE LinkID IN("&SafeSQL(request.form("toApprove"))&")" Set RS = dbc.Execute(SQL) Set RS=Nothing if request.querystring("rd")="" then response.redirect "index.asp" else response.redirect "index.asp" end if End Sub '************************************************************************** '******** Review Errors '************************************************************************** Sub ReviewErrors If Session("LoggedIn") <> "YES" then response.redirect "index.asp" SQL = "Select * From Errors" Set RS=Server.CreateObject("adodb.Recordset") RS.Open SQL, dbc, 3 , 3 If RS.RecordCount <> 0 then RS.MoveFirst End If Call DrawTopNavigation response.write "
| Hpathy WebLinks - Review Errors | " response.write "
| " response.write " |
<% End Sub '************************************************************************** '******** Delete Errors '************************************************************************** Sub ReviewErrorsProcess If Session("LoggedIn") <> "YES" then response.redirect "index.asp" if request.querystring("also") <> "clearerr" then SQL = "DELETE FROM Errors WHERE LinkID IN("& SafeSQL(request.form("toApprove")) &")" else SQL = "DELETE FROM Errors WHERE LinkID IN("& SafeSQL(request.querystring("link")) &")" end if Set RS = dbc.Execute(SQL) Set RS=Nothing if request.querystring("rd")="" then response.redirect "index.asp" else response.redirect "index.asp" end if End Sub '************************************************************************** '******** Delete Review '************************************************************************** Sub DeleteReview If Session("LoggedIn") <> "YES" then response.redirect "index.asp" SQL = "DELETE FROM Reviews WHERE ReviewID IN("& SafeSQL(request.querystring("review")) &")" Set RS = dbc.Execute(SQL) Set RS=Nothing if request.querystring("rd")="" then response.redirect "index.asp?action=summary&topic=deletereviewOK" else response.redirect "index.asp" end if End Sub '************************************************************************** '******** Draw the Modify Config Page '************************************************************************** Sub ModifyConfig SQL = "Select * From Config" set RSz=Server.CreateObject("adodb.Recordset") RSz.Open SQL, dbc, 3, 3 Call DrawTopNavigation response.write "
| Hpathy WebLinks - Modify Configuration | " response.write "
| " response.write " |
| Hpathy WebLinks - Modify Style | " response.write "
| " response.write " |