Caricamento dati da database

[funambolo]

Ciao ho un porblemino con un database.. ho dei prodotti che cambiano di prezzo a seconda della zona dove andranno spediti. Ho una pagina asp dove c'è un form in cui l'utente sceglie la zona dove verranno spediti i prodotti dopodiché viene inviato alla pagina "carrello" dove sceglierà il prodotto. Ecco lì si dovrebbero caricare i prezzi diversi a seconda della zona scelta, invece mi carica sempre gli stessi.. come devo fare?
Aiutatemi presto per favore!!!

[marco_c]

non funziona perchè hai sbagliato
se ci dai maggiori informazioni sul codice, sulla struttura del database, sul form eccetera magari possiamo anche dirti dove

[funambolo]

allora.. il database ha queste tabelle:
Acquisti (idacquisto,idprodotto,sessionid,oradiacquisto,qua ntità..)
Carrello (idacquisto, nomeprod,sessionid,oradiacquisto,quantità..)
Destinatari (iddestinatario,nome,cognome,indirizzo..)
Mercati (idmercato,mercato)
Nomi (idnome,nomeprod)
Prodotti (idprodotto, nomeprodotto,tipoprodotto,quantitadisp,mercato,pre zzo..)
Tipiprodotti (idtipo, tipoprodotto)
Utenti (idutente, nome, cognome, pin, password, email..)

-QUESTA E' LA PAGINA COL FORM- I COMANDI E IL FORM

<%

Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("xantonio.mdb")


function pulisci(parola)
parola = replace(parola, "'", "''")
parola = replace(parola, """", "''")
End function

action=request.querystring("action")
if action="Send" Then


dim nome, cognome, indirizzo, cap, stato, pin, password
nome=request.querystring("nome")
cognome=request.querystring("cognome")
indirizzo=request.querystring("indirizzo")
cap=request.querystring("cap")
stato=request.querystring("stato")
prezzario=request.querystring("prezzario")
citta=request.querystring("citta")


call pulisci(nome)
call pulisci(cognome)
call pulisci(indirizzo)
call pulisci(citta)
call pulisci(cap)
call pulisci(stato)




registra="INSERT INTO destinatari ( [nome], [cognome], [indirizzo], [citta], [stato], [cap], [referer], [prezzario]) VALUES( '"+nome+"', '"+cognome+"', '"+indirizzo+"', '"+citta+"', '"+stato+"', '"+cap+"', " & request.querystring("idutente") & ", " & prezzario & ");"

response.write(registra)& "
"
on error resume next
set rs=conn.execute(registra)

if err.number=0 and (nome<>"" and cognome<>"" and indirizzo<>"" and citta<>"" and stato<>"" and cap<>"") Then



set leggidest=conn.execute("select iddestinatario from destinatari where ((referer)=" & request.querystring("idutente") & " AND (indirizzo)='" & indirizzo & "')")
if not (leggidest.eof and leggidest.bof) Then response.redirect("select.asp?iddest=" & leggidest("iddestinatario"))



Else
response.redirect ("errore2.asp?id=" & request.querystring("idutente"))
End if
On error goto 0

End if



%>


<select name="prezzario">
<option value="1" selected>Spedizione in Italia / Italy</option>
<option value="2">Spedizione in Europa / Europe</option>
<option value="3">Spedizione in America, Asia, Africa, Oceania</option>
</select>


-QUESTA E' LA PAGINA SELECT-

<%


Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("xantonio.mdb")


function pulisci(parola)
parola = replace(parola, "'", "''")
parola = replace(parola, """", "''")
End function


dim idtipo, mercato
idtipo=request.querystring("prod")
mercato=request.querystring("mercato")

iddest=request.querystring("iddest")
session("iddest") = iddest

set login=conn.execute("select * from [destinatari] where ((iddestinatario)=" & iddest & ");")

mercato=login("prezzario")


wherestring="WHERE ((mercati.idmercato)=" & mercato & ") order by tipoprodotto, nomeprod, prezzolire;"
set listaprod=conn.execute("SELECT prodotti.idprodotto, nomi.nomeprod, tipiprodotti.tipoprodotto, prodotti.idtipo, prodotti.quantdisp, prodotti.Prezzo, mercati.mercato, prodotti.note FROM mercati INNER JOIN (nomi INNER JOIN (tipiprodotti INNER JOIN prodotti ON tipiprodotti.idtipo = prodotti.idtipo) ON nomi.idnome = prodotti.idnome) ON mercati.idmercato = prodotti.idmercato " & wherestring & "")

if listaprod.eof and listaprod.bof Then
errmsg="Nessun prodotto in questa categoria"
Response.Write vbCrLf & "<SCRIPT LANGUAGE=JavaScript>" & vbCrLf _
& "alert(""" & errMsg & """)" & vbCrLf _
& "top.location.href=""/index.asp""</SCRIPT>" & vbCrLf

Response.end
End if

%>

<% do while not listaprod.eof
vedimercato=listaprod("mercato")
if idtipo=2 and mercato=2 Then vedimercato="Spagna"

dim num
num=listaprod("quantdisp")

select case num
case 11
nomencla=" 1 anno year"
case 22
nomencla=" 2 anni years"
case 33
nomencla=" 3 anni years"
Case 6
nomencla=" 1 anno year"
case 12
nomencla=" 2 anni years"
case 18
nomencla=" 3 anni years"
Case else
nomencla=""
End select
nomencla=nomencla & "
"
%>
<form action="carrello.asp">
<input type="hidden" name="idprod" value="<%=listaprod("idprodotto")%>">
<input type="hidden" name="iddestinatario" value="<%=request.querystring("iddest")%>">
<input type="hidden" name="action" value="inserisci">
<tr align="center" valign="middle" bordercolor="#999999" bgcolor="#FFFFFF">
<td valign="middle">
<div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FF6600"><%=listaprod("nomeprod")%></font></div>
</td>
<td valign="middle">
<div align="center"><font color="#FF6600" face="Verdana, Arial, Helvetica, sans-serif" size="2">[b]<%=listaprod("tipoprodotto")%>

<font color="#000099"><%=nomencla%></font>

<% idtip=listaprod("idtipo")
Select case idtip
Case 5
%>



QUESTE DOVREBBERO ESSERE LE PARTI ESSENZIALI DELLE DUE PAGINE.. SE NON DOVESSERO BASTARE LE INVIEREI IN ALLEGATO, MA POSSO MANDARNE UNA ALLA VOLTA MI SEMBRA DI AVER CAPITO E NON SONO SICURO CHE I FILE ASP SIANO TRA LE ESTENSIONI VALIDE, ALMENO A QUANTO C'E' SCRITTO QUI... GRAZIE PER L'AIUTO!!! le due pagine si chiamano sped.asp (dove c'è il form dove decidere la zona in cui spedire i prodotti) e select.asp, ho scritto tutto maiuscolo, solo perché mi era rimasto il caps lock attivato.. ops..