Proyecto: Foro en ASP

[HPNeo]

Ok, no hay problema.
Aqui estaba haciendo un instalador, quizas sirva:

Código:

<%
admin=Request.Form("txtnickadmin") 'nick del administrador
emailadmin=Request.Form("txtemailadmin") 'email del administrador
claveadmin=Request.Form("txtclaveadmin") 'contraseña del administrador
nadmin=Request.Form("txtnombreadmin") 'nombre real del administrador
ap1admin=Request.Form("txtapellido1admin") 'primer apellido del administrador
ap2admin=Request.Form("txtapellido2admin") 'segundo apellido del administrador
nempresa=Request.Form("txtnombrempresa") 'nombre de la empresa que usara el carrito
If admin="" Or emailadmin="" Or claveadmin="" Or nempresa="" Then 'Primer If de la pagina: si alguna de las variables esta vacia,
'se procede a mostrar el formulario de instalacion
%>
FORMULARIO DE INSTALACION
<%
Else 'Else del primer If de la pagina
%>
<%
Proceso de instalacion
Dim cinstal, sqlinst, rsinst
Set cinstal = Server.CreateObject("ADODB.Connection")
cinstal.Open "db"
sqlinst = "Insert Into Usuarios(nickusuario,nombreusuario,apellido1usuario,apellido2usuario,emailusuario,claveusuario,"
sqlinst = sqlinst&"admin) values ('"&admin&"','"&nadmin&"','"&ap1admin&"','"&ap2admin&"','"&emailadmin&"',"
sqlinst = sqlinst&"'"&claveadmin&"','Sí')"
Set rsinst = Server.CreateObject ("ADODB.RecordSet")
rsinst.Open sqlinst, cinstal
rsinst.Close
cinstal.Close
Set rsinst = Nothing
Set cinstal = Nothing
 
Dim fsoinst, fichinst, ruta, texto
ruta=request.ServerVariables("APPL_PHYSICAL_PATH")&"global.txt"
Set fsoinst = CreateObject("scripting.filesystemobject")
'creo el objeto TextSream
Set fichinst = fsoinst.OpenTextFile(ruta,8)
texto="<%"&Vbcrlf&"admin="&CHR(34)&admin&CHR(34)&Vbcrlf&"emailadmin="&CHR(34)&emailadmin&CHR(34)&Vbcrlf&"claveadmin="&CHR(34)&claveadmin&CHR(34)&Vbcrlf
texto=texto&"nempresa="&CHR(34)&nempresa&CHR(34)&Vbcrlf&"%"&">"
fichinst.Write(texto)
fichinst.Close()
%>
<%
End If 'End If del primer If de la pagina
%>

Espero sus respuestas