aiuto programmino asp.

rose9392

Nuovo Utente
23 Mar 2010
2
0
0
Il programma consiste nel creare una pagina in asp con una select e un bottone: dalla select vengono selezionati le "categorie". Cliccando sul pulsante, in output, compare la lista dei prodotti relativi alla categoria selezionata.

es. seleziono dalla select abiti --> clicco pulsante --> in output
- pantaloni
- magliette
- golfini

Sia la caregoria che i prodotti vengono letti da un file(prodotti.txt)
contenente il seguente scritto
valore1;abiti;camicia
valore1;abiti;gonne
valore1;abiti;pantaloni
valore2.alimentari;pane
valore2.alimentari;pasta
valore2.alimentari;riso


il codice è il seguente, non riesco a risolvere l'errore della loop.
mi da errore Microsoft VBScript compilation error '800a0400'?
Sarà perchè interrompo il ciclo do while ...loop con <% prima che si looppa?Come si risolve?
:incazz2::incazz2::incazz2::incazz2::incazz2::incazz2:

<%@LANGUAGE="VBSCRIPT"%>
<html>
<head>
</head>

<body>
<fieldset>
<legend> Categorie e Prodotti </legend>
<%if request.Form("invia")<> "Inviato" then %>
<form method = "post" action = "verifica.asp" >
<select name ="casella">

<%dim objmiofile, valore1, valore2, objfso, strpath, letto,categoria, arrfile,i
i=1
const mode = 1


strpath= server.MapPath("prodotti.txt")
set objfso = server.CreateObject("Scripting.FileSystemObject")
set objmiofile = objfso.OpenTextFile(strpath,mode)

valore2 =""
do while not objmiofile.AtEndOfStream
letto =objmiofile.readLine()
arrfile = split(letto,";")
valore1 = arrfile(0)
if valore2 <> valore1 then
categoria=arrfile(1)
%>
<option value="valore"&i> ""&categoria </option>
<%i=i+1


valore2=valore1
loop
%>
</select>

Seleziona la categoria desiderata e Clicca invia per vedere i prodotti relativi
<br>
<input type = "submit" value="Inviato" name="invia">
</form>
</fieldset>

<%else
dim vsel
vsel=request.form("casella")
set objmiofile =objfso.OpenTextFile(strpath,mode)
valore2 =""%>
I prodotti della categoria selezionata sono:

<ol>
<%
do while not objmiofoile.AtEndOfStream
letto =objmiofile.readLine()
arrfile = split(letto,";")
valore1 = arrfile(0)
if vsel = valore1 then
response.write "<li>"&arrfile(2)&"</li>"
loop
%>
</body>

</html>
 

Discussioni simili