Contenuto di Option value

**Rob2002** · 17-11-2005, 21:31

Salve,
come faccio a prelevare cosa c'è scritto dentro un menu a tendina in un form?
Ho provato con:
<% response.write(request.form("nome del campo"))%>
ma non ottengo nessun valore.

Grazie

**viki1967** · 17-11-2005, 23:16

Cosa vuoi fare?

**Rob2002** · 18-11-2005, 11:06

Ho scaricato dal forum un db contenente Regioni, cap e comuni italiani. Da qui è possibile attivare i menu a tendina man mano che si effettuano le scelte; vi posto lo scrip:

<%response.Buffer = "true"%>
<%
dbType = 0
'sbSqlServer = "localhost"
'dbSqlCatalog = "ITALIA"

AccessDBPath = "ITALIA.mdb"

function idParentPath(valueID, byRef outArray)
query = "SELECT parentID FROM tblObjects WHERE objectID = " & valueID
set recordset = conn.execute(query)
if not recordset.eof then
parentValueID = recordset("parentID")
outArray = outArray & parentValueID
if not parentValueID = 0 then
outArray = outArray & " "
idParentPath parentValueID, outArray
end if
end if
end function

objectID = request.queryString("ID")
regione = request.form("regione")
regioneID = 0
provinciaID = 0
comuneID = 0
ricerca = request.form("ricerca")
stringRicerca = server.HTMLEncode(ricerca)

thisPage = request.serverVariables("PATH_INFO")
set conn = server.createObject("ADODB.Connection")

if dbType = 0 then
conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& server.mapPath(AccessDBPath)
elseIf dbType = 1 then
conn.open "Provider=sqloledb;Data Source=" & dbSqlServer & ";Initial Catalog=" & dbSqlCatalog & ";Integrated Security=SSPI;"
end if

if len(objectID) > 0 and isNumeric(objectID) then objectID = cLng(objectID): idParentPath objectID, arrID

if inStr(arrID," ") > 0 then arrID = split(arrID)

if isArray(arrID) then
if uBound(arrID) = 2 then
comuneID = objectID
regioneID = cLng(arrID(1))
provinciaID = cLng(arrID(0))
elseIf uBound(arrID) = 1 then
provinciaID = objectID
regioneID = cLng(arrID(0))
end if
else
regioneID = objectID
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Zona di appartenenza della Struttura</title>
<link rel="stylesheet" href="/links.css" type="text/css">
</head>
<body background="../img/bg_all.gif">
<p class="text">Indicare l'appartenenza della Struttura<font face="Verdana, Arial, Helvetica, sans-serif">
</font> </p>
<table class="text" width="299" border="1" cellpadding="0" cellspacing="0" bordercolor="#003366">
<tr>
<td class="text" ><form method="post" name="form1">

<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Regioni:
<select name="regione" class="text" onChange="document.location.href='<%=thisPage%>?ID ='+this.value;">
<option value="0">SELEZIONA</option>
<%
sql = "SELECT objectID, objectName FROM tblObjects WHERE parentID = 0 ORDER BY objectName"
set rs = conn.execute(sql)
if not rs.eof then
do until rs.eof
%>
<option value="<%=rs("objectID")%>"<% if rs("objectID") = regioneID then %> selected<% end if %>><%=rs("objectName")%></option>

<%
rs.moveNext
loop
end if
rs.close
set rs = nothing
%>
</select>
<% if regioneID > 0 then %>
<%
session("regione")=request.form("regione")

%>
regione:
<%

for each item in Request.Form
Response.write "
" & item & ": " & Request.Form(item)
next

%>
</font></p>

<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Province:
<select name="province" class="text" onChange="document.location.href='<%=thisPage%>?ID ='+this.value;">
<option value="<%=regioneID%>">SELEZIONA</option>
<%

sql = "SELECT objectID, objectName FROM tblObjects WHERE parentID = " & regioneID & " ORDER BY objectName"
set rs = conn.execute(sql)
if not rs.eof then
do until rs.eof
%>

<option value="<%=rs("objectID")%>"<% if rs("objectID") = provinciaID then %> selected<% end if %>><%=rs("objectName")%></option>
<%
rs.moveNext
loop
end if
rs.close
set rs = nothing
%>
</select>
<% end if %>
<% if provinciaID > 0 then %>
</font></p>

<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Comuni:
<select name="comuni" class="text" onChange="document.location.href='<%=thisPage%>?ID ='+this.value;">
<option value="<%=provinciaID%>">SELEZIONA</option>
<%
sql = "SELECT objectID, objectName FROM tblObjects WHERE parentID = " & provinciaID & " ORDER BY objectName"
set rs = conn.execute(sql)
if not rs.eof then
do until rs.eof
%>
<option value="<%=rs("objectID")%>"<% if rs("objectID") = comuneID then %> selected<% end if %>><%=rs("objectName")%></option>
<%
rs.moveNext
loop
end if
rs.close
set rs = nothing
%>
</select>
<% end if %>
</font></p>

<input name="txt" type="text" id="txt" value="pippo">
<font size="1" face="Verdana, Arial, Helvetica, sans-serif"> </font></p>
</form></td>
</tr>
</table>

<font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<%
if comuneID > 0 then
sql = "SELECT A.objectName AS X, B.objectShortName AS Y, A.objectCode AS Z " &_
"FROM tblObjects A " &_
"INNER JOIN tblObjects B " &_
"ON B.objectID = A.parentID " &_
"WHERE A.objectID = " & comuneID
set rs = conn.execute(sql)
if not rs.eof then
%>
<font size="2">Comune: <%=rs("X")%> (<%=rs("Y")%>) - CAP: <%=rs("Z")%>
<%

session("X") = rs("X")
session("Y") = rs("Y")
session("Z") = rs("Z")

end if
rs.close
set rs = nothing
end if
%>
<% if len(message) > 0 then response.write message %>
</body>
</html>
<%
conn.close
set conn = nothing
%>

*/*/*/*/*/*/*/*/*/*/*/*/
il problema è che non riesco ad intercettare il nome della regione e metterlo in una sessione.

Qualcuno può darmi una dritta?
Grazie

**Rob2002** · 18-11-2005, 11:13

OOhps! Vi posto quello non "inquinato" dai miei tentativi.

<%response.Buffer = "true"%>
<%
dbType = 0
AccessDBPath = "ITALIA.mdb"

function idParentPath(valueID, byRef outArray)
query = "SELECT parentID FROM tblObjects WHERE objectID = " & valueID
set recordset = conn.execute(query)
if not recordset.eof then
parentValueID = recordset("parentID")
outArray = outArray & parentValueID
if not parentValueID = 0 then
outArray = outArray & " "
idParentPath parentValueID, outArray
end if
end if
end function

objectID = request.queryString("ID")
regioneID = 0
provinciaID = 0
comuneID = 0
ricerca = request.form("ricerca")
stringRicerca = server.HTMLEncode(ricerca)

thisPage = request.serverVariables("PATH_INFO")
set conn = server.createObject("ADODB.Connection")

if dbType = 0 then
conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& server.mapPath(AccessDBPath)
end if

if len(objectID) > 0 and isNumeric(objectID) then objectID = cLng(objectID): idParentPath objectID, arrID

if inStr(arrID," ") > 0 then arrID = split(arrID)

if isArray(arrID) then
if uBound(arrID) = 2 then
comuneID = objectID
regioneID = cLng(arrID(1))
provinciaID = cLng(arrID(0))
elseIf uBound(arrID) = 1 then
provinciaID = objectID
regioneID = cLng(arrID(0))
end if
else
regioneID = objectID
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Zona di appartenenza della Struttura</title>
<link rel="stylesheet" href="/links.css" type="text/css">
</head>
<body background="../img/bg_all.gif">
<p class="text">Indicare l'appartenenza della Struttura<font face="Verdana, Arial, Helvetica, sans-serif">
</font> </p>
<table class="text" width="299" border="1" cellpadding="0" cellspacing="0" bordercolor="#003366">
<tr>
<td class="text" ><form method="post" name="form1">

<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Regioni:
<select name="regione" class="text" onChange="document.location.href='<%=thisPage%>?ID ='+this.value;">
<option value="0">SELEZIONA</option>
<%
sql = "SELECT objectID, objectName FROM tblObjects WHERE parentID = 0 ORDER BY objectName"
set rs = conn.execute(sql)
if not rs.eof then
do until rs.eof
%>
<option value="<%=rs("objectID")%>"<% if rs("objectID") = regioneID then %> selected<% end if %>><%=rs("objectName")%></option>

<%
rs.moveNext
loop
end if
rs.close
set rs = nothing
%>
</select>
<% if regioneID > 0 then %>
</font></p>

<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Province:
<select name="province" class="text" onChange="document.location.href='<%=thisPage%>?ID ='+this.value;">
<option value="<%=regioneID%>">SELEZIONA</option>
<%

sql = "SELECT objectID, objectName FROM tblObjects WHERE parentID = " & regioneID & " ORDER BY objectName"
set rs = conn.execute(sql)
if not rs.eof then
do until rs.eof
%>

<option value="<%=rs("objectID")%>"<% if rs("objectID") = provinciaID then %> selected<% end if %>><%=rs("objectName")%></option>
<%
rs.moveNext
loop
end if
rs.close
set rs = nothing
%>
</select>
<% end if %>
<% if provinciaID > 0 then %>
</font></p>

<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Comuni:
<select name="comuni" class="text" onChange="document.location.href='<%=thisPage%>?ID ='+this.value;">
<option value="<%=provinciaID%>">SELEZIONA</option>
<%
sql = "SELECT objectID, objectName FROM tblObjects WHERE parentID = " & provinciaID & " ORDER BY objectName"
set rs = conn.execute(sql)
if not rs.eof then
do until rs.eof
%>
<option value="<%=rs("objectID")%>"<% if rs("objectID") = comuneID then %> selected<% end if %>><%=rs("objectName")%></option>
<%
rs.moveNext
loop
end if
rs.close
set rs = nothing
%>
</select>
<% end if %>
</font></p>

<font size="1" face="Verdana, Arial, Helvetica, sans-serif"> </font></p>
</form></td>
</tr>
</table>

<font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<%
if comuneID > 0 then
sql = "SELECT A.objectName AS X, B.objectShortName AS Y, A.objectCode AS Z " &_
"FROM tblObjects A " &_
"INNER JOIN tblObjects B " &_
"ON B.objectID = A.parentID " &_
"WHERE A.objectID = " & comuneID
set rs = conn.execute(sql)
if not rs.eof then
%>
<font size="2">Comune: <%=rs("X")%> (<%=rs("Y")%>) - CAP: <%=rs("Z")%>
<%

session("X") = rs("X")
session("Y") = rs("Y")
session("Z") = rs("Z")

end if
rs.close
set rs = nothing
end if
%>
<% if len(message) > 0 then response.write message %>
</body>
</html>
<%
conn.close
set conn = nothing
%>

GRAZIE!

Discussione: Contenuto di Option value

Strumenti discussione

Ricerca discussione

Visualizza

Contenuto di Option value

Permessi di invio