<%@ Language=VBScript %>
<%
pageName = "search.asp"
If Request("page")="" then
iPage = 1
Else
iPage = int(Request("page"))
End if
Numb = (iPage * pageSize) + 1
set dbConn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
dbConn.Open ConStr
%>
<%=sitename%>
<%=meta%>
<%searchbox%>
<%loginform
If request("type")="f" then
%>
Search Result for: <%=request("search")%>
<%Else
%>
Search Result for: <%=request("search")%>
View profile of: <%=request("search")%>
<%End if
varsearch = request("search")
If request("type")="f" then
sql = "SELECT * FROM FORUM_MESSAGES where topic like '%" & varsearch & "%' OR comments like '%" & varsearch & "%' order by dateposted desc;"
Else
sql = "SELECT * FROM FORUM_MESSAGES where authorname='" & varsearch & "' order by dateposted desc;"
End if
rs.Open sql, dbConn ,1,3
if not rs.EOF then
rs.PageSize = pageSize
intPageCount = rs.PageCount
rs.AbsolutePage = iPage
%>
| Message Topic |
Date Posted |
View |
Author |
<%
For intRecord = 1 To rs.PageSize
If rs.EOF Then Exit For%>
| <% logincheck rs("AuthorEmail"), rs("id")%> "><%=rs("topic")%> |
<%=rs("dateposted")%> |
<%=rs("hit")%> |
<%=rs("authorname")%> |
<%
rs.MoveNext
Next
%>
<%
response.write ""
If ipage > 1 then response.write "" & "[ LAST ]" & ""
if ipage < intPageCount then response.write "" & "[ MORE ]" & ""
response.write "
"
Set dbConn = Nothing
Set rs = Nothing
Else
response.write "
"
response.write "No records found.
"
response.write "
"
End if
%>
<%
Sub logincheck(email,id)
if session("useremail") = email or session("userisadmin") then response.write "x#"
End Sub
%>