Onde Ta O Erro...

[Guest - tito -]

Onde ta o erro em meu script....

Inicio do Código

<%Response.Buffer = true%>

<!-- #include file="conexao.inc" -->

<%

Dim objRec

Dim ct(), qtdReg, i, objCmd, ctI, vCt

objCmd = Request.QueryString("objCmd")

vCt = Request.QueryString("ctI")

Set objRec = Server.CreateObject("ADODB.RecordSet")

objRec.Open "tblNoticias", objConn

If objCmd = 1 then

objConn.Execute "Delete * From tblNoticias Where id=vCt"

End If

Do While Not objRec.EOF

qtdReg = qtdReg + 1

objRec.MoveNext

Loop

Redim ct(qtdReg)

If qtdReg > 0 then

objRec.MoveFirst

Response.Write "<table width='100%' border='0' cellspacing='0' cellpadding='0'><tr><td height='20' width='100%' style='border-bottom: 1 dotted #666666'><font color='#999999' size='1' face='Verdana, Arial, Helvetica, sans-serif'><strong>T&iacute;tulo</strong></font></td></tr><tr><td height='20'></td></tr></table>"

For i = 1 to Ubound(ct)

ct(i) = objRec.Fields("id")

Response.Write "<table width='100%' border='0' cellspacing='0' cellpadding='0'><tr height='20'><td width='50%'><font color='#999999' size='1' face='Verdana, Arial, Helvetica, sans-serif'>" & objRec.Fields("titulo") & "</font></td><td width='20%'></td><td width='15%'><input type='button' name='btExcluir' value='Excluir' onClick='" & Response.Redirect ("admListar.asp?objCmd=1&ctI=ct(i)") & "' style='width: 75; background-color: #F5F5F5; color: #666666; font-size: 10; font-family: Verdana; border: 1 solid #999999'></td><td width='15%'><input type='button' name='btAlterar' value='Alterar' style='width: 75; background-color: #F5F5F5; color: #666666; font-size: 10; font-family: Verdana; border: 1 solid #999999'></td></tr></table>"

objRec.MoveNext

Next

End If

objRec.Close

objConn.Close

Set objConn = Nothing

%>

Fim do Código

O erro que da é o seguinte...

Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][Driver ODBC para Microsoft Access] Parâmetros insuficientes. Eram esperados 1.

/site/noticias/admNoticias/admListar.asp, line 17

--------------------------------------------------------------------------------------------

Eu nunca mexi com Delete...to aprendendo tudo ultimamente.....

[lcs_sp]

troque:

objConn.Execute "Delete * From tblNoticias Where id=vCt"

Por:

objConn.Execute "Delete * From tblNoticias Where id=" & vCt

tenta ai....

[Victor]

tenta assim:

If objCmd <> "" then
objConn.Execute "Delete * From tblNoticias Where id = "&vCt&""
End If

Qualquer coisa posta ae que nós te ajudaremos!!!!!

Abraços,

[]'s

Victor