pero en el caso del ingreso, no me ingresa de inmediato si no aparece en la 2º pasada, osea si ingreso un alumno con nombre rosamel y despues me hace los calculos y me muestra su nombre y su promedio no aparece en pantalla si no al otro ingreso....
y en el caso de eliminar quiero que cuando elimine me muestre la cantidad de alumnos que todavia queda en la base de datos cosa que no lo hase, si no otra ve a la 2º pasada oh cargue del codigo...
les muestro el codigo...
Ingresar y calculo, los datos los recojo de un formulario... no vale la pena asi que coloco solamente el codigo de calculo en insercion... este se llama ingresar.inc.asp :
Código:
y ahora el de elimininar, solo muestro el de eliminar.inc.asp el otro es un combo que no vale la pena colocar, esa pagina muestra los rut del usuario, eso me funciona bien... pero de esta pagina eliminar.inc.asp no me redirecciona a la pagina ver.asp que tengo y que si muestra los datos...que estoy hasiendo mal... ayuda...aqui esta el codigo: <%
Set conn = Server.CreateObject("ADODB.Connection")
conn.open =" Provider=MSDASQL.1;Persist Security Info=False;Data Source=prueba "
rut=REQUEST.FORM("rut")
nombre=REQUEST.FORM("nombre")
nt1=REQUEST.FORM("nt1")
nt2=REQUEST.FORM("nt2")
nt3=REQUEST.FORM("nt3")
nt4=REQUEST.FORM("nt4")
sql ="insert into alumno (rut, nombre, nt1, nt2, nt3, nt4) VALUES ('" & rut & "','" & nombre & "','" & nt1 & "','" & nt2 & "', '" & nt3 & "','"& nt4 &"')"
conn.EXECUTE sql
%>
<html>
<head>
</head>
<body>
<%
Dim db,sql1,rs, prom
Set db=Server.CreateObject("ADODB.Connection")
db.Open("prueba")
sql1 = "SELECT * FROM alumno"
Set rs = db.Execute(sql1)
%>
<table border="1">
<tr>
<td>Rut</td>
<td>Nombre</td>
<td>Nota 1</td>
<td>Nota 2</td>
<td>Nota 3</td>
<td>Nota 4</td>
<td>Promedio</td>
</tr>
<%
while (not rs.EOF)
prom=(rs("nt1") + rs("nt2") + rs("nt3")+ rs("nt4")) /4
Response.Write("<tr><td>" & rs("rut") & "</td><td>" & rs("nombre") & "</td><td>" & rs("nt1") & "</td><td>" & rs("nt2") & "</td><td>" & rs("nt3") & "</td><td>" & rs("nt4") & "</td><td>" & prom & "</td></tr>")
rs.MoveNext
'sql1 = "insert into alumno(promedio) values( '"& prom &"')"
'db.execute sql1
wend
db.Close
set rs = nothing
set db = nothing
'response.redirect("ingresar.inc.asp")
%>
</table>
</body>
</html>
Código:
<%
SET conn=SERVER.CREATEOBJECT("ADODB.CONNECTION")
conn.OPEN " Provider=MSDASQL.1;Persist Security Info=False;Data Source=prueba "
rut=request.form("rut")
sql = " delete from alumno where rut = '"& rut &"' "
conn.execute sql
'response.redirect("ver.asp")
%>
gracias, salu2
