Ver Mensaje Individual
  #4 (permalink)  
Antiguo 09/01/2004, 17:52
Avatar de pdjazr
pdjazr
 
Fecha de Ingreso: noviembre-2002
Ubicación: Lima - Limon
Mensajes: 207
Antigüedad: 22 años, 6 meses
Puntos: 0
Mira te envio un formulario que graba datos en access...lo revisas y de seguro lo lograras...saludos

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<META content="text/html; charset=unicode" http-equiv=Content-Type>

<BODY bgcolor="#A5D2ED">
<!-- URL's used in the movie-->
<!-- text used in the movie-->
<%@ Language=VBScript %>
<%

If Request.Form("Grabar")<>"" Then 'Formulario enviado

Dim oConn
Dim oRS
Dim sSQL
Dim sColor
DIM nombre
DIM comentario
DIM longitud
DIM posi

nombre=Request.Form("nombre")
comentario=Request.Form("comentario")


Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Mibase.mdb"))

longitud=len(trim(comentario))

if longitud<250 then

'Registra los comentarios

fec=now()

sSQL = "INSERT INTO MiTabla(NOMBRE,FECHA,COMENTARIO) values( '"+nombre+"',#" & fec & "# ,'"+comentario+"')"

Set oRS = oConn.Execute(sSQL)

response.write("Comentario adicionado con exito...")
Else
response.write("Comentario muy largo...deber ser menor a 250 caracteres")

end if

' Carga el formulario primero
Else

'Formulario no enviado

%>
<FORM name="form1" METHOD="post" action="comentarios.asp">

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber3" width="760" height="98">
<tr>
<td width="5379" height="116" bgcolor="a5d2ed"> <p> <b><font face="Comic Sans MS" color="#FFFFFF" size="1">Nombre:</font><font size="1">
<input type="text" name="nombre" size="50">
</font></b><font size="1"><b>&nbsp;&nbsp;&nbsp;&nbsp; </b></font></p>
<p> <b><font face="Comic Sans MS" size="1" color="#FFFFFF">Comentario:</font></b></p>
<p>
<textarea name="comentario" cols="80" rows="8" id="comentario"></textarea>
</p>
<p> <font size="1"><b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbs p;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbs p;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbs p;&nbsp;&nbsp;&nbsp;&nbsp;
<input id="button1" name="Grabar" type="submit" value="Grabar Comentario">
&nbsp;&nbsp;&nbsp;&nbsp;
<input id="button2" name="Cancelar" type="submit" value="Cancelar">
</b></font></p>
<p> <font size="1"><b>&nbsp;</b></font> </p></tr>
</table>

<div align="left"> </div>

</FORM>

<% end if %>





</BODY>
</HTML>
__________________
http://paracraneo.comlu.com