How to connect to database by using DNS?

If you have already created a DNS in the ODBC, you can also use it with the ADO connection:

<%

Set conn = Server.CreateObject("Adodb.Connection")

conn.Open "ASP"

' The "ASP" is the DSN name in the web server.

%>