Erro chato

[marcdes 0]

Boa noite,

 

Meu erro é bem simple mas, já tentei de tudo mas naum consegui resolver.

 

<!--#include file="conn.asp"--><!--#include file="connect.asp"--><%dim rsUser1, rsUser2, rsUser3, sql, data_atual, inscricao, cpf, data, local, portugues, matematica, fisica, quimica, biologia, historia, geografia, artes, filosofia, sociologia, inglescpf = Request.Cookies("cpf")data = Request.Form("data")local = Request.Form("local")portugues = Request.Form("portugues")matematica = Request.Form("matematica")fisica = Request.Form("fisica")quimica = Request.Form("quimica")biologia = Request.Form("biologia")historia = Request.Form("historia")geografia = Request.Form("geografia")artes = Request.Form("artes")filosofia = Request.Form("filosofia")sociologia = Request.Form("sociologia")ingles = Request.Form("ingles")data_atual = date()'Verifica se já existe uma inscrição feita pelo aluno numa data que é maior que hoje'só pode fazer inscrição 1 dia antessql = "SELECT * FROM inscricao AS i, aluno AS a, data AS d, provas p WHERE a.cpf="& cpf &" AND a.cod_aluno=i.cod_aluno AND p.cod_data=d.cod_data AND d.data > data_atual "Set rsUser1 = Server.CreateObject("ADODB.Recordset")rsUser1.Open sql, conn, 3, 3'Se existe inscrição feita pelo alunoIf (not rsUser1.BOF) and (not rsUser1.EOF) then  Response.Cookies("cpf") = rsUser1("cpf") 'Grava em Cookies o valor de CPF  inscricao = rsUser1.Fields("cod_inscricao") 'guarda o numero da inscricao do aluno  'Verifica se há alguma das matérias escolhidas já matriculadas  sql = "SELECT * FROM provas WHERE cod_inscricao="& inscricao &" AND (cod_materia="& portugues &" OR cod_materia="& matematica &" OR cod_materia="& fisica &" OR cod_materia="& quimica &" OR cod_materia="& biologia &" OR cod_materia="& historia &" OR cod_materia="& geografia &"  OR cod_materia="& artes &" OR cod_materia="& filosofia &" OR cod_materia="& sociologia &" OR cod_materia="& ingles &")"  Set rsUser2 = Server.CreateObject("ADODB.Recordset")  rsUser2.Open sql, conn, 3, 3    'Se existe matéria inscrita, enviar mensagem de erro e voltar para Escolhe_materia  If (not rsUser2.BOF) and (not rsUser2.EOF) then    rsUser.close    set rsUser = nothing    conn.close    set conn = nothing    Response.Redirect("materia_cadastrada.asp")    'se existe inscrição mas a matéria escolhida ainda não foi matriculada  else      'insere PORTUGUES   if (portugues="1") then        sql="INSERT INTO provas (cod_inscricao, cod_materia, cod_data, cod_local) values("& inscricao &","& portugues &","& data &","& local &")"  Set rsUser3 = Server.CreateObject("ADODB.Recordset")        rsUser3.Open sql, conn, 3, 3      end if      'insere MATEMATICA   if (matematica="2") then        sql="INSERT INTO provas (cod_inscricao, cod_materia, cod_data, cod_local) values("& inscricao &","& matematica &","& data &","& local &")"  Set rsUser3 = Server.CreateObject("ADODB.Recordset")        rsUser3.Open sql, conn, 3, 3      end if      'insere FISICA   if (fisica="3") then        sql="INSERT INTO provas (cod_inscricao, cod_materia, cod_data, cod_local) values("& inscricao &","& fisica &","& data &","& local &")"  Set rsUser3 = Server.CreateObject("ADODB.Recordset")        rsUser3.Open sql, conn, 3, 3      end if     'insere QUIMICA   if (quimica="4") then        sql="INSERT INTO provas (cod_inscricao, cod_materia, cod_data, cod_local) values("& inscricao &","& quimica &","& data &","& local &")"  Set rsUser3 = Server.CreateObject("ADODB.Recordset")        rsUser3.Open sql, conn, 3, 3      end if      'insere BIOLOGIA   if (biologia="5") then        sql="INSERT INTO provas (cod_inscricao, cod_materia, cod_data, cod_local) values("& inscricao &","& biologia &","& data &","& local &")"  Set rsUser3 = Server.CreateObject("ADODB.Recordset")        rsUser3.Open sql, conn, 3, 3      end if   'insere HISTORIA   if (historia="6") then        sql="INSERT INTO provas (cod_inscricao, cod_materia, cod_data, cod_local) values("& inscricao &","& historia &","& data &","& local &")"  Set rsUser3 = Server.CreateObject("ADODB.Recordset")        rsUser3.Open sql, conn, 3, 3      end if   'insere GEOGRAFIA   if (geografia="7") then        sql="INSERT INTO provas (cod_inscricao, cod_materia, cod_data, cod_local) values("& inscricao &","& geografia &","& data &","& local &")"  Set rsUser3 = Server.CreateObject("ADODB.Recordset")        rsUser3.Open sql, conn, 3, 3      end if      'insere ARTES   if (artes="8") then        sql="INSERT INTO provas (cod_inscricao, cod_materia, cod_data, cod_local) values("& inscricao &","& artes &","& data &","& local &")"  Set rsUser3 = Server.CreateObject("ADODB.Recordset")        rsUser3.Open sql, conn, 3, 3      end if      'insere FILOSOFIA   if (filosofia="9") then        sql="INSERT INTO provas (cod_inscricao, cod_materia, cod_data, cod_local) values("& inscricao &","& filosofia &","& data &","& local &")"  Set rsUser3 = Server.CreateObject("ADODB.Recordset")        rsUser3.Open sql, conn, 3, 3      end if      'insere SOCIOLOGIA   if (sociologia="10") then        sql="INSERT INTO provas (cod_inscricao, cod_materia, cod_data, cod_local) values("& inscricao &","& sociologia &","& data &","& local &")"  Set rsUser3 = Server.CreateObject("ADODB.Recordset")        rsUser3.Open sql, conn, 3, 3      end if      'insere INGLES   if (ingles="11") then        sql="INSERT INTO provas (cod_inscricao, cod_materia, cod_data, cod_local) values("& inscricao &","& ingles &","& data &","& local &")"  Set rsUser3 = Server.CreateObject("ADODB.Recordset")        rsUser3.Open sql, conn, 3, 3      end ifend else <--------------------- o erro é aqui    'Fecha o banco e chama ESCOLHE_MATERIAS.ASP  rsUser.close  set rsUser = nothing  conn.close  set conn = nothing  Response.Redirect("escolhe_materias.asp")    else        'insere PORTUGUES   if (portugues="1") then        sql="INSERT INTO provas (cod_inscricao, cod_materia, cod_data, cod_local) values("& inscricao &","& portugues &","& data &","& local &")"  Set rsUser3 = Server.CreateObject("ADODB.Recordset")        rsUser3.Open sql, conn, 3, 3      end if      'insere MATEMATICA   if (matematica="2") then        sql="INSERT INTO provas (cod_inscricao, cod_materia, cod_data, cod_local) values("& inscricao &","& matematica &","& data &","& local &")"  Set rsUser3 = Server.CreateObject("ADODB.Recordset")        rsUser3.Open sql, conn, 3, 3      end if      'insere FISICA   if (fisica="3") then        sql="INSERT INTO provas (cod_inscricao, cod_materia, cod_data, cod_local) values("& inscricao &","& fisica &","& data &","& local &")"  Set rsUser3 = Server.CreateObject("ADODB.Recordset")        rsUser3.Open sql, conn, 3, 3      end if     'insere QUIMICA   if (quimica="4") then        sql="INSERT INTO provas (cod_inscricao, cod_materia, cod_data, cod_local) values("& inscricao &","& quimica &","& data &","& local &")"  Set rsUser3 = Server.CreateObject("ADODB.Recordset")        rsUser3.Open sql, conn, 3, 3      end if      'insere BIOLOGIA   if (biologia="5") then        sql="INSERT INTO provas (cod_inscricao, cod_materia, cod_data, cod_local) values("& inscricao &","& biologia &","& data &","& local &")"  Set rsUser3 = Server.CreateObject("ADODB.Recordset")        rsUser3.Open sql, conn, 3, 3      end if   'insere HISTORIA   if (historia="6") then        sql="INSERT INTO provas (cod_inscricao, cod_materia, cod_data, cod_local) values("& inscricao &","& historia &","& data &","& local &")"  Set rsUser3 = Server.CreateObject("ADODB.Recordset")        rsUser3.Open sql, conn, 3, 3      end if   'insere GEOGRAFIA   if (geografia="7") then        sql="INSERT INTO provas (cod_inscricao, cod_materia, cod_data, cod_local) values("& inscricao &","& geografia &","& data &","& local &")"  Set rsUser3 = Server.CreateObject("ADODB.Recordset")        rsUser3.Open sql, conn, 3, 3      end if      'insere ARTES   if (artes="8") then        sql="INSERT INTO provas (cod_inscricao, cod_materia, cod_data, cod_local) values("& inscricao &","& artes &","& data &","& local &")"  Set rsUser3 = Server.CreateObject("ADODB.Recordset")        rsUser3.Open sql, conn, 3, 3      end if      'insere FILOSOFIA   if (filosofia="9") then        sql="INSERT INTO provas (cod_inscricao, cod_materia, cod_data, cod_local) values("& inscricao &","& filosofia &","& data &","& local &")"  Set rsUser3 = Server.CreateObject("ADODB.Recordset")        rsUser3.Open sql, conn, 3, 3      end if      'insere SOCIOLOGIA   if (sociologia="10") then        sql="INSERT INTO provas (cod_inscricao, cod_materia, cod_data, cod_local) values("& inscricao &","& sociologia &","& data &","& local &")"  Set rsUser3 = Server.CreateObject("ADODB.Recordset")        rsUser3.Open sql, conn, 3, 3      end if      'insere INGLES   if (ingles="11") then        sql="INSERT INTO provas (cod_inscricao, cod_materia, cod_data, cod_local) values("& inscricao &","& ingles &","& data &","& local &")"  Set rsUser3 = Server.CreateObject("ADODB.Recordset")        rsUser3.Open sql, conn, 3, 3      end if  end else    'Fecha o banco e chama ESCOLHE_MATERIAS.ASP  rsUser.close  set rsUser = nothing  conn.close  set conn = nothing  Response.Redirect("escolhe_materias.asp")end if%>

o erro que está dando é esse:

 

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A03F4)

'If' esperado

/projecao/efetua_materia.asp, line 127, column 4

end else

---^

[gastao 0]

end else ?????????????????? ou end if !!!

[marcdes 0]

ehehehehehehe, acho que já estou cansado......

 

 

arrumei, mas está dando um outro erro:

 

 

Tipo de erro:

Microsoft JET Database Engine (0x80040E10)

Nenhum valor foi fornecido para um ou mais parâmetros necessários.

/projecao/Efetua_materia.asp, line 29

 

 

<!--#include file="conn.asp"--><!--#include file="connect.asp"--><%dim rsUser1, rsUser2, rsUser3, sql, data_atual, inscricao, cpf, data, local, portugues, matematica, fisica, quimica, biologia, historia, geografia, artes, filosofia, sociologia, inglescpf = Request.Cookies("cpf")data = Request.Form("data")local = Request.Form("local")portugues = Request.Form("portugues")matematica = Request.Form("matematica")fisica = Request.Form("fisica")quimica = Request.Form("quimica")biologia = Request.Form("biologia")historia = Request.Form("historia")geografia = Request.Form("geografia")artes = Request.Form("artes")filosofia = Request.Form("filosofia")sociologia = Request.Form("sociologia")ingles = Request.Form("ingles")data_atual = date()'Verifica se já existe uma inscrição feita pelo aluno numa data que é maior que hoje'só pode fazer inscrição 1 dia antessql = "SELECT * FROM inscricao AS i, aluno AS a, data AS d, provas p WHERE a.cpf="& cpf &" AND a.cod_aluno=i.cod_aluno AND p.cod_data=d.cod_data AND d.data > data_atual "Set rsUser1 = Server.CreateObject("ADODB.Recordset")rsUser1.Open sql, conn, 3, 3   <---------------- o erro é aqui'Se existe inscrição feita pelo alunoIf (not rsUser1.BOF) and (not rsUser1.EOF) then Response.Cookies("cpf") = rsUser1("cpf") 'Grava em Cookies o valor de CPF inscricao = rsUser1.Fields("cod_inscricao") 'guarda o numero da inscricao do aluno 'Verifica se há alguma das matérias escolhidas já matriculadas sql = "SELECT * FROM provas WHERE cod_inscricao="& inscricao &" AND (cod_materia="& portugues &" OR cod_materia="& matematica &" OR cod_materia="& fisica &" OR cod_materia="& quimica &" OR cod_materia="& biologia &" OR cod_materia="& historia &" OR cod_materia="& geografia &"  OR cod_materia="& artes &" OR cod_materia="& filosofia &" OR cod_materia="& sociologia &" OR cod_materia="& ingles &")" Set rsUser2 = Server.CreateObject("ADODB.Recordset") rsUser2.Open sql, conn, 3, 3  'Se existe matéria inscrita, enviar mensagem de erro e voltar para Escolhe_materia If (not rsUser2.BOF) and (not rsUser2.EOF) then   rsUser.close   set rsUser = nothing   conn.close   set conn = nothing   Response.Redirect("materia_cadastrada.asp")   'se existe inscrição mas a matéria escolhida ainda não foi matriculada else     'insere PORTUGUES  if (portugues="1") then       sql="INSERT INTO provas (cod_inscricao, cod_materia, cod_data, cod_local) values("& inscricao &","& portugues &","& data &","& local &")" Set rsUser3 = Server.CreateObject("ADODB.Recordset")       rsUser3.Open sql, conn, 3, 3     end if    'insere MATEMATICA  if (matematica="2") then       sql="INSERT INTO provas (cod_inscricao, cod_materia, cod_data, cod_local) values("& inscricao &","& matematica &","& data &","& local &")" Set rsUser3 = Server.CreateObject("ADODB.Recordset")       rsUser3.Open sql, conn, 3, 3     end if    'insere FISICA  if (fisica="3") then       sql="INSERT INTO provas (cod_inscricao, cod_materia, cod_data, cod_local) values("& inscricao &","& fisica &","& data &","& local &")" Set rsUser3 = Server.CreateObject("ADODB.Recordset")       rsUser3.Open sql, conn, 3, 3     end if   'insere QUIMICA  if (quimica="4") then       sql="INSERT INTO provas (cod_inscricao, cod_materia, cod_data, cod_local) values("& inscricao &","& quimica &","& data &","& local &")" Set rsUser3 = Server.CreateObject("ADODB.Recordset")       rsUser3.Open sql, conn, 3, 3     end if    'insere BIOLOGIA  if (biologia="5") then       sql="INSERT INTO provas (cod_inscricao, cod_materia, cod_data, cod_local) values("& inscricao &","& biologia &","& data &","& local &")" Set rsUser3 = Server.CreateObject("ADODB.Recordset")       rsUser3.Open sql, conn, 3, 3     end if  'insere HISTORIA  if (historia="6") then       sql="INSERT INTO provas (cod_inscricao, cod_materia, cod_data, cod_local) values("& inscricao &","& historia &","& data &","& local &")" Set rsUser3 = Server.CreateObject("ADODB.Recordset")       rsUser3.Open sql, conn, 3, 3     end if  'insere GEOGRAFIA  if (geografia="7") then       sql="INSERT INTO provas (cod_inscricao, cod_materia, cod_data, cod_local) values("& inscricao &","& geografia &","& data &","& local &")" Set rsUser3 = Server.CreateObject("ADODB.Recordset")       rsUser3.Open sql, conn, 3, 3     end if    'insere ARTES  if (artes="8") then       sql="INSERT INTO provas (cod_inscricao, cod_materia, cod_data, cod_local) values("& inscricao &","& artes &","& data &","& local &")" Set rsUser3 = Server.CreateObject("ADODB.Recordset")       rsUser3.Open sql, conn, 3, 3     end if    'insere FILOSOFIA  if (filosofia="9") then       sql="INSERT INTO provas (cod_inscricao, cod_materia, cod_data, cod_local) values("& inscricao &","& filosofia &","& data &","& local &")" Set rsUser3 = Server.CreateObject("ADODB.Recordset")       rsUser3.Open sql, conn, 3, 3     end if    'insere SOCIOLOGIA  if (sociologia="10") then       sql="INSERT INTO provas (cod_inscricao, cod_materia, cod_data, cod_local) values("& inscricao &","& sociologia &","& data &","& local &")" Set rsUser3 = Server.CreateObject("ADODB.Recordset")       rsUser3.Open sql, conn, 3, 3     end if    'insere INGLES  if (ingles="11") then       sql="INSERT INTO provas (cod_inscricao, cod_materia, cod_data, cod_local) values("& inscricao &","& ingles &","& data &","& local &")" Set rsUser3 = Server.CreateObject("ADODB.Recordset")       rsUser3.Open sql, conn, 3, 3     end ifend if  'Fecha o banco e chama ESCOLHE_MATERIAS.ASP rsUser.close set rsUser = nothing conn.close set conn = nothing Response.Redirect("escolhe_materias.asp")  else      'insere PORTUGUES  if (portugues="1") then       sql="INSERT INTO provas (cod_inscricao, cod_materia, cod_data, cod_local) values("& inscricao &","& portugues &","& data &","& local &")" Set rsUser3 = Server.CreateObject("ADODB.Recordset")       rsUser3.Open sql, conn, 3, 3     end if    'insere MATEMATICA  if (matematica="2") then       sql="INSERT INTO provas (cod_inscricao, cod_materia, cod_data, cod_local) values("& inscricao &","& matematica &","& data &","& local &")" Set rsUser3 = Server.CreateObject("ADODB.Recordset")       rsUser3.Open sql, conn, 3, 3     end if    'insere FISICA  if (fisica="3") then       sql="INSERT INTO provas (cod_inscricao, cod_materia, cod_data, cod_local) values("& inscricao &","& fisica &","& data &","& local &")" Set rsUser3 = Server.CreateObject("ADODB.Recordset")       rsUser3.Open sql, conn, 3, 3     end if   'insere QUIMICA  if (quimica="4") then       sql="INSERT INTO provas (cod_inscricao, cod_materia, cod_data, cod_local) values("& inscricao &","& quimica &","& data &","& local &")" Set rsUser3 = Server.CreateObject("ADODB.Recordset")       rsUser3.Open sql, conn, 3, 3     end if    'insere BIOLOGIA  if (biologia="5") then       sql="INSERT INTO provas (cod_inscricao, cod_materia, cod_data, cod_local) values("& inscricao &","& biologia &","& data &","& local &")" Set rsUser3 = Server.CreateObject("ADODB.Recordset")       rsUser3.Open sql, conn, 3, 3     end if  'insere HISTORIA  if (historia="6") then       sql="INSERT INTO provas (cod_inscricao, cod_materia, cod_data, cod_local) values("& inscricao &","& historia &","& data &","& local &")" Set rsUser3 = Server.CreateObject("ADODB.Recordset")       rsUser3.Open sql, conn, 3, 3     end if  'insere GEOGRAFIA  if (geografia="7") then       sql="INSERT INTO provas (cod_inscricao, cod_materia, cod_data, cod_local) values("& inscricao &","& geografia &","& data &","& local &")" Set rsUser3 = Server.CreateObject("ADODB.Recordset")       rsUser3.Open sql, conn, 3, 3     end if    'insere ARTES  if (artes="8") then       sql="INSERT INTO provas (cod_inscricao, cod_materia, cod_data, cod_local) values("& inscricao &","& artes &","& data &","& local &")" Set rsUser3 = Server.CreateObject("ADODB.Recordset")       rsUser3.Open sql, conn, 3, 3     end if    'insere FILOSOFIA  if (filosofia="9") then       sql="INSERT INTO provas (cod_inscricao, cod_materia, cod_data, cod_local) values("& inscricao &","& filosofia &","& data &","& local &")" Set rsUser3 = Server.CreateObject("ADODB.Recordset")       rsUser3.Open sql, conn, 3, 3     end if    'insere SOCIOLOGIA  if (sociologia="10") then       sql="INSERT INTO provas (cod_inscricao, cod_materia, cod_data, cod_local) values("& inscricao &","& sociologia &","& data &","& local &")" Set rsUser3 = Server.CreateObject("ADODB.Recordset")       rsUser3.Open sql, conn, 3, 3     end if    'insere INGLES  if (ingles="11") then       sql="INSERT INTO provas (cod_inscricao, cod_materia, cod_data, cod_local) values("& inscricao &","& ingles &","& data &","& local &")" Set rsUser3 = Server.CreateObject("ADODB.Recordset")       rsUser3.Open sql, conn, 3, 3     end if end if  'Fecha o banco e chama ESCOLHE_MATERIAS.ASP rsUser.close set rsUser = nothing conn.close set conn = nothing Response.Redirect("escolhe_materias.asp")end if%>