<% Response.Buffer = true Server.ScriptTimeout = 540 Set objConn = Server.CreateObject("ADODB.Connection") Set objRS = Server.CreateObject("ADODB.Recordset") ObjConn.Open "A6302_amanifun" set objRS = objConn.Execute ("SELECT * FROM users WHERE username LIKE '%"& Request("searchsite") &"%'") set objRSart = objConn.Execute ("SELECT * FROM arts WHERE arttitle LIKE '%"& Request("searchsite") &"%'") set objRSvideo = objConn.Execute ("SELECT * FROM videos WHERE title LIKE '%"& Request("searchsite") &"%'") set objRSmusic = objConn.Execute ("SELECT * FROM music WHERE title LIKE '%"& Request("searchsite") &"%'") %> AmaniOnline.com


Welcome to Amani Fan Club.
Search

<% If Not objRS.EOF Then %>
 
  Users
  <% do while not objRS.eof%> <%objRS.movenext loop%> <%objRS.close%>
  "><%=objRS("username")%>
<% End If %>
<% If Not objRSart.EOF Then %>
 
  Articles
  <% do while not objRSart.eof%> <%objRSart.movenext loop%> <%objRSart.close%>
  &username=<%=objRSart("username")%>&title=<%=objRSart("sections")%>"><%=objRSart("arttitle")%>
<% End If %>
<% If Not objRSvideo.EOF Then %>
 
  Videos
  <% do while not objRSvideo.eof%> <% If objRSvideo("type") = 1 Then %> <% Else %> <% End If %> <%objRSvideo.movenext loop%> <%objRSvideo.close%>
  <%=objRSvideo("title")%>    [">Download][">Download]
<% End If %>
<% If Not objRSmusic.EOF Then %>
 
  Music
  <% do while not objRSmusic.eof%> <% If objRSmusic("type") = 1 Then %> <% Else %> <% End If %> <%objRSmusic.movenext loop%> <%objRSmusic.close%>
  <%=objRSmusic("title")%>  [">Download][">Download]
<% End If %>