asp e combo

[darlette]

meno male che ci sei ...
(purtroppo a quell'ora ero fuori dall'ufficio...ma ora rieccomi)
Allora ieri ho continuato a "smanettarci" e sono riuscita ad ottenere che gli passo sia un parametro che l'altro però ora mi vede solo una sottocategoria nella combo e le altre accanto fuori dalla select. Ti posto il codice:


<%
SQLCat = " SELECT ID, SCategoria FROM SCategorie "
Set RScat = Conn.Execute(SQLCat)

If Not RSCat.EOF Then
SCatArr = RScat.GetRows

'---Stampo a video le scategorie ed eventuali categorie
If QSSCategoria <> "" Then
SQLCat = " SELECT ID, Categoria FROM Categorie WHERE SCategoria = " & QSSCategoria
Set RSCat = Conn.Execute(SQLCat)

If Not RSCat.EOF Then
CatArr = RSCat.GetRows
BoolCategorie = True
Else
BoolCategorie = False
End If

RSCat.Close
End If

For Icat = 0 to UBound(SCatArr, 2)
%>

<%
If CStr(SCatArr(0,ICat)) = QSSCategoria Then
For K = 0 To UBound(CatArr,2)
%>
<form name="tipologia" method="post" action="catalogo.asp?scat=<%=SCatArr(0,ICat)%>&cat =<%=CatArr(0,k)%>">
<select name="tip">
<%

If boolCategorie Then

%>
<option value="<%=CatArr(0,k)%>"><%=CatArr(1,k)%></option>
<%
End If
Next
End If
Next
%>
</select>
<input type="image" src="interfaccia/pulsante_cerca.gif" align="absmiddle">
</form>



<%
Else
%>

<%=NoCategoria%>

<%
End If
%>

[varrilaro]

ok, ora ci sono allora così generi per forza tanti form quante sono le sottocategorie e non va bene d'altra parte devi passare dei valori variabili quindi facciamo così:

<%
SQLCat = " SELECT ID, SCategoria FROM SCategorie "
Set RScat = Conn.Execute(SQLCat)

If Not RSCat.EOF Then
SCatArr = RScat.GetRows

'---Stampo a video le scategorie ed eventuali categorie
If QSSCategoria <> "" Then
SQLCat = " SELECT ID, Categoria FROM Categorie WHERE SCategoria = " & QSSCategoria
Set RSCat = Conn.Execute(SQLCat)

If Not RSCat.EOF Then
CatArr = RSCat.GetRows
BoolCategorie = True
Else
BoolCategorie = False
End If

RSCat.Close
End If
%>
<form name="tipologia" method="post" action="catalogo.asp">
<select name="tip">
<%
For Icat = 0 to UBound(SCatArr, 2)

If CStr(SCatArr(0,ICat)) = QSSCategoria Then
For K = 0 To UBound(CatArr,2)

If boolCategorie Then
%>
<option value="<%=CatArr(0,k)%>,<%=SCatArr(0,ICat)%>"><%=C atArr(1,k)%></option>
<%
End If
Next
End If
Next
%>
</select>
<input type="image" src="interfaccia/pulsante_cerca.gif" align="absmiddle">
</form>



<%
Else
%>

<%=NoCategoria%>

<%
End If
%>

nella pagina catalogo le riprendi così:

variabili = request.form("tip")
variabili = split(variabili,",")
categoria = variabili(0)
sottocategoria = variabili(1)

et voilà

[darlette]

Il ragionamento che hai fatto tu è più logico, ma c'è un problema:
Sto usando un'applicazione open-source già creata ed impostata, con la select mi trovo già nella pagina catalogo.asp (che in realtà ha solo la grafica perchè tutto il codice si trova dentro un include inc_catalogo.asp) per cui come faccio poi?
Devo rifare la query con i nuovi valori, ho paura di sballare tutto

[varrilaro]

nella pagina di include sicuramente prima recuperava i valori utilizzando il request.querystring, valori che sono cat e scat invece di farlo in quelo modo
ovvero

cat = request.querystring("cat")

lo fai come ho detto io e non devi modificare ne query, ne nulla

basta che al posto dove io ho scritto categoria e sottocategoria metti i nome che sono propri delle variabili che ti servono

variabili = request.form("tip")
variabili = split(variabili,",")
categoria = variabili(0)
sottocategoria = variabili(1)

[darlette]

Mamma mia ti sto facendo impazzire

Allora ho fatto come hai detto tu..
nella pagina inc_catalogo ho sostituito il tuo codice a quello di prima, poi ho visto che nella pagina catalogo.asp c'erano le request.querystring di cui parlavi tu e ho aggiunto quelle scritte da te, ma siccome ancora non funziona penso che devo sostituire i nomi delle variabili .... bò....sto diventando scema

[darlette]

ti posto il codice della pag catalogo.asp

<%
'---Dichiarazione variabili
Dim QSCategoria, QSPg, QSQuery , variabili, categoria, sottocategoria

'---Recupero le informazioni sulla scategoria, categoria e pagina
QSCategoria = Request.QueryString("cat")
QSSCategoria = Request.QueryString("scat")
QSQuery = Request.QueryString("q")
QSPg = Int(Request.QueryString("pg"))

variabili = request.form("tip")
variabili = split(variabili,",")
categoria = variabili(0)
sottocategoria = variabili(1)

If QSPg <= 0 Then
QSPg = 1
End If
%>

[varrilaro]

ok, allora la pagina di include non la toccare proprio mentre questa modificala così:

<%
'---Dichiarazione variabili
Dim QSCategoria, QSPg, QSQuery , variabili

'---Recupero le informazioni sulla scategoria, categoria e pagina
variabili = request.form("tip")
variabili = split(variabili,",")
QScategoria = variabili(0)
QSScategoria = variabili(1)
QSQuery = Request.QueryString("q")
QSPg = Int(Request.QueryString("pg"))



If QSPg <= 0 Then
QSPg = 1
End If
%>

[darlette]

mi spiace perchè vedo che stai facendo tutto il possibile per aiutarmi, ma così non funziona
neanche la pagina catalogo.asp che fa vedere tutte le categorie

[varrilaro]

a questo punto nn so più che dirti....

magari se mi dici che open source utilizzi posso dargli un'occhiata meglio

se c'è un link da dove scaricarlo postalo

più di così...non so che fare, mi dispiace

[darlette]

sto usando mwopen, ma ci sono tante versioni, diciamo che le modifiche le sto facendo io in base alle richieste che abbiamo avuto.
il sito (ancora in test) lo puoi vedere qui:
http://www.cosvical.it
(cliccando sulla categoria olio accedi alla pagina catalogo.asp e lì ci sono i link delle sottocategorie che io volevo inserire nella combo )
Gli esempi che stiamo facendo ovviamente sono solo sul nostro server.
Potrei provare ad allegarti le due pagine ma non so se hai tempo