Me Pueden Ayudar

[aprendiz_82]

hola tengo una duda enorme , yo soy un ignorante en asp y por no querer complicarme , quiero hacer las cosas lo mas rapido y facil posible , resulta que en mi sitio quiero poner una seccion de noticias , en la que para ser llenada con informacion ; quiero que exista una "pagina con un formulario donde solo pueda entrar una amiga que me ayudara y yo ".

ademas quiero que exista una "pagina donde se despliegue la info y que pueda ser vista por todos los que entren a la seccion " , la cuation es que encontre un ejemplo de un formulario que es vastantye simple y me serviria , pero el form solo contiene dos campos y son pequeños , yo deseo que hayan tres campos para: titulo de la noticia , autor y el campo de la noticia ; pero deseo que el campo de la noticia sea lo suficientemente grande asi que me gustaria dejarles el codigo para ver si alguien me puede ayudar a modificarlo y si me pueden decir que debo hacer para subirlo o para que funcione porque le verdad no se como hacerlo funcionar , me disculpo por las molestias y espero que me puedan ayudar , de antemano gracias.


Código fuente de form.asp


<center><H2>Formulario</H2></center>
<%
Dim nombre, site

'Recogemos los campos del formulario
'Trim(cadena) elimina los espacios que pueda haber a derecha e izquiera
'CStr (expresion) fuerza a que sea un cadena de texto
nombre=CStr( Trim( Request.Form("Nombre") ) )
site=CStr( Trim( Request.Form("Site") ) )

'Si no han enviado nada, mostramos el formulario
if Len(nombre) = 0 then
%>
<FORM NAME="Ejemplo" METHOD="post" ACTION="form.asp">
<TABLE BORDER="1" WIDTH="50%">
<TR>
<TD><b>Nombre:</b></TD><TD><INPUT TYPE="text" NAME="Nombre"></TD>
<TR>
<TD><b>Site favorito:</b></TD><TD><INPUT TYPE="text" NAME="Site"></TD>
<TR>
<TD><INPUT TYPE="submit"></TD><TD><INPUT TYPE="reset"></TD>
</TABLE>
</FORM>
<%
'en otro caso, imprimimos los valores introducidos
else
Response.Write("Nombre: "&nombre&"<br>"&VbCrLf)
Response.Write("Site: "&site&"<br>"&VbCrLf)
end if
%>

[rashid]

Amiga(o), no esta dificil modificar eso, solo que no veo conexion a Base de datos, y me parece que solamente despliega lo que tu metes, pero ahi va la modoficacion:

<%
Dim nombre, site

'Recogemos los campos del formulario
'Trim(cadena) elimina los espacios que pueda haber a derecha e izquiera
'CStr (expresion) fuerza a que sea un cadena de texto
nombre=CStr( Trim( Request.Form("Nombre") ) )
site=CStr( Trim( Request.Form("Site") ) )
comentario=CStr( Trim( Request.Form("comentario") ) )


'Si no han enviado nada, mostramos el formulario
if Len(nombre) = 0 then
%>
<FORM NAME="Ejemplo" METHOD="post" ACTION="form.asp">
<TABLE BORDER="1" WIDTH="50%">
<TR>
<TD><b>Nombre:</b></TD><TD><INPUT TYPE="text" NAME="Nombre"></TD>
<TR>
<TD><b>Site favorito:</b></TD><TD><INPUT TYPE="text" NAME="Site"></TD>
<TR>
<TR>
<TD><b>comentario:</b></TD><TD<textarea name="comentario" cols="40" rows="4"></textarea></TD>
<TR>

<TD><INPUT TYPE="submit"></TD><TD><INPUT TYPE="reset"></TD>
</TABLE>
</FORM>
<%
'en otro caso, imprimimos los valores introducidos
else
Response.Write("Nombre: "&nombre&"<br>"&VbCrLf)
Response.Write("Site: "&site&"<br>"&VbCrLf)
Response.Write("Site: "&comentario&"<br>"&VbCrLf)

end if
%>



Ahhh, pero recuerda.... SIN SACRIFICIO NO HAY TRIUNFO!
.................................... SIN ESFUERZO NO HAY SACRIFICIO!