¿Cómo conectarse a una base de datos de Sql Server 2000 desde ASP?

[neivan]

Vamos haber,con lo que te he puesto te deberia hacer la conexion sin poner ni ip ni dada ya que esta en tu ordenador,y lo que esta dentro d elas comillas dobles no llebha comillas simples , y por supuesto hay otra forma de conectar con la bd aunque lo que me has puesto de Microsoft.Jet.OLEDB.4.0; es para access,.
yo tengo por ejemplo otra forma pora conectar con sql server que es en la conection string="Data source =servidor;Initial catalog=mibd;User Id=usuario;password=mipass"

Yo tengo mi conexion a sql server 2000 puesta como te he puesto al principio,me funciona perfectamente y la funcion conexion devuelve la conexion para cuando la kieras utilizar y cuando tienes mucho codigo es mejor organizarlo en funciones y metodos que dejaran tu codigo mas facil de entender:

Ejemplo con un dataset y un enlace a una lista desplegable
dim cn as System.Data.SqlClient.SqlConnection
cn=conexion()
cn.open()
dim ds as System.data.Dataset
ds=new System.data.Dataset
dim adap as System.Data.SqlClient.SqldataAdapter
adap=new System.Data.SqlClient.SqlDataAdapter("Select * from EMPRESAS",cn)
adap.Fill(ds,"TEMPRESAS")
dropdowlist1.datasource=ds.tables("TEPRESAS")
.....
cn.close
Otro ejemplo seria una insercion:
dim cn as System.Data.SqlClient.SqlConnection
cn=conexion()
cn.open()
DIM cmd AS System.Data.SqlClient.SqlCommand
cmd = New System.Data.SqlClient.sQLCommand()
cmd.CommandText = "INSERT INTO ALUMNOS VALUES (@p1,@p2,@p3,@p4,@p5,@p6,@p7,@p8,@p9,@p10,@p11)"
cmd.Parameters.Add("@p1", txtDni.text)
cmd.Parameters.Add("@p2", txtapellidos.Text)
cmd.Parameters.Add("@p3", txtnombre.Text)
cmd.Parameters.Add("@p4", txtDomicilio.Text)
cmd.Parameters.Add("@p5", ponernulos(txtcp.Text))
cmd.Parameters.Add("@p6", txtMunicipio.Text)
cmd.Parameters.Add("@p7", ponernulos(txttelefono1.Text))
cmd.Parameters.Add("@p8", ponernulos(txttelefono2.Text))
cmd.Parameters.Add("@p9", txtemail.Text)
cmd.Parameters.Add("@p10", txtfechanac.Text)
cmd.Parameters.Add("@p11", txtNivel.Text)
cmd.Connection = cn
'con control de errores
Try
N=cmd.ExecuteNonQuery()
label10.visible=true
label10.text="Alta realizada"
Catch ex As Exception
label10.visible=true
Label10.Text = ex.Message & EX.ERROR
End Try


Esto que te pongo lo tengo yo en mi codigo,como la funcion coexion q te he pasado antes.Haber si haces una prueba y te funciona.