
09/01/2004, 17:52
|
 | | | 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> </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> &n bsp; &nbs p; &n bsp; &nbs p; &n bsp; &nbs p;
<input id="button1" name="Grabar" type="submit" value="Grabar Comentario">
<input id="button2" name="Cancelar" type="submit" value="Cancelar">
</b></font></p>
<p> <font size="1"><b> </b></font> </p></tr>
</table>
<div align="left"> </div>
</FORM>
<% end if %>
</BODY>
</HTML> |