<%searchstring=request("search")%> <%searchstring=replace(searchstring,"'","")%> <%if len(searchstring) < 4 then %>

ERROR -- You must search on at least 4 characters to search the MIDI.COM database


Hit your browser's BACK BUTTON to try again <%response.end%> <%end if%> MIDI.COM MIDI Site Search


Please wait as MIDI.COM retrieves your results...

Search:
Keywords:
The Largest MIDI Site Search Engine in the World
Let's work together to build the largest, most accurate database of MIDI sites anywhere!
Search for:
  Add Your Site  / Help
<% 'sqlcall="UPDATE DISTINCTROW midisites set hits=hits+1 " &_ ' "Where (( (SiteDesc like '%" & searchstring & "%') OR (SiteTitle like '%" & searchstring & "%') OR (SiteAddress like '%" & searchstring & "%')) AND Deleted=false); " ' set rshits = Server.CreateObject("ADODB.Recordset") ' ' rshits.Open sqlcall,session("midisites") ' set rshits=nothing 'sqlcall="SELECT DISTINCTROW Count(MIDISITES.SiteTitle) AS countsites FROM midisites " &_ ' "Where (( (SiteDesc like '%" & searchstring & "%') OR (SiteTitle like '%" & searchstring & "%') OR (SiteAddress like '%" & searchstring & "%')) AND Deleted=false); " ' set rscount = Server.CreateObject("ADODB.Recordset") ' rscount.Open sqlcall,session("midisites") ' numresults=rscount("countsites") ' rscount.close ' set rscount=nothing sqlcall="SELECT * FROM Midisites " &_ "Where (( (SiteDesc like '%" & searchstring & "%') OR (SiteTitle like '%" & searchstring & "%') OR (SiteAddress like '%" & searchstring & "%')) AND Deleted=false) " &_ " ORDER BY -(Hits);" set rs = Server.CreateObject("ADODB.Recordset") rs.Open sqlcall,session("midisites") Response.Write "searching our database (this may take a few moments during busy hours)...


"%> <% if not rs.EOF then do while not rs.eof numresults=numresults+1 rs.MoveNext loop rs.MoveFirst end if %>

<%if numresults > 0 then%> <%=numresults%> sites match your search request! Sites listed by popularity.

<% do while catchup < int(request("count")) catchup=catchup+1 rs.MoveNext loop do while not rs.eof and count < 10 count=count+1 %> "><%=rs("SiteTitle")%>
(IF LINK IS DEAD, ">CLICK HERE TO LET US KNOW!)

<%=left(rs("SiteDesc"),200)%><%if len(rs("SiteDesc"))>200 then Response.Write "..." end if%>
"><%=rs("SiteAddress")%> -added on <%=rs("Date")%>

<%rs.movenext loop requestcount = request("count") if requestcount = "" then requestcount =1 %>
Result Pages: <% do while jumpcount <= numresults jumpcount=jumpcount+1 if Int(requestcount)+10 = int(jumpcount) then dynalink="results.asp?count=" & jumpcount & "&search=" & searchstring%> [<%=jumpcount%>- <%if jumpcount+9 > numresults then Response.Write numresults else Response.Write jumpcount+9%>]  <%jumpcount = jumpcount +9 loop %> [Next >>] <%else%> 0 sites returned. Try changing your search criteria. <%end if%>