everyone seem to be stuck on SOD Ranking ~
Printable View
everyone seem to be stuck on SOD Ranking ~
Please, I want it too, but the link is off, can anyone upload it again?Quote:
Originally Posted by shagpub View Post
I was going to make a video but since the installation is very simple and also because i was unabled to upload large files through browser :P so main files only.
Download:
YouSendIt - File Sharing Transfer Delivery - PC FTP Replacement
someone can mirror the file if needed
- Thanks to Sandurr for writing this :)
Edit:
There was a mistake in the reg file
should be
and you dont need to edit DATA SOURCE in SQL.dll since %s is WOKRING fine
File-Upload.net - Ihr kostenloser File Hoster! look my error :( plzzz :( check my logs !!!!SIKKKKKKKK I NEEEEEEEEED UUUUUUuu!!!!
Please, can someone mirror it for us who wnt the files?
Because I've searched the entire forum and I couldn't find a working link. I'm brazilian anda MegaUpload don't work for me.
Please, atach it or just host it on rapidshare for example.
Than you very much!!
Here's updated link for clan files... http://laocainet.com/ClanSystemsandurr.rar
Gustavaends, don't you ever make a reply and a new topic reguarding the exact same thing ever again.
i got clan error 65
Ok i fixed now only ranking :S
help me my clan create (ok) more its to very fast the disband....
help me plz
What was the question there =\?
Just so you all know I am breaking up what I have to say into two posts, as it gets legnthy, and they are both on two different subjects.
This post is going to regaurd errors 2 and 11. I understand that many of you still get error 11, and it can be a pain to work around, but we will get to that.
As for fixing error two, I did my usual server side ethereal to retrieve which clan file, and what error code number in the files I was recieving.
This code fixed both my error two, and partially my error 11, there was more I had to do to fix error 11 before I could find what was conflicting in the code...
However, I don't know if this will be the case for you, but right after fixing error code 2, it moved directly onto the infamous Unknown Error 11.Code:<%@ Page Language="VB" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.SqlClient" %>
<script runat="server">
Function GetParameter(pName as string, pType as string) as string
dim lTmp as string
lTmp = Page.Request.QueryString.item(pName)
GetParameter = lTmp
End Function
Sub Page_Load(Sender As Object, E As EventArgs)
'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
Dim dbhost, dbuser, dbpass, dbname, userid, gserver, chname, clName, expl, chtype, lv, ticket
dbhost = "IP"
dbuser = "USER"
dbpass = "XXX"
dbname = "ClanDB"
' MultipleActiveResultSets=True //Note to self... Unique connection string, MARS not valid
Dim strSplit As String
strSplit = Chr("&H" & "0D")
userid = GetParameter ("userid","String")
gserver = GetParameter ("gserver","String")
chname = GetParameter("chname","String")
clName = GetParameter("clName","String")
chtype = GetParameter("chtype","String")
lv = GetParameter("lv","String")
ticket = GetParameter("ticket","String")
expl = "Suck My...ASP"
' if userid="" Or gserver="" Or chname="" Or clName="" Or chtype="" or lv="" or ticket="" Then
' Response.Write("Code=150" & strSplit) //Note to self... Error 'code 150 recieved.
' Response.End
' End if
Dim objConn, objReader, objCommand, objQuery
Dim connectionString As String = "server='" & dbhost & "'; user id='" & dbuser & "'; password='" & dbpass & "';
database='" & dbname & "'"
objConn = New SqlConnection(connectionString)
objConn.Open()
objQuery = "SELECT SNo FROM CT WHERE ChName='" & chname & "' AND UserID='" & userid & "'"
objCommand = New SqlCommand(objQuery, objConn)
objReader = objCommand.ExecuteReader()
Dim tticket
' If objReader.Read()
' tticket = objReader.Item(0)
' If ticket <> tticket Then
' objReader.Close()
' objConn.Close()
' Response.Write("Code=120" & strSplit) //Note 'to self... Error code 120 recieved
' Response.End
' Else
' objReader.Close()
' End If
' Else
' objReader.Close()
' objConn.Close()
' Response.Write("Code=130" & strSplit) //Note to 'self... Error code 130 Recieved |Unknown Error 2|
' Response.End
' End If
objReader.Close()
' //Note to self... There is already an open DataReader associated with this 'Command which must be closed first. Error
' //Recieved after commenting out above section. Attempted to add MARS, 'but is unique connection string.
' //Added new objReader.close instead. Fixed my Error 11.
objQuery = "SELECT ClanName FROM UL WHERE ChName='" & chname & "'"
objCommand = New SqlCommand(objQuery, objConn)
objReader = objCommand.ExecuteReader()
If objReader.Read()
If objReader.Item(0) = "" Then
objReader.Close()
objQuery = "DELETE FROM UL WHERE ChName='" & chname & "'"
objCommand = New SqlCommand(objQuery, objConn)
objReader = objCommand.ExecuteReader()
Else
objReader.Close()
objConn.Close()
Response.Write("Code=2" & strSplit & "CMoney=0" & strSplit)
Response.End
End if
End if
objReader.Close()
objQuery = "SELECT ClanZang FROM CL WHERE ClanName='" & clName & "'"
objCommand = New SqlCommand(objQuery, objConn)
objReader = objCommand.ExecuteReader()
If objReader.Read()
objReader.Close()
objConn.Close()
Response.Write("Code=3" & strSplit & "CMoney=0" & strSplit)
Response.End
End if
objReader.Close()
objQuery = "SELECT IMG FROM LI WHERE ID=1"
objCommand = New SqlCommand(objQuery, objConn)
objReader = objCommand.ExecuteReader()
Dim iIMG As Integer
if objReader.Read() Then
iIMG = objReader.Item(0)
Else
iIMG = 1000000000
objReader.Close()
objQuery = "INSERT INTO LI values('" & (iIMG + 1) & "','1')"
objCommand = New SqlCommand(objQuery, objConn)
objReader = objCommand.ExecuteReader()
End if
objReader.Close()
iIMG = iIMG + 1
objQuery = "UPDATE LI SET IMG='" & iIMG & "' WHERE ID=1"
objCommand = New SqlCommand(objQuery, objConn)
objReader = objCommand.ExecuteReader()
objReader.Close()
objQuery = "INSERT INTO CL
([ClanName],[UserID],[ClanZang],[MemCnt],[Note],[MIconCnt],[RegiDate],[LimitDate],[DelActive],[PFlag],[KFlag],[Flag],[NoteCn
t],[Cpoint],[CWin],[CFail],[ClanMoney],[CNFlag],[SiegeMoney]) values('" & clName & "','" & userid & "','" & chname &
"','1','" & expl & "','" & iIMG & "',getdate(),getdate()+3600,'0','0','0','0','1','0','0','0','0','0','0')"
objCommand = New SqlCommand(objQuery, objConn)
objReader = objCommand.ExecuteReader()
objReader.Close()
objQuery = "SELECT IDX FROM CL WHERE ClanName='" & clName & "'"
objCommand = New SqlCommand(objQuery, objConn)
Dim IDX As String
objReader = objCommand.ExecuteReader()
If objReader.Read() Then
IDX = objReader.Item(0)
End If
objReader.Close()
objQuery = "INSERT INTO UL
([IDX],[userid],[ChName],[ClanName],[ChType],[ChLv],[Permi],[JoinDate],[DelActive],[PFlag],[KFlag],[MIconCnt]) values('" &
IDX & "','" & userid & "','" & chname & "','" & clName & "','" & chtype & "','" & lv & "','0',getdate(),'0','0','0','" &
iIMG & "')"
objCommand = New SqlCommand(objQuery, objConn)
objReader = objCommand.ExecuteReader()
objReader.Close()
objConn.Close()
Response.Write("Code=1" & strSplit & "CMoney=500000" & strSplit)
End Sub
</script>
<html>
<head>
</head>
<body>
</body>
</html>
After coming up empty handed in ethereal, I proceeded to go another route. I loaded up my web browser, and attempted to access the file directly with the web address ethereal had given me. To my suprise I was consistantly getting 404 errors, the file was not found. After double checking, the file was there and should of been accessed. So I checked my directory and file permissions in IIS manager, and all looked fine.
It was as if IIS wasn't even recognizing the file type of aspx. So out of desperation, I tried something foolish, which actually worked... I'm yet to understand how. I went into IIS manager, right clicked on the clan virtual directory and went to properties. From here I navigated myself to the HTTP Headers tab, then under MIME types, I clicked the file types button. I put in the exstention .aspx, and then for content type I put application/octet-stream. It appeared to of worked, but kept getting goofy runtime errors about custom error files. Later I even deleted the new MIME type and it still worked. From this point on I reinstalled .net framework yes yes. I have read that ASP.NET can do goofy things, like not allowing aspx files, or other certain extentions.
After I little work, (turning off custom errors in ASP.NET panel,)I finally got a real error message telling me what the problem was. Which basically after commenting out the previous lines of codes, It kept the data reader connection to the database open. All I had to do was add in a new close code.. and woolah, no more error 11.
So yes, I hope this helps out any of you. It just goes to show that those of you getting error 11, it could be something simple under your nose, your just going to have to work to find out what the problem is, whatever it may be.
Now To address, the second half...
Clan Dismissal error code 26. In all the clan files that I have used, this error code loves me the most, I swear. It's like a tick that's dug itself so deep under the skin and you can't get to it. I have chased all around for this error code, and yet have only half ass fixed it.
As I mentioned, I get the error while disbanding a clan. After I little work in ethereal, the error code within the files that I retrieve is from settings.asp...
180 is the Error code that kept returning. However, commenting out these lines, resulted in error 58. So I needed to take a different approach... Commenting out the lines in clanInsert.asp that required to check the ticket.Code:If RS.RecordCount >= 1 Then
tticket = RS("SNo").Value
If CInt(ticketcheck) = CInt(tticket) Then
RS.Close
Else
RS.Close
Set RS = Nothing
objConn.Close
Set objConn = Nothing
Response.Write("Code=190" & strSplit)
Response.End
End If
Else
RS.Close
Set RS = Nothing
objConn.Close
Set objConn = Nothing
Response.Write("Code=180" & strSplit)
Response.End
End If
End Sub
In the end, I end't up having to comment out all this stuff in clanInsert.asp to get a code=1...
However, in game, it did remove the clan, but once I logged back in, the clan name was back associated to that character. although I no longer get error 26, disbanding the clan did not work out right, and it must of been because of something I disabled in the code.Code:<!-- #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, ticket
FillSettings()
Dim strSplit
strSplit = Chr("&H" & "0D")
' Parameter Variables
' clanRemove (userid, gserver, chname, clName)
userid = Trim(Request("userid"))
gserver = Trim(Request("gserver"))
chname = Trim(Request("chname"))
clName = Trim(Request("clName"))
ticket = Trim(Request("ticket"))
'if userid = "" Or gserver = "" Or chname = "" Or clName = "" Or ticket = "" Then
' Response.Write("Code=103" & 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 ClanZang FROM CL WHERE ClanName='" & clName & "'"
'RS.Open QUERY, objConn, 3, 1
'Dim strReturn
'if Not RS.RecordCount >= 1 Then
' strReturn = "Code=0" & strSplit
'
' RS.Close
' Set RS = Nothing
' objConn.Close
' Set objConn = Nothing
'
' Response.Write(strReturn)
' Response.End
'End if
'Dim ClanLeader
'ClanLeader = RS("ClanZang").Value
'if Not chName = ClanLeader Then
' strReturn = "Code=0" & strSplit
'
' RS.Close
' Set RS = Nothing
' objConn.Close
' Set objConn = Nothing
'
' Response.Write(strReturn)
' Response.End
'End if
'RS.Close
QUERY = "DELETE FROM CL WHERE ClanName='" & clName & "'"
'RS.Open QUERY, objConn, 3, 1
strReturn = "Code=1" & strSplit
QUERY = "DELETE FROM UL WHERE ClanName='" & clName & "'"
'RS.Open QUERY, objConn, 3, 1
Set RS = Nothing
objConn.Close
Set objConn = Nothing
Response.Write(strReturn)
%>
So just wondering if any of you out there have had any of the same problems with error 26, or would like to chare your input. It's greatly appreciated!
Thanks, Happy.
Thx HappyHardcore :D hey try fix us sod ranking :S
I don't know if its posted yet, since I was not able to find it on the guide so far. But to exempt yourself from the rank list, place "GM-" infront of your char name, and you will be exempted from the list. I know someone asked for it one of the posts. Hope this helps.
Personally, I am still struggling to get sql.dll working, then again, I only started working on it like about 5 hrs ago.
Just curious, for the sql.dll to work, does the database have to be OSIRUS/SQLEXPRESS or can it be just OSIRUS. I am asking this, since I see various posts on this @.@
Hello, and thank you for letting us know how to expemt GM's from the SoD ranking list, I'm sure it will be helpfull to most running a server.Quote:
Originally Posted by osirus
To answer your questions, I believe Shagpub has mentioned that the new sql.dll doesn't need you to manually define the data source from within it. The %s which I'm guessing wasn't working properly, or not existant in the original is supposedly fixed. I however have not tried this yet, probably need to.
You can still do this manually however. Which I am guessing is what your trying now. As for what to use, it's best to use OSIRUS\SQLEXPRESS. Don't forget it's \ not /.
If you have tcp/ip enabled you can also do...
LAN IP,1433\SQLEXPRESS
or
WAN IP,1433\SQLEXPRESS
Anyone got their SOD Crown Ranking working?