plz help me :(

tr1pl3x1

New Member
Hello Guys,

i tried allways to put in my clan SOD crown but it's never work :(
can someone upload the files where SOD crown work plz :(:( i tried so often and never work :(:( im so stupid for this

thanks all
 

tr1pl3x1

New Member
i try it but dont work :S

look plz and help
hể my isclanMember




<!-- #include file ="common.inc" -->
<!--#include file="fso.asp"-->
<%
'Modded by quantumfusion
'dynamicfusion@gmail.com
'admin@quantumfusion.no-ip.org (msn)

function CheckIfFileExists(byVal FolderPath, byVal FileName)
CheckIfFileExists = False
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(FolderPath)
For Each file In objFolder.files
if Lcase(file.name) = Trim(LCase(Filename)) Then
CheckIfFileExists = True
End if
Next
Set objFSO = nothing
End function
'---------------------------------------
'ModulenName: isClanMember.asp
'Coded by X
'
'Thanx to VitalizePT & Strawberry PT
'for the support & return data values.
'--------------------------------------
'
'This file is to know if char is on a clan
'
dim eSql
dim eServer
dim eUID
dim eServerName
dim eChName
dim eTicket
dim eName
dim eSubChief

'On Error Resume Next

'userid=%s&
'gserver=%s&
'chname=%s&
'ticket=%d

eUID = GetParameter ("userid","String")
eServerName = GetParameter ("gserver","String")
eChName= GetParameter("chname","String")
eTicket = GetParameter("ticket","Numeric")
OpenDBConnection
AbortOnError

eServer = GetServerID(eServerName)

'eSql = "Select count(*) from ClanTicket where SNo= "& val(eTicket) & "and UserID=' " & eUID & "'"
'response.write eSQL & "<BR>"
'eRs.Open eSql, eDb
'AbortOnError
'AbortOnEmptyCursor
'
'if eRs(0) < 1 then 'Wrong ticket
' Response.Write "Code=100"
' Response.End
'end if

' check if user in clan
eSql ="Select count(IDX), min(ClanName) from " & eServer & "ClanSub where ChName = '" & eChName & "'"
eRs.Open eSql, eDb
AbortOnError
AbortOnEmptyCursor

if eRs(0) < 1 then 'Clan not existent
Response.Write "Code=0" & vbCrLf
Response.Write "CMoney=500000" & vbCrLf
Response.Write "CNFlag=1" & vbCrLf
Response.End
end if
eName=eRs(1)
eRs.close

eSql = "Select count(*), min(ChName) from " & eServer & "ClanSub b"
eSql = eSql & " where b.ClanName = '" & eName & "'"
eSql = eSql & " and b.Permi=2"
'response.write eSQL & "<BR>"
eRs.Open eSql, eDb

if eRs(0)>0 then
eSubChief=eRs(1)
else
eSubChief=""
end if
eRs.close

' 0 1 2 3 4 5 6 7 8 9 10 11
eSql ="Select b.Permi,A.Note,A.ClanZang, a.MIconCnt,A.RegiDate,A.DelActive,A.PFlag,A.KFlag,A.MemCnt, a.LimitDate, a.ClanMoney, A.CnFlag"
eSql = eSql & " from " & eServer & "ClanMain A, " & eServer & "ClanSub B"
eSql = eSql & " where a.idx=b.idx"
eSql = eSql & " and b.ClanName = '" & eName & "'"
eSql = eSql & " and b.ChName = '" & eChName & "'"
'response.write eSQL & "<BR>"
eRs.Open eSql, eDb
AbortOnError
AbortOnEmptyCursor

dim i
for i=0 to 11
select case i
case 0
if eRs(i) = 0 then
Response.Write "Code=1" & vbCrLF
Response.Write "CName= " & eName & vbcrlf
else
Response.Write "Code=2" & vbCrLF
Response.Write "CName= " & ename & vbcrlf
end if
case 1
Response.Write "CNote= "
case 2
Response.Write "CZang= "
case 3
if(eSubChief<>"") then
Response.Write "CSubChip= " & eSubChief & vbcrlf
end if
Response.Write "CStats=1" & vbcrlf
'response.write server.mappath("..\ClanContent\" & eRs(i).value & ".bmp"
if CheckIfFileExists(server.mappath("..\ClanContent\"),cstr(cdbl(eRs(i).value+1000000)) & ".bmp")=false then
CopyFile server.mappath("..\ClanContent\9999.bmp"),server.mappath("..\ClanContent\" & cstr(cdbl(eRs(i).value+1000000)) & ".bmp")
end if
Response.Write "CIMG= " & cstr(cdbl(eRs(i).value+1000000)) & vbcrlf
'Response.Write "CIMG= 9999" & vbcrlf
'Response.Write "CIMG= " & eRs(i).value & vbcrlf
Response.Write "CSec= 60" & vbcrlf
case 4
Response.Write "CRegiD= "
case 5
Response.Write "CDelActive= "
case 6
Response.Write "CPFlag= "
case 7
Response.Write "CKFlag= "
case 8
Response.Write "CMCnt= "
case 9
Response.Write "CLimitD= "
case 10
response.Write "CMoney= "
case 11
Response.Write "CNFlag= "
end select
if i>0 and (i <> 3 ) then
response.Write eRs(i).value & vbcrlf
end if
next

CloseDBConnection
%>


(i have it only at Clan not existent) how i can fix it look and help plz :(
 

Admin

Tổng tư lệnh
Staff member
CNFLAG=1 = enable crown CNFLAG =0 dissable crown
edit your clan in database
shagpub said : Edit your clan in database mean you must edit CNFLAG=1 for whatever clan you want . If you edit claninsert with CNFLAG=1 mean all clean which new will have crown . So ..... How can many clan have crown at the same time ? :D .
 
Top