[Resolvido] codigo ficou doido

[lezão 0]

Ola bom dia! amigos

 

 

tenho esse codigo ja rodando na net masagora q eu preciso dele ele esta dando erro

 

codigo

<% registros = 13
pagina = Request.QueryString("pagina")
If pagina = "" Then
pagina = 1
End If

'Efetuando a conexão com a base de dados criada -----------------------
Set conexao = Server.CreateObject("AdoDb.Connection")
conexao.provider="Microsoft.Jet.OLEDB.4.0"
conexao.connectionstring=Server.Mappath("dados/dados.mdb")
conexao.open

Set rs = Server.Createobject("ADODB.RECORDSET")
set rs.ActiveConnection = Conexao
rs.CursorType = 3
rs.PageSize = registros 

sql = "select TOP 20 * from logos order by RND(INT(NOW*id)-NOW*id)"
rs.Open sql
If rs.EOF Then
Response.Write "<center><font face=Verdana size=2><b>Nenhum registro encontrado!</b><br><br><a href=javascript:history.back(-1)><font face=Verdana, Arial, Helvetica, sans-serif size=1>Voltar</font></a> </center></font>"


Else
rs.AbsolutePage = pagina
x = x + 1
%>
  		  		<table width="192" height="1">	
   	<tr><%	While Not rs.EOF AND x < rs.PageSize	
   	x = x + 1 
q = q + 1 
%>
   		   		<td height=1 width=193> 
   		      			<table width="186" height="239" background="imagens/boxImage.gif">  
<td height="17" width="178" style="height: 12.75pt">  	
<table width="176" height="72" cellspacing="3" cellpadding="0">
      
<col width="64" span="2" style="width:48pt">
<tr height="17" style="height:12.75pt"> 
<td height="11" class="xl24" width="168">	
  <div align="center"><img src="admin/logotipos/<%=rs("foto")%>" width="111" height="107" border="0px"> </div></td>
				  </tr>
														<tr height="17" style="height:12.75pt">
														<td width="168" height="3">
                                                          <table width="170" cellspacing="0" cellpadding="0">
                                                            <tr>
                                                              <td height="17" style="height: 12.75pt"><div align="center"><font size="2" face="Verdana" color="#000000"><%=rs("nome")%></font></div></td>
                                                            <tr>
                                                              <td height="17" width="168" style="height: 12.75pt">
                                                                <p align="center" class="style4 style1 style7"><font size="2" face="Verdana">R$:</font></td>
                                                          </table>                                                        </td>	
														</tr>
				</table>			  </td> 
	</table>	</td>
<% If q = 3 Then %> 	 
 </tr>
 <tr><%	 	
 	q = 0  	
 		End If    	
rs.MoveNext
 
 		Wend
%>


</font>				  </tr> 
	  </table>
	 	  </div>
<table width="100%">
  <tr>
    <td height="17" width="657" style="height: 12.75pt">
      <p align="center">
<font face="Verdana" size="1" color="#808080">
 					  
<%rs.Close
Set rs = Nothing
End If 
%>
	</font> </td>
  </tr>
</table>

 

 

erro

Microsoft JET Database Engine error '80040e10' 

No value given for one or more required parameters. 

/public_html/websowzza/teste.asp, line 28 

[xanburzum 169]

Este erro é devido a um dos seguintes procedimentos:

 

1. Um nome de domínio foi digitado incorretamente.

2. Um ou mais dos valores em branco.

3. Você tentou inserir o tipo de dados errado (por exemplo, um valor numérico com aspas, ou se esqueceu de colocar aspas em torno de uma string).

 

dá um response.write na string SQL, para ver o k esta sendo passado

response.write(SQL)
response.end()

Verifique se há dados para todos os parametros que você está passando, e comparar os nomes das colunas diretamente com os da tabela.

[lezão 0]

Só naun entendi essa parte!

 

response.write(SQL) 
response.end() 

aonde eu coloco ?

[Mário Monteiro 179]

Antes da linha que executa a sql

 

no caso antes de

 

rs.Open sql

[xanburzum 169]

<% registros = 13
pagina = Request.QueryString("pagina")
If pagina = "" Then
pagina = 1
End If

'Efetuando a conexão com a base de dados criada -----------------------
Set conexao = Server.CreateObject("AdoDb.Connection")
conexao.provider="Microsoft.Jet.OLEDB.4.0"
conexao.connectionstring=Server.Mappath("dados/dados.mdb")
conexao.open

Set rs = Server.Createobject("ADODB.RECORDSET")
set rs.ActiveConnection = Conexao
rs.CursorType = 3
rs.PageSize = registros 

sql = "select TOP 20 * from logos order by RND(INT(NOW*id)-NOW*id)"
rs.Open sql
response.write(SQL) 
response.end()

e veja o resultado, os valores que esta sendo passado

[lezão 0]

Apareceu este erro

 

select TOP 20 * from logos order by RND(INT(NOW*id)-NOW*id)

[xanburzum 169]

qual erro ?

coloque o número e linha...

[Mário Monteiro 179]

A linha 28 do erro original do tópico era a do open mesmo?

 

O campo autonumerico desta tabela logos é id mesmo?

[lezão 0]

O Campo numerico estava errado estava como codigo ao em vez de id, arrumei mas agora esta dando este erro

 

Microsoft JET Database Engine error '80004005' 

Unrecognized database format 'e:\home\shopcolina1\Web\public_html\websowzza\dados\dados.mdb'. 

/public_html/websowzza/teste.asp, line 20 

 

A linha 28 do erro original do tópico era a do

 

rs.Open sql

[Vinicius Ianni 189]

E nesse erro novo a linha 20 é qual ?

[lezão 0]

erro

 

 

Microsoft JET Database Engine error '80004005' 

Unrecognized database format 'e:\home\shopcolina1\Web\public_html\websowzza\dados\dados.mdb'. 

/public_html/websowzza/teste.asp, <b> line 11 </b> 

[Mário Monteiro 179]

Não está reconhecendo o DB

 

Está tudo certo com ele?

 

De um "Compactar e Reparar Banco de Dados" para ver se corrige

[lezão 0]

como eu faço isso ?

 

Criei outro banco e deu certo muito obrigado pela suas atenções

[Mário Monteiro 179]

Então deve ter danificado seu arquivo

 

A reparação seria feita no próprio access mas se já concertou nem precisa

 

Parabéns pela solução

[Vinicius Ianni 189]

Que bom que resolveu :)