Erro chato

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

---^