Todo lo que hacias antiguamente con Ultradev ahora lo incorpora DW. Es decir que puedes hacer la conexión con DNS.
No es que se estén acabando, sino que sólo funcionan con el equipo en el que se añade la nueva conexión, es decir que si creas una pág.asp y la subes a otro equipo diferente al tuyo, no podrás utilizarlo, una gran desventaja.
Por eso siempre resultará mejor crearlas sin DNS, ya que son nás eficientes.
Aquí tienes un ejemplo de un página que recoje los datos y los envía a una bd llamada mibasededatos.mdb
<body >
<%
If Request.Form <> "" Then
Dim DB, TBL
Set DB = Server.CreateObject("ADODB.Connection")
Set TBL = Server.CreateObject("ADODB.RecordSet")
DB.Mode = adModeReadWrite
DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("mibasededatos.mdb"))
TBL.Open "Afiliados" ,DB, 1, 2
TBL.AddNew
TBL("Nombre") = Request.Form("Nombre")
TBL("Apellido") = Request.Form("Apellido")
TBL("Pais") = Request.Form("Pais")
TBL.Update
TBL.Close
DB.Close
Set DB = Nothing
Set TBL = Nothing
Response.Write "Se a agregado con exito"
else
%>
<form name="form1" method="post" action="agregar.asp">
<p> Nombre
<input type="text" name="Nombre" maxlength="50">
</p>
<p> Apellido
<input type="text" name="Apellido" maxlength="50">
</p>
<p> Pais
<input type="text" name="Pais" maxlength="50">
</p>
<p>
<input type="submit" name="Submit" value="Enviar">
</p>
</form>
<%
End If
%>
</body>
Suerte, ya me contarás.