[Resolvido] Erro de tempo de execução do Microsoft VBScript (0x80

sylar_head · Janeiro 20, 2009

Erro: Erro de tempo de execução do Microsoft VBScript (0x800A01A8)

Objeto necessário: ''

/domvinicius/mural.asp, line 143

Estou fazendo paginação. mas deu esse erro, segue abaixo o código

<!--#include file="conectando.asp"-->
<%

		'Selecionamos todos os Produtos da Tabela
Set rsMensagens = Server.CreateObject("ADODB.Recordset")
strMensagens = "SELECT * FROM mensagens ORDER BY msgid"
		rsMensagens.open strMensagens, conexao, 3, 3

'Definimos o Numero de Mensagens por Paginas com a propriedade "PageSize" do objeto Recordset
rsMensagens.PageSize = 10

'Criamos as Validações
if rsMensagens.eof then
   Mensagem = "Nenhuma mensagem foi escrita por enquanto."
   Response.End 
else
   'Definimos em qual pagina o visitante está
   if Request.QueryString("pg")="" then 
	  intpagina = 1
   else
	  if cint(Request.QueryString("pg"))<1 then
intpagina = 1
	  else
if cint(Request.QueryString("pg"))>rsMensagens.PageCount then  
	intpagina = rsMensagens.PageCount
		 else
	intpagina = Request.QueryString("pg")
end if
	  end if	
   end if   
		end if
%>

<%

data = date() %><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<script src="ieupdate.js"></script>
<title>Dom Vinicius</title>
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
	background-image: url(bg_geral.jpg);
}
.style1 {
	font-size: 12px;
	color: #000000;
	font-family: Arial, Helvetica, sans-serif;
}
a:link {
	color: #000000;
	text-decoration: none;
}
a:visited {
	text-decoration: none;
	color: #000000;
}
a:hover {
	text-decoration: none;
	color: #97180F;
}
a:active {
	text-decoration: none;
}
.style3 {
	color: #EEDBBA;
	font-size: 16px;
	font-family: Arial, Helvetica, sans-serif;
	font-weight: bold;
}
-->
</style></head>

<body>
<table width="900" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
	<td><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="900" height="247">
	  <param name="movie" value="topo_domvinicius.swf" />
	  <param name="quality" value="high" />
	  <param name="wmode" value="transparent">
	  <embed src="topo_domvinicius.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="900" height="247"></embed>
	</object></td>
  </tr>
  <tr>
	<td><table width="898" border="1" cellpadding="0" cellspacing="0" bordercolor="#CCCCCC">
	  <tr>
		<td><table width="898" border="0" cellpadding="0" cellspacing="0">
		  <tr>
			<td width="882" valign="top" background="bg_mural.jpg"><table width="871" border="0" align="left" cellpadding="0" cellspacing="2">
			  
			  
			  <tr>
				<td width="206"> </td>
				<td width="201"> </td>
				<td width="456"> </td>
			  </tr>
			  <tr>
				<td><div align="center" class="style3">Mural de Recados </div></td>
				<td colspan="2"> </td>
				</tr>
			  <tr>
				<td> </td>
				<td colspan="2" class="style1">Deixe aqui o seu recado ou comentário. </td>
			  </tr>
			  <tr>
				<td> </td>
				<td colspan="2"><table width="615" border="0" cellpadding="0" cellspacing="2">
				  <form method="post" action="addscrap.asp"> <tr>
					<td width="65"> </td>
					<td width="544"> </td>
				  </tr>
				  <tr>
					<td valign="top" class="style1">Nome:</td>
					<td><input name="nome" type="text" class="style1" id="nome" size="50" /></td>
				  </tr>
				  <tr>
					<td valign="top" class="style1">Mensagem:</td>
					<td><textarea name="mensagem" cols="50" rows="5" class="style1" id="mensagem"></textarea>
					  <input name="data" type="hidden" id="data" value="<%=data%>" />					  </td>
				  </tr>
				  <tr>
					<td> </td>
					<td>
					  <label>
					  <input name="Submit" type="submit" class="style1" value="Enviar" /></form>
					  </label>
					</td>
				  </tr>
				  <tr>
					<td> </td>
					<td class="style1">Recados e Mensagens:</td>
				  </tr>
				  <tr>
					<td> </td>
					<td><%
   'Iniciamos o Loop
	rsMensagem.AbsolutePage = intpagina 
	intrec = 0
	While intrec<rsMensagem.PageSize and not rsMensagem.eof  %><table width="200" border="0">
  
<tr>
	<td>aaaaaaaaa</td>
  </tr>
  <tr>
	<td>aaaaaaaaaaaa</td>
  </tr>
</table><%
	rsMensagem.MoveNext
	intrec = intrec + 1
	if rsMensagem.eof then 
	   response.write " " 
	end if   
	Wend  
  %>
<% 
	'Criamos as Validações para a navegação "Anterior" e "Próximo"  
	if intpagina>1 then 
	%> 
	<a href="mural.asp?pg=<%=intpagina-1%>">Anterior</a> 
	<% 
	end if
	if StrComp(intpagina,rsMensagem.PageCount)<>0 then   
	%>
	<a href="mural.asp?pg=<%=intpagina + 1%>">Próximo</a>  
	<%
	end if
	rsMensagem.close
	Set rsMensagem = Nothing
	%>

					   </td>
				  </tr>
				</table></td>
				</tr>
			  <tr>
				<td> </td>
				<td colspan="2"> </td>
				</tr>
			  <tr>
				<td> </td>
				<td> </td>
				<td> </td>
			  </tr>
			</table></td>
			<td width="16" bgcolor="#F5EEDB"> </td>
			</tr>
		</table></td>
		</tr>
	</table></td>
  </tr>
  <tr>
	<td><div align="center"><span class="style1"><img src="barra_inferior.jpg" width="900" height="37" /></span></div></td>
  </tr>
  <tr>
	<td><div align="center"><span class="style1">Todos direitos reservados a DOM VINICIUS - 2008<br />
	Produzido por <a href="http://www.realinformaticarn.com.br" target="_blank">Real Informática</a></span></div></td>
  </tr>
  <tr>
	<td><div align="center" class="style1"></div></td>
  </tr>
</table>
<script>ieupdate()</script>
</body>
</html>

Linha 143: rsMensagem.AbsolutePage = intpagina

Se tiver como me ajudar, agradeço desde já.

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

Ted k' · Janeiro 20, 2009

usa:

rsMensagens.CursorType = 0
rsMensagens.CursorLocation = 3

nagaozen · Janeiro 20, 2009

usa:

rsMensagens.CursorType = 0
rsMensagens.CursorLocation = 3

He He He, desse jeito que o Ted fala parece mágica XD

Dica: Não use números, prefira sempre as constantes do ADO, aquelas com começam com ad...

Assim você lembra melhor o que você está fazendo.

Mário Monteiro · Janeiro 21, 2009

mas para usar constantes tem que incluir arquivos que as contenha

xanburzum · Janeiro 21, 2009

Microsoft VBScript runtime error. Object required. Um dos motivos que faz com que esse erro ocorra é tentar utilizar a propriedade ou executar uma ação em um objeto quando o mesmo ainda não foi criado. Por exemplo, caso você tentar finalizar a instância de um objeto sem ter criando: conn.Close(). Esse tipo de ação gera o erro de número 800A01A8. Antes de finalizar a instância do objeto o mesmo deve ser criado. (Set conn = Server.CreateObject("ADODB.Connection"))

e inclua o arquivo adovbs.inc con o seguinte conteúdo:

<%
'--------------------------------------------------------------------
' Microsoft ADO
'
' (c) 1996 Microsoft Corporation.  All Rights Reserved.
'
'
'
' ADO constants include file for VBScript
'
'--------------------------------------------------------------------

'---- CursorTypeEnum Values ----
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3

'---- CursorOptionEnum Values ----
Const adHoldRecords = &H00000100
Const adMovePrevious = &H00000200
Const adAddNew = &H01000400
Const adDelete = &H01000800
Const adUpdate = &H01008000
Const adBookmark = &H00002000
Const adApproxPosition = &H00004000
Const adUpdateBatch = &H00010000
Const adResync = &H00020000
Const adNotify = &H00040000

'---- LockTypeEnum Values ----
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4

'---- ExecuteOptionEnum Values ----
Const adRunAsync = &H00000010

'---- ObjectStateEnum Values ----
Const adStateClosed = &H00000000
Const adStateOpen = &H00000001
Const adStateConnecting = &H00000002
Const adStateExecuting = &H00000004

'---- CursorLocationEnum Values ----
Const adUseServer = 2
Const adUseClient = 3

'---- DataTypeEnum Values ----
Const adEmpty = 0
Const adTinyInt = 16
Const adSmallInt = 2
Const adInteger = 3
Const adBigInt = 20
Const adUnsignedTinyInt = 17
Const adUnsignedSmallInt = 18
Const adUnsignedInt = 19
Const adUnsignedBigInt = 21
Const adSingle = 4
Const adDouble = 5
Const adCurrency = 6
Const adDecimal = 14
Const adNumeric = 131
Const adBoolean = 11
Const adError = 10
Const adUserDefined = 132
Const adVariant = 12
Const adIDispatch = 9
Const adIUnknown = 13
Const adGUID = 72
Const adDate = 7
Const adDBDate = 133
Const adDBTime = 134
Const adDBTimeStamp = 135
Const adBSTR = 8
Const adChar = 129
Const adVarChar = 200
Const adLongVarChar = 201
Const adWChar = 130
Const adVarWChar = 202
Const adLongVarWChar = 203
Const adBinary = 128
Const adVarBinary = 204
Const adLongVarBinary = 205

'---- FieldAttributeEnum Values ----
Const adFldMayDefer = &H00000002
Const adFldUpdatable = &H00000004
Const adFldUnknownUpdatable = &H00000008
Const adFldFixed = &H00000010
Const adFldIsNullable = &H00000020
Const adFldMayBeNull = &H00000040
Const adFldLong = &H00000080
Const adFldRowID = &H00000100
Const adFldRowVersion = &H00000200
Const adFldCacheDeferred = &H00001000

'---- EditModeEnum Values ----
Const adEditNone = &H0000
Const adEditInProgress = &H0001
Const adEditAdd = &H0002
Const adEditDelete = &H0004

'---- RecordStatusEnum Values ----
Const adRecOK = &H0000000
Const adRecNew = &H0000001
Const adRecModified = &H0000002
Const adRecDeleted = &H0000004
Const adRecUnmodified = &H0000008
Const adRecInvalid = &H0000010
Const adRecMultipleChanges = &H0000040
Const adRecPendingChanges = &H0000080
Const adRecCanceled = &H0000100
Const adRecCantRelease = &H0000400
Const adRecConcurrencyViolation = &H0000800
Const adRecIntegrityViolation = &H0001000
Const adRecMaxChangesExceeded = &H0002000
Const adRecObjectOpen = &H0004000
Const adRecOutOfMemory = &H0008000
Const adRecPermissionDenied = &H0010000
Const adRecSchemaViolation = &H0020000
Const adRecDBDeleted = &H0040000

'---- GetRowsOptionEnum Values ----
Const adGetRowsRest = -1

'---- PositionEnum Values ----
Const adPosUnknown = -1
Const adPosBOF = -2
Const adPosEOF = -3

'---- enum Values ----
Const adBookmarkCurrent = 0
Const adBookmarkFirst = 1
Const adBookmarkLast = 2

'---- MarshalOptionsEnum Values ----
Const adMarshalAll = 0
Const adMarshalModifiedOnly = 1

'---- AffectEnum Values ----
Const adAffectCurrent = 1
Const adAffectGroup = 2
Const adAffectAll = 3

'---- FilterGroupEnum Values ----
Const adFilterNone = 0
Const adFilterPendingRecords = 1
Const adFilterAffectedRecords = 2
Const adFilterFetchedRecords = 3
Const adFilterPredicate = 4

'---- SearchDirection Values ----
Const adSearchForward = 1
Const adSearchBackward = -1

'---- ConnectPromptEnum Values ----
Const adPromptAlways = 1
Const adPromptComplete = 2
Const adPromptCompleteRequired = 3
Const adPromptNever = 4

'---- ConnectModeEnum Values ----
Const adModeUnknown = 0
Const adModeRead = 1
Const adModeWrite = 2
Const adModeReadWrite = 3
Const adModeShareDenyRead = 4
Const adModeShareDenyWrite = 8
Const adModeShareExclusive = &Hc
Const adModeShareDenyNone = &H10

'---- IsolationLevelEnum Values ----
Const adXactUnspecified = &Hffffffff
Const adXactChaos = &H00000010
Const adXactReadUncommitted = &H00000100
Const adXactBrowse = &H00000100
Const adXactCursorStability = &H00001000
Const adXactReadCommitted = &H00001000
Const adXactRepeatableRead = &H00010000
Const adXactSerializable = &H00100000
Const adXactIsolated = &H00100000

'---- XactAttributeEnum Values ----
Const adXactCommitRetaining = &H00020000
Const adXactAbortRetaining = &H00040000

'---- PropertyAttributesEnum Values ----
Const adPropNotSupported = &H0000
Const adPropRequired = &H0001
Const adPropOptional = &H0002
Const adPropRead = &H0200
Const adPropWrite = &H0400

'---- ErrorValueEnum Values ----
Const adErrInvalidArgument = &Hbb9
Const adErrNoCurrentRecord = &Hbcd
Const adErrIllegalOperation = &Hc93
Const adErrInTransaction = &Hcae
Const adErrFeatureNotAvailable = &Hcb3
Const adErrItemNotFound = &Hcc1
Const adErrObjectInCollection = &Hd27
Const adErrObjectNotSet = &Hd5c
Const adErrDataConversion = &Hd5d
Const adErrObjectClosed = &He78
Const adErrObjectOpen = &He79
Const adErrProviderNotFound = &He7a
Const adErrBoundToCommand = &He7b
Const adErrInvalidParamInfo = &He7c
Const adErrInvalidConnection = &He7d
Const adErrStillExecuting = &He7f
Const adErrStillConnecting = &He81
Const adErrUnsafeOperation = &He84

'---- ParameterAttributesEnum Values ----
Const adParamSigned = &H0010
Const adParamNullable = &H0040
Const adParamLong = &H0080

'---- ParameterDirectionEnum Values ----
Const adParamUnknown = &H0000
Const adParamInput = &H0001
Const adParamOutput = &H0002
Const adParamInputOutput = &H0003
Const adParamReturnValue = &H0004

'---- CommandTypeEnum Values ----
Const adCmdUnknown = &H0008
Const adCmdText = &H0001
Const adCmdTable = &H0002
Const adCmdStoredProc = &H0004

'---- SchemaEnum Values ----
Const adSchemaProviderSpecific = -1
Const adSchemaAsserts = 0
Const adSchemaCatalogs = 1
Const adSchemaCharacterSets = 2
Const adSchemaCollations = 3
Const adSchemaColumns = 4
Const adSchemaCheckConstraints = 5
Const adSchemaConstraintColumnUsage = 6
Const adSchemaConstraintTableUsage = 7
Const adSchemaKeyColumnUsage = 8
Const adSchemaReferentialContraints = 9
Const adSchemaTableConstraints = 10
Const adSchemaColumnsDomainUsage = 11
Const adSchemaIndexes = 12
Const adSchemaColumnPrivileges = 13
Const adSchemaTablePrivileges = 14
Const adSchemaUsagePrivileges = 15
Const adSchemaProcedures = 16
Const adSchemaSchemata = 17
Const adSchemaSQLLanguages = 18
Const adSchemaStatistics = 19
Const adSchemaTables = 20
Const adSchemaTranslations = 21
Const adSchemaProviderTypes = 22
Const adSchemaViews = 23
Const adSchemaViewColumnUsage = 24
Const adSchemaViewTableUsage = 25
Const adSchemaProcedureParameters = 26
Const adSchemaForeignKeys = 27
Const adSchemaPrimaryKeys = 28
Const adSchemaProcedureColumns = 29
%>

sylar_head · Janeiro 21, 2009

Obrigado pela atenção...

Fiz o que me pediram e gerou o seguinte erro

ADODB.Recordset (0x800A0E79)

Operação não permitida quando o objeto está aberto.

/domvinicius/mural.asp, line 11

linha 11:

rsMensagens.CursorType = 0

Inseri logo após ao PageSize

Ajuda por favor :(

Ted k' · Janeiro 21, 2009

retirou os da conexão?

tipo:

http://forum.imasters.com.br/index.php...t&p=1107321

Mário Monteiro · Janeiro 21, 2009

e onde esta o open?

nao precisa incluir todo o adovbs.inc, inclua apenas o que for usar fica mais leve

sylar_head · Janeiro 21, 2009

Obrigado aí pessoal, funcionou tudo bem.

Vocês são fo**! http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

Arquivado

[Resolvido] Erro de tempo de execução do Microsoft VBScript (0x80

Recommended Posts

sylar_head 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

nagaozen 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

sylar_head 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

sylar_head 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

PHP+Codeigniter - Dúvida em Relação a Teclas

Conexão mysql com outro domínio

[Resolvido] JavaScript - Exibir logo dentro da Tabela html

Fóruns

Tempo Real

Informação importante