Ciao a tutti,
ho 2 select con onChange, mi da questo errore!
Tipo non corrispondente: '[string: "prova"]'
Qualcuno può aiutarmi?
<form>
'connessione alla prima select'
<select name="Artista" type="text" value="<%=(rsCat.Fields.Item("Artista").Value)%>" onChange="window.location.href+='?Artista='+this.o ptions[this.selectedIndex].value;" size="1" style="width: 289">
<%While (NOT rsCat.EOF)%>
<option value="<%=(rsCat.Fields.Item("Artista").Value)%>" <%if Request.QueryString("Artista") = rsCat("Artista") then Response.Write("selected")%> ><%=(rsCat.Fields.Item("Artista").Value)%></option>
<%
rsCat.MoveNext()
Wend
If (rsCat.CursorType > 0) Then
rsCat.MoveFirst
Else
rsCat.Requery
End If
Set rsCat = Nothing
Conn.Close
%>
</select>
<select name="Titolo" type="text" value="<%=Titolo%>" size="1" style="width: 289">
<option value="0">Seleziona</option>
<% dim rs, valore, Titolo, cn
cn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.MapPath("/mdb-database/playlist.mdb")
set cn = server.CreateObject("ADODB.Connection")
set rs = server.CreateObject("ADODB.Recordset")
conn.Open cn
if (Request.QueryString("Artista")<>"") and (Request.QueryString("Artista")<> 0) then
rsStringa = Request.QueryString("Artista")
rs.open "Select * FROM lista Where Artista="+ Replace(rsStringa, "'", "''") +" ORDER BY id_ric ",conn,2,3
do while not rs.eof
valore=rs.fields("Titolo")
Titolo=rs.fields("Titolo")
response.write("<option value="&valore&">"&Titolo&"</option>")
rs.movenext
loop
End if
%>
</select>
</form>