<select name="ar" style="width:55">
<option value="">År
<%
Set Connect = Server.CreateObject("Adodb.Connection")
Connect.Open strCon
SQl = "Select * from ar Order By id"
Set ar = Connect.Execute(SQL)
Do Until ar.EOF %>
<option value="<%=ar("ar")%>"><%=ar("ar")%></option>
<%ar.MoveNext
Loop
%>
</select>
Jag skulle vilja att året 2005 är markerat från början.
Hur ska jag gå till väga?
<select name="ar" style="width:55">
<option value="">År
<%
Set Connect = Server.CreateObject("Adodb.Connection")
Connect.Open strCon
SQl = "Select * from ar Order By id"
Set ar = Connect.Execute(SQL)
dim yearcheck
Do Until ar.EOF
IF ar("ar") = year(now) THEN
yearcheck = " selected"
ELSE
yearcheck = ""
END IF
%>
<option<%=yearcheck%> value="<%=ar("ar")%>"><%=ar("ar")%></option>
<%ar.MoveNext
Loop
%>
</select>
Ska man jämföra saker och ting, så måste man se till att vara säker på att de prylar man jämför är av samma typ, därför måste man subtypskonvertera i jämförelsen.
IF Cint(ar("ar")) = year(now) THEN
yearcheck = " selected"
ELSE
yearcheck = ""
END IF
Jag har gjort en kalender som "markerar" (cellen 'väljer' en annan class) på År, Månad och Dag på tre olika ställen och jag använder inte cInt. Men huvudsaken var ju att det löste sig.
