functions_ban.asp

Function UnBanUser(strIP)
 Dim fso
 Dim stream
 Dim strBanList
 Set fso = Server.CreateObject("Scripting.FileSystemObject")
 'Open the file to see if ip is in it
 Set stream = fso.OpenTextFile(strBanFile, 1, True)
 strBanList = stream.SkipLine()
 'If IP not found return false
 If Instr(strBanList, strIP) = 0 Then
  UnBanUser = False
 'If IP found then remove it
 Else
  UnBanUser = True
  strBanList = Replace(strBanList, strIP & vbCrLf, "")
 End If
 stream.Close
 Set stream = Nothing
 'Save the text file
 Set stream = fso.OpenTextFile(strBanFile, 2)
 stream.Write(strBanList)
 stream.Close
 Set stream = Nothing
 Set fso = Nothing
 'Update the ban list
 Call GetBanList()
End Function

postmessage.asp

 ElseIf Mid(strMessage, 1, 7) = "/unban " Then
  strCommand = Trim(Mid(strMessage, 7, Len(strMessage)))
  If blnAdmin=True OR blnMod=True OR blnGizlimod=True Then
   If CheckIfBanned(strCommand) Then
    Call UnBanUser(strCommand)
    strMessage = strCommand & " Banlı (Yasaklı) Listesinden Silinmiştir."
                                Call WriteLog(strUsername & "|>>> Ban Listesini Temizledi! Silinen IP: [" & strCommand & "] (" & Time & ")")
   Else
    strMessage = strCommand & " Banlı (Yasaklı) Listesinde Mevcut Değildir."
   End If
   saryUserMsgTo = Array(strUsername)
   intType = 1
  Else
   strMessage = strUsername & "&nbsp;<font color=blue>Bu Komutu Kullanmaya Yetkiniz Yok</font><font color=red>!</font>"
   saryUserMsgTo = Array(strUsername)
   intType = 1
  End If

/unban IP komutunu kullandıgımda yasakli.css de bulunan tüm IP kayıtlarını silmektedir /ban IP komutu guzel calısıyor tek tek ekliyor fakat silmeye calıstıgımda css de bulunan tüm IP kayıtlarını sılıyor functions_ban.asp de verdiğim kod da bir sıkıntı mı var arkadaşlar ?