Dunque il problema è il seguente. Ho una architettura in asp in cui vengono memorizzati articoli, suddivisi in categorie. In fase di visualizzazione gli articoli di tali categorie vengono visualizzate attualmente scegliendo da un menu a tendina e selezionando la categoria di interesse.
Io vorrei che invece del menu a tendina, venissero elencate semplicemente tutte le categorie presenti, una appresso all'altra. Come modificare il codice?
Ecco quello attuale:
<form action="type.asp" method="get" name="type" id="type">
<td width="33%" align="center" class="textBold">
<select name="Filtro_Categoria" class="form" id="Filtro_Categoria">
<%
While (NOT rsTypes.EOF)
%>
<option value="<%=(rsTypes.Fields.Item("TYPE_ID").Value)%> "><%=(rsTypes.Fields.Item("TYPE_NAME").Value)% ></option>
<%
rsTypes.MoveNext()
Wend
If (rsTypes.CursorType > 0) Then
rsTypes.MoveFirst
Else
rsTypes.Requery
End If
%>
</select>
<input name="view" type="submit" class="form" id="view" value="Visualizza documenti scelti">
Vedi tutti
</td> </form>
Prima di <head> sono poi presenti le stringhe di testo seguenti:
<%
set rsCount = Server.CreateObject("ADODB.Recordset")
rsCount.ActiveConnection = MM_connessione_STRING
rsCount.Source = "SELECT (SELECT COUNT(*) FROM EVENTS ) AS EVE_COUNT, COUNT(*) AS TYPE_COUNT FROM TYPES"
rsCount.CursorType = 0
rsCount.CursorLocation = 2
rsCount.LockType = 3
rsCount.Open()
rsCount_numRows = 0
%>
<%
Dim rsTypes
Dim rsTypes_numRows
Set rsTypes = Server.CreateObject("ADODB.Recordset")
rsTypes.ActiveConnection = MM_connessione_STRING
rsTypes.Source = "SELECT * FROM TYPES ORDER BY TYPE_NAME ASC"
rsTypes.CursorType = 0
rsTypes.CursorLocation = 2
rsTypes.LockType = 1
rsTypes.Open()
rsTypes_numRows = 0
%>

Rispondi quotando