crear dsn desde una pagina asp.

[MIIGLESI]

ok te pongo el codigo completo de como creo un dsn de archivo, una base de datos, una tabla y ademas inserto datos en esa tabla. Es probao y funciona. todn en sqlserver
un saludo

<%
'Creamos el objeto FileSystem para trabajar con archivos.
dim MM_general_STRING
dim MM_STRING

MM_general_STRING="filedsn=general.dsn"
MM_STRING="filedsn=bda28292212.dsn"

call base_datos()
call creafichero()
call cargadatos()
call muestra_datos()

Sub creafichero()
Set fs = CreateObject("Scripting.FileSystemObject")
if fs.FileExists ("C:\Archivos de programa\Archivos comunes\ODBC\Data Sources\bda28292212.dsn") then
response.write ("Eres un torpedo")
else
Set arch = fs.CreateTextFile ("C:\Archivos de programa\Archivos comunes\ODBC\Data Sources\bda28292212.dsn", True )
arch.WriteLine("[ODBC]")
arch.WriteLine("DRIVER=SQL Server")
arch.WriteLine("UID=Administrador")
arch.WriteLine("Trusted_Connection=Yes")
arch.WriteLine("Network=DBNMPNTW")
arch.WriteLine("DATABASE=bda28292212")
arch.WriteLine("WSID=IVAN")
arch.WriteLine("APP=Microsoft Office XP")
arch.WriteLine("SERVER=IVAN")
end if
end sub

sub base_datos()
set Recordset1 = Server.CreateObject("ADODB.Command")
Recordset1.ActiveConnection = MM_general_STRING
Recordset1.CommandText = "CREATE DATABASE bda28292212"
Recordset1.CommandType = 1
Recordset1.CommandTimeout = 0
Recordset1.Prepared = true
Recordset1.Execute()
end sub
Sub cargadatos()
set Recordset1 = Server.CreateObject("ADODB.Command")
Recordset1.ActiveConnection = MM_STRING
Recordset1.CommandText = "CREATE TABLE pepe(id int identity(1,1), nombre nvarchar(50), primary key (id))"
Recordset1.CommandType = 1
Recordset1.CommandTimeout = 0
Recordset1.Prepared = true
Recordset1.Execute()
dim i
i=0
for i=0 to 10 step 1
if("potopto_" <> "") then Command1__paco = "potopto_"&cstr(i)

set Command1 = Server.CreateObject("ADODB.Command")
Command1.ActiveConnection = MM_STRING
Command1.CommandText = "INSERT INTO dbo.pepe (nombre) VALUES ('" + Replace(Command1__paco, "'", "''") + "' ) "
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
Command1.Execute()
response.Write(i)
next
End Sub

sub muestra_datos()
Dim Recordset2
Dim Recordset2_numRows

Set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = MM_STRING
Recordset2.Source = "SELECT * FROM dbo.pepe"
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 1
Recordset2.Open()

Recordset2_numRows = 0

while not Recordset2.eof
response.Write((Recordset2.Fields.Item("nombre").V alue)&"<br>")
Recordset2.movenext
wend
Recordset2.Close()
Set Recordset2 = Nothing
end Sub
%>