Problemas Com Update

[bolomaster]

Salve Galera.. olha so eu to com mais um problema e não to conseguindo indentificar o erro na sintaxe sera que alguém pode me ajudar

ta ai o meu script

<%

'Sistema Desenvolvido por Rafael Marciano

dim db, rs

set db = Server.CreateObject("ADODB.Connection")

set rs = Server.CreateObject("ADODB.recordset")

db.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("db/secfac01.mdb")

aluno = Request.form("aluno")

turma = Request.form("turma")

disc = Request.form("disc")

prova1b = request.form("prova1b")

prova2b = request.form("prova2b")

examespecial = request.form("examespecial")

sql = "UPDATE connotas SET NomeAluno = '"&aluno&"', Prova1bim = "&prova1b&",  Prova2bim = "&prova2b&", Examespecial = "&examespecial&" WHERE Turma = "&Turma&" AND AbrevDisc = '"&disc&"'"

rs.open sql, db

response.redirect "testeraro.asp"

rs.close

db.close

set rs = nothing

set db = nothing

%>

Da o seguinte erro

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)

[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe na instrução UPDATE.

/atenas/Faculdade/atualizanotas.asp, line 17

já procurei o erro mas não acho a linha em vermelho é a linha 17, mas o erro é na instrução sql,

beleza, eu conferi tudo, onde não tem aspas simples é porque o campo é tipo numero ok

se alguém identificar me fale por favor

Abraços

[mariofdf]

tente assim:

<%
'Sistema Desenvolvido por Rafael Marciano 
dim db, rs
set db = Server.CreateObject("ADODB.Connection")
db.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("db/secfac01.mdb")
set rs = Server.CreateObject("ADODB.recordset")
aluno = Request.form("aluno")
turma = Request.form("turma")
disc = Request.form("disc")
prova1b = request.form("prova1b")
prova2b = request.form("prova2b")
examespecial = request.form("examespecial")
sql = "UPDATE connotas SET NomeAluno = "&aluno&", Prova1bim = "&prova1b&",  Prova2bim = "&prova2b&", Examespecial = "&examespecial&" WHERE Turma = "&Turma&" AND AbrevDisc = '"&disc&"'"
rs.open sql, db
response.redirect "testeraro.asp"
rs.close
db.close
set rs = nothing
set db = nothing
%>

[dark0]

cara..

de primeira instância.. parece estar tudo ok.

então.. verifica se todas as variaveis estão com valor..

tenta dar um response.write no sql.. e olhe se aparecem todos os valores..

pode ser que alguma variavel esta vazia.. e assim da erro..

t+

[bolomaster]

salve galera olha já tentei de acordo com o mario, e já tinha testado as sql e as variaveis dark0, mas continua dando erro

olha para ver se você entende minha logica, talvez seja erro de logica..

vou postar todo o conteudo para vocês verem ok

então lá vai index.asp

<form name="form1" method="post" action="selectmateria.asp">

<%

'Sistema Desenvolvido por Rafael Marciano

dim db, rs, tblrs, disciplina

Disciplina = Session("disc")

set db = Server.CreateObject("ADODB.Connection")

set rs = Server.CreateObject("ADODB.recordset")

db.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("db/secfac01.mdb")

tblrs = "Select * From disciplinasProfessor"

rs.open tblrs, db

%>

  <select name="disciplina">

  <% do while not rs.eof %>

    <option value="<%=rs.fields("AbrevDisc")%>"><%=rs.fields("AbrevDisc")%></option>

  <% rs.movenext

    loop

  %>

  </select>

<%

rs.close

db.close

set rs = nothing

set db = nothing

%>

<!-- ######################################################### -->

<%

'Sistema Desenvolvido por Rafael Marciano

dim db2, rs2, tblrs2, turma

turma = Session("turma")

set db2 = Server.CreateObject("ADODB.Connection")

set rs2 = Server.CreateObject("ADODB.recordset")

db2.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("db/secfac01.mdb")

tblrs2 = "Select * From Turmas"

rs2.open tblrs2, db2

%>

<Select name="turma">

<% do while not rs2.eof %>

<option value="<%=rs2.fields("CodigoTurma")%>"><%=rs2.fields("CodigoTurma")%></option>

<% rs2.movenext

    loop

%>

  </select>

<input type="submit" name="Submit" value="Submit">

</form>

<%

rs2.close

db2.close

set rs2 = nothing

set db2 = nothing

%>

Selectmateria.asp

<%

dim Conn, RS, SQL, disciplina, turma, varsessao

Set Conn = Server.CreateObject("AdoDb.Connection")

Conn.provider="Microsoft.Jet.OLEDB.4.0"

Conn.connectionstring=Server.Mappath("db/secfac01.mdb")

Conn.open

disciplina = Request.Form("disciplina")

turma = Request.Form ("turma")

SQL = "select * from connotas where AbrevDisc = '"&disciplina&"' and Turma = "&turma&""

Set RS = Conn.Execute(SQL)

If RS.EOF Then

Response.Write "não existem dados para esta turma/disciplina."

Else

varturma = RS.fields("turma")

Session("turma") = varturma

vardisc = RS.fields("AbrevDisc")

Session("disc") = vardisc

Response.Redirect "lancNotas.asp"

End If

%>

LancNotas.asp

<!-- #Include File="colstyle.css" -->

<%

'Sistema Desenvolvido por Rafael Marciano

dim db, rs

turma = Session("turma")

disc = Session("disc")

set db = Server.CreateObject("ADODB.Connection")

set rs = Server.CreateObject("ADODB.recordset")

db.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("db/secfac01.mdb")

tblrs = "SELECT * FROM connotas WHERE Turma = " & turma &" AND AbrevDisc = '"& disc &"' ORDER BY NomeAluno"

rs.open tblrs, db

%>

<form name="form1"action="atualizanotas.asp" method="post">

<table width="100%"  border="0" cellspacing="0" cellpadding="0" class="fonte">

  <tr>

    <td width="40%"><strong>Aluno</strong></td>

    <td width="20%"><div align="center"><strong>Prova 1&ordm; Bimestre </strong></div></td>

    <td width="20%"><div align="center"><strong>Prova 2&ordm; Bimestre </strong></div></td>

    <td width="20%"><div align="center"><strong>Exame especial </strong></div></td>

  </tr>

  <% do while not rs.eof %>

  <tr>

    <td><input name="aluno" readonly="true" type="text" class="input2" id="aluno" value="<%=rs.fields("NomeAluno")%>" size="65">

  <input name="turma" type="hidden" value="<%=rs.fields("Turma")%>">

  <input name="disc" type="hidden" value="<%=rs.fields("AbrevDisc")%>">

</td>

    <td><div align="center">

      <input name="prova1b" type="text" class="input2" id="prova1b" value="<%=rs.fields("Prova1bim")%>" size="20" maxlength="4">

    </div></td>

    <td><div align="center">

      <input name="prova2b" type="text" class="input2" id="prova2b" value="<%=rs.fields("Prova2bim")%>" size="20" maxlength="4">

    </div></td>

    <td><div align="center">

      <input name="examespecial" type="text" class="input2" id="examespecial" value="<%=rs.fields("examespecial")%>" size="20" maxlength="4">

    </div></td>

  </tr>

  <%

  rs.movenext

  loop

  rs.close

  db.close

  set rs = nothing

  set db = nothing

  %>

</table>

<input name="enviar" type="submit" value="Enviar">

</form>

E por ultimo o arquivo atualizanotas.asp

<%

'Sistema Desenvolvido por Rafael Marciano

dim db, rs

set db = Server.CreateObject("ADODB.Connection")

set rs = Server.CreateObject("ADODB.recordset")

db.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("db/secfac01.mdb")

aluno = Request.form("aluno")

turma = Session("turma")

disc = Session("disc")

prova1b = request.form("prova1b")

prova2b = request.form("prova2b")

examespecial = request.form("examespecial")

sql = "UPDATE connotas SET NomeAluno = '"&aluno&"', Prova1bim = "&prova1b&",  Prova2bim = "&prova2b&", Examespecial = "&examespecial&" WHERE Turma = "&turma&" AND AbrevDisc = '"&disc&"'"

db.execute(sql)

response.write "As notas estão sendo enviadas aguarde um momento por favor..."

response.redirect "testeraro.asp"

rs.close

db.close

set rs = nothing

set db = nothing

%>

ele esta retornando o seguinte erro, mesmo depois de todas as alterações

Tipo de erro:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe na instrução UPDATE.
/atenas/Faculdade/atualizanotas.asp, line 14

Ai espero que para entender,

Tipo este é o mesmo sistema que uso no SINFA, e não da problemas, mas agora estou adaptando a um banco de dados já existentes, e ta muito complicado, vao aparecendo erros atras de erros. mas espero contar com a ajuda desta querida galera da scriptbrasil

Abraços a todos e muito obrigado pela força

Se alguém souber o porque esta acontecendo por favor me fale

fui

[mariofdf]

Estes dias comeram bolo aqui no ani do GUTO, eu fiquei sabendo viu...

tenta ai...

<%
'Sistema Desenvolvido por Rafael Marciano 
dim db, rs
set db = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.recordset")
db.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("db/secfac01.mdb")
aluno = Request.form("aluno")
turma = Session("turma")
disc = Session("disc")
prova1b = request.form("prova1b")
prova2b = request.form("prova2b")
examespecial = request.form("examespecial")
sql = "UPDATE connotas SET NomeAluno = '"&aluno&"', Prova1bim = "&prova1b&",  Prova2bim = "&prova2b&", Examespecial = "&examespecial&""
SQL = SQL & "WHERE Turma = "&turma&" AND AbrevDisc = '"&disc&"'"
Set RS = db.execute(sql)
response.write "As notas estão sendo enviadas aguarde um momento por favor..."
response.redirect "testeraro.asp"
rs.close
db.close
set rs = nothing
set db = nothing
%>

[bolomaster]

Salve companheiros... é não ninguém comeu bolo não... aqui ninguém come.. bolo..

mas meu eu tentei e deu erro, mas valeu pela ajuda se alguém tiver mais alguma tentativa

abraços

[mariofdf]

nunca montei uma ganbiarra tão grande mas tenta ai...

<%
dim db, rs
set db = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.recordset")
db.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("db/secfac01.mdb")

	Dim aluno, turma, disc, prova1b, prova2b, examespecial
aluno = Request.form("aluno")
turma = Session("turma")
disc = Session("disc")
prova1b = request.form("prova1b")
prova2b = request.form("prova2b")
examespecial = request.form("examespecial")

	a=split(disc,",")
	b=split(aluno,",")
	c=split(turma,",")
	d=split(prova1b,",")
	e=split(prova2b,",")
	f=split(examespecial,",")

	dim iLoop
	for iLoop=LBound(a) to UBound(a)
  intDelSno=Trim(a(iLoop))
  intDelSno=Trim(b(iLoop))
  intDelSno=Trim(c(iLoop))
  intDelSno=Trim(d(iLoop))
  intDelSno=Trim(e(iLoop))
  intDelSno=Trim(f(iLoop))
sql = "UPDATE notasfaltas SET NomeAluno = '"&b&"', Prova1bim = "&d&",  Prova2bim = "&e&", Examespecial = "&f&""
SQL = SQL & "WHERE Turma = "&c&" AND AbrevDisc = '"&a&"'"
Set RS = db.execute(sql)
	next
response.write "As notas estão sendo enviadas aguarde um momento por favor..."
response.redirect "testeraro.asp"
rs.close
db.close
set rs = nothing
set db = nothing
%>

[bolomaster]

Grande Mario valeu pela ajuda que ta me dando .. deu um erro

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A000D)

Tipos incompatíveis

/atenas/Faculdade/atualizanotas.asp, line 30

mas verifiquei e não achei nada que pudesse estar errado

[dark0]

hum..

tipos incompativeis..

tenta.. dentro do SQL, quando você comparar o campo do banco, com uma variavel.. se for numerico.. coloca CIIN(variavel) e se for string.. CSTR(variavel)

quem sabe...

ps: não olhei os outros codigos.. nem aquelas paginas todas.. (to com uma dor de cabeça triste..)

t+

[dark0]

outra coisa..

tava olhando ali..

você ta fazendo isso:

response.write "As notas estão sendo enviadas aguarde um momento por favor..."

response.redirect "testeraro.asp"

quando você coloca response.WRITE, ele escreve na tela.

quando você coloca response.REDIRECT, ele redireciona né.. mas só funciona se nada tiver sido escrito na pagina..

acho que quando você arrumar esse erro do update, terás problemas aqui tb..

só um toque..

ate mais

dark

[bolomaster]

Salve Dark0, cara valeu pela dica

Mas olha só continua não funcionando mostrando o mesmo erro, ontem com a ajuda do amigo Mariofdf, nos tentamos varios scripts e não funcionaram, sera que alguém tem mais alguma ideia, oh Mario muito obrigado pela ajuda, viu valeu mesmo se precisar mim é so falar,

Galera se alguém tiver uma ideia eu fico aguardando

abraços

Rafael Marciano

[dark0]

huhu..

mario.. legal sua engenbração ae.. hehe

mas tava dando erro..

ae eu deixei ela assim:

url_conexao = Server.MapPath("db/secfac01.mdb")

set conexao = Server.CreateObject("ADODB.Connection")

conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao

aluno = Replace(Request.form("aluno"),"'","''")

turma = Session("turma")

disc = Session("disc")

prova1b = Replace(request.form("prova1b"),"'","''")

prova2b = Replace(request.form("prova2b"),"'","''")

examespecial = Replace(request.form("examespecial"),"'","''")

id_notasfaltas = Replace(request.form("id"),"'","''")

a=split(aluno,",")

b=split(prova1b,",")

c=split(prova2b,",")

d=split(examespecial,",")

e=split(id_notasfaltas,",")

dim iLoop

for iLoop=LBound(a) to UBound(a)

sql = "UPDATE notasfaltas SET NomeAluno = '"&a(iloop)&"', Prova1bim = "&b(iloop)&",  Prova2bim = "&c(iloop)&", Examespecial = "&d(iloop)&" WHERE Turma = "&turma&" AND AbrevDisc = '"&disc&"'"

Set RS = conexao.Execute(SQL)

next

response.redirect "testeraro.asp"

enxutei ela.. e alterei agumas coisas..

t+

[bolomaster]

Salve Galera, graças a ajuda do Dark0 e do Mariofdf estamos resolvendo o problema

So que olha o que acontece, quando executamos a sql do update, ao invés de atualizar todos os dados direitinho, ele atualiza todos os dados, mas coloca todos como se fossem o primeiro registro.

tipo se tiver 43 registros e o primeiro for ana , os 43 ficam como ana.

Agora se comentarmos a linha do execute(SQL) e colocarmos um response.write no sql, ele mostra os dados direitinho..

alguém sabe porque isto esta acontecendo tem alguma luz

Abraços

[mariofdf]

eu sei porque.

Ai Dark0 ficou legal a ganbiarra que voce feis com minha ganbiarra,

Bolomaster pense no seguinte, quando voce da o loop para exibir os registros, e depois submete os mesmos o seu formulario esta com todos os campos com o mesmo nome, então o request so pega o 1º, estou pensando em uma função aqui que corrija isto, pois tambem vou precisar para a loja que estou montando... Mais a tarde te mando...

[mariofdf]

Post editado pois o codigo que eu postei aqui ficou ridículo, chegava a ser uma piada...

[mariofdf]

Se o código que te mandei deu certo mesmo, só não esqueça de postar aqui, para outros usarem tambem,

Bem que eu ate agora não sei como eu fui ter uma ideia tão esquisita que pelo jeito deu certo....

[dark0]

hehe

mario..

o que você alterou em relação ao codigo que você postou antes que eu alterei?

Pois, aquele seu codigo lá não tava funcionando.. eu mesmo tentei ele e não deu..

pelo q vi, você colocou dentro do sql, o modo que eu coloquei.. usando indice do vetor..

você testou ai?

mas eu tinha colocado quase a mesma coisa..

só fiz um loop.. usando a variavel nome..

Vamos ver se funcionou..

confesso que eu nunca havia usado assim o SPLIT

mas é aparentemente facil de usar.

Ate mais.. vamos ver se deu certo lá com o bolo..

[mariofdf]

ai dark0 não é o codigo que esta ai, eu peguei o codigo meu que voce alterou e mudei o parametro de pesquisa e a conexão. acho que foi isto...

[dark0]

ah tá..

ok

hoje de manha.. eu fiquei umas 2 horas mechendo no codigo do bolo..

e quando achei que tinha conseguido.. vi que não consegui.. hehe

se mandasse mostrar o SQL, ele mostrava tudo certinho.. dentro do loop.. mostrava varios SQLs.. com todos os dados, como tem que ser.

mas quando mandava executar.. Ele deixava todos iguais..

estranho isso..

pode ser alguma particularidade do recordset, em loop..

Ate mais

[mariofdf]

Não, era o parametro que estava errado, mas não foi erro seu nem meu, quando eu pensei naquela ganbiarra nem prestei atenção que não tinha na tabela um campo padrão para comparação, então criei um campo autonumeraçõ na tabela dele e peguei seu codigo e troquei o parametro de comparação, só fiz isso, e aquele primeiro codigo que eu tinha feito tinha ficado muito confuso mesmo.

[bolomaster]

Salve Galera,

Pô vida de bolo é dificil, esse fim de semana, não deu para entrar na net, mas ta valendo olha, so eu vou postar o codigo.

olha o arquivo atualizanotas.asp

<%
Set Con = Server.CreateObject("adodb.connection")  
Con.CursorLocation = 3        	
Con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/secfac01.mdb") & ";Persist Security Info=False"'Application("StrConexaoBD")  
Con.open 


aluno = Replace(Request.form("aluno"),"'","''")
turma = Session("turma")
disc = Session("disc")
prova1b = Replace(request.form("prova1b"),"'","''")
prova2b = Replace(request.form("prova2b"),"'","''")
examespecial = Replace(request.form("examespecial"),"'","''")
id_notasfaltas = Replace(request.form("id"),"'","''")

a=split(aluno,",")
b=split(prova1b,",")
c=split(prova2b,",")
d=split(examespecial,",")
e=split(id_notasfaltas,",")

dim iLoop
for iLoop=LBound(a) to UBound(a)
sql = "UPDATE notasfaltas SET NomeAluno = '"&a(iloop)&"', Prova1bim = "&b(iloop)&",  Prova2bim = "&c(iloop)&", Examespecial = "&d(iloop)&" WHERE idnotasfaltas = "&e(iloop)&""
Set RS = Con.Execute(SQL)
next

response.redirect "testeraro.asp"
%>

Eu gostaria de agradecer muito a ajuda do dark0, Tio Urso, Mariofdf, que se disponibilizaram a me ajudar, sei que todos temos uma vida muito corrida e nosso tempo é cada dia mais curto, muito obrigado pela ajuda de vocês e já pode fechar o tópico.

Ai se quiserem posto os outros arquivos aqui, não postei porque eles tem no começo.. abraços

PS - > Se Precisarem de alguma ajuda.. podem falar comigo

Fui

Rafael Marciano -> Bolomaster

[bolomaster]

Salve Galera.. olha eu novamente aqui

Resolvi mudar a forma de update dos arquivos, pois estava muito lento com varios campos.. então eu fiz o seguinte coloquei pra repetir o form no arquivo ou seja . kda form um update.. até ai beleza so que da erro pode me ajudar

abraços a todos olhem meus arquivos

default.asp

<form name="form1" method="post" action="selectmateria.asp">

<%

'Sistema Desenvolvido por Rafael Marciano

dim db, rs, tblrs, disciplina

Disciplina = Session("disc")

set db = Server.CreateObject("ADODB.Connection")

set rs = Server.CreateObject("ADODB.recordset")

db.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("db/secfac01.mdb")

tblrs = "Select * From disciplinasProfessor"

rs.open tblrs, db

%>

  <select name="disciplina">

  <% do while not rs.eof %>

    <option value="<%=rs.fields("AbrevDisc")%>"><%=rs.fields("AbrevDisc")%></option>

  <% rs.movenext

    loop

  %>

  </select>

<%

rs.close

db.close

set rs = nothing

set db = nothing

%>

<!-- ######################################################### -->

<%

'Sistema Desenvolvido por Rafael Marciano

dim db2, rs2, tblrs2, turma

turma = Session("turma")

set db2 = Server.CreateObject("ADODB.Connection")

set rs2 = Server.CreateObject("ADODB.recordset")

db2.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("db/secfac01.mdb")

tblrs2 = "Select * From Turmas"

rs2.open tblrs2, db2

%>

<Select name="turma">

<% do while not rs2.eof %>

<option value="<%=rs2.fields("CodigoTurma")%>"><%=rs2.fields("CodigoTurma")%></option>

<% rs2.movenext

    loop

%>

  </select>

<input type="submit" name="Submit" value="Submit">

</form>

<%

rs2.close

db2.close

set rs2 = nothing

set db2 = nothing

%>

selectmateria.asp

<%

'conexao do dark0

url_conexao = Server.MapPath("db/secfac01.mdb")

set conexao = Server.CreateObject("ADODB.Connection")

conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao

disciplina = Request.Form("disciplina")

turma = Request.Form ("turma")

if turma = "" or disciplina = "" then

response.write "Estao faltando valores.."

response.end

end if

SQL = "select * from connotas where AbrevDisc = '"&disciplina&"' and Turma = "&turma&""

Set RS = conexao.Execute(SQL)

If RS.EOF Then

Response.Write "não existem dados para esta turma/disciplina."

Else

varturma = RS.fields("turma")

Session("turma") = varturma

vardisc = RS.fields("AbrevDisc")

Session("disc") = vardisc

Response.Redirect "lancNotas.asp"

End If

%>

lancnotas.asp

<!-- #include File ="colstyle.css" -->

<%

'Sistema Desenvolvido por Rafael Marciano

'conexao do dark0

url_conexao = Server.MapPath("db/secfac01.mdb")

set conexao = Server.CreateObject("ADODB.Connection")

conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao

turma = Session("turma")

disc = Session("disc")

if turma = "" or disc = "" then

response.write "Estao faltando valores.."

response.end

end if

sql = "SELECT * FROM notasfaltas WHERE Turma = "& turma &" AND AbrevDisc ='"& disc &"' ORDER BY NomeAluno"

set rs = conexao.execute(sql)

%>

<table width="100%"  border="0" cellspacing="0" cellpadding="0" class="fonte">

  <tr>

    <td width="40%"><strong>Aluno</strong></td>

    <td width="20%"><div align="center"><strong>Prova 1&ordm; Bimestre </strong></div></td>

    <td width="20%"><div align="center"><strong>Prova 2&ordm; Bimestre </strong></div></td>

    <td width="20%"><div align="center"><strong>Exame especial </strong></div></td>

  </tr>

    <% do while not rs.eof %>

  <form name="form1"action="atualizanotas.asp" method="post">

    <tr>

    <td><input name="aluno" type="text" class="input2" id="aluno" value="<%=rs.fields("NomeAluno")%>" size="65">

  <input name="turma" type="hidden" value="<%=rs.fields("Turma")%>">

    <input name="disc" type="hidden" value="<%=rs.fields("AbrevDisc")%>">

<input name="id" type="hidden" value="<%=rs.fields("idnotasfaltas")%>">

</td>

    <td><div align="center">

      <input name="prova1b" type="text" class="input2" id="prova1b" value="<%=rs.fields("Prova1bim")%>" size="20" maxlength="4">

    </div></td>

    <td><div align="center">

      <input name="prova2b" type="text" class="input2" id="prova2b" value="<%=rs.fields("Prova2bim")%>" size="20" maxlength="4">

    </div></td>

    <td><div align="center">

      <input name="examespecial" type="text" class="input2" id="examespecial" value="<%=rs.fields("examespecial")%>" size="20" maxlength="4"> <input name="ok"  class="button"type="submit" value="ok">

    </div></td>

  </tr>

</form>

  <% rs.movenext

  loop

  %>

</table>

e por ultimo o arquivo que esta dando erro

atualizanotas.asp

se alguém souber o que ta acontecendo

<%

'Sistema Desenvolvido por Rafael Marciano

dim db, rs, tblrs, disciplina

Disciplina = Session("disc")

set db = Server.CreateObject("ADODB.Connection")

db.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("db/secfac01.mdb")

id = Cint(request.form("id"))

aluno = Request.form("aluno")

turma = request.form("turma")

disc = request.form("disc")

prova1b = request.form("prova1b")

prova2b = request.form("prova2b")

examespecial = request.form("examespecial")

sql = "UPDATE NotasFaltas SET NomeAluno = '"&aluno&"', Prova1bim = "&prova1b&",  Prova2bim = "&prova2b&", Examespecial = "&examespecial&",  Turma = "&turma&", Abrevdisc = '"&disc&"' WHERE idnotasfaltas = "&id&""

Set rs = db.Execute(sql)

response.redirect "testeraro.asp"

rs.close

db.close

set rs = nothing

set db = nothing

%>/

olha oerro

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)

[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe na instrução UPDATE.

/site/notas/atualizanotas.asp, line 15

abraços e fui