Ver Mensaje Individual
  #1 (permalink)  
Antiguo 23/08/2002, 16:41
Jose1250
 
Fecha de Ingreso: agosto-2002
Mensajes: 10
Antigüedad: 22 años, 8 meses
Puntos: 0
Insertar valores de formulario a tabla

HOla he creado un fichero con extensión .asp conectado a una base de datos el código es:
<%
Option Explicit
Response.Expires = -1000

Dim oConn
Dim oRS
Dim sSQL
Dim sColor

Response.Write("<font size=2 face=arial>")

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

sSQL = "SELECT * FROM Fichas"
Set oRS = oConn.Execute(sSQL)

Response.Write("<table border=1 cellpadding=1 cellspacing=1 style='font-family:arial; font-size:10pt;'>")
Response.Write("<tr bgcolor=black style='color:white;'><td>DNI</td>")
Response.Write("<td>Nombre</td>")
Response.Write("<td>Apellidos</td>")
Response.Write("<td>Direccion</td>")
Response.Write("<td>Telefono</td></tr>")

sColor = "white"

Do While NOT oRS.EOF

If sColor = "silver" Then
sColor = "white"
Else
sColor = "silver"
End If

Response.Write("<tr bgcolor='" & sColor & "'>")
Response.Write("<td>" & oRS("DNI").Value & "</td>")
Response.Write("<td>" & oRS("Nombre").Value & "</td>")
Response.Write("<td>" & oRS("Apellidos").Value & "</td>")
Response.Write("<td align=right>" & oRS("Direccion").Value & "</td>")

Response.Write("<td>" & oRS("Telefono").Value & "</td></tr>")

oRS.MoveNext

Loop

Response.Write("</table><br><br>")

oConn.Close
Set oRS = Nothing
Set oConn = Nothing

%>
Por otro lado tengo el formulario donde el usuario introduce los datos. Lo que quiero saber es como puede darle la orden al formulario para que los datos vayan a la tabla de la base de datos.
El código que he escrito hasta el momento en el formulario es:
Ob_RS.AddNew ()
Ob_RS ("DNI")= parseInt (Request.Form("DNI"))
Ob_RS ("Nombre")= Request.Form("NOMBRE")
Ob_RS ("Apellidos")= Request.Form("APELLIDOS")
Ob_RS ("Dirección") = Request.Form("DIRECCION")
Ob_RS ("Teléfono")= Request.Form("TELEFONO")
Ob_RS.Update()
Ob_RS.Close()
Ob_Conn.Close()
Response.Write ("<H3>Datos insertados<H3>")

}
else
{ %>

<H3> ESCRIBA SUS DATOS PERSONALES </H3> <BR>
<FORM METHOD="Post" ACTION="EjBD2.asp">
DNI: <INPUT NAME="DNI" SIZE=10> <BR>
NOMBRE: <INPUT NAME="Nombre" SIZE=15> <BR>
APELLIDOS: <INPUT NAME="Apellidos" SIZE=30> <BR>
DIRECCION: <INPUT NAME="Direccion" SIZE=30> <BR>
TELEFONO: <INPUT NAME="Telefono" SIZE=15> <BR>
<INPUT TYPE="Submit" VALUE="Enviar datos">
<INPUT TYPE="Reset" VALUE="Borrar">
</FORM>
<% } %>
</BODY>
</HTML>
gracias.