Errores en pagina asp
Hola soy nuevo en esto y no tengo mucha idea
tengo una pagina asp para editar los datos de los alumnos o darlos de alta, si ya existen me vuelva los datos de la base de datos y si no los pongo y los introduce en la base de datos,hasta aquí funciona bien
tiene un td select que coge los datos del desplegable de la base de datos, tanto en el alta como en la edición, esto funciona también
tiene un botón donde se pueden dar de alta y modificar los datos del td select anterior en la base de datos, esta opción solo funciona en la edición, en el alta no funciona( no aparece el desplegable para modificar
en el alta el error que aparece es:
error de síntesis
editar.asp linea 107
--------------------------------------------------------------
se esperaba un objeto
editar.asp linea 114
código: 0 carácter 1
url: htp//localhost/gestión/alumnos/editar.asp
en la edición funciona, pero aparece el error:
'false' no esta definida
editar.asp linea 107
código.0 carácter 2
url: htp//localhost/gestión/alumnos/editar.asp?id=122
el id cambia según el alumno que quieres modificar
adjunto código:
<%@ LANGUAGE = VBScript %>
<!--#include virtual="/rutinas/BaseDatos.asp"-->
<!--#include virtual="/rutinas/jlmfun.asp"-->
<%
function lCompleta( cCadena, cChar, lon )
lCompleta = cCadena
dif = lon - len( cCadena )
if dif > 0 then
relleno = string( dif, cChar )
lCompleta = relleno & cCadena
end if
end function
id = request("id")
if id <> "" then
cModo = "Modificación "
accessdb="alumnos.mdb"
DSN="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath(accessdb)
set con = server.createobject("ADODB.connection")
cn.open DSN
sSQL = "SELECT * FROM campa WHERE id = " & id
set rs = cn.execute(sSQL)
id = rs("id")
Nombre = rs("nombre")
segmento=rs("segmento")
Finicio = rs("finicio")
Ffinal = rs("ffinal")
alta = rs("alta")
Tipo = rs("tipo")
Producto = rs("producto")
edadal = rs("edadal")
fnacim = rs("fnacim")
Publico = rs("publico")
Clientes = rs("clientes")
Plataforma = rs("plataforma")
Tramita = rs("tramita")
Observa = rs("observa")
Estado = rs("estado")
Otrainfo = rs("otrainfo")
Nivel = rs("nivel")
Pronuncia = rs("pronuncia")
Capacidad = rs("capacidad")
grupo= rs("grupo")
rs.Close
Set rs = nothing
cn.Close
Set con = nothing
if finicio <> "" then
finicio = lCompleta( DatePart("d", finicio), "0", 2 ) & "/" & lCompleta( DatePart("m", finicio), "0", 2) & "/" & Right(DatePart("yyyy", finicio),2)
end if
if ffinal <> "" then
ffinal = lCompleta( DatePart("d", ffinal), "0", 2 ) & "/" & lCompleta( DatePart("m", ffinal), "0", 2) & "/" & Right(DatePart("yyyy", ffinal),2)
end if
else
cModo = "Alta "
id = 0
Nombre = ""
segmento=""
Finicio ="01/01/2013"
Ffinal =""
alta =""
Tipo = 0
Producto =""
edadal = ""
fnacim = ""
Publico =""
Clientes = ""
Plataforma =""
Tramita =""
Observa =""
Estado = falso
Otrainfo =""
Nivel =""
Pronuncia =""
Capacidad =""
grupo =""
end if
%>
<%
'
accessdb="alumnos.mdb"
if application("grupos") = "" then
Set con = server.createobject("adodb.connection")
Set rs = server.createobject("adodb.recordset")
DSN="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath(accessdb)
'set con = server.createobject("ADODB.connection")
cn.open DSN
sSQL = "SELECT * FROM grupos ORDER BY descripciongrupo;"
'set rs = cn.execute(sSQL)
rs.open sSQL, con,3, 3
cTexto = ""
do until rs.eof
'cTexto = cTexto & "<option value=" & rs("codigogrupo") & ">" & rs("descripciongrupo") & "</option>"
cTexto = cTexto & "<option value=" & rs("Descripciongrupo") & ">" & rs("descripciongrupo") & "</option>"
rs.movenext
loop
cTexto = cTexto & "</select>"
'rs.close
'con.close
'set rs = nothing
'set con = nothing
'
set rs = cn.execute(sSQL)
'
set con = server.createobject("ADODB.connection")
application("grupos") = cTexto
end if
%>
<html>
<head>
<title>Editar registro</title>
<style type="text/css">
</style>
<script language="JavaScript" src="/rutinas/funciones.js"></script>
<SCRIPT LANGUAGE="JavaScript">
<!--
function MiraForm(form)
{
if( form.finicio.value != "" )
{
if(! MiraFecha(form.finicio.value,1) )
{
form.finicio.focus();
return false;
}
}
if( form.ffinal.value != "" )
{
if(! MiraFecha(form.ffinal.value, 1))
{
form.ffinal.focus();
return false;
}
}
f1.cgrupo.value = f1.grupo.options[f1.grupo.selectedIndex].text;
f1.action = "guardaficha.asp?ficha=" + parent.varios.ficha;
return true
}
var nueva = ""
function Mantengrupos( Ancho, Alto)
{
if( nueva != "" )
{
window.nueva.close();
}
var arriba = ((screen.height-75) - Alto) / 2 ;
var izquierda = ((screen.width-10) - Ancho) / 2 ;
var propiedades = "width=" + Ancho + ",height=" + Alto + ",top=" + arriba + ",left=" + izquierda;
nueva = window.open("mgrupos.htm","",propiedades);
}
function CierraW()
{
if( nueva != "" )
{
window.nueva.close();
}
return;
}
function CargaDatos()
{
if( parent.varios.ficha == "" )
{
parent.varios.ficha = "<%=numero%>";
parent.varios.titulo = "<%=cTitulo%>";
parent.varios.cgrupo = "<%=cgrupo%>";
parent.varios.fecha = "<%=cFecha%>";
parent.varios.hayseccion =...
