Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

hunger

erro "type mismatch"

Por , em ASP Clássico

Recommended Posts

hunger    0

hunger
Postado

to de volta....rs

 

bom, estava fazendo uma pagina para exibição dos aniversariantes do mês. No caso, a página deveria identificar no cadstro dos funcionarios quais sao do mes atual e jogar na tela....

 

antes de fazer esse lance de puxar, estava montando a pagina, fazendo a tabela onde aparecerá o resultado, etc. tentando inclusive fazer o repeat region, para q ele mostre todos em uma pagina só.

 

MAS.... deu um erro no meio do caminho aqui q não sei o que é. vou postar o erro e o codigo aqui. caso nao de pra entender nada, deixa quieto q vou mexendo aqui.... pq as vezes posso ter zuado td mesmo...

 

 

ERRO:

 

Microsoft VBScript runtime error '800a000d'

 

Type mismatch

 

/funcionarios/aniv_mes.asp, line 39

 

 

CODIGO:

ASP [/tr][tr]

<%@LANGUAGE="VBSCRIPT"%>

 

<%

'Efetuando a conexão com a base de dados criada ---------------------------

Set Conn = Server.CreateObject("AdoDb.Connection")

Conn.provider="Microsoft.Jet.OLEDB.4.0"

Conn.connectionstring="e:\home\dad\dados\bdfuncionarios.mdb"

Conn.open

'--------------------------------------------------------------------------

 

'Vamos criar o objeto Record Set -> neste caso é necessário declará-lo,

'pois vamos utilizar algumas funções deste objeto

Set RS = Server.CreateObject("adodb.recordset")

 

SQL = "SELECT * FROM funcionarios ORDER BY ANO_NASC DESC, MES_NASC DESC, DIA_NASC DESC"

RS.Open SQL,Conn,3,3

 

'Vamos agora verificar exceções do tipo “fim de arquivo” (EOF), se a página atual é menor

'que zero, se é maior que o número total de páginas, etc.

IF RS.EOF then

Response.Write "nenhum aniversariante este mês"

Response.End 'paramos o programa

END IF

'Fim das verificações de exceções

%>

 

<%

Dim RS

Dim RS_numRows

 

RS_numRows = 0

%>

<%

Dim Repeat1__numRows

Dim Repeat1__index

 

Repeat1__numRows = -1

Repeat1__index = 0

RS_numRows + Repeat1__numRows *********************************

%>

 

 

<title>DAD Engenharia - Intranet | Aniversariantes do Mês</title>

 

<style type="text/css">

<!--

@import url("../webdad.css");

-->

</style>

 

 

<%

While ((Repeat1__numRows <> 0) AND (RS.EOF))

%>

 

<%

if (RSAltera("IMG")) <> "" then

%>

 

<table width="400" cellpadding="0" cellspacing="0">

<tr>

<td> </td>

</tr>

<tr>

<td> <p><img src="upload/<%=(RSAltera("IMG"))%>" width="100" height="133" hspace="2" vspace="2" border="1" align="left">

<%=(RS("NOME"))%></p>

<p class="texto">Data de Nascimento: <%=(RS("DIA_NASC"))%>/<%=(RS("MES_NASC"))%>/<%=(RS("ANO_NASC"))%></p>

<p class="texto">Função: <%=(RS("FUNCAO"))%></p>

<p class="texto">Setor: <%=(RS("SETOR"))%></p></td>

<% end if %>

</tr>

<tr>

<td> </td>

</tr>

<tr>

<td><hr></td>

</tr>

</table>

 

<%

Repeat1__index=Repeat1__index+1

Repeat1__numRows=Repeat1__numRows-1

RS.MoveNext()

Wend

%>

[/tr]

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

qual é a linha 39???

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

cara só de olhar dá pra ver que ta errado issoRS_numRows + Repeat1__numRows ta somando uma coisa e não ta guardandoserá que não seria um igual no lugar dquele +olha suas outras peges geradas pelo DW e ve o que ele coloca nestes casos....

Compartilhar este post

Link para o post
Compartilhar em outros sites

hunger    0

hunger
Postado

neste caso, o q está no lugar é:RS_numRows = RS_numRows + Repeat1__numRowscoloquei isso e agora a pagina fica em branco...... nao aparece erro, mas tbem nao aparece p*** nenhuma....

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

cara acho que tava faltando um NOT nesta linha

While ((Repeat1__numRows <> 0) AND (RS.EOF))
deveria ser assim

 

While ((Repeat1__numRows <> 0) AND ( NOT RS.EOF))
Mas acho que você deveria tentar aos poucos deixar de usar o DW pra gerar seus codigos, tirei o que achava que não precisava pra funcionar sua page

 

tenta primeiro só mudar a linha acima, se rolar salva um backup e muda pro que ta abaixo, sem aqueles testes do DW

 

[tr][/tr][tr][/tr]
ASP <%@LANGUAGE="VBSCRIPT"%>

 

<%

Set Conn = Server.CreateObject("AdoDb.Connection")

Conn.provider="Microsoft.Jet.OLEDB.4.0"

Conn.connectionstring="e:\home\dad\dados\bdfuncionarios.mdb"

Conn.open

 

Set RS = Server.CreateObject("adodb.recordset")

 

SQL = "SELECT * FROM funcionarios ORDER BY ANO_NASC DESC, MES_NASC DESC, DIA_NASC DESC"

RS.Open SQL,Conn,3,3

 

IF RS.EOF then

Response.Write "nenhum aniversariante este mês"

Response.End

END IF

%>

 

<title>DAD Engenharia - Intranet | Aniversariantes do Mês</title>

 

<style type="text/css">

<!--

@import url("../webdad.css");

-->

</style>

 

 

<%

While NOT RS.EOF

%>

 

<%

if (RSAltera("IMG")) <> "" then

%>

 

<table width="400" cellpadding="0" cellspacing="0">

<tr>

<td> </td>

</tr>

<tr>

<td> <p><img src="upload/<%=(RSAltera("IMG"))%>" width="100" height="133" hspace="2" vspace="2" border="1" align="left">

<%=(RS("NOME"))%></p>

<p class="texto">Data de Nascimento: <%=(RS("DIA_NASC"))%>/<%=(RS("MES_NASC"))%>/<%=(RS("ANO_NASC"))%></p>

<p class="texto">Função: <%=(RS("FUNCAO"))%></p>

<p class="texto">Setor: <%=(RS("SETOR"))%></p></td>

<% end if %>

</tr>

<tr>

<td> </td>

</tr>

<tr>

<td><hr></td>

</tr>

</table>

 

<%

RS.MoveNext()

Wend

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

hunger    0

hunger
Postado

tanto mudando a linha q tu falou, como usando o codigo q você fez, dá o seguinte erro:

 

 

Microsoft VBScript runtime error '800a000d'

 

Type mismatch: 'RSAltera'

 

/funcionarios/aniv_mes.asp, line 34

 

 

 

ASP [/tr][tr]

<%@LANGUAGE="VBSCRIPT"%>

 

<%

Set Conn = Server.CreateObject("AdoDb.Connection")

Conn.provider="Microsoft.Jet.OLEDB.4.0"

Conn.connectionstring="e:\home\dad\dados\bdfuncionarios.mdb"

Conn.open

 

Set RS = Server.CreateObject("adodb.recordset")

 

SQL = "SELECT * FROM funcionarios ORDER BY ANO_NASC DESC, MES_NASC DESC, DIA_NASC DESC"

RS.Open SQL,Conn,3,3

 

IF RS.EOF then

Response.Write "nenhum aniversariante este mês"

Response.End

END IF

%>

 

<title>DAD Engenharia - Intranet | Aniversariantes do Mês</title>

 

<style type="text/css">

<!--

@import url("../webdad.css");

-->

</style>

 

 

<%

While NOT RS.EOF

%>

 

<%

if (RSAltera("IMG")) <> "" then *************************************************************

%>

 

<table width="400" cellpadding="0" cellspacing="0">

<tr>

<td> </td>

</tr>

<tr>

<td> <p><img src="upload/<%=(RSAltera("IMG"))%>" width="100" height="133" hspace="2" vspace="2" border="1" align="left">

<%=(RS("NOME"))%></p>

<p class="texto">Data de Nascimento: <%=(RS("DIA_NASC"))%>/<%=(RS("MES_NASC"))%>/<%=(RS("ANO_NASC"))%></p>

<p class="texto">Função: <%=(RS("FUNCAO"))%></p>

<p class="texto">Setor: <%=(RS("SETOR"))%></p></td>

<% end if %>

</tr>

<tr>

<td> </td>

</tr>

<tr>

<td><hr></td>

</tr>

</table>

 

<%

RS.MoveNext()

Wend

%>

[/tr]

 

É onde mandei verificar se tem algo registrado no campo img, e se tiver, é pra colocar na medida q especifiquei mais abaixo na tabela. acho q é assim q se fz ne?!

Compartilhar este post

Link para o post
Compartilhar em outros sites

jothaz    1

jothaz
Postado

Onde você definiu RSAltera???t+

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

onde você seta este RSAltera, nem tinha visto isso, não tem na page, não seria apenas RS...

Compartilhar este post

Link para o post
Compartilhar em outros sites

hunger    0

hunger
Postado

pois é....estava vindo avisar isso. fiquei olhando a pagina e vi q isso estava errado.....bom, retirei o Altera, deixei só RS. agora a página aparece em branco, mas com 4 linhas (HR) q tem no final da tabela. vou ver o q deve estar entao fora do lugar.....

Compartilhar este post

Link para o post
Compartilhar em outros sites

hunger    0

hunger
Postado

consegui resolver essa parte.... ja consegui mostrar os resultados......era só pra avisar mesmo!obgdo a todos...marcos hunger.

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito