Primero inicializamos la cadena de conexión con la base de datos que se llama
codigofuenteya (ya está creada en este sitio) y luego llamamos al método open:
set conexion = Server.CreateObject("ADODB.Connection")
conexion.ConnectionString = "Provider=SQLOLEDB.1;" & _
"Data Source=.;" & _
"Integrated Security=SSPI;" & _
"Initial Catalog=codigofuenteya"
conexion.Open
Verificamos si existe la tabla usuarios en la base de datos codigofuenteya (puede
que otro usuario la haya creado anteriormente), si existe procedemos a borrarla
con el comando drop:
conexion.execute("if object_id('usuarios') is not null drop table usuarios;")
Ahora creamos la tabla usuarios:
conexion.execute(" create table usuarios ( nombre varchar(30)," & _
" clave varchar(10)" & _
" )")
Insertamos una serie de registros en la tabla:
conexion.execute("insert into usuarios(nombre,clave)" & _
"values ('juan','123')")
conexion.execute("insert into usuarios(nombre,clave)" & _
"values ('ana','abc')")
conexion.execute("insert into usuarios(nombre,clave)" & _
"values ('carlos','zxy')")
Procedemos a mostrar los datos previamente cargados, creando un
objeto de tipo ADODB.RecordSet:
dim registros
set registros = Server.CreateObject("ADODB.RecordSet")
registros.open "select nombre,clave from usuarios",conexion
do while not registros.eof
response.write("Nombre:" & registros("nombre"))
response.write("<br>")
response.write("Clave:" & registros("clave"))
response.write("<br>")
response.write("------------------------------------------------------------")
response.write("<br>")
registros.movenext
loop
Por último cerramos la conexión con la base de datos.