| baynham 2004-11-16, 6:36 pm |
| here is the code for a similar page but with only one list/menu working in the
sql statement
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/loopcon.asp" -->
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Request.Form("genremenu") <> "") Then
Recordset1__MMColParam = Request.Form("genremenu")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_loopcon_STRING
Recordset1.Source = "SELECT * FROM samples WHERE samplegenre = '" +
Replace(Recordset1__MMColParam, "'", "''") + "'"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
<html>
<head>
<title>search 2</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<p> </p>
<p> </p>
<p> </p>
<form name="form1" method="post" action="">
<table width="500" border="0" align="center" cellpadding="2" cellspacing="2">
<tr bgcolor="#999999">
<td><div align="center"><strong>Instrument Type</strong></div>
</td>
<td><div align="center"><strong>Genre</strong></div>
</td>
<td><div align="center"><strong>Type/Tempo</strong></div>
</td>
<td><div align="center"><strong>Note/Key/Chord</strong></div>
</td>
<td><div align="center"><strong>Source</strong></div>
</td>
<td><div align="center"><strong>File Type</strong></div>
</td>
<td><div align="center"><strong>Label</strong></div>
</td>
</tr>
<tr>
<td><div align="center">
<select name="insttypemenu" id="insttypemenu">
<option value="%" selected>All Instruments
<option value="drums percussion">Drums/Percussion
<option>-Drums
<option>--Cymbal/Bell
<option>--Hi Hat
<option>--Kick
<option>--Rim-Shot
<option>--Snare
<option>--Tom
<option>-Percussion
<option>--Bongos
<option>--Congas
<option>--Exotic/Ethnic
<option>--Hand Clap
<option>--Tambourine/Shaker
<option>--Vines/Marimbas/Tuned
<option>FX
<option>Keyboard
<option>-Organ
<option>--Tone Wheel Organ
<option>--Piano
<option>--Acoustic Piano
<option>--Electric Piano
<option>-Synthesizer
<option>--Synth Base
<option>--Synth Drone
<option>--Synth Effect
<option>--Synth Lead
<option>--Synth Pad
<option>--Synth Stab
<option>Mixed
<option>-Band
<option>-Drum and Bass
<option>-Orchestra
<option>String
<option>-Bass
<option>--Acoustic Base
<option>--Electric Bass
</select>
</div>
</td>
<td><div align="center">
<select name="genremenu" id="genremenu">
<option value="%" selected>All Genre's
<option>Blues
<option>Classical
<option>Dance
<option>-Big Beat
<option>-Disco
<option>-Drum&Bass
<option>-House
<option>-Techno
<option>Electronica
<option>-Ambient
<option>-Down Temp/Trip Hop
<option>Film Score
<option>Funk
<option>Hip Hop/ Rap
<option>Industrial
<option>Jazz
<option>Latin
<option>-Afro-Cuban
<option>-Bossa-nova
<option>-Salsa
<option>R&B/Soul
<option>Reggae
<option>Dub
<option>Rock/Pop
<option>-Metal
<option>-Pop
<option>-Rock
<option>Vocal
</select>
</div>
</td>
<td><div align="center">
<select name="typetempo" id="typetempo">
<option value="%" selected>All Types
<option>Loop
<option>Multi
<option>One-Shot
<option>---------------------
<option value="60 - 69 BPM">60 - 69 BPM
<option value="70 - 79 BPM">70 - 79 BPM
<option value="80 - 89 BPM">80 - 89 BPM
<option value="90 - 99 BPM">90 - 99 BPM
<option value="100 - 109 BPM">100 - 109 BPM
<option value="110 - 119 BPM">110 - 119 BPM
<option value="120 - 129 BPM">120 - 129 BPM
<option value="130 - 139 BPM">130 - 139 BPM
<option value="140 - 149 BPM">140 - 149 BPM
<option value="150 - 159 BPM">150 - 159 BPM
<option value="160 - 169 BPM">160 - 169 BPM
</select>
</div>
</td>
<td><div align="center">
<select name="nkcmenu" id="nkcmenu">
<option value="%" selected>All Keys
<option>Chord: A
<option>Chord:
<option>Chord:
<option>Chord:
<option>Chord:
<option>Chord:
<option>Chord:
<option>Chord:
<option>Chord:
<option>Chord:
<option>Chord:
<option>Chord:
<option>Chord:
<option>Chord:
<option>Chord:
<option>Chord:
<option>Chord:
<option>Chord:
<option>Chord:
<option>Chord:
<option>Key:
<option>Key:
<option>Key:
<option>Key:
<option>Key:
<option>Key:
<option>Key:
<option>Key:
<option>Key:
<option>Key:
<option>Key:
<option>Key:
<option>Key:
<option>Key:
<option>Key:
<option>Key:
<option>Key:
<option>Key:
<option>Key:
<option>Key:
<option>Key:
<option>Key:
<option>Key:
<option>Key:
<option>Note:
<option>Note:
<option>Note:
<option>Note:
<option>Note:
<option>Note:
<option>Note:
<option>Note:
<option>Note:
<option>Note:
<option>Note:
<option>Note:
<option>Note:
</select>
</div>
</td>
<td><div align="center">
<select name="sourcemenu" id="sourcemenu">
<option value="%" selected>All Sources
</select>
</div>
</td>
<td><div align="center">
<select name="filetypemenu" id="filetypemenu">
<option value="%" selected>All File Types
</select>
</div>
</td>
<td><div align="center">
<select name="labelmenu" id="labelmenu">
<option value="%" selected>All Labels
<option value="pareidolia">Pareidolia
<option value="colin starr">Colin Starr
</select>
</div>
</td>
</tr>
<tr>
<td colspan="7"><div align="center"> <font size="6">
<input name="searchfill" type="text" id="searchfill" size="50">
</font>
<input type="submit" name="Submit" value="Search">
</div>
</td>
</tr>
</table>
</form>
<table width="500" border="1" align="center" cellpadding="2" cellspacing="2">
<tr>
<td>Name</td>
<td>Preview</td>
<td>Type</td>
<td>Genre</td>
<td>BPM</td>
<td>Key</td>
<td>Length</td>
<td>Size</td>
<td>Label</td>
</tr>
<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
%>
<tr>
<td><%=(Recordset1.Fields.Item("samplename").Value)%></td>
<td><a href="<%=(Recordset1.Fields.Item("samplepreview").Value)%>"><img
src="/looplovers/images/speaker_icon.gif" width="36" height="33"
border="0"></a></td>
<td><%=(Recordset1.Fields.Item("sampletype").Value)%></td>
<td><%=(Recordset1.Fields.Item("samplegenre").Value)%></td>
<td><%=(Recordset1.Fields.Item("samplebpm").Value)%></td>
<td><%=(Recordset1.Fields.Item("samplekey").Value)%></td>
<td><%=(Recordset1.Fields.Item("samplelength").Value)%></td>
<td><%=(Recordset1.Fields.Item("samplesize").Value)%></td>
<td><%=(Recordset1.Fields.Item("samplelabel").Value)%></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend
%>
</table>
<p> </p>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
|