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 = objfs
penTextFile(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 =objfs
penTextFile(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>
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 = objfs

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 =objfs

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>