For inserindo Valores

[Alexandre de Luccia 0]

ASP

<!--#include file="../conexao.asp" -->

<%

IdAluno = trim(Request.form("id_participante"))

ArrIdAluno = split(IdAluno,",")

 

'response.Write (ArrIdAluno)

 

Set objCon = Server.CreateObject("ADODB.Connection")

objCon.Open strCon

Dim notas

 

for x = 0 to UBound(ArrIdAluno)

       

   notas=request.Form("nota "&ArrIdAluno(x)&"")

   SQLIns = "Insert Into TB_NOTAS (id_participante, nota) values (" & ArrIdAluno(x) & ", " & notas & ")"

 

objCon.execute(SQLIns)

next

%>

 

O primeiro request funciona mas os demais não encontra no form, dei um response.write e listou isso:

 

Insert Into TB_NOTAS (id_participante, nota) values (4, 5)

Insert Into TB_NOTAS (id_participante, nota) values ( 1, )

Insert Into TB_NOTAS (id_participante, nota) values ( 2, )

Insert Into TB_NOTAS (id_participante, nota) values ( 3, )

 

Vlw!

[Alexandre de Luccia 0]

Resolvi com um replace em espaços em branco.<%id=request.QueryString("id")IdAluno = trim(Request.form("IdAluno"))response.Write(IdAluno)response.Write("<br>")ArrIdAluno = split(IdAluno,",")Set objCon = Server.CreateObject("ADODB.Connection")objCon.Open strConfor x = 0 to UBound(ArrIdAluno)ArrIdAluno(x)=replace(ArrIdAluno(x)," ","") SQLIns = "Insert Into TB_NOTAS (id_cronograma, id_participante, nota) values (" & id & ", " & ArrIdAluno(x) & ", " & request.form("nota"& ArrIdAluno(x) ) & ")"objCon.execute(SQLIns)next%>Puro POG !