Menu a tendina

**Alyssa** · 20-09-2005, 16:09

è un idea molto cretina?

**lufo5** · 20-09-2005, 16:10

nessuna idea è cretina.. bisogna vedere se è utile e ti serve... io sopra ti ho fatto un esempio.

**Alyssa** · 20-09-2005, 16:15

Questo somiglia al tuo con recordset ma non funzia

<select name="durata" id="select6" title="<%=(Recordset1.Fields.Item("distanzagen").V alue)%>">
<option value="%" <%If (Not isNull((Recordset1.Fields.Item("distanzagen").Valu e))) Then If ("%" = CStr((Recordset1.Fields.Item("distanzagen").Value) )) Then Response.Write("SELECTED") : Response.Write("")%>>Qualsiasi</option>
<option value="7 giorni" <%If (Not isNull((Recordset1.Fields.Item("distanzagen").Valu e))) Then If ("7 giorni" = CStr((Recordset1.Fields.Item("distanzagen").Value) )) Then Response.Write("SELECTED") : Response.Write("")%>>7 giorni</option>
<option value="14 giorni" <%If (Not isNull((Recordset1.Fields.Item("distanzagen").Valu e))) Then If ("14 giorni" = CStr((Recordset1.Fields.Item("distanzagen").Value) )) Then Response.Write("SELECTED") : Response.Write("")%>>14 giorni</option>
</select>

**lufo5** · 20-09-2005, 16:19

alyssa... ma a te che serve?

posta il codice della tua pagina, non codice preso da chissà quale esempio.

**Alyssa** · 20-09-2005, 16:25

è il mio codice, l'ho modificato pensando che col recordset viene meglio

prima pagina codice

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_sardinia_STRING
Recordset1.Source = "SELECT * FROM DISTANZAMARE"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Documento senza titolo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="sardinian.css" rel="stylesheet" type="text/css">
</head>

<body>
<form name="form1" method="post" action="case_vacanze_ris.asp">
<table width="450" border="1" cellpadding="5" cellspacing="0" bordercolor="#FFCC00">
<tr>
<td width="102" class="sardinian">Tipologia</td>
<td width="322"><select name="tipologia" id="tipologia">
<option value="%">Tutte</option>
<option value="b&b">B&B</option>
<option value="albergo">albergo</option>
<option value="ostello">ostello</option>
</select></td>
</tr>
<tr>
<td class="sardinian">Distanza mare mt. </td>
<td><select name="distanzagen" id="distanzagen">
<%
While (NOT Recordset1.EOF)
%>
<option value="<%=(Recordset1.Fields.Item("valore").Value) %>"><%=(Recordset1.Fields.Item("distanza").Value)% ></option>
<%
Recordset1.MoveNext()
Wend
If (Recordset1.CursorType > 0) Then
Recordset1.MoveFirst
Else
Recordset1.Requery
End If
%>
</select></td>
</tr>
<tr>
<td colspan="2"><input type="submit" name="Submit" value="Invia"></td>
</tr>
</table>
</form>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>

seconda pagina
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Request.QueryString("id") <> "") Then
Recordset1__MMColParam = Request.QueryString("id")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_sardinia_STRING
Recordset1.Source = "SELECT * FROM CASEMARE WHERE id = " + Replace(Recordset1__MMColParam, "'", "''") + " ORDER BY id DESC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<%
Dim Recordset2
Dim Recordset2_numRows

Set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = MM_sardinia_STRING
Recordset2.Source = "SELECT * FROM DISTANZAMARE"
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 1
Recordset2.Open()

Recordset2_numRows = 0
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Documento senza titolo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="sardinian.css" rel="stylesheet" type="text/css">
<style type="text/css">

</style>
</head>

<body>
<form name="form1">
<table width="100%" border="1" cellpadding="5" cellspacing="0" bordercolor="#FF9900">
<tr class="grassettored">
<td colspan="2" class="grassetto">CONFERMA</td>
</tr>
<tr class="grassettored">
<td width="33%" class="grassetto">Tipologia</td>
<td width="67%"><input name="tipologia" type="text" id="tipologia" value="<%=(Recordset1.Fields.Item("tipologia").Val ue)%>" size="40"></td>
</tr>
<tr class="grassettored">
<td class="grassetto">Distanza mare generica </td>

<td><select name="distanzamaregen" id="select2" title="<%=(Recordset1.Fields.Item("distanzagen").V alue)%>">
<%
While (NOT Recordset2.EOF)
%>
<option value="<%=(Recordset2.Fields.Item("valore").Value) %>" <%If (Not isNull((Recordset1.Fields.Item("distanzagen").Valu e))) Then If (CStr(Recordset2.Fields.Item("valore").Value) = CStr((Recordset1.Fields.Item("distanzagen").Value) )) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(Recordset2.Fields.Item("distanza").Value)%> </option>
<%
Recordset2.MoveNext()
Wend
If (Recordset2.CursorType > 0) Then
Recordset2.MoveFirst
Else
Recordset2.Requery
End If
%>
</select></td>
</tr>
<tr class="grassettored">
<td colspan="2"><input type="submit" name="Submit" value="Invia"> </td>
</tr>
</table>
</form>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
Recordset2.Close()
Set Recordset2 = Nothing
%>

**lufo5** · 20-09-2005, 16:33

vediamos eho capito, volevi questo nella seconda pagina?

codice:

seconda pagina 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
 
<% 
Dim Recordset1__MMColParam 
Recordset1__MMColParam = "1" 
If (Request.QueryString("id") <> "") Then 
Recordset1__MMColParam = Request.QueryString("id") 
End If 
%> 
<% 
Dim Recordset1 
Dim Recordset1_numRows 

Set Recordset1 = Server.CreateObject("ADODB.Recordset") 
Recordset1.ActiveConnection = MM_sardinia_STRING 
Recordset1.Source = "SELECT * FROM CASEMARE WHERE id = " + Replace(Recordset1__MMColParam, "'", "''") + " ORDER BY id DESC" 
Recordset1.CursorType = 0 
Recordset1.CursorLocation = 2 
Recordset1.LockType = 1 
Recordset1.Open() 

Recordset1_numRows = 0 
%> 
<% 
Dim Recordset2 
Dim Recordset2_numRows 

Set Recordset2 = Server.CreateObject("ADODB.Recordset") 
Recordset2.ActiveConnection = MM_sardinia_STRING 
Recordset2.Source = "SELECT * FROM DISTANZAMARE" 
Recordset2.CursorType = 0 
Recordset2.CursorLocation = 2 
Recordset2.LockType = 1 
Recordset2.Open() 

Recordset2_numRows = 0 
%> 
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> 
<html> 
<head> 
<title>Documento senza titolo</title> 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> 
<link href="sardinian.css" rel="stylesheet" type="text/css"> 
<style type="text/css"> 
<!-- 
.Stile1 {color: #FF0000} 
--> 
</style> 
</head> 



<body> 
<form name="form1"> 
<table width="100%" border="1" cellpadding="5" cellspacing="0" bordercolor="#FF9900"> 
<tr class="grassettored"> 
<td colspan="2" class="grassetto">CONFERMA</td> 
</tr> 
<tr class="grassettored"> 
<td width="33%" class="grassetto">Tipologia</td> 

<td width="67%">
<select name="tipologia" id="tipologia"> 
<option value="%" <% if trim(Recordset1.Fields.Item("tipologia").Value) = "%" then response.write(" selected") %>>Tutte</option> 
<option value="b&b" <% if trim(Recordset1.Fields.Item("tipologia").Value) = "b&b" then response.write(" selected") %>>B&B</option> 
<option value="albergo" <% if trim(Recordset1.Fields.Item("tipologia").Value) = "albergo" then response.write(" selected") %>>albergo</option> 
<option value="ostello" <% if trim(Recordset1.Fields.Item("tipologia").Value) = "ostello" then response.write(" selected") %>>ostello</option> 
</select>
</tr> 
 

<tr class="grassettored"> 
<td class="grassetto">Distanza mare generica </td> 

<td><select name="distanzamaregen" id="select2" title="<%=(Recordset1.Fields.Item("distanzagen").Value)%>"> 
<% 
While (NOT Recordset2.EOF) 
%> 
<option value="<%=(Recordset2.Fields.Item("valore").Value)%>" <%If (Not isNull((Recordset1.Fields.Item("distanzagen").Value))) Then If (CStr(Recordset2.Fields.Item("valore").Value) = CStr((Recordset1.Fields.Item("distanzagen").Value))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(Recordset2.Fields.Item("distanza").Value)%></option> 
<% 
Recordset2.MoveNext() 
Wend 
If (Recordset2.CursorType > 0) Then 
Recordset2.MoveFirst 
Else 
Recordset2.Requery 
End If 
%> 
</select></td> 
</tr> 
<tr class="grassettored"> 
<td colspan="2"><input type="submit" name="Submit" value="Invia"> </td> 
</tr> 
</table> 
</form> 
</body> 
</html> 
<% 
Recordset1.Close() 
Set Recordset1 = Nothing 
%> 
<% 
Recordset2.Close() 
Set Recordset2 = Nothing 
%>

**Alyssa** · 20-09-2005, 16:51

ESATTO!!! SMACK SMAK sei un tesoro

**lufo5** · 20-09-2005, 16:52

dicono tutte così.. po mi conoscono e cambiano idea.

**Alyssa** · 20-09-2005, 16:53

rettifico ma i baci te li lascio, mi da sempre b&b anche se seleziono albergo

**lufo5** · 20-09-2005, 16:55

evidentemente in Recordset1.Fields.Item("tipologia").Value c'è un valore che non corrisponde a quanto previsto.
ma qui non posso più aiutarti...

Discussione: Menu a tendina

Strumenti discussione

Ricerca discussione

Visualizza

Permessi di invio