Erro Chato

[marcos_804]

bem, meu código está assim:

<%

nome = request.querystring("nome")

passe = request.querystring("passe")

If IsEmpty(passe) or passe = "" then

response.write "<br><br><center style=""font-weight:bold;color:#000000"">&Eacute; necess&aacute;rio ter um link para ver a declara&ccedil;&atilde;o<br></center>"

response.write "<a href=""javascript:history.go(-1);"">Clique aqui para VOLTAR</a>"

respone.end

else

DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "

         DSNtemp=dsntemp & "DBQ=" & server.mappath("banco.mdb")

         sqlstmt = "SELECT * FROM declaracoes WHERE nome ='" & de & "' and passe='" & passe & "' ORDER BY id DESC"

         Set rs = Server.CreateObject("ADODB.Recordset")

         rs.Open sqlstmt, DSNtemp, 3, 3'ESTA É A LINHA 33

TotalRecs = rs.recordcount

 de = rs("de")

 passe = rs("passe")

 para = rs("para")

 imagem = rs("imagem")

 font = rs("font")

 declaracao = rs("declaracao")

 musica = rs("musica")

  %>

Mas o tem aparece um erro doido:

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

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 2. 

/teajudo/S TESTES/declara2004/ver_declaracao.asp, line 33 

ALGUÉM PODERIA ME AJUDAR PR FAVOR?

EDITADO: As tags de formatação não funcionam dentro de uma tag CODE, quando quiser formatar o texto, use a tag QUOTE.

Editado Novembro 6, 2004 por dark0

[cyberalexxx]

Tenta deixar o código assim:

<%

nome = request.querystring("nome")

passe = request.querystring("passe")

If IsEmpty(passe) or passe = "" then

response.write "<br><br><center style=""font-weight:bold;color:#000000"">&Eacute; necess&aacute;rio ter um link para ver a declara&ccedil;&atilde;o<br></center>"

response.write "<a href=""javascript:history.go(-1);"">Clique aqui para VOLTAR</a>"

respone.end

else

set conexao=server.createobject("adodb.connection")

Set Rs=Server.CreateObject("ADODB.Recordset")

cnpath="DBQ=" & server.mappath("banco.mdb")

conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath

SQL="SELECT * FROM declaracoes WHERE nome ='" & de & "' and passe='" & passe & "' ORDER BY id DESC"

Rs.Open SQL,conexao,3,3

TotalRecs = rs.recordcount

de = rs("de")

passe = rs("passe")

para = rs("para")

imagem = rs("imagem")

font = rs("font")

declaracao = rs("declaracao")

musica = rs("musica")

  %>

[marcos_804]

Valeu aí, brother. Deu CERTO!!