Active Server Pages error 'ASP 0131'

Disallowed Parent Path

/portal1/DUhome/default.asp, line 37

The Include file '../includes/inc_header.asp' cannot contain '..' to indicate the parent directory.





--------------
o que é isso?
o que posso fazer?

to numa situacao complicada, preciso saber como fazer uma etiqueta onde depois eu divida as cores .... e depois quanto montar todas as cores novamente o desenho tem que ficar encaixado?


problema com etiquetas de camisa.

po cara aproveitei a ideia para criar um joguinho, mas queria saber como colocar um outro item que fique correndo atraz da bolinha ( que é controlada pelo internauta), de forma que se o cara ficar parado e o outro objeto escostar na bolinha aparece uma mensagem "perdeu" ou avança pra um quadro diferente!

ps: o objeto (vilão) deve ter velocidade um pouco menor do que a velocidade padrão da bolinha.

o Ublog que eu baixei no site do WMonline, testei no localhost e funciono blz, mais quando passei ele pro servidor na net, deu erro 500. e eu não sei o que pode ser pois , como falei no localhost da tudo certo. será que alguem pode me ajudar neste problema? ou sabe o que eu tenho que configurar antes de passar este ublog pro servidor?

vi em varios sites esse tal de RSS mais nao entendi pra que serve alguem pode me ajudar?

Tem algum plug-in pra fazer akeles desenhos em 3d no flash ou eh utilizado outro programa pra fazer isso?

galera preciso de um controle de lan house, to precisando do código aberto para que eu possa fazer modificações, algum sabe onde eu posso encontrar?????

teste um codigo parecido


cnpath = "DBQ=" & server.mappath("../database/portal.mdb")
DBName = "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath

e verifique se esta habilitado para leitura o arquivo

mais onde eu digito isso?

Procurei sobre o assunto e não encontrei nada sobre esse erro.

Tipo de erro:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Driver ODBC para Microsoft Access]Erro geral Não é possível abrir a chave 'Temporary (volatile) Jet DSN for process 0xbcc Thread 0xd14 DBC 0x1370064 Jet' do Registro.
/duportal/includes/inc_counter.asp, line 4

inc_counter.asp

<!--#include file="../Connections/connDUportal.asp" -->
<%
set rsCounter = Server.CreateObject("ADODB.Recordset")
rsCounter.ActiveConnection = MM_connDUportal_STRING
rsCounter.Source = "SELECT DISTINCT  (SELECT COUNT (*) FROM USERS) AS MEMBERS,  (SELECT COUNT(*) FROM LINKS) AS LINKS,  (SELECT COUNT (*) FROM QUESTIONS) AS POLLS,  (SELECT COUNT (*) FROM MESSAGES) AS TOPICS, (SELECT COUNT (*) FROM NEWS) AS NEWS, (SELECT COUNT(*) FROM REPLIES) AS REPLIES  FROM BANNERS"
rsCounter.CursorType = 0
rsCounter.CursorLocation = 2
rsCounter.LockType = 3
rsCounter.Open()
rsCounter_numRows = 0
%><title>Ftc alunos</title>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td align="left" valign="middle" height="20" class = "bg_navigator">&nbsp;<font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b>ESTAT&Iacute;STICAS 
      </b></font></td>
  </tr>
  <tr> 
    <td align="left" valign="top" bgcolor="#000000"><img src="../assets/horizontalBar.gif" width="5" height="1"></td>
  </tr>
  <tr> 
    <td align="left" valign="top"> 
      <table border="0" cellspacing="2" cellpadding="5" width="180">
        <tr align="left" valign="middle"> 
          <td align="left"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">MEMBROS:</font></b></td>
          <td><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><%=(rsCounter.Fields.Item("MEMBERS").Value)%></font></b></td>
        </tr>
        <tr align="left" valign="middle"> 
          <td align="left"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">LINKS:</font></b></td>
          <td><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><%=(rsCounter.Fields.Item("LINKS").Value)%></font></b></td>
        </tr>
        <tr align="left" valign="middle"> 
          <td align="left"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">NOT&Iacute;CIAS:</font></b></td>
          <td><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><%=(rsCounter.Fields.Item("NEWS").Value)%></font></b></td>
        </tr>
        <tr align="left" valign="middle"> 
          <td align="left"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">ENQUETES:</font></b></td>
          <td><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><%=(rsCounter.Fields.Item("POLLS").Value)%></font></b></td>
        </tr>
        <tr align="left" valign="middle"> 
          <td align="left"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">T&Oacute;PICOS:</font></b></td>
          <td><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><%=(rsCounter.Fields.Item("TOPICS").Value)%></font></b></td>
        </tr>
        <tr align="left" valign="middle"> 
          <td align="left"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">RESPOSTAS:</font></b></td>
          <td><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><%=(rsCounter.Fields.Item("REPLIES").Value)%></font></b></td>
        </tr>
      </table>
    </td>
  </tr>
  <tr> 
    <td align="left" valign="top" bgcolor="#000000"><img src="../assets/horizontalBar.gif" width="5" height="1"></td>
  </tr>
</table>


<%
rsCounter.Close()
%>

connDUportal.asp

<%
' FileName="Connection_ado_conn_string.htm"
' Type="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
MM_connDUportal_STRING = "Driver={Microsoft Access Driver (*.mdb)};DBQ=../database/portal.mdb"
%>

um parece interessante, seria bacana não disponibilizar esse tipo assunto só pra mim mais para outros desenvolvedores tbem pois é uma ótima idéia para se manter contato com os clientes, de uma forma exclusiva é claro.

pessoal estou montando um chat (Maestri Chat), e gostaria de disponibilizar aos internautas smiles para que eles podessem postar em suas mensagens existe algum script que faca isso?

deve ser dificil criar um messenger por simples que seja, mais alguem tem alguma ideia de como fazer um? eu estou afim de criar este servico para os internautas do meu site e nao tenho a minima ideia de como fazer isso, so sei que que o .net, é uma tecnologia dinamica e por isso acredito que deve haver um meio de utilizar esta plataforma pra este tipo de projeto. alguem sabe um tutorial ou coisa do tipo (como criar um messenger?)?

como tirar aquele barulho xato de atualizacao de uma pagina é uma especie de (tic) q torra a paciencia, tem algum codigo pra tirar este som?

To com um problema aki, alguem pode dizer qual o erro???


Objeto Server erro 'ASP 0177 : 800401f3'

Falha em Server.CreateObject

/novo/fale.asp, line 465

ProgID inválido. Para obter informações adicionais específicas sobre esta mensagem, visite o site Microsoft Online Support localizado em: http://www.microsoft...entredirect.asp (site em inglês).

<%@ LANGUAGE="VBScript" %>
<% '***************************************************************************
   '* ASP FormMail                                                            *
   '*                                                                         *
   '* Do not remove this notice.                                              *
   '*                                                                         *
   '* Copyright 1999-2002 by Mike Hall.                                       *
   '* Please see http://www.brainjar.com for documentation and terms of use.  *
   '***************************************************************************

   '- Customization of these values is required, see documentation. -----------

   referers   = Array("www.maestriinformatica.com.br", "maestriinformatica.com.br")
   mailComp   = "ASPMail"
   smtpServer = "mail.ig.com.br"
   fromAddr   = "marcosrsouza@ig.com.br"

   '- End required customization section. -------------------------------------

   Response.Buffer = true
   errorMsgs = Array()

   'Check for form data.

   if Request.ServerVariables("Content_Length") = 0 then
     call AddErrorMsg("No form data submitted.")
   end if

   'Check if referer is allowed.

   if UBound(referers) >= 0 then
     validReferer = false
     referer = GetHost(Request.ServerVariables("HTTP_REFERER"))
     for each host in referers
       if host = referer then
         validReferer = true
       end if
     next
     if not validReferer then
       if referer = "" then
         call AddErrorMsg("No referer.")
       else
         call AddErrorMsg("Invalid referer: '" & referer & "'.")
       end if
     end if
   end if

   'Check for the recipients field.

   if Request.Form("_recipients") = "" then
     call AddErrorMsg("Missing email recipient.")
   end if

   'Check all recipient email addresses.

   recipients = Split(Request.Form("_recipients"), ",")
   for each name in recipients
     name = Trim(name)
     if not IsValidEmailAddress(name) then
       call AddErrorMsg("Invalid email address in recipient list: " & name & ".")
     end if
   next
   recipients = Join(recipients, ",")

   'Get replyTo email address from specified field, if given, and check it.

   name = Trim(Request.Form("_replyToField"))
   if name <> "" then
     replyTo = Request.Form(name)
   else
     replyTo = Request.Form("_replyTo")
   end if
   if replyTo <> "" then
     if not IsValidEmailAddress(replyTo) then
       call AddErrorMsg("Invalid email address in reply-to field: " & replyTo & ".")
     end if
   end if

   'Get subject text.

   subject = Request.Form("_subject")

   'If required fields are specified, check for them.

   if Request.Form("_requiredFields") <> "" then
     required = Split(Request.Form("_requiredFields"), ",")
     for each name in required
       name = Trim(name)
       if Left(name, 1) <> "_" and Request.Form(name) = "" then
         call AddErrorMsg("Missing value for " & name)
       end if
     next
   end if

   'If a field order was given, use it. Otherwise use the order the fields were
   'received in.

   str = ""
   if Request.Form("_fieldOrder") <> "" then
     fieldOrder = Split(Request.Form("_fieldOrder"), ",")
     for each name in fieldOrder
       if str <> "" then
         str = str & ","
       end if
       str = str & Trim(name)
     next
     fieldOrder = Split(str, ",")
   else
     fieldOrder = FormFieldList()
   end if

   'If there were no errors, build the email note and send it.

   if UBound(errorMsgs) < 0 then

     'Build table of form fields and values.

     body = "<table border=""0"" cellpadding=""2"" cellspacing=""0"">" & vbCrLf
     for each name in fieldOrder
       body = body _
            & "<tr valign=""top"">" _
            & "<td><b>" & name & ":</b></td>" _
            & "<td>" & Request.Form(name) & "</td>" _
            & "</tr>" & vbCrLf
     next
     body = body & "</table>" & vbCrLf

     'Add a table for any requested environmental variables.

     if Request.Form("_envars") <> "" then
       body = body _
            & "<p>&nbsp;</p>" & vbCrLf _
            & "<table border=""0"" cellpadding=""2"" cellspacing=""0"">" & vbCrLf
       envars = Split(Request.Form("_envars"), ",")
       for each name in envars
         name = Trim(name)
         body = body _
              & "<tr valign=""top"">" _
              & "<td><b>" & name & ":</b></td>" _
              & "<td>" & Request.ServerVariables(name) & "</td>" _
              & "</tr>" & vbCrLf
       next
       body = body & "</table>" & vbCrLf
     end if

     'Send it.

     str = SendMail()
     if str <> "" then
       AddErrorMsg(str)
     end if

     'Redirect if a URL was given.

     if Request.Form("_redirect") <> "" then
       Response.Redirect(Request.Form("_redirect"))
     end if

   end if %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<meta http-equiv="Content-Type" content="text/html;charset=utf-8" />
<title>Form Mail</title>
<style type="text/css">

body {
  background-color: #ffffff;
  color: #000000;
  font-family: Arial, Helvetica, sans-serif;
  font-size: 10pt;
}

table {
  border: solid 1px #000000;
  border-collapse: collapse;
}

td, th {
  border: solid 1px #000000;
  border-collapse: collapse;
  font-family: Arial, Helvetica, sans-serif;
  font-size: 10pt;
  padding: 2px;
  padding-left: 8px;
  padding-right: 8px;
}

th {
  background-color: #c0c0c0;
}

.error {
  color: #c00000;
}

</style>
</head>
<body>

<% if UBound(errorMsgs) >= 0 then %>
<p class="error">Form could not be processed due to the following errors:</p>
<ul>
<%   for each msg in errorMsgs %>
  <li class="error"><% = msg %></li>
<%   next %>
</ul>
<% else %>
<table cellpadding="0" cellspacing="0">
<tr>
  <th colspan="2" valign="bottom">
  Thank you, the following information has been sent:
  </th>
</tr>
<%   for each name in fieldOrder %>
<tr valign="top">
  <td><b><% = name %></b></td>
  <td><% = Request.Form(name) %></td>
</tr>
<%   next %>
</table>
<% end if %>

</body>
</html>

<% '---------------------------------------------------------------------------
   ' Subroutines and functions.
   '---------------------------------------------------------------------------

   sub AddErrorMsg(msg)

     dim n

    'Add an error message to the list.

     n = UBound(errorMsgs)
     Redim Preserve errorMsgs(n + 1)
     errorMsgs(n + 1) = msg

   end sub

   function GetHost(url)

     dim i, s

     GetHost = ""

     'Strip down to host or IP address and port number, if any.

     if Left(url, 7) = "http://" then
       s = Mid(url, 8)
     elseif Left(url, 8) = "https://" then
       s = Mid(url, 9)
     end if
     i = InStr(s, "/")
     if i > 1 then
       s = Mid(s, 1, i - 1)
     end if

     getHost = s

   end function

   'Define the global list of valid TLDs.

   dim validTlds

   function IsValidEmailAddress(emailAddr)

     dim i, localPart, domain, charCode, subdomain, subdomains, tld

     'Check for valid syntax in an email address.

     IsValidEmailAddress = true

     'Parse out the local part and the domain.

     i = InStrRev(emailAddr, "@")
     if i <= 1 then
       IsValidEmailAddress = false
       exit function
     end if
     localPart = Left(emailAddr, i - 1)
     domain = Mid(emailAddr, i + 1)
     if Len(localPart) < 1 or Len(domain) < 3 then
       IsValidEmailAddress = false
       exit function
     end if

     'Check for invalid characters in the local part.

     for i = 1 to Len(localPart)
       charCode = Asc(Mid(localPart, i, 1))
       if charCode < 32 or charCode >= 127 then
         IsValidEmailAddress = false
         exit function
       end if
     next

     'Check for invalid characters in the domain.

     domain = LCase(domain)
     for i = 1 to Len(domain)
       charCode = Asc(Mid(domain, i, 1))
       if not ((charCode >= 97 and charCode <= 122) or (charCode >= 48 and charCode <= 57) or charCode = 45 or charCode = 46) then
         IsValidEmailAddress = false
         exit function
       end if
     next

     'Check each subdomain.

     subdomains = Split(domain, ".")
     for each subdomain in subdomains
       if Len(subdomain) < 1 then
         IsValidEmailAddress = false
         exit function
       end if
     next

     'Last subdomain should be a TDL.

     tld = subdomains(UBound(subdomains))
     if not IsArray(validTlds) then
       call SetValidTlds()
     end if
     for i = LBound(validTlds) to UBound(validTlds)
       if tld = validTlds(i) then
         exit function
       end if
     next
     IsValidEmailAddress = false

   end function

   sub setValidTlds()

     'Load the global list of valid TLDs.

     validTlds = Array("aero", "biz", "com", "coop", "edu", "gov", "info", "int", "mil", "museum", "name", "net", "org", "pro", _
       "ac", "ad", "ae", "af", "ag", "ai", "al", "am", "an", "ao", "aq", "ar", "as", "at", "au", "aw", "az", _
       "ba", "bb", "bd", "be", "bf", "bg", "bh", "bi", "bj", "bm", "bn", "bo", "br", "bs", "bt", "bv", "bw", "by", "bz", _
       "ca", "cc", "cd", "cf", "cg", "ch", "ci", "ck", "cl", "cm", "cn", "co", "cr", "xxxxxx", "cv", "cx", "cy", "cz", _
       "de", "dj", "dk", "dm", "do", "dz", "ec", "ee", "eg", "eh", "er", "es", "et", _
       "fi", "fj", "fk", "fm", "fo", "fr", _
       "ga", "gd", "ge", "gf", "gg", "gh", "gi", "gl", "gm", "gn", "gp", "gq", "gr", "gs", "gt", "gu", "gw", "gy", _
       "hk", "hm", "hn", "hr", "ht", "hu", _
       "id", "ie", "il", "im", "in", "io", "iq", "ir", "is", "it", _
       "je", "jm", "jo", "jp", _
       "ke", "kg", "kh", "ki", "km", "kn", "kp", "kr", "kw", "ky", "kz", _
       "la", "lb", "lc", "li", "lk", "lr", "ls", "lt", "lu", "lv", "ly", _
       "ma", "mc", "md", "mg", "mh", "mk", "ml", "mm", "mn", "mo", "mp", "mq", "mr", "ms", "mt", "mu", "mv", "mw ", "mx", "my", "mz", _
       "na", "nc", "ne", "nf", "ng", "ni", "nl", "no", "np", "nr", "nu", "nz", _
       "om", _
       "pa", "pe", "pf", "pg", "ph", "pk", "pl", "pm", "pn", "pr", "ps", "pt", "pw", "py", _
       "qa", _
       "re", "ro", "ru", "rw", _
       "sa", "sb", "sc", "sd", "se", "sg", "sh", "si", "sj", "sk", "sl", "sm", "sn", "so", "sr", "st", "sv", "sy", "sz", _
       "tc", "td", "tf", "tg", "th", "tj", "tk", "tm", "tn", "to", "tp", "tr", "tt", "tv", "tw", "tz", _
       "ua", "ug", "uk", "um", "us", "uy", "uz", _
       "va", "vc", "ve", "vg", "vi", "vn", "vu", _
       "wf", "ws", _
       "ye", "yt", "yu", _
       "za", "zm", "zw")

   end sub

   function FormFieldList()

     dim str, i, name

     'Build an array of form field names ordered as they were received.

     str = ""
     for i = 1 to Request.Form.Count
       for each name in Request.Form
         if Left(name, 1) <> "_" and Request.Form(name) is Request.Form(i) then
           if str <> "" then
             str = str & ","
           end if
           str = str & name
           exit for
         end if
       next
     next
     FormFieldList = Split(str, ",")

   end function

   function SendMail()

     dim mailObj, cdoMessage, cdoConfig
     dim addrList

     'Send email based on mail component. Uses global variables for parameters
     'because there are so many.

     SendMail = ""

     'Send email (CDONTS version). Note: CDONTS has no error checking.

     if mailComp = "CDONTS" then
       set mailObj = Server.CreateObject("CDONTS.NewMail")
       mailObj.BodyFormat = 0
       mailObj.MailFormat = 0
       mailObj.From = fromAddr
       mailObj.Value("Reply-To") = replyTo
       mailObj.To = recipients
       mailObj.Subject = subject
       mailObj.Body = body
       mailObj.Send
       set mailObj = Nothing
       exit function
     end if

     'Send email (CDOSYS version).

     if mailComp = "CDOSYS" then
       set cdoMessage = Server.CreateObject("CDO.Message")
       set cdoConfig = Server.CreateObject("CDO.Configuration")
       cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
       cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpServer
       cdoConfig.Fields.Update
       set cdoMessage.Configuration = cdoConfig
       cdoMessage.From =  fromAddr
       cdoMessage.ReplyTo = replyTo
       cdoMessage.To = recipients
       cdoMessage.Subject = subject
       cdoMessage.HtmlBody = body
       on error resume next
       cdoMessage.Send
       if Err.Number <> 0 then
         SendMail = "Email send failed: " & Err.Description & "."
       end if
       set cdoMessage = Nothing
       set cdoConfig = Nothing
       exit function
     end if

     'Send email (JMail version).

     if mailComp = "JMail" then
       set mailObj = Server.CreateObject("JMail.SMTPMail")
       mailObj.Silent = true
       mailObj.ServerAddress = smtpServer
       mailObj.Sender = fromAddr
       mailObj.ReplyTo = replyTo
       mailObj.Subject = subject
       addrList = Split(recipients, ",")
       for each addr in addrList
         mailObj.AddRecipient Trim(addr)
       next
       mailObj.ContentType = "text/html"
       mailObj.Body = body
       if not mailObj.Execute then
         SendMail = "Email send failed: " & mailObj.ErrorMessage & "."
       end if
       exit function
     end if

     'Send email (ASPMail version).

     if mailComp = "ASPMail" then
       set mailObj = Server.CreateObject("SMTPsvg.Mailer")
       mailObj.RemoteHost  = smtpServer
       mailObj.FromAddress = fromAddr
       mailObj.ReplyTo = replyTo
       for each addr in Split(recipients, ",")
         mailObj.AddRecipient "", Trim(addr)
       next
       mailObj.Subject = subject
       mailObj.ContentType = "text/html"
       mailObj.BodyText = body
       if not mailObj.SendMail then
         SendMail = "Email send failed: " & mailObj.Response & "."
       end if
       exit function
    end if

   end function %>

pessoal estou com uma dúvida, esses dias tentei abrir o painel "tamanho da imagem" eu observei que o micro abriu ele na tela , mais não aparecia pra mim tava como se fosse invisivel, o que eu faço, isso é comum? ou será que estou com um virus que afetou o photoshop?

mudei isso mais continua dando o mesmo erro, nao sei quase nada de asp mais acho que pode ser a declaracao de uma matriz que deve ta faltando? pq ParaUsuarios(i), o citado ao lado é uma variavelda matriz mais o ParaUsuarios nao ta citado como variavel.

coloquei

Dim Usuarios(20)
Dim Mensagens(20)
Dim ParaUsuarios(20)
Dim Exclusiva(20)
Dim DeUsuario(20)

no lugar de:

Usuarios = Application("Usuarios")
Mensagens = Application("Mensagens")
ParaUsuario = Application("ParaUsuario")
Exclusiva = Application("Exclusiva")
DeUsuario = Application("DeUsuario")

e nao deu erro sera que isso ta certo ou vai fazer falta la na frente?

Tipos incompatíveis: 'ParaUsuarios'
/chat4/Entrar.asp, line 35

  
<%
'Declaração de variáveis
Dim StrApelido, i, Cont

'Recebe o nome do usuário e limpa para evitar comados HTML
StrApelido = Server.HTMLEncode(Request.Form("Apelido"))

'Verifica se o nome foi enviado e se o usuário não está logado
If Len(StrApelido) = 0 and VarType(Session("Usuario")) = 0 Then Response.Redirect "default.asp"

'Trava a aplicação
Application.Lock 

'Recebe a matriz com nome de todos os usuários
Usuarios = Application("Usuarios")
Mensagens = Application("Mensagens")
ParaUsuario = Application("ParaUsuario")
Exclusiva = Application("Exclusiva")
DeUsuario = Application("DeUsuario")

'Verifica se o usuário já está na sala tentando atualizar a tela
If VarType(Session("Usuario")) = 0 Then 

'Verifica se o usuário está tentando clonar
For i=0 To 19
   If ParaUsuarios(i) = StrApelido Then Response.Redirect "default.asp"

a linha superior póssui um erro, mais nao sei qual? sera na declaracao de variaveis????

onde eu encontro um chat pronto sem erros? tipo terra?

Tipo de erro:
Erro de tempo de execução do Microsoft VBScript (0x800A000D)
Tipos incompatíveis: 'Exclusiva'
/chat4/Entrar.asp, line 54

<%@ Language=VBScript %>
<%Response.Buffer=true%>

<%
Response.CacheControl = "no-cache"
Response.AddHeader "pragma", "no-cache"
Response.Expires = -1
%>

<%
'Declaração de variáveis
Dim StrApelido, i, Cont, Usuario(20)

'Recebe o nome do usuário e limpa para evitar comados HTML
StrApelido = Server.HTMLEncode(Request.Form("Apelido"))

'Verifica se o nome foi enviado e se o usuário não está logado
If Len(StrApelido) = 0 and VarType(Session("Usuario")) = 0 Then Response.Redirect "default.asp"

'Trava a aplicação
Application.Lock 

'Recebe a matriz com nome de todos os usuários
Usuarios = Application("Usuarios")
Mensagens = Application("Mensagens")
ParaUsuario = Application("ParaUsuario")
Exclusiva = Application("Exclusiva")
DeUsuario = Application("DeUsuario")

'Verifica se o usuário já está na sala tentando atualizar a tela
If VarType(Session("Usuario")) = 0 Then 

'Verifica se o usuário está tentando clonar
For i=0 To 19
   If Usuario(i) = StrApelido Then Response.Redirect "default.asp"
Next

'Varre a matriz de usuários para encontrar uma variável vazia
For i=1 To 19
   If Len(Usuario(i)) < 1 Then 
      'Grava o Nome do usuário na matriz
      Usuario(i) = StrApelido
      'Grava o índice da matriz na variável de seção
      i = i+1
      Exit For
   End if
Next

   Usuario(0) = "Todos"

'Move cada mensagem uma posição acima na matriz para incluir a mais nova mensagem
For i=18 To 0 Step -1
   Mensagens(i+1) = Mensagens(i) 
	Exclusiva(i+1) = Exclusiva(i)
	ParaUsuario(i+1) = ParaUsuario(i)
	DeUsuario(i+1) = DeUsuario(i)
Next

'Cria a formatação da nova mensagem

StrNovaMensagem = "<font color='#FF0000' face='Arial' size='1'>("+formatdatetime(now,vblongtime)+")</font>&nbsp;<B><font color='#FF0000' face='Arial' size='2'>" & Usuarios(Session("Usuario")) & "</b> entra na Sala</font>"
StrNovaMensagem = StrNovaMensagem 

'Retorna a mensagem para a matriz e configura para que todos vejam
Mensagens(0) = StrNovaMensagem 
ParaUsuario(0) = 0
DeUsuario(0) = Session("Usuario")
Exclusiva(0) = 0

'Retorna a matriz
Application("Mensagens") = Mensagens
Application("Exclusiva") = Exclusiva
Application("ParaUsuario") = ParaUsuario
Application("DeUsuario") = DeUsuario
Application("Usuarios") = Usuarios

End If

'Destrava a aplicação
Application.UnLock 


%>

<HTML>
<HEAD>
<TITLE>Chat - Programadores</TITLE>
<script language="JavaScript">
              function click() {
              if (event.button==2) {
              alert('Todos os Direitos reservados a ShopMedia')
              }
              }
              document.onmousedown=click
</script>
</HEAD>
<FRAMESET ROWS="60,*,92,1" FRAMESPACING="0" border="false" frameborder="0">
<FRAME NAME="Titulo" SRC="Titulo.asp" SCROLLING="no" NORESIZE MARGINHEIGHT="10" MARGINWIDTH="50">
<FRAME NAME="Mensagens" SRC="Mensagens.asp"  FRAMESPACING="0" MARGINHEIGHT="15" MARGINWIDTH="20" scrolling="auto">
<FRAME src="Menu.asp" NAME="Menu" SCROLLING="no" NORESIZE MARGINWIDTH="20" MARGINHEIGHT="5">
<FRAME src="Recarga.asp" NAME="Recarga" SCROLLING="no" NORESIZE>
</FRAMESET><noframes></noframes>
</HTML>

Tipo de erro:
Erro de tempo de execução do Microsoft VBScript (0x800A000D)
Tipos incompatíveis: 'Usuarios'
/chatmaestri/Entrar.asp, line 35

<%@ Language=VBScript %>
<%Response.Buffer=true%>

<%
Response.CacheControl = "no-cache"
Response.AddHeader "pragma", "no-cache"
Response.Expires = -1
%>

<%
'Declaração de variáveis
Dim StrApelido, i, Cont

'Recebe o nome do usuário e limpa para evitar comados HTML
StrApelido = Server.HTMLEncode(Request.Form("Apelido"))

'Verifica se o nome foi enviado e se o usuário não está logado
If Len(StrApelido) = 0 and VarType(Session("Usuario")) = 0 Then Response.Redirect "default.asp"

'Trava a aplicação
Application.Lock 

'Recebe a matriz com nome de todos os usuários
Usuarios = Application("Usuarios")
Mensagens = Application("Mensagens")
ParaUsuario = Application("ParaUsuario")
Exclusiva = Application("Exclusiva")
DeUsuario = Application("DeUsuario")

'Verifica se o usuário já está na sala tentando atualizar a tela
If VarType(Session("Usuario")) = 0 Then 

'Verifica se o usuário está tentando clonar
For i=0 To 19
   If CStr(Usuarios(i)) = CStr(StrApelido) Then Response.Redirect "default.asp"
Next

'Varre a matriz de usuários para encontrar uma variável vazia
For i=1 To 19
   If Len(Usuarios(i)) < 1 Then 
      'Grava o Nome do usuário na matriz
      Usuarios(i) = StrApelido
      'Grava o índice da matriz na variável de seção
      Session("Usuario") = i
      Exit For
   End if
Next

   Usuarios(0) = "Todos"

'Move cada mensagem uma posição acima na matriz para incluir a mais nova mensagem
For i=18 To 0 Step -1
   Mensagens(i+1) = Mensagens(i) 
	Exclusiva(i+1) = Exclusiva(i)
	ParaUsuario(i+1) = ParaUsuario(i)
	DeUsuario(i+1) = DeUsuario(i)
Next

'Cria a formatação da nova mensagem

StrNovaMensagem = "<font color='#FF0000' face='Arial' size='1'>("+formatdatetime(now,vblongtime)+")</font>&nbsp;<B><font color='#FF0000' face='Arial' size='2'>" & Usuarios(Session("Usuario")) & "</b> entra na Sala</font>"
StrNovaMensagem = StrNovaMensagem 

'Retorna a mensagem para a matriz e configura para que todos vejam
Mensagens(0) = StrNovaMensagem 
ParaUsuario(0) = 0
DeUsuario(0) = Session("Usuario")
Exclusiva(0) = 0

'Retorna a matriz
Application("Mensagens") = Mensagens
Application("Exclusiva") = Exclusiva
Application("ParaUsuario") = ParaUsuario
Application("DeUsuario") = DeUsuario
Application("Usuarios") = Usuarios

End If

'Destrava a aplicação
Application.UnLock 


%>

<HTML>
<HEAD>
<TITLE>Chat - Programadores</TITLE>
<script language="JavaScript">
              function click() {
              if (event.button==2) {
              alert('Todos os Direitos reservados a ShopMedia')
              }
              }
              document.onmousedown=click
</script>
</HEAD>
<FRAMESET ROWS="60,*,92,1" FRAMESPACING="0" border="false" frameborder="0">
<FRAME NAME="Titulo" SRC="Titulo.asp" SCROLLING="no" NORESIZE MARGINHEIGHT="10" MARGINWIDTH="50">
<FRAME NAME="Mensagens" SRC="Mensagens.asp"  FRAMESPACING="0" MARGINHEIGHT="15" MARGINWIDTH="20" scrolling="auto">
<FRAME src="UntitledFrame-1" NAME="Menu" SCROLLING="no" NORESIZE MARGINWIDTH="20" MARGINHEIGHT="5">
<FRAME src="UntitledFrame-2" NAME="Recarga" SCROLLING="no" NORESIZE>
</FRAMESET><noframes></noframes>
</HTML>

gostei cara fico legal talvez um pouco mais de movimento pra deixa mais interressante ta um pouco morto, fotos tao um pouco grande, e o carregando ta meio feinho nao da pro cara saber se ta acabando de carregar ou nao e poderia tbem diminuir o tamanho das fotos e colocar algumas coisas que tem no site. No mais ta bacana, vai fundo...

to montando um chat mais ta dando um erro o que pode ser:

eu entro com o nick mais quando ele tenta entrar na página na dá
quem quiser observar o erro acesse: www.maestriinformatica.com.br/chatmaestri

como eu faço aqueles efeitos encontrados nas animações dos xiao-xiao, onde aparece uma transicao da cena atual com a proxima como se eu tivesse vendo varios quadros ao mesmo tempo.

como eu faço um banner como aparece as vezes no site do terra, que fica sobresalente na tela e depois de algum tempo a tela some sozinha tipo um autoclose mais o mais interressante é o fundo tranparente.

perguntas:

Como fazer uma animação com fundo transparente?
Como colocar uma animação sobresalente em uma página num site? Acredito que isso seja um código que vai na página.

tipo eu to fazendo uma animacao e tipo eu quero que ela va ate um ponto e pare dai quando eu clica num botao ela siga de um quadro em diante

exemplo:

a animacao abre a vai ate o quadro 10 dai para, quando eu clicar num botao ele deve ir para o quadro 15 ou 20 , que acao eu uso?