Correzione sintassi codice

[Pierhagi]

Ciao a tutti

potete x favore correggere questo codice x asp vbscritp da usare con db access?
Ho messo ",' e parentesi di troppo:
-------------------------------------------------------------
ResultSet =" Select 'SpeseSpedizione' SpeseQuantita', 'SpeseCelere3', 'SpeseCelere1' * From Prodotti Where Prodotto in (Cappellino, Felpa, Giacca, Polo, T-Shirt) order by SpeseSpedizione desc"

'-----------------------------------------------------------------------------------
ResultSet SpeseSpedizione SpeseQuantita

4,50 ; 2 ; 10 ; 13
6,50 ; 2 ; 10 ; 13
8,50 ; 10 ; 13
'-----------------------------------------------------------------------------------

int var_prod = somma prodotti carrello - 1 'QUESTA RIGA E' DA IMPLEMENTARE

int var_spese = ResultSet.SpeseSpedizione + (var_prod * ResultSet.SpeseQuantita)


if (flagRaccomandata = true)
{
if (var_spese < ResultSet.SpeseCelere3)
{
var_spese = var_spese
}
else if ((var_spese >= ResultSet.SpeseCelere3) and (var_spese < ResultSet.SpeseCelere1))
{
var_spese = ResultSet.SpeseCelere3
}
else if (var_spese >= ResultSet.SpeseCelere1)
{
var_spese = ResultSet.SpeseCelere1
}
}
else if (flagCelere3 = true)
{
var_spese = ResultSet.SpeseCelere3 '-------- (valore 10) ---------
}
else if (flagCelere1 = true)
{
var_spese = ResultSet.SpeseCelere1 '-------- (valore 13) ---------
}
return var_spese;
'--------------------------------------------------------------------------------
%>

Pier

[Pierhagi]

Nessuno sa aiutarmi?

[Mems]

Che errore ti da?
I campi nella select NON vanno tra apici singoli...

[Pierhagi]

Ciao Mems


dicevi così gli apici:

ResultSet =" Select 'SpeseSpedizione, SpeseQuantita, SpeseCelere3, SpeseCelere1' From Prodotti Where Prodotto in (Cappellino, Felpa, Giacca, Polo, T-Shirt) order by SpeseSpedizione desc"

ora però l'errore me lo da x il codice sotto:
-------------------------------------------------------
ResultSet("SpeseSpedizione,SpeseQuantita")

4,50 ; 2 ; 10 ; 13
6,50 ; 2 ; 10 ; 13
8,50 ; 10 ; 13
--------------------------------------------------------
e l'errore è questo:
Microsoft VBScript compilation error '800a0400'

Expected statement

/shop2007/carrello.asp, line 273

4,50 ; 2 ; 10 ; 13 '----- per cappellino, t-shirt, polo -----
^

Pier

[Mems]

Ma sti numeri che roba sono?

[Pierhagi]

sono combinazioni di prezzi x 3 tipi di spese di spedizione. Cioè:

posso utilizzare x spedire un pacco in "Posta Raccomandata" se non supero la spesa di spedizione max di "10 euro" altrimenti uso la posta "celere 3" che mi costa sempre, qualsiasi cosa compro, 10 euro o la "posta celere1" che costa sempre 13 euro.

I numeri sono:
- se compro un cappellino la spesa di spedizione mi costa 4,50 euro
- 2 cappellini 6,50 cioè (4,50 + 2 = 6,50) x ogni oggetto aggiuntivo aggiungo 2 €.
- 3 cappellinni 8,50 (4,50+2+2)
- 4 cappellini 10,50 ma non posso + spedirli con la posta raccomandata xchè il max è di 10 euro allora utilizzo la posta celere che mi costa 10 € o 13€ anche se compro 100 cappellini.

invece
6,50 è la spesa di spediz. x una felpa
8,50 è la spese di spediz. x una giacca.

Queste condizioni sono valide finchè non si fa un acquisto di prodotti del valore di 400€ (è il costo del prodotto non è la spesa di spedizione) allora non faccio + selezionare la spesa di spedizione ma faccio contattare il negozio x stabilire il da farsi.

Pier

[Mems]

Chiaro, però quei numeri buttati li in mezzo al codice mi sa che ti generano errore...

[Pierhagi]

allora ci sono degli errori nel codice

ResultSet("SpeseSpedizione") dovrebbe essere così e i numeri dovrebbero passare una alla volta in un:

WHILE NOT ResultSet.EOF

x ogni campo.

Quindi io qui mi fermo xchè non riesco a capire.

Pier

[Mems]

Manco io riesco a capire.
Mi spiace.