Hur ska jag ändra till ewebcity?

Detta funkar ju inte till ewebcity...någon som vet hur jag ska ändra?

<%
Fagel = Request.Querystring(\"Fagel\")

Set MinCon = Server.CreateObject(\"ADODB.Connection\")
Set rs = Server.CreateObject(\"ADODB.Recordset\")
MinCon.Open \"DSN=roger1;UID=;PWD=\"
SQL = \"SELECT * From Fåglar WHERE Fågel = \'\" & Fagel & \"\'\"

rs.Open SQL, MinCon


If rs(\"Flyttfågel\") Then
flytt = \"Ja\"
Else
flytt = \"Nej\"
End If

%>