Leer fichero ini

[mazingerz]

Creo que las tres teorias no le sirvieron mucho, me pasa a mi que cuando busco ayuda aca, muchos expertos (como ustedes) se rien de los que sabemos menos, pero en fin...
Amigo Pitxulin aca va lo del Ini o leer un archivo ascii
<%
Dim ObjIni 'Defino un Object
Dim File 'Defino path y nombre de archivo a leer
Dim ActiveFile 'Aca quedara el Archivo Activo "ascii.INI"
'Un par de variables para guardar el string del INI
Dim Str_Database 'Database
Dim Str_Server 'Server SQL Server

set ObjIni = createobject("scripting.filesystemobject")
File = server.mappath("ini/Config.Ini")
If ObjIni.FileExists(File) Then 'Verifico que el Archivo Exista
set ActiveFile = ObjIni.opentextfile(File) 'Abro el Archivo
Str_DataBase = ActiveFile.Readline 'Asigno el primer registro del Archivo
Str_Server = ActiveFile.Readline 'Asigna la linea siguiente a una variable
ActiveFile.close 'Cierro
Response.Write ("Database=" & Str_Database & " Server=" & Str_Server)

else
Response.Write ("No se encontro el Archivo.... )
End If

set ObjIni = nothing

%>

espero que te sirva, yo andaba buscando esto en maestros delweb y no lo encontre
Saludos.......