
02/05/2003, 13:07
|
 | | | Fecha de Ingreso: febrero-2002 Ubicación: España
Mensajes: 2.364
Antigüedad: 23 años, 3 meses Puntos: 1 | |
Pruebalo asi.
<%
'Aqui compruebo que esta colocando 8 digitos
If Len(Request.Form("cedula")) <8 then
'el campo no fue llenado, entonces...
response.write "<CENTER><H1><B>¡ERROR!</B></H1></CENTER>"
response.write "<CENTER><B><H1>Por Favor rellenar con Tú Cédula de 8 Dígitos, presiona Volver al Formulario, para intentarlo otra vez</H1></B></CENTER>"
response.end
End If
ccedula=request.form("cedula")
set oConn=Server.CreateObject("ADODB.Connection")
set rs=createobject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="C:\Inetpub\wwwroot\asp\bdfisica2.mdb""
SQL="select * from Alumnos where cedula like '%"&ccedula&"%'"
rs.Open SQL, oConn
a= rs("Parcial1")
response.write (a)
b= rs("Parcial2")
response.write (b)
r= a+b
response.write(r)
rs("Definitiva")=r
rs.update
%> |