arkadaşlar önceki hazırladığım sitelerde çalışan bir kodu yeni yaptığım sitede çalıştaramadım. gözümden kaçan bir şey mi var acaba? bakabilir misiniz?

<%
Set Sur = Server.CreateObject("ADODB.Connection")
Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../veritabanim/veritabani.mdb")
%>

<% Set WM = Sur.Execute("SELECT * FROM fotograflar order by yer asc") %>
    <select name="yer" size="1" id="yer" style="font-family: Verdana ; font-size: 12pt">
    <% Do While Not WM.eof %>
        <option value="<%=WM("yer")%>"><%=WM("yer")%></option>
        <% WM.Movenext 
		Loop %>
    </select>

kodu çalıştırdığımda yer ismi görünmüyor ama kodlara baktığımda value= kısmında görünüyor. anlayamadım sebebini.