script regioni recupero valori

[Pierhagi]

Ciao

conoscete questo script che visualizza le regiorni, provincie e comuni?:

http://script-asp.blogspot.com/2009/...-popolare.html

Ho inserito con successo questo script in un mio modulo di inserimento dati in db.

Visualizzo correttamente i valori delle regiorni, provincie e comuni nelle 3 select ma non riesco a recuperare ad esempio il valore selezionato nella select regioni x passarlo a:

regione=request.form("REGIONE")

x poi inserlo nel db.

Le altre select che ho nel modulo funzionano e scrivo i rispettivi valori nel db ma quelle delle regioni, credo xchè in ajax, non recupero il valore.

Potete aiutarmi?

[Pierhagi]

Ciao

ho sbagliato non centra niente ajax.

Non mi passa i valori della SQL.

Avendo questo codice:

<select name="id_regione" id="id_regione" onchange="cerca_province();"> 
  <option value="0">Seleziona Regione</option>
  <option></option>
  
SQL = "Select * From regioni"

  <option value="<%=rs("id_regione")%>"><%=rs("regione")%></option>

recupero correttamento l'id_regione ma non il valore regione dopo aver selezionato dalla select.

Riesco a recuperarli tutti e due i valori solamente se faccio così:

<option value="<%=rs("id_regione")%> & <%=rs("regione")%>" ><%=rs("regione")%></option>

ma alla fine il doppio valore mi va a finire nel campo id_regione:

id_regione: 8 & Liguria

non facendomi scrivere il valore nel db xchè il sistema non lo vede + come numerico avendoanche:

& Liguria

Potete auitarmi?

[Grambo]

scusa ma se indichi come valore l'id della regione perchè mai il programma dovrebbe restituirti il nome della regione ?
perchè non recuperi l'id e poi vai a recuperare il nome della regione nel db .. oppure salvi il nome della regioine in un campo testo nascosto .. oppure assegni al value <%=rs("id_regione")%> & <%=rs("regione")%> come hai fatto te e quando vai a recuperarli splitti per "&" così te li ritrovi in un array?

[Pierhagi]

stavo provando con lo split. Ho provato ma non va:

<option value="<%=rs("id_regione")%> & <%=rs("regione")%>" ><%=rs("regione")%></option>

Split [id_regione,&]
Response.Write id_regione

[Grambo]

prova usando lo split correttamente

http://www.aspisfun.com/functions/string/split.html

[Pierhagi]

ho provato così:

With Response  NameStr = id_regione Dim WordArray  WordArray = Split(NameStr, "&")  .Write WordArray(0) .Write WordArray(1)  end if

ma da questo:

id_regione: 8&Liguria

mi da questo:

8Liguria

...mi viene da piangere!

Ho provato anche a recuperare il valore richiamando una seconda sql ma non sono in grado!

[Grambo]

ma è giusto

se gli dici di scrivere

.Write WordArray(0) .Write WordArray(1)

lui scrive

8Liguria

perchè

WordArray(0)=8
WordArray(1)=Liguria

cosa c'è che non capisci?

ora se ti interessa l'id prenderai solo WordArray(0)
se ti serve il nome prenderai solo WordArray(1)

in pratica hai i valori che ti servono, ora non so cosa devi farci

[Pierhagi]

ok sono riuscito ad impostare le variabili e scrivere nel db.

Ora appena richiamo la pagina mi da questo:

Microsoft VBScript runtime error '800a0009'  Subscript out of range: '[number: 1]'

che mi appare se non seleziono nessun valore nella select regioni.

Se seleziono una regione scompare.

Il codice che ho ora è così:

NameStr = id_regione

Dim WordArray

WordArray = Split(NameStr, "&")

.Write "WordArray(0):" & WordArray(0) & "
"
.Write "WordArray(1):" & WordArray(1) & "
"

id_regione = WordArray(0)
regione = WordArray(1)

Ho provato a fare anche così:

if regione = "" then regione = 0 end if
oppure

if WordArray(1) = "" then WordArray(1) = 0 end if

ma non va!

[Grambo]

se non selezioni nulla la variabile
NameStr sarà ="0"

qundi ti basta fare un controllo su questa variabile

ovvero se NameStr<>"0" fai
..
la procedura vista prima
...
altrimenti
...
fagli fare ciò che vuoi
...
end if

[Pierhagi]

scusami ancora ma c'è qlc che sbaglio!

Facendo così:

NameStr = id_regione


Dim WordArray

WordArray = Split(NameStr, "&")


if NameStr <> "" then
.Write "WordArray(0):" & WordArray(0) & "
"
else
.Write "WordArray(0) NON VALORIZZATO:"& "
"
end if

if NameStr <> "" then
.Write "WordArray(1):" & WordArray(1) & "
"
else
.Write "WordArray(1) NON VALORIZZATO:"& "
"
end if

'.Write "WordArray(0):" & WordArray(0) & "
"
'.Write "WordArray(1):" & WordArray(1) & "
"

		id_regione = WordArray(0)
		regione = WordArray(1)

il problema ricade su queste dichiarazioni:

		id_regione = WordArray(0)
		regione = WordArray(1)