Ir para conteúdo

POWERED BY:

Arquivado

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

imbertti

pós erro...

Por , em ASP Clássico

Recommended Posts

imbertti    0

imbertti
Postado

Galera,

Fiz meu projetinho, colquei no ar dia 01/12, testei e tava tudo beleza...

 

Hoje eu abro a página e me aparece o erro na inicial:

 

Microsoft VBScript runtime error '800a000d'

 

Type mismatch: 'UBound'

 

/chatRadioCidade/Default.asp, line 4

 

como pode dar isso se eu não alterei nada? <_<

 

abrs,

Henrique

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

o que tem em application("Users") ??se possivel imprime na tela e posta aqui...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

UBound pelo q eu saiba é pra verificar o tamanho de um vetor!e Application("Users") não é um vetor, é uma variável do tipo Application! Não entendo como isso tava funcionando! :o :wacko: :blink: http://forum.imasters.com.br/public/style_emoticons/default/upset.gif

isto que eu queria ver, o conteudo dela pra saber se tinha algo separado por e se por acaso não teria "sumido" um SPLIT entre estas linhas pra isso funcionar...

Compartilhar este post

Link para o post
Compartilhar em outros sites

imbertti    0

imbertti
Postado

bem, eu não sou um expert em asp...

pequei um código pré-pronto e personalizei. Funcionou legal, mas pq parou eu não sei.. hehe

 

tem um global.asa por tras disso, não sei se o erro veio de lá...

 

<%

Users = Application("Users")

Group = Application("UsersGroup")

NumOfUsers = UBound(Users)

 

%>

 

<html>

<head>

<title>Chat</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

 

<style type="text/css">

<!--

.style1 { font-family: Arial, Helvetica, sans-serif;

font-size: 12px;

}

-->

</style>

</head>

 

 

<%

sala= "Sala X"

if NumOfUsers < 20 then

%>

<body bgcolor="666E7F" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onLoad="document.message.name.focus()">

 

<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">

<tr bgcolor="#000000">

<td width="150" height="120" align="center" valign="middle"><img src="images/logo.gif" width="122" height="110"></td>

<td> </td>

</tr>

<tr>

<td colspan="2"><form method="post" action="chatroom.asp" name="message">

<div align="center">

<table width="50%" border="1" cellpadding="10" cellspacing="0" bordercolor="D4DBEB" bgcolor="#d4dbeb">

<tr>

<td align="center"><font face="Arial, Helvetica, sans-serif" size="2"><b>Escolha um apelido e entre no chat<br>

</b>No momento há <span class="style1">

<% =NumOfUsers%>

</span>usuário(s) online. <b><br>

<br>

<input type="text" name="name">

<input type="hidden" name="topic" value="<%=sala%>">

<input type="submit" name="Submit" value="Entrar">

</b></font></td>

</tr>

</table>

<font face="Arial, Helvetica, sans-serif" size="2"></font></div>

</form></td>

</tr>

</table>

 

 

<%else%>

<body bgcolor="666E7F" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

 

<div align="center"> <table width="100%" border="0" cellspacing="0" cellpadding="0">

<tr>

<td height="120" bgcolor="#000000">   <img src="images/logo.gif" width="122" height="110"></td>

</tr>

<tr>

<td align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><br>

<br>

</font></b>

<table width="50%" border="0" cellpadding="0" cellspacing="0" bgcolor="#D4DBEB">

<tr>

<td align="center"><b><font face="Arial, Helvetica, sans-serif" size="2"><br>

O limite de usuários foi atingido. Tente novamente mais tarde.</font></b><br>

<font face="Arial, Helvetica, sans-serif" size="2">No momento há <span class="style1">

<% =NumOfUsers%>

</span>usuário(s) online.</font> <br>

<br></td>

</tr>

</table>

<b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> </font></b></td>

</tr>

</table>

</div>

<% end if%>

</body>

</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

logo embaixo desta linhaUsers = Application("Users")poe response.write Userse depois escreve aqui o que aparecer...

Compartilhar este post

Link para o post
Compartilhar em outros sites

tr374    0

tr374
Postado

acho que eles estão achando que não vai imprimir nada, mesmo com alguem online.fica online você e testa para ver se mostra pelo menos 1

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

acho que nem assim rola...posta o trecho do seu global que mostra esta aplication

Compartilhar este post

Link para o post
Compartilhar em outros sites

imbertti    0

imbertti
Postado

bem, acho que funcionou sim...coloquei<% Users = Application("Users")Group = Application("UsersGroup") if Users = "" thenNumOfUsers = 0elseNumOfUsers = ubound(Users)end ifresponse.write("escreve"&Users)%>Ele escreveu users como vazio e também o NumOfUsers como 0 na tela...

Compartilhar este post

Link para o post
Compartilhar em outros sites

imbertti    0

imbertti
Postado

e lerê! essa página ta possuída...

tava até funcionando depois dessa alteração, mas de repente me dá esse outro erro agora:

 

Error Type:

Microsoft VBScript runtime (0x800A000D)

Type mismatch

/sites/novouvv/diversos/chat/chatRadioCidade/Default.asp, line 11

 

 

a linha 11 é justamente a

if Users = "" then

 

 

marioufpa, a seu pedido um pedaço do global.asa:

 

Sub Application_OnStart

Application("Title") = "ASP Chat"

CreateRoom "ASP Joint", "ASP fiends sharing dope"

CreateRoom "ASP Joint2", "ASP fiends sharing dope"

CreateRoom "ASP Joint3", "ASP fiends sharing dope"

 

Application("TopicNames") = TopicName

Application("TopicDescriptions") = TopicDescription

 

Dim Users()

Redim Users(1)

Dim UsersGroup()

Redim UsersGroup(1)

Application("Users") = Users

Application("UsersGroup") = UsersGroup

 

Dim UsersIP()

Redim UsersIP(1)

Dim UsersTimeOn()

Redim UsersTimeOn(1)

Dim UsersIdleOn()

Redim UsersIdleTime(1)

Application("UsersIP") = UsersIP

Application("UsersTimeOn") = UsersTimeOn

Application("UsersIdleTime") = UsersIdleTime

Session.Timeout=2

 

End Sub

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