Comunidad de diseño web y desarrollo en internet online

escribir un archivo con HTML en ASP

Citar            
MensajeEscrito el 04 Jun 2007 04:30 pm
Bueno, tengo una duda muy grande.. mas que duda. un problema.
no puedo escribir un archivo con texto html que es creado mediante un formulario.

Lo explico mejor.

el dueño del sitio, necesita administrar a sus clientes, y crear pra cada cliente una pagina a medida que ingresan clientes.
de acuerdo a cada cliente.. la pagina puede ser de color rojo.. negro.. verde etc.

entonces .. lo que necesito es que cuando se cree el archivo CLIENTE-XXX.HTML dentro de ese archivo, se escriba c{odigo HTML

aqui les paso mi codigo... luego del formulario enviado:


<%
fecha=Request.Form("fecha")
cliente=Request.Form("cliente")
color=Request.Form("color")

%>

<%
NombreArch=cliente+fecha+color
archivo= request.serverVariables("APPL_PHYSICAL_PATH") & "srv30/"&NombreArch&".html"
Const ForReading = 1' declaramos las constantes
Dim fso, archivo, texto, color ' declaramos las variables

Set fso = CreateObject("Scripting.FileSystemObject")
set fich = fso.CreateTextFile (archivo)

%>
<%
if color = "r" then
fich.WriteLine("<center>
<iframe align="middle" frameborder="0" marginheight="0" marginwidth="0" height="780" width="635" scrolling="no" src="servicio30dias/inicio.asp"></iframe></center>")
fich.Close

else
if color = "n" then
fich.Write("<html><center>
<iframe align="middle" frameborder="0" marginheight="0" marginwidth="0" height="780" width="635" scrolling="no" src="servicio30dias/inicio.asp"></iframe></center></html>")
fich.Close
else
if color = "v" then
fich.Write("<center>
<iframe align="middle" frameborder="0" marginheight="0" marginwidth="0" height="780" width="635" scrolling="no" src="servicio30dias/inicio.asp"></iframe></center>")
fich.Close
else
if color = "g" then
fich.Write("<center>
<iframe align="middle" frameborder="0" marginheight="0" marginwidth="0" height="780" width="635" scrolling="no" src="servicio30dias/inicio.asp"></iframe></center>")
fich.Close
else
if color ="a" then
fich.Write("<center>
<iframe align="middle" frameborder="0" marginheight="0" marginwidth="0" height="780" width="635" scrolling="no" src="servicio30dias/inicio.asp"></iframe></center>")
fich.Close
end if
end if
end if
end if
end if


%>


el problema esta cuando coloco en Write codigo html... porque si escribo "escogió color rojo" funciona perfectamente.

Si alguien tiene una ayuda...supongo que es algo muy bobo.. pero no encuentro nada en internet.

saludos

Por cynt005

16 de clabLevel



 

msie7
Citar            
MensajeEscrito el 04 Jun 2007 11:41 pm
Hola,

¿Podrías mostrar el error que te aparece?

Por Dano

BOFH

4273 de clabLevel

14 tutoriales
4 articulos
10 ejemplos

Genero:Masculino   Bastard Operators From Hell Premio_Secretos

Lugar estratégico para vigilarte

firefox
Citar            
MensajeEscrito el 05 Jun 2007 02:25 pm
Ya esta soucionad.
El problema estaba en un espacio.. unENTER que estaba por error despues de la etiqueta <center>... y tambien, habia que sacar todas las comillas "" que encerraban a numeros y direcciones dentro del codigo.

Gracias Igual!

Por cynt005

16 de clabLevel



 

msie7

 

Cristalab BabyBlue v4 + V4 © 2011 Cristalab
Powered by ClabEngines v4, HTML5, love and ponies.