I got the ranking file running, but it came out to have problem with access denied. can anyone help with this? thanks in advance.
Printable View
I got the ranking file running, but it came out to have problem with access denied. can anyone help with this? thanks in advance.
my current setting...
Code:<p align="center"><font face="Vrinda" size="5"><b><u>Player ranking system . Coded by quantum fusion </u></font></p>
<%
dim ptdir
'Change this to urs
ptdir="C:\Program Files\Pristontale\DataServer\userdata"
dim admins(5)
dim notcounted
notcounted=false
'Configure this if u noe haha !
admins(0)="jianyong"
admins(1)="[Gm]Carrick"
admins(2)="[GM]XJeRemyX"
admins(3)="[G]master"
admins(4)="[GM]PapaSmurf"
admins(5)="cutegal"
response.write "<!--"
'Dynamicfusion@gmail.com .... I BEG U ALL BR TO LEAVE THHE CREDIT !! i made this give me some effort man -_-
response.write "Dyanmicfusion@gmail.com , quantum fusion product-->"
Set objVariable = Server.CreateObject("ptx.ptlevel")
temp=objvariable.listalllevel(ptdir,1)
temp=split(temp,vbcrlf)
t=0
v=0
do until t=ubound(temp)
data=split(temp(t),";")
w=0
do until w>5
if instr(lcase(replace(data(1),"name=","")),lcase(admins(w)))=>1 then
notcounted=true
end if
w=w+1
loop
if v mod 2 =0 and notcounted=false then
%>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" bgcolor="#808080">
<tr>
<td width="30%"><%=data(0)%> </td>
<td width="50%">
<% if v < 30 then%><img src="trophy.jpg" width=32 height=32 ></img> (<%=v+1%>th)<%end if%>
<%=replace(data(1),"name=","")%> </td>
</tr>
</table>
<%
elseif notcounted=false then
%>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" bgcolor="#C0C0C0">
<tr>
<td width="30%"><%=data(0)%> </td>
<td width="50%">
<% if v < 30 then%><img src="trophy.jpg" width=32 height=32 ></img> (<%=v+1%>th)<%end if%>
<%=replace(data(1),"name=","")%> </td>
</tr>
</table>
</b></font>
<%
end if
if notcounted=true then
notcounted=false
t=t+1
else
t=t+1
v=v+1
end if
loop
response.write "<!--"
'Dynamicfusion@gmail.com .... I BEG U ALL BR TO LEAVE THHE CREDIT !! i made this give me some effort man -_-
response.write "Dyanmicfusion@gmail.com , quantum fusion product-->"
%>
u didnt register the dll -.-
register using cmd file? or using registry file?Quote:
Originally Posted by quantumfusion
i only include cmd file .
how do u register a cmd file
You could also create a ranking page based on the SQL.dll file, if you got it working.
just execute it? I did mine but nothing show up to registry. I think you'll need to find the registry file for this ranking.
Quote:
Originally Posted by bbchamps2000
Tipo de erro:
Erro de tempo de execução do Microsoft VBScript (0x800A000D)
Tipos incompatíveis: 'listalllevel'
/rank.asp, line 20
any idea?
well you asked for any idea.. lol
so here is any idea.. :P
open ur rank.asp file in frontpage or something alike that numbers your lines for you then go down to line 20 and make sure its set rite
anyone mind upping their registry file? thanks in advance...
mine..... u cant register?
lol
u cant execute my stuff**
Now line 19 has problem T_T
Error Type:
Server object, ASP 0178 (0x80070005)
The call to Server.CreateObject failed while checking permissions. Access is denied to this object.
/rank.asp, line 19
"Set objVariable = Server.CreateObject("ptx.ptlevel")"
bump, anyone got a tutorial for this?
bump
i have an error with line 20 'listalllevel'
this is my script:
<p align="center"><font face="Vrinda" size="5"><b><u>Player ranking system . Coded by quantum fusion </u></font></p>
<%
dim ptdir
'Change this to urs
ptdir="D:\JPTSF\jpt\DataServer\userdata"
dim admins(5)
dim notcounted
notcounted=false
'Configure this if u noe haha !
admins(0)="jianyong"
admins(1)="[Gm]Carrick"
admins(2)="[GM]XJeRemyX"
admins(3)="[G]master"
admins(4)="[GM]PapaSmurf"
admins(5)="cutegal"
response.write "<!--"
'Dynamicfusion@gmail.com .... I BEG U ALL BR TO LEAVE THHE CREDIT !! i made this give me some effort man -_-
response.write "Dyanmicfusion@gmail.com , quantum fusion product-->"
Set objVariable = Server.CreateObject("ptx.ptlevel")
temp=objvariable.listalllevel(ptdir,1)=this is line 20
temp=split(temp,vbcrlf)
t=0
v=0
do until t=ubound(temp)
data=split(temp(t),";")
w=0
do until w>5
if instr(lcase(replace(data(1),"name=","")),lcase(admins(w)))=>1 then
notcounted=true
end if
w=w+1
loop
if v mod 2 =0 and notcounted=false then
%>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" bgcolor="#808080">
<tr>
<td width="30%"><%=data(0)%> </td>
<td width="50%">
<% if v < 30 then%><img src="trophy.jpg" width=32 height=32 ></img> (<%=v+1%>th)<%end if%>
<%=replace(data(1),"name=","")%> </td>
</tr>
</table>
<%
elseif notcounted=false then
%>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" bgcolor="#C0C0C0">
<tr>
<td width="30%"><%=data(0)%> </td>
<td width="50%">
<% if v < 30 then%><img src="trophy.jpg" width=32 height=32 ></img> (<%=v+1%>th)<%end if%>
<%=replace(data(1),"name=","")%> </td>
</tr>
</table>
</b></font>
<%
end if
if notcounted=true then
notcounted=false
t=t+1
else
t=t+1
v=v+1
end if
loop
response.write "<!--"
'Dynamicfusion@gmail.com .... I BEG U ALL BR TO LEAVE THHE CREDIT !! i made this give me some effort man -_-
response.write "Dyanmicfusion@gmail.com , quantum fusion product-->"
%>
This files are not completed... When i have time i post full here =D
ty and hurry =]
Bump
Up
My
Post
~
waiting patiently ^_^Quote:
Originally Posted by faHhH