bu hatayı nasıl düzeltebilirim asp

 <br>
    <font face="Verdana, Arial, Helvetica, sans-serif" size="2">Kategori Seçiniz:</font> 
    <select name="mainID">
      <%
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
    
Conn.Open dsn1   ------->line 63 burası
    
SQL = "SELECT * from topics "
    
rs.Open SQL, Conn
do while not rs.eof%>
      <option value="<%=rs("id")%>"><%=rs("topicName")%></option>
      <%
rs.movenext
loop
%>
    </select>
    <br clear="all">
    <br>