Resolvendo erros do Clan System

- Resolvendo erros do Clan System.

erro: 57 Não foi possivel se conectar ao host O IIS nao foi instalado.

erro: 58 O IIS nao foi instalado, seu clan system esta totalmente desconfigurado, clan.reg, clan.dll, IIS, sql.dll, databases do SQL Server 2005.

erro: 3 Abra pasta ServerMain, dentro procure por isCheckClanName.asp e verifique essas linhas:

Código:

'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

erro 9: Abra pasta clan dentro procure pelo arquivo ClanInsert.aspx e use esse abaixo!

Código:

<%@ Page Language="VB" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.SqlClient" %>
&lt;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)

            Dim dbhost, dbuser, dbpass, dbname, userid, gserver, chname, clName, expl, chtype, lv
   
            dbhost = "SEUSQL\SQLEXPRESS"
            dbuser = "usuario"
            dbpass = "senha"
            dbname = "ClanDB"
   
            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")
               
            expl = "ClaNs dimas"
   
            if userid="" Or gserver="" Or chname="" Or clName="" Or chtype="" or lv="" Then
                Response.Write("Code=100" & strSplit)
                Response.End
            End if
   
            Dim objConn, objReader, objCommand, objQuery
   
            Dim connectionString As String = "serv
ad6
er='" & dbhost & "'; user id='" & dbuser & "'; password='" & dbpass & "'; database='" & dbname & "'"
   
            objConn = New SqlConnection(connectionString)
            objConn.Open()
           
            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.C
e98
lose()
   
            objQuery = "INSERT INTO CL ([ClanName],[UserID],[ClanZang],[MemCnt],[Note],[MIconCnt],[RegiDate],[LimitDate],[DelActive],[PFlag],[KFlag],[Flag],[NoteCnt],[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>

erro 24: Abra a pasta ServerMain dentro procure pelo arquivo clanRemove.asp e verifique essas linhas

Código:

'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

erro 52: Abra a pasta ServerMain procure pelo arquivo isClanWonRelease.asp e verifique essas linhas:

Código:

'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

erro: 11 - Problema com IIS/Net Framework
- Leia este topico: [Tens de ter uma conta e sessão iniciada para poderes visualizar este link]

Créditos Guh