Ver Mensaje Individual
  #13 (permalink)  
Antiguo 28/07/2004, 11:57
Avatar de Myakire
Myakire
Colaborador
 
Fecha de Ingreso: enero-2002
Ubicación: Centro de la república
Mensajes: 8.849
Antigüedad: 23 años, 3 meses
Puntos: 146
A ver, Clara, vamos por partes:
Le presentas al usuario un formulario

Código:
<form action="graba.asp" method="post" name="noticias" id="noticias">
<strong>Nueva Noticia </strong>
<table width="75%" border="0" cellspacing="5" cellpadding="2">
<tr>
<td width="52%">T&iacute;tulo</td>
<td width="48%"><input name="Titulo" type="text" size="30">
</td>
</tr>
<tr>
<td>Fecha</td>
<td><input type=text name=dia>&nbsp;<input type=text name=mes>&nbsp;<select name=anio><option value="2003">2003<option value="2004">2004</select></td>
</tr>
<tr>
<td>Contenido</td>
<td><textarea name="Contenido"></textarea></td>
</tr>
<tr>
<td align="center">
<input type="submit" name="Submit" value="Enviar">
</td>
<td align="center">
<input type="reset" name="Submit2" value="Restablecer">
</td>
</tr>
</table>
</form>
Cuando el usuario precione el boton submit se envian todos los campos del formulario a la pàgina que tienes definida en el ACTION del <form>.

Entonces, en graba.asp tendrias algo como:

Código:
<%
vTitulo = request("Titulo")
vDia = request("dia")
vMes = request("mes")
vAnio = request("anio")
vObservaciones = request("Observaciones")

Dim Conn
Set Conn= Server.CreateObject ("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/db/noticias.mdb"))
Set registros = Server.createobject("ADODB.Recordset")
registros.Execute "INSERT INTO inserta (Titulo, Fecha, Observaciones)
VALUES ('"&vTitulo&"', #"&vDia&"/"&vMes&"/"&vAnio"#,'"&vObservaciones&"');
", Conn
Response.write "Registro Insertado"
' Lo que quieras hacer o decirle al usuario o simplemente un response.redirect "pagina.asp o html"
¿Es algo así lo que necesitas?