Printable View
im use sandur clan 2.0 work very good Gz Sandurr
more i'm have only error , the error is 19
and dont have in topic oficial of Sandurr Clan
if somedy have the correction post here
please ...
the bug is ( players can't leave of clan =X )
Thanks Bye BYe
sorry For my lenguage
im brazilian =**
:yak:
Open isClanWonRelease.asp and comment these lines:
Taken from HappyHardcore's clan troubleshooting guide.Code:'eSql = "Select count(*) from ClanTicket where SNo= "& val(eTicket)
'eRs.Open eSql, eDb
'AbortOnError
'AbortOnEmptyCursor
'if eRs(0) < 1 then 'Wrong ticket
' Response.Write "Code=100"
' Response.End
'end if
'eRs.close
sik i don't understand it ... see my clanwonrelease
<!-- #include file ="settings.asp" -->
<%
'Written By Sandurr COPYRIGHT Sandurr 2006
'Written By Sandurr COPYRIGHT Sandurr 2006
'Written By Sandurr COPYRIGHT Sandurr 2006
'Written By Sandurr COPYRIGHT Sandurr 2006
'Written By Sandurr COPYRIGHT Sandurr 2006
'Version 2.0 NOVEMBER 2006
' Assign Global Variables
Dim dbhost, dbuser, dbpass, dbname, userid, gserver, chname, clName, clwon1, ticket
FillSettings()
Dim strSplit
strSplit = Chr("&H" & "0D")
' Parameter Variables
' clanWonRelease (userid, gserver, chname, clName, clwon1)
userid = Trim(Request("userid"))
gserver = Trim(Request("gserver"))
chname = Trim(Request("chname"))
clName = Trim(Request("clName"))
clwon1 = Trim(Request("clwon1"))
ticket = Trim(Request("ticket"))
if userid = "" Or gserver = "" Or chname = "" Or clName = "" Or clwon1="" Or ticket="" Then
Response.Write("Code=100" & strSplit)
Response.End
End if
Dim QUERY, RS, objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=SQLOLEDB; Data Source=" & dbhost & "; Initial Catalog=" & dbname & "; User ID=" & dbuser & "; Password=" & dbpass
Set RS = Server.CreateObject("ADODB.Recordset")
CheckTicket userid, ticket
QUERY = "SELECT ClanName FROM UL WHERE ChName='" & clwon1 & "'"
RS.Open QUERY, objConn, 3, 1
Dim strReturn
Dim clName2
if RS.RecordCount >= 1 Then
clName2 = RS("ClanName").Value
if clName2 = "" Then
QUERY = "DELETE FROM UL WHERE ChName='" & clwon1 & "'"
RS.Open QUERY, objConn, 3, 1
SET RS = Nothing
objConn.Close
SET objConn = Nothing
strReturn = "Code=0" & strSplit
Response.Write(strReturn)
Response.End
End if
if Not clName2 = clName Then
RS.Close
SET RS = Nothing
objConn.Close
SET objConn = Nothing
strReturn = "Code=0" & strSplit
Response.Write(strReturn)
Response.End
End if
Else
RS.Close
SET RS = Nothing
objConn.Close
SET objConn = Nothing
strReturn = "Code=0" & strSplit
Response.Write(strReturn)
Response.End
End if
RS.Close
QUERY = "SELECT ClanZang,MemCnt FROM CL WHERE ClanName='" & clName & "'"
RS.Open QUERY, objConn, 3, 1
Dim ClanLeader, ClanMembers
ClanLeader = RS("ClanZang").Value
ClanMembers = CInt(RS("MemCnt").Value)
ClanMembers = ClanMembers - 1
if clwon1 = ClanLeader Then
RS.Close
SET RS = Nothing
objConn.Close
SET objConn = Nothing
strReturn = "Code=4" & strSplit
Response.Write(strReturn)
Response.End
End if
QUERY = "UPDATE CL SET MemCnt='" & ClanMembers & "' WHERE ClanName='" & clName & "'"
Dim QUERY2
QUERY2 = "DELETE FROM UL WHERE ChName='" & clwon1 & "'"
RS.Close
RS.Open QUERY, objConn, 3, 1
RS.Open QUERY2, objConn, 3, 1
SET RS = Nothing
objConn.Close
SET objConn = Nothing
strReturn = "Code=1" & strSplit
Response.Write(strReturn)
%>
can you fix the bug for me please ? =/
Don't think this fix applies to the Sandurr files. Not quite sure how you would fix it in those.
More you Don't can fix for me ? =X
im go try ... if you can help me I will be thankful =D
Don't you guys ever learn!!! READ THE SECTION RULES BEFORE POSTING!!!
DO NOT POST CLAN RELATED ERRORS OUTSIDE OF THEIR RESPECTIVE THREADS!! These threads are stickies!!
What do I have to do to get you people to read the rules? Brazillian or not, there's no excuse for not reading and following the rules... topic locked!Quote:
Do not make new topics about your clan errors. We have sections for those.