Showing Default Option

How do I display 'Please Select' as the default value my code is below.Code:

<option selected>Please select</option>
<%SQLStmt = "SELECT magcode FROM Magazine ORDER BY Magcode"
Set rsDistMags = Connection.Execute(SQLStmt)
Do WHILE NOT rsDistMags.EOF%>
<option value="<%=Trim(rsDistMags("magcode"))%>"<%If Request("magcode") = Trim(rsDistMags("magcode")) Then Response.Write " Selected" End If%>><%=Trim(rsDistMags("magcode"))%></option>
<%rsDistMags.MoveNext
Loop%>
</select>