Microsoft VBScript runtime (0x800A0005)
Invalid procedure call or argument
/uonline/login.asp, line 65
linha 65: set objTxtAcessos = objFso.OpenTextFile(objNomeArqAcessos, true)
ta dando esse erro ae...num entendi
me ajudem PLIS
o código ta abaixo!
completo...só tem esse arquivo!
<% option explicit ' --- Sistema de Usuários Online --- ' Feito por Ângelo Koichi Pereira Chida ' Email @ angelokpc@click21.com ' MSN @ angelokpc@hotmail.com ' ICQ # 299411363 ' --- Todos os Direitos Reservados ao Próprio | Copyrighst 2004 --- Response.Buffer = True Response.lcid = 1045 Response.Expires = 60 dim objCon dim objDrive dim objDb dim objSqlCon dim objRs dim objSqlRs dim objSqlTotalUsuariosRs dim objTotalUsuariosRs dim objFso dim objTxtAcessos dim objSql dim objNomeArqAcessos dim rs dim u_online dim visitantes dim total_u dim totalv dim total dim user dim pass dim codigo dim ncodigo dim lembra_login dim id set objCon = server.createobject("adodb.connection") objDrive = "driver={microsoft access driver (*.mdb)}" objDb = "dbq="&server.mappath("dados.mdb")&"" objSqlCon = objDrive &";"& objDb objCon.Open objSqlCon objSqlRs = "select * from users where id like '%"&id&"%'" set objRs = objCon.execute(objSqlRs) objSqlTotalUsuariosRs = "select * from users where id like '%"&id&"%'" set objTotalUsuariosRs = objCon.execute(objSqlTotalUsuariosRs) objNomeArqAcessos = server.mappath("acessos.txt") set objFso = server.createobject("Scripting.FileSystemObject") set objTxtAcessos = objFso.OpenTextFile(objNomeArqAcessos, 1, true) if not objTxtAcessos.AtEndOfStream then totalv = CLng(objTxtAcessos.ReadAll) else totalv = 0 end if objTxtAcessos.close set objTxtAcessos = nothing totalv = totalv + 1 set objTxtAcessos = objFso.OpenTextFile(objNomeArqAcessos, true) objTxtAcessos.write totalv objTxtAcessos.close set objTxtAcessos = nothing set objFso = nothing if request.cookies("ulogin_japa") = false then Sub Application_OnStart application("visitantes") = 0 End Sub Sub Application_OnEnd End Sub Sub Session_OnStart application.lock application("visitantes") = application("visitantes")+1 application.unlock End Sub Sub Session_OnEnd application.lock application("visitantes") = application("visitantes")-1 application.unlock End Sub else Sub Application_OnStart application("ureg_on") = 0 End Sub Sub Application_OnEnd End Sub Sub Session_OnStart application.lock application("ureg_on") = application("ureg_on")+1 application.unlock End Sub Sub Session_OnEnd application.lock application("ureg_on") = application("ureg_on")-1 application.unlock End Sub end if randomize codigo = cint(rnd()*9) ncodigo = codigo u_online = application("ureg_on") visitantes = application("visitantes") total_u = objTotalUsuariosRs.recordcount total_v = "<!--#include file=""acessos.txt""-->" total = cint(u_online+visitantes) user = request.cookies("ulogin_japa")("user") pass = request.cookies("ulogin_japa")("pass") if request.cookies("ulogin_japa") = true then response.write "<font size=1 face=verdana color=black>" response.write "<b>"&user&"</b>, Logado.<br>" response.write "<br><b>Pessoas Online</b>: "&total&"." response.write "<br><b>Usuário(s) Online</b>: "&u_online&"." response.write "<br><b>Visitante(s)</b>: "&visitantes&"." response.write "<br><b>Total de Usuários</b>: "&total_u&"." response.write "<br><b>Total de Visitas</b>: "&totalv&"." response.write "<br><a href=?logout style=""text-decoration: none;color: #000000"">Logout</a>" response.write "</font>" else response.write "<script language=JavaScript src=""verifica_form.js""></script>" response.write "<font size=1 face=verdana color=black>Código está incorreto!</font>" response.write "<form name=form method=post action=login.asp OnSubmit=""verifica_form()"">" response.write "<table bgcolor=white cellpadding=0 cellspacing=0 border=0 style=""border: 1px solid #000000"">" response.write "<tr><td><font face=verdana size=1 color=black>Login: </font></td>" response.write "<td><input type=text name=user value= style=""font-family: verdana;font-size: 11px""></td></tr>" response.write "<tr><td><font face=verdana size=1 color=black>Senha: </font></td>" response.write "<td><input type=password name=pass value= style=""font-family: verdana;font-size: 11px""></td></tr>" response.write "<tr><td><font face=verdana size=1 color=black>Código: </font></td>" response.write "<td>"&ncodigo&"<input type=text name=codigo value= style=""font-family: verdana;font-size: 11px""></td></tr>" response.write "<tr><td colspan=2><input type=checkbox name=lembrar_login value=""sim"" style=""font-family: verdana;font-size: 11px""><font face=verdana size=1 color=black>Lembrar Login?</font></td></tr>" response.write "<tr><td colspan=2><input type=submit name=submit value=""Logar"" style=""border: 3px solid #ffffff;background-color: #ffffff;font-family: verdana;font-size: 11px""></td></tr>" response.write "</table></form>" vncodigo = request.form("codigo") if ncodigo <> vncodigo then response.write "<font size=1 face=verda color=black>Código esta inválido</font>" response.write "<a href=history.back(1)><< Voltar</a>" else user = request.form("user") pass = request.form("pass") response.cookies("ulogin_japa")("user") = request.form("user") response.cookies("ulogin_japa")("pass") = request.form("pass") if lembrar_login = "sim" then response.cookies("ulogin_japa").expires = dateadd("d", 365, date()) end if objSql = "select * from user='"&user&"' and pass='"&pass&"'" set rs = conn.execute(objSql) if not rs.eof then response.write "<font size=1 face=verdana color=black>" response.write "<b>"&user&"</b>, Logado.<br>" response.write "<br><b>Pessoas Online</b>: "&total&"." response.write "<br><b>Usuário(s) Online</b>: "&u_online&"." response.write "<br><b>Visitante(s)</b>: "&visitantes&"." response.write "<br><b>Total de Usuários</b>: "&total_u&"." response.write "<br><b>Total de Visitas</b>: "&totalv&"." response.write "<br><a href=?logout style=""text-decoration: none;color: #000000"">Logout</a>" response.write "</font>" else response.write "User ou Login Inválidos" response.write "<a href=history.back(1)><< Voltar</a>" end if end if end if %>
=============================================
quando eu deleto o arquivo acessos.txt da pasta tem esse erro
Tipo de erro:
Microsoft VBScript runtime (0x800A0046)
Permission denied
/uonline/login.asp, line 54
linha 54: set objTxtAcessos = objFso.OpenTextFile(objNomeArqAcessos, 1, true)
ajudem PLISSSSSSSSSSSS!!
Edição feita por: LeoB, 09/07/2004, 20:52.