<html>
<head><title>VIda & Muerte</title>
</head>
<body>
<FORM METHOD=POST ACTION="paginaasp.asp">
<TABLE BORDER="1">
<TR>
<TD><B>Codigo Expedi:</B></TD>
<TD><INPUT TYPE="text" NAME="codexp"></TD>
<TR>
<TD><B>Nombre</B></TD>
<TD><INPUT TYPE="text" NAME="nombre"></TD>
<TR>
<TD><B>Primer Apell</b></td>
<td><input type="text" name"prim_ap"></td>
<TD><b>Segundo Apell</b></td>
<td><input type="text" name"seg_ap"></td>
<TR>
<td><b>Direccion</b></td>
<td><input type="text" name"direccion"</td>
<TR>
<td><b>AÑO: </b></td>
<td><input type="text" name"año"</td>
<td><b>MES: </b></td>
<td><input type="text" name"mes"</td>
<td><b>Dia</b></td>
<td><input type="text" name"dia"</td>
<TR>
<td><b>Telefono</b></td>
<td><input type="text" name"telefono"</td>
<td><b>CIf</b></td>
<td><input type="text" name"CIF"</td>
<td><b>Cod profesor</b></td>
<td><input type="text" name"codpro"</td>
<TR>
<td><b>Edad</b></td>
<td><input type="text" name"edad"</td>
<td><b>DNI Pad/Mad</b></td>
<td><input type="text" name"DNI_padre"</td>
<TR>
<TD COLSPAN="4">
<CENTER>
<INPUT TYPE="submit" VALUE="Enviar">
<INPUT TYPE="reset" VALUE="Limpiar">
</CENTER>
</TD>
</FORM>
<%
'Nuestras variables
'El predicado bWhere lo utilizamos después
'para montar nuestra sentencia SQL
Dim bWhere,basededatos
'Recogemos los valores del formulario y los dejamos con el tipo correcto
codexp = Trim(CStr(Request.Form("codexp")))
nombre = Trim(CStr(Request.Form("nombre")))
prim_ap=Trim(CStr(request.form("prim_ap")))
seg_ap=Trim(CStr(request.form("seg_ap")))
direccion=trim(CStr(request.form("direccion")))
mes=Trim(CStr(request.form("mes")))
dia=Trim(CStr(request.form("dia")))
telefono=trim(Cstr(request.form("telefono")))
CIF=trim(Cstr(request.form("CIF")))
codpro=trim(Cstr(request.form("codpro")))
edad=trim(Cstr(request.form("edad")))
DNI_padre=trim(Cstr(request.form("DNI_padre")))
basedatos = Server.MapPath("Instituto3.mdb")
Set conexion = Server.CreateObject("ADODB.Connection")
conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos & ";"
'oRs.AddNew
'oRS.Fields("nombre") = nombre
'oRS.Fields("prim_ap") = prim_ap
'oRS.Fields("seg_ap") = seg_ap
'oRS.Update
'oRS.Close
Set oRS = Nothing
Response.Write(SQL)
%>
</body>
</html>
Tengo este codigo y ahora lo q quero es conectarlo con la base de datos,me sale el icono de enviar y limpiar pero cuando le doy a enviar no me lo envia a la base de datos,ayudarmeeeeeeeeee!!!!!!!!!GRACIAS
