20/04/2005, 13:59
|
| | | Fecha de Ingreso: febrero-2005 Ubicación: chile, Santiasko
Mensajes: 728
Antigüedad: 20 años, 3 meses Puntos: 1 | |
camaradas, nuevamente aqui....
jejeje
pude realizar lo esperado... el que quiera el codigo se los dejo y acepto sugerencias...
Código:
<%
Set conn = Server.CreateObject("ADODB.Connection")
set rs = server.CreateObject("adodb.recordset")
conn.open =" Provider=MSDASQL.1;Persist Security Info=False;Data Source=prueba "
rs.open "SELECT * FROM alumno", conn
rut=REQUEST.FORM("rut")
nombre=REQUEST.FORM("nombre")
nt1=REQUEST.FORM("nt1")
nt2=REQUEST.FORM("nt2")
nt3=REQUEST.FORM("nt3")
nt4=REQUEST.FORM("nt4")
prom=(rs("nt1") + rs("nt2") + rs("nt3")+ rs("nt4")) /4
sql ="insert into alumno (rut, nombre, nt1, nt2, nt3, nt4,promedio) VALUES ('" & rut & "','" & nombre & "','" & nt1 & "','" & nt2 & "', '" & nt3 & "','"& nt4 &"','"& prom &"')"
conn.EXECUTE sql
IF NOT rs.EOF THEN
response.redirect("ver.asp")
else
response.write "<center><h1>No existe el Alumno</h1></center>"
end if
%>
salu2 
__________________
Una Vez Muerto el Perro.............Se acaba la Rabia :risa: |