Cookies

<option value="Glad" <% if request.cookies("didjocomhumor")("humor") = "Glad" then response.write "selected" %>>Glad</option>

Så får du göra på alla options. :)

<SELECT name="humor">
<%  
if request.cookies("didjocomhumor")("humor")  = "Glad" then
%>
<option value="Glad" selected >Glad</option>
<%
else
%>
<option value="Glad" >Glad</option>
<%
end if
%>
<%  
if request.cookies("didjocomhumor")("humor")  = "Ledsen" then
%>
<option value="Ledsen" selected >Ledsen</option>
<%
else
%>
<option value="Ledsen">Ledsen</option>
<%
end if
%>

<%  
if request.cookies("didjocomhumor")("humor")  = "Arg" then
%>
<option value="Arg" selected >Arg</option>
<%
else
%>
<option value="Arg">Arg</option>
<%
end if
%>

<%  
if request.cookies("didjocomhumor")("humor")  = "Flummig" then
%>
<option value="Flummig" selected >Flummig</option>
<%
else
%>
<option value="Flummig">Flummig</option>
<%
end if
%>
        </SELECT>

tackar! Men hur gör man för att slumpa en av dessa istället?

Går det att göra så? Att slumpa fram en?

Går det att slumpa fram en selected? Isåfall hur?

Det är klart att det går. Varför skulle det inte gå?

Du har givetvis använt tiden till att söka lite?

vad ska man söka på??

Om man använder sin fantasi kanske man kan komma på att söka på slumpa ord, och då kan man komma till denna tråd. Det man lär sig där kan man använda till sitt ändamål, genom att använda slumpat ord i en variabel, istället för värdet som lästs från cookien.

Fantasi och sökmotor löser många problem. ;)

jag hade sökt och jag hittade inge! Sorry...

Vill inte göra dig bortskämd, men jag har ju inget att göra. ;)

<select name="humor">
<%
arrHumor = Array("Glad", "Ledsen", "Arg", "Flummig")
Randomize
intSlump = Int(Rnd * UBound(arrHumor)) + 1

For i = 0 To UBound(arrHumor)
  If i = intSlump Then
    Response.Write("<option value=""" & arrHumor(i) & """ selected></option>" & vbCrLf)
  Else
    Response.Write("<option value=""" & arrHumor(i) & """></option>" & vbCrLf)
  End If
Next
%>
</select>

hehe! Tackar! Tackar @nders iaf! :birp! Hajjade inte koden i den länk jag fick av dig

nehep! Nu kom inget upp i rutan!

Hehe, megafel av mig.

<select name="humor">
<%
arrHumor = Array("Glad", "Ledsen", "Arg", "Flummig")
Randomize
intSlump = Int(Rnd * UBound(arrHumor)) + 1

For i = 0 To UBound(arrHumor)
  If i = intSlump Then
    Response.Write("<option value=""" & arrHumor(i) & """ selected>" & arrHumor(i) & "</option>" & vbCrLf)
  Else
    Response.Write("<option value=""" & arrHumor(i) & """>" & arrHumor(i) & "</option>" & vbCrLf)
  End If
Next
%>
</select>

hähä tufft! tackar tackar :birp !