Asp ODBC Bağlantı Kurma

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open "DSNNAME","kullanici","sifre"

OraCommandStr = "select sysdate from dual"
Set objRS = Conn.Execute(OraCommandStr)
response.write ("sysdate is " & objRS.fields("sysdate").value)
objRS.close
Set objRS=nothing
Set Conn=nothing

%>

sql = "select sysdate from dual"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open  sql, Conn
adi = objRS.Fields("adi")