Ver Mensaje Individual
  #11 (permalink)  
Antiguo 02/05/2003, 13:07
Avatar de maestro
maestro
 
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
%>
__________________
Jose Maria Fernandez
[email protected]
Http://www.expansionweb.net