error 800a0cc1

[marcelovianna 0]

Caros colegas,estou tendo uma dificuldade com meu código ASP.Tenho uma página que deve criar um registro "curso" e vincular locais a este curso. Quando consultar o curso ele deve aparecer somente 1 vez e trazer as caixas de seleção (checkbox) de todos os locais vinculados selecionado e os não vinculados não-selecionados. quando dou cadastrar ele cadastra o curso, mas retorna o seguinte erro e não vincula os locais: ADODB.Recordset error '800a0cc1' Item cannot be found in the collection corresponding to the requested name or ordinal. Os campos das tabelas são: curso: cd_cur e nm_cur | localidade: cd_loc e nm_loc | local_curso: cd_cur e cd_loc Segue abaixo o código: <% Dim cadastro,verif_catIf Not (IsEmpty(Request.Form("nm_cur"))) Then set verif_cat = lojaDB.Execute("SELECT * FROM curso WHERE nm_cur ='"& Request.Form("nm_cur") & "'") IF verif_cat.EOF Then Dim lista_local, lu3 set lista_local = lojaDB.Execute("SELECT * FROM localidade") While not lista_local.EOF If Not (IsEmpty(Request.Form(lista_local("nm_loc")))) Then lojaDB.Execute("INSERT INTO curso(nm_cur) VALUES ('" & Request.Form("nm_cur") & "')") set lu3 = lojaDB.Execute("SELECT MAX(cd_cur) FROM curso") response.write lu3("cd_cur") lojaDB.Execute("INSERT INTO local_curso(cd_loc,cd_cur) VALUES (" & Request.Form("cd_loc") & "," & lu3("cd_cur") & ")") End If lista_local.MoveNext Wend %> <tr width=100%><td width=100%><font color=red>Curso Cadastrado</font></tr> <% cadastro = "nao" Else %> <tr width=100%><td width=100%><font color=red>Curso já existe</font></tr> <% End IfEnd IfIf Not (cadastro = "nao") Then %> <tr width=100%><td width=100%> <form action="./cad_cur.asp" method=post> <table width=100% border=0 cellpadding="4" cellspacing="2"> <tr width=100%> <td width=10% valign="top" bgcolor="#FFEAFF">Curso : </td> <td><input type=text maxlength=50 size=50 name=nm_cur></td> </tr> <tr> <td valign="top" bgcolor="#FFEAFF">Locais :</td> <td><% Dim lista_locais set lista_locais = lojaDB.Execute("SELECT * FROM localidade") While not lista_locais.EOF %> <input name="<%=lista_locais("nm_loc")%>" type="checkbox" value="<%=lista_locais("cd_loc")%>"> <%=lista_locais("nm_loc")%><br> <% lista_locais.MoveNext Wend %></td> <tr> <td valign="top"> </td> <td><input name="submit" type=submit onClick="this.value='Aguarde!'" value="Cadastrar"></td> </table> </form> </td></tr><% End If %> Desde já agradeço. Marcelo.

[rOcKLoCo 0]

você está referenciando em algum Recordset um campo q não existe ou alias q você não definiu no SQL...dá uma verificada!!EX: TabelaCampo1SELECT CAMPO1 FROM TABELAResponse.Write Rs("CAMPO")falwos

[marcelovianna 0]

Acredito que seja algum problema na construçõ desta linha: set lu3 = lojaDB.Execute("SELECT MAX(cd_cur) FROM curso")Ela deve selecionar o código do último curso cadastrado para poder inserir junto com o código do local na tabela. Será que é esse MAX(cd_cur) que está dando problema? Como fazer recuperar somente o código do curso que está cadastrando?

[alphamek 2]

È problema na sua instrução SQL. Verifica aí novamente... OK! Abraços,

[FabricioGomes 0]

set lu3 = lojaDB.Execute("SELECT MAX(cd_cur) as cd_cur FROM curso")ok ;)

[Mário Monteiro 179]

o erro não é no select e sim no response.writevocê pode traocar esta linha response.write lu3("cd_cur")porresponse.write lu3(0)que funcionaou então pra ficar mais claro você usar alias como o fabricio mostrou e chama do mesmo modo como está...