please i need help.. everything is work fine but shardmanager dont because say billingserver dead and close please somebody can help me please.. this a picture the error
eng:
billingserver problems, check your iis server, edit the db connections and ips.
(C:/inetpub/wwwrot)
if you has already installed iis.
spanish:
el poblema esta en el billingserver, fijate las configs de conexion a db y ips, si podes mostranos como tenes los siguientes archivos, DBConnect.asp , GetTotalSilk.asp , PurchaseSilk.asp.
Saludos.
eng:
billingserver problems, check your iis server, edit the db connections and ips.
(C:/inetpub/wwwrot)
if you has already installed iis.
spanish:
el poblema esta en el billingserver, fijate las configs de conexion a db y ips, si podes mostranos como tenes los siguientes archivos, DBConnect.asp , GetTotalSilk.asp , PurchaseSilk.asp.
Saludos.
Spanish:
Uploaded with
aqui te mostrare los .asp
DBConnect.asp
Quote:
<%
Dim DBConnA, strConnectA
Set DBConnA = Server.CreateObject("ADODB.Connection")
strConnectA = "Provider=SQLOLEDB;Data Source=RIICRDO-PC\SQLEXPRESS;Initial Catalog=SRO_VT_ACCOUNT;user ID=sa;password=1234;"
DBConnA.Open strConnectA
' Error
If Err.Number <> 0 Then
Response.Write "-1"
Response.End
End If
'''''''''' Check ACL only Call from Billing Server
Dim IP
Dim BillingServer
BillingServer = "5.155.140.114"
IP = Request.ServerVariables("REMOTE_ADDR")
'If(IP <> BillingServer) Then
' Response.Write "ACCESSDENY"
' Response.End
'End If
''''''''''
Dim sdSQL
Dim sdRS
Dim ReturnValue
' Error
If Err.Number <> 0 Then
Response.Write "ERROR"
Response.End
End If
'''''''''' Check ACL only Call from Billing Server
Dim IP
Dim BillingServer
BillingServer = "5.155.140.114"
IP = Request.ServerVariables("REMOTE_ADDR")
If(IP <> BillingServer) Then
Response.Write "ACCESSDENY"
Response.End
End If
'''''''''''''''' Check MD5 secretstring
Dim OrderNo
Dim Username
Dim Package
Dim NumSilk
Dim ECash
Dim Secret
' Error - Parameter
Dim ParaResult
ParaResult = "OK"
If OrderNo = "" OR IsNull(OrderNo) OR IsEmpty(OrderNo) Then
ParaResult = "PARA01"
End If
If Username = "" OR IsNull(Username) OR IsEmpty(Username) Then
ParaResult = "PARA02"
End If
If Package = "" OR IsNull(Package) OR IsEmpty(Package) Then
ParaResult = "PARA03"
End If
If NumSilk = "" OR IsNull(NumSilk) OR IsEmpty(NumSilk) Then
ParaResult = "PARA04"
End If
If ECash = "" OR IsNull(ECash) OR IsEmpty(ECash) Then
ParaResult = "PARA05"
End If
If SecretStr = "" OR IsNull(SecretStr) OR IsEmpty(SecretStr) Then
ParaResult = "PARA06"
End If
If ParaResult <> "OK" Then
DBConnA.Close
Set DBConnA = Nothing
Response.Write ParaResult
Response.End
End If
''''''''''CHECK MD5 Valid key String
''''''''''
Dim KeyString
Dim objMD5
Dim Confirm_Valid_Key
KeyString = "VDC-Net2E-CGI"
Set objMD5 = New MD5
objMD5.Text = OrderNo & Username & Package & NumSilk & ECash & IP & KeyString
Confirm_Valid_Key = objMD5.HEXMD5
' Error
If Err.Number <> 0 Then
DBConnA.Close
Set DBConnA = Nothing
Response.Write "ERROR"
Response.End
End If
If Trim(SecretStr) <> Trim(Confirm_Valid_Key) Then
DBConnA.Close
Set DBConnA = Nothing
Response.Write "INVALID"
Response.End
End If
'''''''''' Check User Exist
Dim sdSQL
Dim sdRS
Dim ReturnValue
sdSQL = "SET NOCOUNT ON EXEC CGI.CGI_WebPurchaseSilk '" & OrderNo & "'," & Username & "," & Package & "," & NumSilk & "," & ECash & " "
' Response.Write sdSQL
Set sdRS = DBConnA.Execute(sdSQL)
ReturnValue = sdRS(0)
sdRS.Close
Set sdRS = Nothing
DBConnA.Close
Set DBConnA = Nothing
' Error
If Err.Number <> 0 Then
Response.Write "ERROR"
Response.End
End If
Response.Write ReturnValue
Response.End
%>
hey DarkNess i have 1 Error With the GlobalManger.exe Maybe u Can Help me :3
Maybe u could help me for TeamViewer if u are Free OFC TY
Check the ip and port of server.cfg, when you open first the certificate.. He say that connects to a certain ip and the port, default is port 32000 i think, check in server.cfg if in globalmanager you have the same ip and port
B:Mw 2 Account S: Left 4 Dead 2/Dead Space 2 Key 08/21/2011 - Steam Trading - 0 Replies Hi Leute
ich suche einen Left 4 Dead 2 Key oder einen Dead Space 2 Key.
Biete euch einen Steam Account mit Modern Warfare 2 unbanned. :)