Este ejemplo toma unos valores de una base de datos, solo te pongo la parte de la creacion del archivo de texto que se llama por cierto "config.txt"
Código:
on error resume next
set fso = createobject("scripting.filesystemobject")
Set act = fso.CreateTextFile(server.mappath("config.txt"), true)
act.WriteLine "<%"
act.WriteLine "pais="""&rs("pais")&""""
act.writeline "moneda="""&rs("moneda")&""""
act.writeline "idioma="""&rs("idioma")&""""
act.WriteLine "%" & ">"
act.Close