Clan Problems []

Clan Problems with clan name all []

http://img182.imageshack.us/img182/8686/1sp6.jpg

My isClanMember.asp

Code:

---

<!-- #include file ="common.inc" -->
<!--#include file="fso.asp"-->
<%
  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=0" & 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\"),eRs(i).value & ".bmp")=false then
            CopyFile server.mappath("..\ClanContent\9999.bmp"),server.mappath("..\ClanContent\" & eRs(i).value & ".bmp")
            end if
            Response.Write "CIMG= " & eRs(i).value & vbcrlf
            'Response.Write "CIMG= 9999" & vbcrlf
            'Response.Write "CIMG= " & eRs(i).value & vbcrlf
            Response.Write "CSec= 10000" & 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
%>

---

Anyone know why ?

just relog?
if isnt work dunno><
my server happens this but i just relog XD
><